sys/src/cmd/dict/canonind.awk

   1 # turn output of mkindex into form needed by dict
   2 BEGIN {
   3         if(ARGC != 2) {
   4                 print "Usage: awk -F'   ' -f canonind.awk rawindex > index"
   5                 exit 1
   6         }
   7         file = ARGV[1]
   8         ARGV[1] = ""
   9         while ((getline < file) > 0) {
  10                 for(i = 2; i <= NF; i++) {
  11                         w = $i
  12                         if(length(w) == 0)
  13                                 continue
  14                         b = index(w, "(")
  15                         e = index(w, ")")
  16                         if(b && e && b < e) {
  17                                 w1 = substr(w, 1, b-1)
  18                                 w2 = substr(w, b+1, e-b-1)
  19                                 w3 =  substr(w, e+1)
  20                                 printf "%s%s\t%d\n", w1, w3, $1 > "junk"
  21                                 printf "%s%s%s\t%d\n", w1, w2, w3, $1 > "junk"
  22                         } else
  23                                 printf "%s\t%d\n", w, $1 > "junk"
  24                 }
  25         }
  26         system("sort -u -t'     ' +0f -1 +0 -1 +1n -2 < junk")
  27         system("rm junk")
  28         exit 0
  29 }