extending proto resource API

2026-05-04 08:42:50 -06:00 · 2005-11-23 21:38:11 +00:00
parent f0e40a923d
commit b29877c590
22 changed files with 362 additions and 102 deletions
--- a/lib/resource/exper/gf/SentenceEng.gf
+++ b/lib/resource/exper/gf/SentenceEng.gf
@@ -0,0 +1,20 @@
+concrete SentenceEng of Sentence = CatEng ** open ResEng in {
+
+  flags optimize=all_subs ;
+
+  lin
+    PredVP np vp = {
+      s = \\t,a,b,o => 
+        let 
+          agr   = np.a ;
+          verb  = vp.s ! t ! a ! b ! o ! agr ;
+          subj  = np.s ! Nom ;
+          compl = vp.s2 ! agr
+        in
+        case o of {
+          ODir   => subj ++ verb.fin ++ verb.inf ++ compl ;
+          OQuest => verb.fin ++ subj ++ verb.inf ++ compl
+          }
+    } ;
+
+}