sketched SlashVSS in resource

2006-12-18 16:10:24 +00:00
parent 60f678f221
commit 4dbfe518e5
2 changed files with 17 additions and 4 deletions
--- a/lib/resource-1.0/english/SentenceEng.gf
+++ b/lib/resource-1.0/english/SentenceEng.gf
@@ -53,3 +53,12 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
  oper
    ctr = contrNeg True ;  -- contracted negations
 }
+
+{-
+--- todo: tense of embedded Slash
+
+    SlashVSS np vs s = 
+      mkClause (np.s ! Nom) np.a 
+        (insertObj (\\_ => conjThat ++ s.s) (predV vs)) **
+        {c2 = s.c2} ;
+-}