questions and transfer in shell state

resource-1.0/gf/QuestionEng.gf

@@ -0,0 +1,37 @@
+concrete QuestionEng of Question = CatEng, SentenceEng ** open ResEng in {
+
+  lin
+
+    QuestCl cl = {
+      s = \\t,a,p => 
+            let cls = cl.s ! t ! a ! p 
+            in table {
+              QDir   => cls ! OQuest ;
+              QIndir => "if" ++ cls ! ODir
+              } ---- "whether" in exts
+      } ;
+
+    QuestVP qp vp = {
+      s = \\t,a,b,q => 
+        let 
+          agr   = {n = qp.n ; p = P3} ;
+          verb  = vp.s ! t ! a ! b ! ODir ! agr ;
+          subj  = qp.s ! Nom ;
+          compl = vp.s2 ! agr
+        in
+        subj ++ verb.fin ++ verb.inf ++ compl
+    } ;
+
+{-
+    QuestSlash : IP -> Slash -> QCl ;
+    QuestIAdv  : IAdv -> Cl -> QCl ;
+
+    PrepIP : Prep -> IP -> IAdv ;
+    FunIP  : N2 -> IP -> IP ;
+    AdvIP  : IP -> Adv -> IP ;
+ 
+    IDetCN : IDet -> Num -> IP ;
+-}
+
+}
+