Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / src / make-proper-names.lst

diff --git a/src/make-proper-names.lst b/src/make-proper-names.lst
new file mode 100755 (executable)
index 0000000..313a11f
--- /dev/null
+++ b/src/make-proper-names.lst
@@ -0,0 +1,22 @@
+#!/bin/sh
+
+filter() {
+  sort -u                                     \
+  | comm -23 - working/known-upper.lst        \
+  | comm -23 - r/special/not-upper
+}
+
+cat working/all.lst | grep "^[A-Z]"           \
+  | comm -23 - working/abbreviations.lst.pre  \
+  | cat - l/proper-names/*                    \
+  | filter                                    \
+  | src/add-other-spellings                   \
+  | src/find-ss working/all.lst               \
+  | sed "s/^\(.*\)'s\$/\1/"                   \
+  | src/filter                                \
+  | filter                                    \
+  | sed "s/^\(.*\)/\1 \1's/"                  \
+  | tr ' ' '\n'                               \
+  | sort -u                                   \
+  > working/proper-names.lst
+