msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

OALD: remove * and add comment for guessed irregular noun plural forms.

Browse Source
This commit is contained in:
bjorn
2008-11-26 13:38:34 +00:00
parent c66f94b06c
commit 6e14352501
1 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
next-lib/src/parse/oald/asc2gf
View File

@@ -206,14 +206,21 @@ while ( $line = <STDIN> ) {
} }
( $infl =~ s/^[:l]/per/ ) or ( $infl =~ s/^[mn]/loc/ ) or ( $infl = '_' ); ( $infl =~ s/^[:l]/per/ ) or ( $infl =~ s/^[mn]/loc/ ) or ( $infl = '_' );
my $comment = "";
if ( $word eq '-' ) {
$comment .= " {- FIXME: no singular form -}";
}
if ( $pl eq '-' ) {
$comment .= " {- FIXME: no plural form -}";
}
if ( $pl =~ s/\*$// ) {
$comment .= " {- FIXME: guessed plural form -}";
}
if ( $pcode eq 'proper' ) { if ( $pcode eq 'proper' ) {
add_word("${name}_PN", "mkPN \"$word\""); add_word("${name}_PN", "mkPN \"$word\"");
} elsif ( $word eq '-' ) {
add_word("${name}_N", "mkN \"$word\" \"$pl\" {- FIXME: no singular form -}");
} elsif ( $pl eq '-' ) {
add_word("${name}_N", "mkN \"$word\" {- FIXME: no plural form -}");
} else { } else {
add_word("${name}_N", "mkN \"$word\" \"$pl\""); add_word("${name}_N", "mkN \"$word\" \"$pl\"$comment");
} }
} }
} }