hmsg for Hajo's editor

2005-03-10 10:14:10 +00:00
parent 18945ab7fc
commit 441f190dea
5 changed files with 47 additions and 35 deletions
--- a/lib/resource/swedish/SyntaxSwe.gf
+++ b/lib/resource/swedish/SyntaxSwe.gf
@@ -11,7 +11,15 @@ instance SyntaxSwe of SyntaxScand = TypesSwe **

  oper 

-  npMan : NounPhrase = nameNounPhrase (mkProperName "man" (NUtr Masc)) ;
+  npMan : NounPhrase = {
+    s = table {
+      PNom => "man" ;
+      PAcc => "en" ;
+      PGen _ => "ens"
+      } ;
+    g = Utr ; n = Sg ; p = P3
+    } ;
+
  npDet : NounPhrase = nameNounPhrase (mkProperName "det" NNeutr) ;

  mkAdjForm : Species -> Number -> NounGender -> AdjFormPos = \b,n,g ->