[svn-upgrade] Tagging scowl (7.1)

[deb_pkgs/scowl.git] / 7.1 / src / add-accents

diff --git a/7.1/src/add-accents b/7.1/src/add-accents
new file mode 100755 (executable)
index 0000000..1640731
--- /dev/null
+++ b/7.1/src/add-accents
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+open A, "working/with-accents.lst";
+open B, "working/without-accents.lst";
+
+for (;;) 
+{
+  $with_accent = <A> or last;
+  chop $with_accent;
+  $without_accent = <B> or die;
+  chop $without_accent;
+  $lookup{$without_accent} = $with_accent;
+}
+
+while (<STDIN>) {
+  chop;
+  if (exists $lookup{$_}) {
+    print "$lookup{$_}\n";
+  } else {
+    my $w = $_;
+    s/\'s$//;
+    if (exists $lookup{$_}) {
+      print "$lookup{$_}'s\n";
+    } else {
+      print "$w\n";
+    }
+  }
+}
+
+