skeleton for questions in Slovenian

lib/src/slovenian/CatSlv.gf

@@ -5,6 +5,9 @@ lincat
   Cl = {s : P.Tense => P.Anteriority => P.Polarity => Str} ;
   Imp = {s : P.Polarity => Gender => Number => Str} ;
 
+  -- Question
+  QCl = {s : P.Tense => P.Anteriority => P.Polarity => Str} ;
+
   -- Verb
   VP = ResSlv.VP ;
   VPSlash = ResSlv.VP ** {c2 : Prep} ;

lib/src/slovenian/GrammarSlv.gf

@@ -7,8 +7,8 @@ concrete GrammarSlv of Grammar =
   AdverbSlv,
   NumeralSlv,
   SentenceSlv,
-{-  QuestionSlv,
-  RelativeSlv,
+  QuestionSlv,
+{-  RelativeSlv,
   ConjunctionSlv,-}
   PhraseSlv,
   TextX - [Pol,PPos,PNeg],

lib/src/slovenian/PhraseSlv.gf

@@ -4,6 +4,7 @@ concrete PhraseSlv of Phrase = CatSlv ** open Prelude, ResSlv in {
     PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
 
     UttS s = s ;
+    UttQS qs = qs ;
     UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p ! Masc ! Sg} ;
     UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p ! Masc ! Sg} ;
     UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p ! Masc ! Sg} ;

lib/src/slovenian/QuestionSlv.gf

@@ -0,0 +1,2 @@
+concrete QuestionSlv of Question = CatSlv ** open ResSlv in {
+}

lib/src/slovenian/SentenceSlv.gf

@@ -10,6 +10,9 @@ lin
     UseCl  t p cl = {
       s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
     } ;
+    UseQCl t p cl = {
+      s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p
+    } ;
 
 }