sys/src/cmd/dict/gefix

   1 #!/bin/rc
   2
   3 sed '
   4         s/[     ]+$//
   5         /       /!d
   6         s/\\N''349''//g
   7         s/''//g
   8         s/      -/      /
   9         s/-$//
  10         /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
  11         /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
  12 ' $1 |
  13 sed '
  14         /\([^,) ]+(\)|$)/{; h; s///; p; g; s/\(//; s/\)//; }
  15         /\(r, s\)$/{; s///; p; s/$/r/; p; s/r$/s/; }
  16 ' |
  17 sed '/ß/{; p; s/ß/ss/g; }' |
  18 awk '
  19 BEGIN   { FS = "        |, " }
  20         { for(i=2; i<=NF; i++)print $i "        " $1 }
  21 ' |
  22 tr A-Z a-z |
  23 sort -u -t'     ' +0f -1 +0 -1 +1n -2