a few more words in StructuralSlv.gf

2026-05-11 12:12:51 -06:00 · 2016-05-03 13:15:03 +00:00
parent 9bb33b7610
commit a9d257a31c
2 changed files with 19 additions and 1 deletions
--- a/lib/src/slovenian/ParadigmsSlv.gf
+++ b/lib/src/slovenian/ParadigmsSlv.gf
@@ -288,7 +288,20 @@ oper
                  } ;
              a = {g=g; n=n; p=p}
             } ;
-             
+
+  mkNP : (_,_,_,_,_,_ : Str) -> Gender -> Number -> NP =
+    \nom,acc,gen,dat,loc,instr,g,n ->
+    lin NP {s = table {
+                    Nom => nom;
+                    Acc => acc;
+                    Gen => gen;
+                    Dat => dat;
+                    Loc => loc;
+                    Instr=>instr
+                  } ;
+            a = {g=Neut; n=n; p=P3}
+           } ;
+
  mkInterj : Str -> Interj =
    \s -> lin Interj {s=s} ;