Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / 6 / src / find-ss

diff --git a/6/src/find-ss b/6/src/find-ss
deleted file mode 100755 (executable)
index c73ae35..0000000
--- a/6/src/find-ss
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-
-sub strip_plurel() 
-{
-    local $_ = $_[0];
-    my @l;
-    push @l, "$1y" if /^(.+)[iI]es$/;
-    push @l, $1    if /^(.+)es$/;
-    push @l, $1    if /^(.+?)\'?s$/;
-    return @l;
-}
-
-# STDIN contains the the list of words which contain the base forms
-
-while (<STDIN>) {
-    print unless $ARGV[1] eq "noecho";
-    chop;
-    $lookup{$_} = 1;
-}
-
-# ARGV[0] is the file of words with possible 's's that we want to 
-# extract provided the base from is was in the above list
-
-open IN, $ARGV[0] or die;
-
-while (<IN>) {
-    chop;
-    my $print = 0;
-    foreach $s (&strip_plurel($_)) 
-    {
-       if (exists $lookup{$s}) 
-       {
-           $print = 1;
-       }
-    }
-    print "$_\n" if $print;
-}
-
-
-
-
-
-
-