Imported Upstream version 2015.08.24

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

diff --git a/7.1/src/add-accents b/7.1/src/add-accents
deleted file mode 100755 (executable)
index 1640731..0000000
--- a/7.1/src/add-accents
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/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";
-    }
-  }
-}
-
-