bits of sentence syntax in Slovenian

lib/src/slovenian/CatSlv.gf

@@ -1,6 +1,9 @@
-concrete CatSlv of Cat = CommonX ** open ResSlv in {
+concrete CatSlv of Cat = CommonX ** open ResSlv, (P=ParamX) in {
 
 lincat
+  -- Sentence
+  Cl = {s : P.Tense => P.Anteriority => P.Polarity => Str} ;
+
   -- Verb
   VP = ResSlv.VP ;
 

lib/src/slovenian/GrammarSlv.gf

@@ -6,8 +6,9 @@ concrete GrammarSlv of Grammar =
   AdjectiveSlv,
 {-  AdverbEng,
   NumeralEng,
-  SentenceEng,
+-}
-  QuestionEng,
+  SentenceSlv,
+{-  QuestionEng,
   RelativeEng,
   ConjunctionEng,-}
   PhraseSlv,

lib/src/slovenian/ResSlv.gf

@@ -38,4 +38,14 @@ oper
                 }
           } ;
 
+  Clause : Type = {
+    s : Tense => Anteriority => Polarity => Str
+    } ;
+
+  mkClause : Str -> Agr -> VP -> Clause =
+    \subj,agr,vp -> {
+      s = \\t,a,p => 
+        subj ++ vp.s ! t ! agr
+    } ;
+
 }

lib/src/slovenian/SentenceSlv.gf

@@ -0,0 +1,11 @@
+concrete SentenceSlv of Sentence = CatSlv ** open Prelude, ResSlv in {
+
+lin
+    PredVP np vp = mkClause (np.s ! Nom) np.a vp ;
+
+    UseCl  t p cl = {
+      s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
+    } ;
+
+}
+