8 print STDERR "Include Level: $inc_level\n";
10 if ($ARGV[1] eq 'use-all') {
12 print STDERR "Skipping Remove List\n";
16 open F, "r/alt12dicts/2of12id.txt" or die;
20 ($d,$w,$p,$a) = /^(\-?)(\w+) (.).*: ?(.*)$/ or die;
21 my @a = $a =~ /([~@-]*\w+)/g;
22 @a = map {"$d$_"} @a if ($d);
24 foreach (@a) {if (s/^[~-]//) {push @a0, $_} else {push @a1, $_}}
25 $remove{"$w:$p"} = 1 unless @a1;
26 foreach (@a0) {$remove{"$w:$p:$_"} = 1}
30 open F, "r/infl/infl.txt" or die;
33 ($w,$p,$a) = /(\S+) (.).*: (.+)/ or die;
34 next if $remove{"$w:$p"};
35 @a = split /, | \| /, $a;
36 @a = grep {my ($word,$tags,$level)
37 = /^([A-Za-z\']+)([~<!?]*)(| [\d.]+)(| {\S+})$/ or die $_;
39 $tags !~ /~|\?|!</ && $level <= $inc_level} @a;
40 @a = grep {not $remove{"$w:$p:$_"}} @a;
42 $lookup{$w} .= join("\n",@a)."\n";