InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/languages/perl/scripts-convex/kstack

Text File | 1990-11-29 | 330 b | 9 lines

#!/usr/local/bin/perl
die "usage: $0 pid\n" if @ARGV != 1;
$ENV{'PATH'} = '/bin:/usr/bin:/etc';
$pid = shift;
unless (kill(0, $pid)) { die "$0: $pid: $!\n" if $! =~ /No such process/; }
open (ADB, "|adb -k /vmunix /dev/mem | sed -e 1,3d -e '/^Bogus/,\$d'");
print ADB '0', (`pstat -tP$pid` =~ /(\w+)$/)[0], '$c', "\n";
close ADB;