building Romance resource

lib/resource/romance/ClauseRomance.gf

@@ -70,6 +70,74 @@ incomplete concrete ClauseRomance of Clause = CategoriesRomance **
   SPredAdv subj adv = 
     sats2clause (mkSatsCopula subj adv.s) ;
 
+--------
+
+  QPredV  np v   = 
+    sats2quest (mkSats (intNounPhrase np) v) ;
+
+  QPredPassV subj v = 
+    sats2quest (mkSatsCopula  (intNounPhrase subj) (v.s ! VPart subj.g subj.n)) ;
+  QPredV2 np v y = 
+    sats2quest (mkSatsObject (intNounPhrase np) v y) ;
+--  QPredV3 subj verb obj1 obj2 = 
+--    sats2quest (insertObject (mkSatsObject (intNounPhrase subj) verb obj1) verb.c3 verb.s3 obj2) ;
+
+  QPredReflV2 subj verb = 
+    sats2quest (
+      mkSatsObject (intNounPhrase subj)
+        {s = verb.s ; s2 = [] ; c = accusative ; aux = AEsse}
+        ---- {s = verb.s ; s2 = verb.s2 ; c = verb.c ; aux = AEsse}
+        ---- this produces huge cf - find out why! AR 16/3/2005 
+        (reflPronNounPhrase subj.g subj.n P3)) ;
+
+  QPredVS subj verb sent = 
+    sats2quest (
+      insertExtrapos (mkSats (intNounPhrase subj) verb) 
+        (\\b => embedConj ++ sent.s ! subordMode verb b)) ; ---- mn
+  QPredVQ subj verb quest = 
+    sats2quest (
+      insertExtrapos (mkSats (intNounPhrase subj) verb) (\\_ => quest.s ! IndirQ)) ;
+  QPredV2S subj verb obj sent = 
+    sats2quest (
+      insertExtrapos 
+        (mkSatsObject (intNounPhrase subj) verb obj)
+        (\\b => embedConj ++ sent.s ! subordMode verb b)
+        ) ; ---- mn ;
+  QPredV2Q subj verb obj quest = 
+    sats2quest (
+      insertExtrapos 
+        (mkSatsObject (intNounPhrase subj) verb obj) 
+        (\\_ => quest.s ! IndirQ)) ;
+  QPredVA subj verb adj = 
+   sats2quest (
+     insertExtrapos (mkSats (intNounPhrase subj) verb) (\\_ => adj.s ! AF subj.g subj.n)) ;
+
+  QPredVV subj verb vp = 
+   sats2quest (
+     insertExtrapos 
+       (mkSats (intNounPhrase subj) verb) 
+       (\\_ =>  prepCase verb.c ++ vp.s ! VIInfinit ! subj.g ! (intNounPhrase subj).n ! P3)
+     ) ;
+
+--  QPredObjV2V 
+
+--  QPredProgVP
+
+--  QPred(IntNounPhrase Subj)V2V
+
+--  QPredV2A
+
+
+  QPredAP subj adj = 
+    sats2quest (mkSatsCopula (intNounPhrase subj) (adj.s ! AF subj.g subj.n)) ;
+  QPredCN subj cn = 
+    sats2quest (mkSatsCopula (intNounPhrase subj) (indefNoun subj.n cn)) ;
+  QPredNP subj np = 
+    sats2quest (mkSatsCopula (intNounPhrase subj) (np.s ! stressed nominative)) ;
+  QPredAdv subj adv = 
+    sats2quest (mkSatsCopula (intNounPhrase subj) adv.s) ;
+
+
 {-
 -- Use VPs