X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=6%2Fsrc%2Fadd-possessive;fp=6%2Fsrc%2Fadd-possessive;h=89e90c7fca4936fe87243b3fd09ed955a711b127;hb=d5cbd5b855d8157fe44cd0979c2e517b93fb5004;hp=0000000000000000000000000000000000000000;hpb=0ba1587a200ebb44aea6355ee9330a720e3ecde2;p=deb_pkgs%2Fscowl.git

diff --git a/6/src/add-possessive b/6/src/add-possessive
new file mode 100755
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
+
+
+