1
0
forked from GitHub/gf-core

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

@@ -28,10 +28,10 @@ abstract Sentence = Cat ** {
-- the style of CCG.
-- *Note* the set is not complete and lacks e.g. verbs with more than 2 places.
SlashV2 : NP -> V2 -> Slash ; -- (whom) he sees
SlashVVV2 : NP -> VV -> V2 -> Slash; -- (whom) he wants to see
AdvSlash : Slash -> Adv -> Slash ; -- (whom) he sees tomorrow
SlashPrep : Cl -> Prep -> Slash ; -- (with whom) he walks
SlashV2 : NP -> V2 -> Slash ; -- (whom) he sees
SlashVVV2 : NP -> VV -> V2 -> Slash; -- (whom) he wants to see
AdvSlash : Slash -> Adv -> Slash ; -- (whom) he sees tomorrow
SlashPrep : Cl -> Prep -> Slash ; -- (with whom) he walks
--2 Imperatives
@@ -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$:
{-
Pres Simul Pos ODir : he sleeps

View File

@@ -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} ;
-}