ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/utils/cfutil.in
(Generate patch)

Comparing deliantra/server/utils/cfutil.in (file contents):
Revision 1.73 by root, Mon Oct 26 11:31:39 2009 UTC vs.
Revision 1.75 by root, Mon Nov 2 11:50:20 2009 UTC

383 push @ARC, $o; 383 push @ARC, $o;
384 for (my $m = $o; $m; $m = $m->{more}) { 384 for (my $m = $o; $m; $m = $m->{more}) {
385 $ARC{$m->{_name}} = $m; 385 $ARC{$m->{_name}} = $m;
386 } 386 }
387 387
388 $o->{editor_folder} = $dir; 388 $o->{editor_folder} ||= $dir;
389 389
390 my $visibility = delete $o->{visibility}; 390 my $visibility = delete $o->{visibility};
391 my $magicmap = delete $o->{magicmap}; 391 my $magicmap = delete $o->{magicmap};
392 392
393 # find upper left corner :/ 393 # find upper left corner :/
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# }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines