sys/src/cmd/dict/egfix

   1 #!/bin/rc
   2
   3 sed '
   4         s/[     ]+$//
   5         /       /!d
   6         /, /{; h; s/,.*//; p; g; s/     .*, /   /; }
   7 ' $1 |
   8 sed '
   9         /\(/{; h; s/\([^)]+\)//; p; g; s/[()]//g; }
  10 ' |
  11 sed '
  12         s/       +/     /
  13         s/[     ]+$//
  14         s/  +/ /g
  15 '