| #!/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 | 9 grep '^'$PROMPT'[^"]' | sed 's/^/ /' | |
| } | |
| switch($#*) { | |
| case 0 | |
| cmds | tail -1 | |
| case * | |
| cmds | 9 grep '^ '$PROMPT^$"* | {echo; cat} | | |
| pr -t -n | sort -nr | sort -u +1 | sort -n | | |
| 9 sed 's/^ *[0-9]+ //' | grep . | |
| } | |
| # the silly {echo; cat} gets around pr printing "empty file" when | |
| # presented with no input. | |