diff options
Diffstat (limited to 'next-lib/src/parse')
| -rw-r--r-- | next-lib/src/parse/oald/asc2gf | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/next-lib/src/parse/oald/asc2gf b/next-lib/src/parse/oald/asc2gf index b79fd872d..a7d907cc4 100644 --- a/next-lib/src/parse/oald/asc2gf +++ b/next-lib/src/parse/oald/asc2gf @@ -206,14 +206,21 @@ while ( $line = <STDIN> ) { } ( $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' ) { 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 { - add_word("${name}_N", "mkN \"$word\" \"$pl\""); + add_word("${name}_N", "mkN \"$word\" \"$pl\"$comment"); } } } |