+++ /dev/null
-#!/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;
-
-
-
-
-
-
-