X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=6%2Fsrc%2Fadd-affixes;fp=6%2Fsrc%2Fadd-affixes;h=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=caee13adbd28e8acc2ee3bec839c2540ae22f5be;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/6/src/add-affixes b/6/src/add-affixes
deleted file mode 100755
index caee13a..0000000
--- a/6/src/add-affixes
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-$inc_level = 0;
-if ($ARGV[0] ne '') {
-  $inc_level = $ARGV[0];
-}
-
-print STDERR "Include Level: $inc_level\n";
-
-if ($ARGV[1] eq 'use-all') {
-
-  print STDERR "Skipping Remove List\n";
-
-} else {
-  
-  open F, "r/alt12dicts/2of12id.txt" or die;
-  
-  while (<F>) {
-    s/\r?\n$// or die;
-    ($d,$w,$p,$a) = /^(\-?)(\w+) (.).*: ?(.*)$/ or die;
-    my @a = $a =~ /([~@-]*\w+)/g;
-    @a = map {"$d$_"} @a if ($d);
-    my (@a0,@a1);
-    foreach (@a) {if (s/^[~-]//) {push @a0, $_} else {push @a1, $_}}
-    $remove{"$w:$p"} = 1 unless @a1;
-    foreach (@a0) {$remove{"$w:$p:$_"} = 1}
-  }
-}
-
-open F, "r/infl/infl.txt" or die;
-
-while (<F>) {
-  ($w,$p,$a) = /(\S+) (.).*: (.+)/ or die;
-  next if $remove{"$w:$p"};
-  @a = split /, | \| /, $a;
-  @a = grep {my ($word,$tags,$level) 
-		 = /^([A-Za-z\']+)([~<!?]*)(| [\d.]+)(| {\S+})$/ or die $_;
-	     $_ = $word;
-	     $tags !~ /~|\?|!</ && $level <= $inc_level} @a;
-  @a = grep {not $remove{"$w:$p:$_"}} @a;
-  next unless @a;
-  $lookup{$w} .= join("\n",@a)."\n";
-}
-
-while (<STDIN>) {
-  print;
-  chop;
-  print $lookup{$_};
-}