rc/bin/"

   1 #!/bin/rc
   2
   3 rfork en
   4
   5 if(test -r /mnt/acme/acme/body)
   6         bind /mnt/acme/acme/body /dev/text
   7
   8 PROMPT='[^      ]*(%|;)[        ]+'
   9
  10 fn cmds {
  11         grep '^'$PROMPT'[^"]' /dev/text | sed 's/^/     /'
  12 }
  13
  14 switch($#*) {
  15 case 0
  16         cmds | tail -1
  17 case *
  18         cmds | grep '^  '$PROMPT^$"* | {echo; cat} |
  19                 pr -t -n | sort -nr | sort -u +1 | sort -n |
  20                 sed 's/^ *[0-9]+        //' | grep .
  21 }
  22
  23 # the silly {echo; cat} gets around pr printing "empty file" when
  24 # presented with no input.
  25