interjections, MassNP and simple VP phrases in Slovenian

lib/src/slovenian/CatSlv.gf

@@ -1,6 +1,9 @@
 concrete CatSlv of Cat = CommonX ** open ResSlv in {
 
 lincat
+  -- Verb
+  VP = ResSlv.VP ;
+
   -- Adjective
   AP = {s : Species => Gender => Case => Number => Str} ;
 

lib/src/slovenian/GrammarSlv.gf

@@ -2,7 +2,7 @@
 
 concrete GrammarSlv of Grammar = 
   NounSlv,
---  VerbEng,
+  VerbSlv,
   AdjectiveSlv,
 {-  AdverbEng,
   NumeralEng,

lib/src/slovenian/NounSlv.gf

@@ -25,6 +25,11 @@ concrete NounSlv of Noun = CatSlv ** open ResSlv in {
       spec = Indef
       } ;
 
+    MassNP n = {
+      s = \\c => n.s ! Indef ! c ! Sg ;
+      a = {g=n.g; n=Sg; p=P3}
+      } ;
+
     UseN n = {s = \\_ => n.s; g = n.g} ;
 
     AdjCN ap cn = {

lib/src/slovenian/ParadigmsSlv.gf

@@ -286,4 +286,8 @@ oper
                   } ;
               a = {g=g; n=n; p=p}
              } ;
+             
+  mkInterj : Str -> Interj =
+    \s -> lin Interj {s=s} ;
+
 }

lib/src/slovenian/ResSlv.gf

@@ -1,4 +1,4 @@
-resource ResSlv = {
+resource ResSlv = open ParamX in {
 
 param
   Case = Nom | Gen | Dat | Acc | Loc | Instr;
@@ -27,4 +27,15 @@ param
 oper
   Agr = {g : Gender; n : Number; p : Person} ;
 
+  VP = {s : Tense => Agr => Str} ;
+  
+  predV : (VForm => Str) -> VP =
+    \v -> { s = table {
+                  Pres => \\a => v ! VPres a.n a.p ;
+                  Past => \\a => "biti" ++ v ! VPastPart a.g a.n ;
+                  Fut  => \\a => "biti" ++ v ! VPastPart a.g a.n ;
+                  Cond => \\a => "bi" ++ v ! VPastPart a.g a.n
+                }
+          } ;
+
 }

lib/src/slovenian/VerbSlv.gf

@@ -0,0 +1,6 @@
+concrete VerbSlv of Verb = CatSlv ** open ResSlv, Prelude in {
+
+  lin
+    UseV v = predV v.s ;
+
+}