2005-01-11 17:49:03 +00:00
|
|
|
#!/usr/bin/env $PLAN9/bin/rc
|
2004-10-17 04:02:55 +00:00
|
|
|
|
|
|
|
|
fn text {
|
|
|
|
|
if(~ $winid [0-9]*)
|
|
|
|
|
9p read acme/$winid/body
|
|
|
|
|
if not if(~ $text9term unix!*)
|
|
|
|
|
dial -e $text9term </dev/null
|
|
|
|
|
if not
|
|
|
|
|
status=''
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
PROMPT='[^ ]*[%;$#][ ]+'
|
|
|
|
|
|
|
|
|
|
fn cmds {
|
|
|
|
|
text | 9grep '^'$PROMPT'[^"]' | sed 's/^/ /'
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
switch($#*) {
|
|
|
|
|
case 0
|
|
|
|
|
cmds | tail -1
|
|
|
|
|
case *
|
|
|
|
|
cmds | 9grep '^ '$PROMPT^$"* | {echo; cat} |
|
|
|
|
|
pr -t -n | sort -nr | sort -u +1 | sort -n |
|
|
|
|
|
9sed 's/^ *[0-9]+ //' | grep .
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
# the silly {echo; cat} gets around pr printing "empty file" when
|
|
|
|
|
# presented with no input.
|
|
|
|
|
|
