| … | |
… | |
| 607 | } |
607 | } |
| 608 | |
608 | |
| 609 | sub generate_plurals { |
609 | sub generate_plurals { |
| 610 | # use Lingua::EN::Inflect (); |
610 | # use Lingua::EN::Inflect (); |
| 611 | # Lingua::EN::Inflect::classical; |
611 | # Lingua::EN::Inflect::classical; |
| 612 | # Lingua::EN::Inflect::def_noun 'talisman' => 'talismans'; |
612 | # Lingua::EN::Inflect::def_noun '(.*)staff' => '$1staves'; # policy |
| 613 | # Lingua::EN::Inflect::def_noun '(.*)boots' => '$1boots'; # hack |
613 | # Lingua::EN::Inflect::def_noun '(.*)boots' => '$1boots'; # hack |
| 614 | # |
614 | # |
| 615 | # for my $a (@ARC) { |
615 | # for my $a (@ARC) { |
| 616 | # my $name = $a->{name} || $a->{_name}; |
616 | # my $name = $a->{name} || $a->{_name}; |
| 617 | # |
617 | # |
| 618 | # next unless $a->{name_pl}; |
618 | # next unless $a->{name_pl}; |
| 619 | # |
619 | # next if $a->{invisible}; |
|
|
620 | # next if $a->{is_floor}; |
|
|
621 | # next if $a->{no_pick}; |
| 620 | # |
622 | # |
| 621 | # my $test = Lingua::EN::Inflect::PL_N_eq $name, Lingua::EN::Inflect::PL $name; |
623 | # my $test = Lingua::EN::Inflect::PL_N_eq $name, Lingua::EN::Inflect::PL $name; |
| 622 | # my $pl = $test =~ /^(?:eq|p:.)$/ |
624 | # my $pl = $test =~ /^(?:eq|p:.)$/ |
| 623 | # ? $name |
625 | # ? $name |
| 624 | # : Lingua::EN::Inflect::PL $name; |
626 | # : Lingua::EN::Inflect::PL $name; |
| 625 | # die "$test $pl" if $pl =~ /bootss/;#d# |
|
|
| 626 | # |
627 | # |
| 627 | # if ($pl ne $a->{name_pl}) { |
628 | # if ($pl ne $a->{name_pl}) { |
| 628 | # warn "$a->{_name}: plural differs, $pl vs $a->{name_pl}\n"; |
629 | # warn "$a->{_name}: plural differs, $pl vs $a->{name_pl}\n"; |
| 629 | # } |
630 | # } |
| 630 | # } |
631 | # } |
