Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / src / make-contractions.lst

diff --git a/src/make-contractions.lst b/src/make-contractions.lst
new file mode 100755 (executable)
index 0000000..a6cf3cb
--- /dev/null
+++ b/src/make-contractions.lst
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+cat working/words.`src/get-level max`                 \
+  | grep "'" | grep -v "'s$" | grep -v "^[A-Z]'[A-Z]" \
+  | comm -23 - r/special/not-upper                    \
+  | comm -23 - working/proper-names.lst               \
+  | comm -23 - working/abbreviations.lst              \
+  > working/contractions.lst
+
+