X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=src%2Fproc-alt12dicts;h=3b728d9e2f6f22b1c53428ecfddf81f33fd0f895;hb=8ace84503eae30ad101165a9bf4c96ac1c87f9b1;hp=2232ac4c72544109fe7d905caf139c9f64299f84;hpb=fcd1b19126a5a5f7312c0d789c832742623fa5bd;p=deb_pkgs%2Fscowl.git

diff --git a/src/proc-alt12dicts b/src/proc-alt12dicts
index 2232ac4..3b728d9 100755
--- a/src/proc-alt12dicts
+++ b/src/proc-alt12dicts
@@ -22,7 +22,8 @@ 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;
+   #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 '&';
@@ -50,8 +51,8 @@ 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:$_";
+    ($total, $not_variant, $variant, $non_american, $second_class, $word, $abrv_mark) 
+	= /^(..): (..) (..)\# (..)\& (..)\=   (.+?)([:.]?)$/ or die "Bad Line:$_";
     $_ = $word;
     $not_variant  = 0 if $not_variant  eq ' -';
     $variant      = 0 if $variant      eq ' -';
@@ -86,10 +87,3 @@ close O11;
 close O05;
 close O02;
 close IN;
-
-
-
-
-
-
-