[unix-history] / usr / src / sys / scripts / xps

define xps

	set $p = allproc

	printf "      proc   pid      flag st      wchan comm\n"
	while ($p)
		printf "%#10x %5d %8x  %2x %#10x %s", $p, $p->p_pid, \
			$p->p_flag, $p->p_stat, $p->p_wchan, \
			(char *) $p->p_comm
		if ($p->p_wmesg)
			printf " (%s)", $p->p_wmesg
		end
		printf "\n"
		set $p = $p->p_nxt
	end
end
Commit	Line	Data
592da51a MT	1	define xps
	2
	3	set $p = allproc
	4
	5	printf " proc pid flag st wchan comm\n"
	6	while ($p)
	7	printf "%#10x %5d %8x %2x %#10x %s", $p, $p->p_pid, \
	8	$p->p_flag, $p->p_stat, $p->p_wchan, \
	9	(char *) $p->p_comm
	10	if ($p->p_wmesg)
	11	printf " (%s)", $p->p_wmesg
	12	end
	13	printf "\n"
	14	set $p = $p->p_nxt
	15	end
	16	end