3 ($PE, $pe, $time, $act, $tid, $rest) = split;
4 next if $act eq 'REPLY';
5 chop($tid) if $act eq 'END';
11 } elsif ($act eq 'START(Q)') {
14 } elsif ($act eq 'STEALING') {
16 } elsif ($act eq 'STOLEN') {
18 } elsif ($act eq 'STOLEN(Q)') {
20 } elsif ($act eq 'FETCH') {
22 } elsif ($act eq 'BLOCK') {
24 } elsif ($act eq 'RESUME') {
27 } elsif ($act eq 'RESUME(Q)') {
30 } elsif ($act eq 'END') {
32 } elsif ($act eq 'SCHEDULE') {
34 } elsif ($act eq 'DESCHEDULE') {
40 print substr($time,1,length($time)-3), " ",
41 $from, $to, " 0 0x", $tid, $extra, "\n";
43 delete $queue{$tid} if $to eq '*';