working on questions

2005-11-28 15:00:52 +00:00
parent 0fbb2fe27e
commit d66e6fbff4
5 changed files with 59 additions and 10 deletions
--- a/lib/resource-1.0/gf/SentenceEng.gf
+++ b/lib/resource-1.0/gf/SentenceEng.gf
@@ -17,4 +17,23 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
          }
    } ;

+    SlashV2 np v2 = {
+      s = \\t,a,b,o => 
+        let 
+          agr   = np.a ;
+          verb  = (predV v2).s ! t ! a ! b ! o ! agr ;
+          subj  = np.s ! Nom
+        in
+        case o of {
+          ODir   => subj ++ verb.fin ++ verb.inf ;
+          OQuest => verb.fin ++ subj ++ verb.inf
+          } ;
+      c2 = v2.c2 
+    } ;
+--- PredVP (np ** {lock_NP =<>}) (UseV (v2 ** {lock_V = <>})) ** {c2 = v2.c2} ;
+
+    AdvSlash slash adv = {
+      s  = \\t,a,b,o => slash.s ! t ! a ! b ! o ++ adv.s ;
+      c2 = slash.c2
+    } ;
 }