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

diff --git a/current/src/proc-alt12dicts b/current/src/proc-alt12dicts
deleted file mode 100755
index a2a7c0f..0000000
--- a/current/src/proc-alt12dicts
+++ /dev/null
@@ -1,96 +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\']+$/;
-   #print "$w -- $f -- $s\n";
-   $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;
-
-
-
-
-
-
-