mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-23 09:52:55 -06:00
aux and slash
This commit is contained in:
@@ -61,7 +61,6 @@ lin
|
||||
|
||||
ComplA2S = predAdjSent2 ;
|
||||
|
||||
TransVV2 = transVerbVerb ;
|
||||
AdjPart = adjPastPart ;
|
||||
|
||||
UseV2V x = x ;
|
||||
@@ -102,6 +101,8 @@ lin
|
||||
--
|
||||
|
||||
SlashV2 = slashTransVerb ;
|
||||
SlashVV2 = slashVerbVerb ;
|
||||
SlashAdv cl p = slashAdverb cl p.s ;
|
||||
|
||||
IdRP = identRelPron ;
|
||||
FunRP = funRelPron ;
|
||||
|
||||
@@ -918,7 +918,20 @@ oper
|
||||
slashTransVerb : NounPhrase -> TransVerb -> ClauseSlashNounPhrase =
|
||||
\jag, se ->
|
||||
predVerbGroupClause jag (useVerb se (\\_,_,_ => se.s1)) ** {s2 = se.s2} ;
|
||||
|
||||
|
||||
--- this does not give negative or anterior forms
|
||||
|
||||
slashVerbVerb : NounPhrase -> VerbVerb -> TransVerb -> ClauseSlashNounPhrase =
|
||||
\jag,vilja,se ->
|
||||
predVerbGroupClause jag (useVerb vilja (\\g,n,p =>
|
||||
vilja.s1 ++
|
||||
vilja.s3 ++
|
||||
se.s ! VI (Inf Act))
|
||||
) ** {s2 = se.s2} ;
|
||||
|
||||
slashAdverb : Clause -> Preposition -> ClauseSlashNounPhrase =
|
||||
\youwalk,by -> youwalk ** {s2 = by} ;
|
||||
|
||||
--2 Relative pronouns and relative clauses
|
||||
--
|
||||
-- Relative pronouns can be nominative, accusative, or genitive, and
|
||||
|
||||
Reference in New Issue
Block a user