PresPartAP and PastPartAP

2014-12-10 20:35:22 +00:00
parent b0f29bc902
commit 7bad06d08f
3 changed files with 27 additions and 16 deletions
@@ -190,6 +190,13 @@ resource ResBul = ParamX ** open Prelude, Predef in {
                   NFVocative => aform (gennum g Sg) Indef (RObj Acc)
                 } ;

+    aform2gennum : AForm -> GenNum 
+      = \aform -> case aform of {
+                    ASg g _       => GSg g ;
+                    ASgMascDefNom => GSg Masc ;
+                    _             => GPl
+                  } ;
+
    indefNForm : NForm -> NForm
      = \nf -> case nf of {
                 NF n spec  => NF n  Indef ;