#!/usr/sbin/dtrace -Cs

#pragma D option quiet

fss_preempt:entry
/ execname != "sched" && execname != "dtrace" /
{
	self->fssp   = (fssproc_t *)args[0]->t_cldata;
	self->fsspj  = (fssproj_t *)self->fssp->fss_proj;
	self->usage  = self->fsspj->fssp_usage;
	self->susage = self->fsspj->fssp_shusage;
	self->pri    = args[0]->t_pri;

	@u[execname,tid] = sum(self->usage);
	@p[execname] = lquantize(self->pri, 0, 60, 5);
}

END
{
	printf("%-20s %-8s %-24s\n","NAME","TID","USAGE");
	printa("%-20s %-8d %-24@d\n",@u);
	printf("\n");
	printa(@p);
}