Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / 6 / src / proc-alt12dicts

diff --git a/6/src/proc-alt12dicts b/6/src/proc-alt12dicts
deleted file mode 100755 (executable)
index 2232ac4..0000000
--- a/6/src/proc-alt12dicts
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/perl -w
-
-chdir "r/alt12dicts";
-
-open IN, "abbr.txt";
-open OUT, ">abbr.lst";
-while (<IN>) 
-{
-    next if /~/;
-    y/:\r//d;
-    print OUT;
-}
-close OUT;
-close IN;
-
-open IN, "variant.txt";
-open OYES  , ">variant-yes.lst";
-open OMAYBE, ">variant-maybe.lst";
-open BYES  , ">nonamer-yes.lst";
-open BMAYBE, ">nonamer-maybe.lst";
-while (<IN>) {
-    s/\r?\n$// or die;
-    ($w, $f, $s) = /^(.+):?\t(.)([!?]?)$/ or die "Bad Line: $_";
-    next unless $w =~ /^[A-Za-z\']+$/;
-    $already_variant{$w} = 1;
-    if ($s eq '!' || $s eq '') {
-       print OYES $w, "\n" if $f eq '#';
-       print BYES $w, "\n" if $f eq '&';
-    } else {
-       print OMAYBE $w, "\n" if $f eq '#';
-       print BMAYBE $w, "\n" if $f eq '&';
-    }
-}
-
-close BMAYBE;
-close BYES;
-close OMAYBE;
-close OYES;
-close IN;
-
-open IN, "2of12full.txt";
-open O02, ">02of12.lst";
-open O05, ">05of12.lst";
-open O11, ">11of12.lst";
-open U, ">4of12upper.lst";
-open ONA, ">not-abbr.lst";
-open V, ">variant-also.lst";
-open NV, ">not-variant.lst";
-
-while (<IN>)
-{
-    s/\r?\n$// or die;
-    ($total, $not_variant, $variant, $non_american, $word, $abrv_mark) 
-       = /^(..): (..) (..)\# (..)\&   (.+?)([:.]?)$/ or die "Bad Line:$_";
-    $_ = $word;
-    $not_variant  = 0 if $not_variant  eq ' -';
-    $variant      = 0 if $variant      eq ' -';
-    $non_american = 0 if $non_american eq ' -';
-    next unless /^[A-Za-z\']+$/;
-    $_ .= "\n";
-    my $not_abrv   = ($abrv_mark eq '' && $total >= 5);
-    my $is_variant = ($variant >= $non_american 
-                     && ($variant + $non_american) > $not_variant
-                     && !$already_variant{$word});
-    print ONA if $not_abrv;
-    print V   if $is_variant;
-    print NV  unless $is_variant || $already_variant{$word};
-    if ($total >= 11) {
-        print O11;
-    } elsif ($total >= 5) {
-       print O05;
-    } elsif ($total >= 4 && /^[A-Z]+/ && $abrv_mark eq '') {
-       print U;
-    } elsif ($total >= 2) {
-       print O02;
-    } else {
-       die "This should not happen: $total $_\n";
-    }
-}
-
-close NV;
-close V;
-close ONA;
-close U;
-close O11;
-close O05;
-close O02;
-close IN;
-
-
-
-
-
-
-