X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=current%2Fsrc%2Fadd-accents;fp=current%2Fsrc%2Fadd-accents;h=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=16407318803451ad0c3f61bd70dd7b345463dcf5;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/current/src/add-accents b/current/src/add-accents
deleted file mode 100755
index 1640731..0000000
--- a/current/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";
-    }
-  }
-}
-
-