simple problem tracing

2026-06-01 06:08:56 -06:00 · 2005-11-24 09:25:39 +00:00
parent b29877c590
commit e583ecc830
64 changed files with 8932 additions and 5 deletions
--- a/lib/resource-1.0/gf/SentenceEng.gf
+++ b/lib/resource-1.0/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
+          }
+    } ;
+
+}