sketched SlashVSS in resource

This commit is contained in:
aarne
2006-12-18 16:10:24 +00:00
parent 60f678f221
commit 4dbfe518e5
2 changed files with 17 additions and 4 deletions

View File

@@ -68,6 +68,10 @@ abstract Sentence = Cat ** {
} }
--. --.
--- todo: tense of embedded Slash
-- SlashVSS : NP -> VS -> Slash -> Slash; -- (whom) I think he sees
-- Examples for English $S$/$Cl$: -- Examples for English $S$/$Cl$:
{- {-
Pres Simul Pos ODir : he sleeps Pres Simul Pos ODir : he sleeps

View File

@@ -53,3 +53,12 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
oper oper
ctr = contrNeg True ; -- contracted negations 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} ;
-}