X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fmake-contractions.lst;fp=src%2Fmake-contractions.lst;h=a6cf3cb9711465eb21f47398f4b3a5ba1d420d0b;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=0000000000000000000000000000000000000000;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/src/make-contractions.lst b/src/make-contractions.lst
new file mode 100755
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
+
+