src/split-words

   1 #!/bin/sh
   2
   3 rm -f working/*.$1.pre
   4
   5 comm -12 working/words.$1 r/varcon/american.lst \
   6   > working/american-all.$1.pre
   7
   8 comm -12 working/words.$1 r/varcon/british.lst \
   9   > working/british-all.$1.pre
  10
  11 comm -12 working/words.$1 r/varcon/british_z.lst \
  12   > working/british_z-all.$1.pre
  13
  14 comm -12 working/words.$1 r/varcon/canadian.lst \
  15   > working/canadian-all.$1.pre
  16
  17 comm -12 working/words.$1 working/variant_0.lst   \
  18   > working/variant_0-all.$1.pre
  19
  20 comm -12 working/words.$1 working/variant_1.lst   \
  21   > working/variant_1-all.$1.pre
  22
  23 comm -12 working/words.$1 working/variant_2.lst   \
  24   > working/variant_2-all.$1.pre
  25
  26 cat working/*-all.$1.pre         \
  27   | sort | uniq                  \
  28   | comm -13 - working/words.$1  \
  29   > working/english-all.$1.pre
  30
  31 for s in `src/list-spellings`
  32 do
  33   for c in `src/list-classes -1`
  34   do
  35     comm -12 working/$s-all.$1.pre working/$c.lst > working/$s-$c.$1.pre
  36     cat working/$s-$c.$1.pre >> working/$s-other.$1.pre
  37   done
  38   sort working/$s-other.$1.pre | uniq \
  39     | comm -13 - working/$s-all.$1.pre \
  40     > working/$s-words.$1.pre
  41   #rm working/$s-{all,other}.$1.pre
  42 done
  43
  44
  45
  46
  47
  48