src/add-possessive

   1 #!/bin/sh
   2
   3
   4 doit()
   5 {
   6   sed "s/^\(.*\)'s\$/\1/"                   \
   7     | comm -12 - working/possessive.lst     \
   8     | sed "s/^\(.*\)/\1 \1's/"              \
   9     | tr ' ' '\n'
  10 }
  11
  12 if [ "$1" ]
  13 then
  14   cat $1 | doit > working/$$.postmp
  15   cat working/$$.postmp >> $1
  16   rm working/$$.postmp
  17 else
  18   cat > $$.postmp
  19   cat $$.postmp | doit
  20   cat $$.postmp
  21   rm $$.postmp
  22 fi
  23
  24
  25