29 lines
1.5 KiB
Plaintext
29 lines
1.5 KiB
Plaintext
concrete ExtraCze of ExtraCzeAbs = CatCze ** open ResCze, Prelude, (V = VerbCze) in {
|
|
lin
|
|
-- The adjective agrees with the subject; ordinary slash completion
|
|
-- supplies the object's case, prepositional form and clitic placement.
|
|
SlashV2AP v ap = (V.SlashV2a v) ** {compl = ap.pred} ;
|
|
|
|
-- Dative experiencer, with agreement controlled by the predicative NP.
|
|
-- je mi pět let / jsou mi dva roky / mému synovi je pět let
|
|
DativeCopulaCl experiencer predicate = {
|
|
subj = case experiencer.hasClit of {True => [] ; False => experiencer.s ! Dat} ;
|
|
clit = case experiencer.hasClit of {True => experiencer.clit ! Dat ; False => []} ;
|
|
compl = predicate.s ! Nom ; verb = copulaVerbForms ; a = predicate.a ;
|
|
finite = (mkClause [] [] [] copulaVerbForms predicate.a False False).finite ;
|
|
auxiliary = (mkClause [] [] [] copulaVerbForms predicate.a False False).auxiliary ;
|
|
isDrop = experiencer.hasClit ; clitPresent = experiencer.hasClit
|
|
} ;
|
|
|
|
DativeCopulaQCl experiencer predicate = {
|
|
q = predicate.s ! Nom ;
|
|
subj = case experiencer.hasClit of {True => [] ; False => experiencer.s ! Dat} ;
|
|
clit = case experiencer.hasClit of {True => experiencer.clit ! Dat ; False => []} ;
|
|
compl = [] ; verb = copulaVerbForms ; a = predicate.a ;
|
|
isDrop = False ; clitPresent = False ;
|
|
finite = (mkClause [] [] [] copulaVerbForms predicate.a False False).finite ;
|
|
auxiliary = (mkClause [] [] [] copulaVerbForms predicate.a False False).auxiliary ;
|
|
yesNo = False
|
|
} ;
|
|
}
|