verb subcat patterns

2026-05-30 21:28:54 -06:00 · 2005-12-02 13:58:36 +00:00
parent ef504a4cbe
commit eb361d8941
12 changed files with 95 additions and 44 deletions
--- a/lib/resource-1.0/english/SentenceEng.gf
+++ b/lib/resource-1.0/english/SentenceEng.gf
@@ -17,6 +17,20 @@ concrete SentenceEng of Sentence = CatEng ** open ResEng in {
          }
    } ;

+    PredSCVP sc vp = {
+      s = \\t,a,b,o => 
+        let 
+          agr   = (agrP3 Sg).a ;
+          verb  = vp.s ! t ! a ! b ! o ! agr ;
+          subj  = sc.s ;
+          compl = vp.s2 ! agr 
+        in
+        case o of {
+          ODir   => subj ++ verb.fin ++ verb.inf ++ compl ;
+          OQuest => verb.fin ++ subj ++ verb.inf ++ compl
+          }
+    } ;
+
    ImpVP vp = {
      s = \\pol,n => 
        let