From 52536e87768b0d4d63b2b4eb4e766b0f686be88e Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Wed, 26 Nov 2008 13:38:34 +0000
Subject: [PATCH] OALD: remove * and add comment for guessed irregular noun
 plural forms.

---
 next-lib/src/parse/oald/asc2gf | 17 ++++++++++++-----
 1 file 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");
 		    }
 		}
 	    }