forked from GitHub/gf-core
af53e6e31b
Fixed VRefl in DiffCat from "se" to "es" and tonic from "sÌ" to "si". Also some trivial formatting things in MorphoCat and IdiomCat.
49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
concrete IdiomCat of Idiom = CatCat **
|
|
open MorphoCat, ParadigmsCat, BeschCat, Prelude in {
|
|
|
|
flags optimize=all_subs ;
|
|
|
|
lin
|
|
ExistNP np = mkClause [] True False (agrP3 Masc Sg)
|
|
(insertClit3 "hi" (insertComplement (\\_ => (np.s ! Acc).ton) (predV haver_V))) ;
|
|
GenericCl vp = mkClause "hom" True False (agrP3 Masc Sg) vp ;
|
|
ImpersCl vp = mkClause [] True False (agrP3 Masc Sg) vp ;
|
|
|
|
|
|
ProgrVP vp =
|
|
insertComplement
|
|
(\\agr =>
|
|
let
|
|
clpr = <vp.clit1,vp.clit2> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
|
|
obj = clpr.p2 ++ vp.comp ! agr ++ vp.ext ! RPos ---- pol
|
|
in
|
|
vp.s.s ! VGer ++ clpr.p1 ++ obj
|
|
)
|
|
(predV (verbV (estar_54 "estar"))) ;
|
|
|
|
----AR, for completeness
|
|
|
|
CleftNP np rs = mkClause [] True False (agrP3 Masc Sg)
|
|
(insertComplement (\\_ => rs.s ! Indic ! np.a)
|
|
(insertComplement (\\_ => (np.s ! rs.c).ton) (predV copula))) ;
|
|
|
|
|
|
ExistIP ip = {
|
|
s = \\t,a,p,_ =>
|
|
ip.s ! Nom ++
|
|
(mkClause [] True False
|
|
(agrP3 Masc Sg)
|
|
(insertClit3 "hi" (insertComplement (\\_ => ip.s ! Acc) (predV haver_V))))
|
|
.s ! DDir ! t ! a ! p ! Indic
|
|
} ;
|
|
|
|
ImpPl1 vp = {s =
|
|
mkImperative False P1 vp ! RPos ! Masc ! Pl --- fem
|
|
} ;
|
|
|
|
CleftAdv ad s = mkClause [] True False (agrP3 Masc Sg)
|
|
(insertComplement (\\_ => conjThat ++ s.s ! Indic)
|
|
(insertComplement (\\_ => ad.s) (predV copula))) ;
|
|
|
|
}
|