[svn-inject] Tagging upstream source version of scowl

[deb_pkgs/scowl.git] / 6 / src / add-possessive

diff --git a/6/src/add-possessive b/6/src/add-possessive
new file mode 100755 (executable)
index 0000000..89e90c7
--- /dev/null
+++ b/6/src/add-possessive
@@ -0,0 +1,25 @@
+#!/bin/sh
+
+
+doit() 
+{
+  sed "s/^\(.*\)'s\$/\1/"                   \
+    | comm -12 - working/possessive.lst     \
+    | sed "s/^\(.*\)/\1 \1's/"              \
+    | tr ' ' '\n'
+}
+
+if [ "$1" ]
+then
+  cat $1 | doit > working/$$.postmp
+  cat working/$$.postmp >> $1
+  rm working/$$.postmp
+else
+  cat > $$.postmp
+  cat $$.postmp | doit 
+  cat $$.postmp
+  rm $$.postmp
+fi
+
+
+