[svn-upgrade] Tagging scowl (7.1)

[deb_pkgs/scowl.git] / 7.1 / src / make-words

diff --git a/7.1/src/make-words b/7.1/src/make-words
new file mode 100755 (executable)
index 0000000..bc68a0d
--- /dev/null
+++ b/7.1/src/make-words
@@ -0,0 +1,62 @@
+#!/bin/bash
+
+rm -f words.$1*
+
+shopt -s nullglob
+
+max_level=`src/get-level max`
+
+if [ $1 -ne $max_level ]
+then
+
+  supplement=`src/get-all-below $1 supplement`  
+  add_affixes="`src/get-all-below $1 add-affixes`"
+  add_possessive="`src/get-all-below $1 add-possessive`"
+
+  cat $supplement $add_affixes $add_possessive l/include/$1/* \
+    | src/filter                                              \
+    > working/words.$1.tmp
+  cp working/words.$1.tmp working/words.$1.tmp.0
+
+  if [ -n "$add_affixes" ] && [ $1 -le `cat l/add-affixes/max-level` ]
+  then
+    echo "Adding affixes"
+    cat $add_affixes | src/filter | src/add-affixes >> working/words.$1.tmp
+    cp working/words.$1.tmp working/words.$1.tmp.1
+  fi
+
+  if [ $1 -lt 80 ]
+  then
+    if [ -n "$add_possessive" ]
+    then
+      echo "Adding possessive"
+      cat $add_possessive | src/filter | src/add-affixes just-possessive >> working/words.$1.tmp
+      cp working/words.$1.tmp working/words.$1.tmp.2
+    fi
+  else
+    echo "Adding possessive"
+    cat working/words.$1.tmp                       \
+      | src/add-affixes use-some just-possessive   \
+      > working/words.$1.tmp2
+    mv working/words.$1.tmp2 working/words.$1.tmp
+  fi
+
+  cat working/words.$1.tmp    \
+    | src/add-other-spellings \
+    | src/add-other-forms     \
+    | src/add-other-spellings \
+    | sort -u                 \
+    | comm -12  - working/words.`src/get-level next $1` \
+    > working/words.$1
+
+  #rm working/words.$1.tmp
+
+else
+
+  cat working/all.lst           \
+    | src/add-affixes use-all just-possessive \
+    | src/add-other-spellings   \
+    | sort -u                   \
+    > working/words.$1
+
+fi