3 open F, "r/alt12dicts/2of12id.txt" or die;
7 # (uncommon flag, base word, part of speach, inflected forms)
8 ($d,$w,$p,$a) = /^([-@\+]?)(\w+) (.).*: ?(.*?)$/ or die;
12 splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3; # insert placeholder
15 s/ {.+?}//g; s/ \(.+?\)//g;
16 s/ \| / /g; s/ \/ / /g;
17 push @a, (split / /, $_);
19 @a = grep {!/^[@~!-]/} @a; # remove questionable entries
20 # @a now conatins a list of valid inflected forms
21 @a0 = grep {$_ ne "'"} @a;
22 # @a0 is now the same as @a except for the placeholder entries
24 $words = join("\n",$w, @a0)."\n";
25 if ($p eq 'V' && @a >= 4) {
26 while ($a[0] ne "'") {local $_ = shift @a; $lookup{$_} .= $words}
29 push @a, "$w\'s" if $p eq 'N';
30 $words = join("\n",$w, @a)."\n";
31 foreach (@a) {$lookup{$_} .= $words}
34 open F, "working/possessive-also.lst";
38 $lookup{"$_\'s"} .= "$_\n";