--# -path=.:../../src/abstract:../../src/common:../../src/api:../../src/prelude:../../src/german -- use the modified files in gf-rgl/src/german concrete TestLangGer of TestLang = GrammarGer , TestLexiconGer , ConstructionGer ** open ResGer,Prelude,(P=ParadigmsGer) in { flags startcat = Phr ; unlexer = text ; lexer = text ; optimize=all_subs ; {- lincat VPSlashSlash = CatGer.VPSlash ** {c3 : Preposition} ; lin SlashV3a v = (predVc v) ** {c3 = v.c3} ; Slash2V4 v np = insertObjNP np v.c2 (predV v) ** {c2 = v.c3 ; c3 = v.c4 } ; Slash3V4 v np = insertObjNP np v.c3 (predV v) ** {c2 = v.c2 ; c3 = v.c4 } ; Slash4V4 v np = insertObjNP np v.c4 (predV v) ** {c2 = v.c2 ; c3 = v.c3 } ; ComplSlashSlash vpss np = insertObjNP np vpss.c2 vpss ** {c2 = vpss.c3} ; -- linref -- V4 = \v -> useInfVP False (predV v) ++ v.c2.s ++ v.c3.s ++ v.c4.s ; -} lin ReflVPSlash v3 = -- reflexive use of v:V3, untested (insertObjRefl (predVc v3) ** {c2 = v3.c3}); PassV2Q v q = let c = case of { => NPC Nom ; _ => v.c2.c} ; -- acc;pcase object -> nom;pcase subject vp = insertObj (\\_ => v.s ! VPastPart APred) (predV werdenPass) ** { c1 = v.c2 ** {c = c} } in insertExtrapos (bindComma ++ q.s ! QIndir) vp ; PassV2S v s = let c = case of { => NPC Nom ; _ => v.c2.c} ; -- acc;pcase object -> nom;pcase subject vp = insertObj (\\_ => v.s ! VPastPart APred) (predV werdenPass) ** { c1 = v.c2 ** {c = c} } in insertExtrapos (bindComma ++ conjThat ++ s.s ! Sub) vp ; PassV2V v vp = let inf = mkInf v.isAux Simul Pos vp ; -- ok for v.isAux=False, v.c2.c=Acc c = case of { -- v.objCtrl=True HL 3/22 => NPC Nom ; _ => v.c2.c} ; -- acc;pcase object -> nom;pcase subject vp2 = insertObj (\\_ => v.s ! VPastPart APred) (predV werdenPass) ** { c1 = v.c2 ** {c = c} } ; in insertInf inf vp2 ; -- v=lassen needs in-place inf instead PassVPSlash vp = let c = case of { => NPC Nom ; _ => vp.c2.c} ; ctrl = case vp.objCtrl of { True => False ; _ => True } -- always False? in -- insertObj (\\_ => (PastPartAP vp).s ! APred) (predV werdenPass ** {c1 = vp.c2 ** {c = c}}) insertObj (\\_ => vp.s.s ! (VPastPart APred)) (predV werdenPass ** {nn = vp.nn ; c1 = vp.c2 ** {c = c}}) ** {ext = vp.ext ; inf = vp.inf ; c2 =vp.c2 ; objCtrl = ctrl } ; -- c2 ? -- Scharolta: passivised object: acc object -> nom subject; all others: same case/prep -- HL: does not work for vp = (Slash2V3 v np): uns wird *den Beweis erklärt -- 3/22 works for vp = (SlashV2V v2v reflVP): wir werden gebeten, uns zu waschen PastPartAP vp = { s = \\af => (vp.nn ! agrP3 Sg).p1 ++ (vp.nn ! agrP3 Sg).p2 ++ (vp.nn ! agrP3 Sg).p3 ++ (vp.nn ! agrP3 Sg).p4 ++ vp.adj ++ vp.a2 ++ vp.inf.inpl.p2 ++ vp.s.s ! VPastPart af ; isPre = True ; c = <[],[]> ; adj = [] ; ext = (vp.inf.extr ! agrP3 Sg) ++ vp.ext -- HL 5/4/2022 } ; Pass2V3 v np = -- HL 7/19: making the (active) direct object to the (passive) subject let vps = insertObj (\\_ => (v.s ! VPastPart APred)) (predV werdenPass) ** { c1 = PrepNom ; c2 = v.c3 } in insertObjNP np vps.c2 (vps ** {objCtrl = False}); Pass3V3 v np = -- HL 7/19: making the (active) indirect object to the (passive) subject let bekommen : Verb = P.habenV (P.irregV "bekommen" "bekommt" "bekam" "bekäme" "bekommen") ; vps = insertObj (\\_ => (v.s ! VPastPart APred)) (predV bekommen) ** { c1 = PrepNom ; c2 = v.c2 } in insertObjNP np vps.c2 (vps ** {objCtrl = False}); {- Pass2V4 v np = let vps = -- : VPSlashSlash = insertObj (\\_ => (v.s ! VPastPart APred)) (predV werdenPass) ** { c1 = PrepNom ; c2 = v.c3 ; c3 = v.c4 } in (insertObjNP np vps.c3 vps) ; -- Todo: Pass?V2S, Pass?V2Q, PassVS, PassVQ Pass?V2V -} SlashV2Vneg v vp = -- HL 3/22 let vps = (predVGen v.isAux v) ; inf = mkInf v.isAux Simul Neg vp in insertExtrapos vp.ext ( insertInf inf vps) ** {c2 = v.c2 ; objCtrl = v.objCtrl} ; } -- SlashV2VNP : V2V -> NP -> VPSlash -> VPSlash ; -- beg me to buy -- -- (the book) that (she (begged:V2V me:NP (to buy ()):VPSlash):VPSlash):ClSlash -- 3/22 expensive: -- i -v -src TestLangGer.gf -- + ComplSlash 699840 (355680,532) -- + SlashV2V 259200 (1440,20) -- + SlashV2VNP 503884800 (77760,540) -- 243273 msec {- TestLang> p "the book that we beg her to promise him to read" | l the book that we beg her to promise him to read das Buch , das wir sie bitten , ihm zu versprechen , zu lesen TestLang> p "the book that we beg her to beg him to read" | l the book that we beg her to beg him to read das Buch , das wir sie bitten , ihn zu bitten , zu lesen TestLang: DetCN (DetQuant DefArt NumSg) (RelCN (UseN book_N) (UseRCl (TTAnt TPres ASimul) PPos (RelSlash IdRP (SlashVP (UsePron we_Pron) (SlashV2VNP versprechen_dat_V2V (UsePron she_Pron) (SlashV2a read_V2)))))) TestLangEng: the book that we promise her to read TestLangGer: das Buch , das wir ihr versprechen , zu lesen TestLang> p "the book that we beg her to sell to him" | l the book that we beg her to sell to him das Buch , das wir sie bitten , ihm zu verkaufen p -lang=Ger "das Kind , auf das wir ihn bitten , zu warten ," | l the child that we beg him to wait for das Kind , auf das wir ihn bitten , zu warten pied piping: ~~> das Buch , das ihm zu verkaufen wir sie bitten ~~> das Kind , auf das zu warten wir ihn bitten Wrong in gf-3.9 as well: Lang> p "the woman that we beg him to listen to" | l the woman that we beg him to listen to die Frau , der wir ihn bitten , zuzuhören Lang> p "the book that we beg her to sell to him" | l the book that we beg her to sell to him das Buch, das wir sie bitten, ihm zu verkaufen Test reflexive resolution: gr -tr (PredVP (UsePron ?) (ComplSlash (SlashV2V lassen_V2V (ReflVP (SlashV2a wash_V2))) (UsePron ?))) | l -}