mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-25 02:38:55 -06:00
sketched SlashVSS in resource
This commit is contained in:
@@ -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
|
||||||
|
|||||||
@@ -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} ;
|
||||||
|
-}
|
||||||
Reference in New Issue
Block a user