Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / r / special / .add-possessives.pl

diff --git a/r/special/.add-possessives.pl b/r/special/.add-possessives.pl
new file mode 100644 (file)
index 0000000..87eabb4
--- /dev/null
+++ b/r/special/.add-possessives.pl
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+
+my %add_pos;
+
+open F, "macro.80";
+while (<F>) {
+    chomp;
+    next unless /^(.+)\'s/;
+    $add_pos{$1} = $_;
+}
+
+while (<>) {
+    chomp;
+    print "$_\n";
+    print $add_pos{$_}."\n" if exists $add_pos{$_};
+}