mirror of
https://github.com/9fans/plan9port.git
synced 2025-01-12 11:10:07 +00:00
30 lines
526 B
Text
30 lines
526 B
Text
|
#!/usr/local/plan9/bin/rc
|
||
|
|
|
||
|
|
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.
|
||
|
|
|