mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-24 02:31:10 -06:00
49 lines
1.4 KiB
Plaintext
49 lines
1.4 KiB
Plaintext
concrete IdiomDut of Idiom = CatDut **
|
|
open ResDut, (P = ParadigmsDut), IrregDut, Prelude in {
|
|
|
|
flags optimize=all_subs ;
|
|
|
|
lin
|
|
ImpersCl vp = mkClause "het" (agrP3 Sg) vp ; -- cunger: 't -> het
|
|
GenericCl vp = mkClause "men" (agrP3 Sg) vp ;
|
|
|
|
CleftNP np rs = mkClause "het" (agrP3 Sg)
|
|
(insertExtrapos (rs.s ! np.a.g ! np.a.n) ----
|
|
(insertObj (\\_ => np.s ! NPNom) (predV zijn_V))) ;
|
|
|
|
CleftAdv ad s = mkClause "het" (agrP3 Sg)
|
|
(insertExtrapos (conjThat ++ s.s ! Sub)
|
|
(insertObj (\\_ => ad.s) (predV zijn_V))) ;
|
|
|
|
ExistNP np =
|
|
mkClause "er" (agrP3 np.a.n)
|
|
(insertObj (\\_ => np.s ! NPNom)
|
|
(predV zijn_V)) ;
|
|
|
|
ExistIP ip = {
|
|
s = \\t,a,p =>
|
|
let
|
|
cls =
|
|
(mkClause "er" (agrP3 ip.n) (predV zijn_V)).s ! t ! a ! p ;
|
|
who = ip.s ! NPNom
|
|
in table {
|
|
QDir => who ++ cls ! Inv ;
|
|
QIndir => who ++ cls ! Sub
|
|
}
|
|
} ;
|
|
|
|
ProgrVP vp = let vpi = infVP True vp in
|
|
insertAdv ("aan het" ++ vpi.inf ++ vpi.ext)
|
|
(insertObj vpi.obj (compV zijn_V)) ;
|
|
|
|
ImpPl1 vp =
|
|
let
|
|
v = laten_V ;
|
|
vvp = insertInfVP True vp (predVGen True vp.negPos v) ;
|
|
in
|
|
{s = (mkClause "we" {g = Utr ; n = Pl ; p = P1} vvp).s !
|
|
Pres ! Simul ! Pos ! Inv
|
|
} ;
|
|
|
|
}
|