1 2b85f70d 2005-01-11 devnull #!/usr/local/plan9/bin/rc
 2 47e0a2aa 2004-10-17 devnull 
 3 47e0a2aa 2004-10-17 devnull fn text {
 4 47e0a2aa 2004-10-17 devnull 	if(~ $winid [0-9]*)
 5 47e0a2aa 2004-10-17 devnull 		9p read acme/$winid/body
 6 47e0a2aa 2004-10-17 devnull 	if not if(~ $text9term unix!*)
 7 47e0a2aa 2004-10-17 devnull 		dial -e $text9term </dev/null
 8 47e0a2aa 2004-10-17 devnull 	if not
 9 47e0a2aa 2004-10-17 devnull 		status=''
10 47e0a2aa 2004-10-17 devnull }
11 47e0a2aa 2004-10-17 devnull 
12 47e0a2aa 2004-10-17 devnull PROMPT='[^ 	]*[%;$#][ 	]+'
13 47e0a2aa 2004-10-17 devnull 
14 47e0a2aa 2004-10-17 devnull fn cmds {
15 2b85f70d 2005-01-11 devnull 	text | 9 grep '^'$PROMPT'[^"]' | sed 's/^/	/'
16 47e0a2aa 2004-10-17 devnull }
17 47e0a2aa 2004-10-17 devnull 
18 47e0a2aa 2004-10-17 devnull switch($#*) {
19 47e0a2aa 2004-10-17 devnull case 0
20 47e0a2aa 2004-10-17 devnull 	cmds | tail -1
21 47e0a2aa 2004-10-17 devnull case *
22 2b85f70d 2005-01-11 devnull 	cmds | 9 grep '^	'$PROMPT^$"* | {echo; cat} |
23 47e0a2aa 2004-10-17 devnull 		pr -t -n | sort -nr | sort -u +1 | sort -n |
24 2b85f70d 2005-01-11 devnull 		9 sed 's/^ *[0-9]+	//' | grep .
25 47e0a2aa 2004-10-17 devnull }
26 47e0a2aa 2004-10-17 devnull 
27 47e0a2aa 2004-10-17 devnull # the silly {echo; cat} gets around pr printing "empty file" when
28 47e0a2aa 2004-10-17 devnull # presented with no input.
29 47e0a2aa 2004-10-17 devnull