New upstream version 2019.10.06

[deb_pkgs/scowl.git] / src / split-words

diff --git a/src/split-words b/src/split-words
index aacd8ec61bb31a8b791d65cba075af05fe993628..0a9ad04d35a020b8c385c09abe3181abb22a8fd2 100755 (executable)
--- a/src/split-words
+++ b/src/split-words
@@ -44,9 +44,7 @@ comm -12 working/words.$1 working/australian_variant_1.lst   \
 comm -12 working/words.$1 working/australian_variant_2.lst   \
   > working/australian_variant_2-all.$1.pre
 
-#
 # Hack to get australian only words in
-#
 if [ $1 -eq 35 ]
 then
   mv working/australian-all.$1.pre working/australian-all.$1.pre.pre
@@ -59,6 +57,28 @@ cat working/*-all.$1.pre         \
   | comm -13 - working/words.$1  \
   > working/english-all.$1.pre
 
+# Hack to get australian towns in
+if [ $1 -eq 50 ]
+then
+  mv working/australian-all.$1.pre working/australian-all.$1.pre.pre
+  cat r/special/australian-towns | src/add-possessive \
+    | cat - r/special/australian-towns-part | src/filter \
+    | sort -u \
+    | comm -23 - working/english-all.$1.pre \
+    | cat - working/australian-all.$1.pre.pre | sort -u > working/australian-all.$1.pre
+fi
+
+# Hack to get U.S. Urban areas in
+if [ $1 -eq 50 ]
+then
+  mv working/american-all.$1.pre working/american-all.$1.pre.pre
+  cat r/special/urban-areas | src/add-possessive \
+    | src/filter \
+    | sort -u \
+    | comm -23 - working/english-all.$1.pre \
+    | cat - working/american-all.$1.pre.pre | sort -u > working/american-all.$1.pre
+fi
+
 for s in `src/list-spellings`
 do
   for c in `src/list-classes -1`