forked from GitHub/gf-core
51 lines
1.3 KiB
Plaintext
51 lines
1.3 KiB
Plaintext
concrete IdiomDut of Idiom = CatDut **
|
|
open MorphoDut, ParadigmsDut, Prelude in
|
|
{
|
|
--{
|
|
--
|
|
-- flags optimize=all_subs ;
|
|
--
|
|
-- lin
|
|
-- ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
|
|
-- GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
|
|
--
|
|
-- CleftNP np rs = mkClause "es" (agrP3 Sg)
|
|
-- (insertExtrapos (rs.s ! gennum np.a.g np.a.n) ----
|
|
-- (insertObj (\\_ => np.s ! rs.c) (predV MorphoDut.sein_V))) ;
|
|
--
|
|
-- CleftAdv ad s = mkClause "es" (agrP3 Sg)
|
|
-- (insertExtrapos (conjThat ++ s.s ! Sub)
|
|
-- (insertObj (\\_ => ad.s) (predV MorphoDut.sein_V))) ;
|
|
--
|
|
--
|
|
-- ExistNP np =
|
|
-- mkClause "es" (agrP3 Sg)
|
|
-- (insertObj (\\_ => appPrep geben.c2 np.s)
|
|
-- (predV geben)) ;
|
|
--
|
|
-- ExistIP ip = {
|
|
-- s = \\m,t,a,p =>
|
|
-- let
|
|
-- cls =
|
|
-- (mkClause "es" (agrP3 Sg) (predV geben)).s ! m ! t ! a ! p ;
|
|
-- who = ip.s ! Acc
|
|
-- in table {
|
|
-- QDir => who ++ cls ! Inv ;
|
|
-- QIndir => who ++ cls ! Sub
|
|
-- }
|
|
-- } ;
|
|
--
|
|
-- ProgrVP = insertAdv "eben" ; ----
|
|
--
|
|
-- ImpPl1 vp = {s =
|
|
-- (mkClause "wir" {g = Fem ; n = Pl ; p = P1} vp).s !
|
|
-- MConjunct ! Pres ! Simul ! Pos ! Inv
|
|
-- } ;
|
|
--
|
|
-- oper
|
|
-- geben = dirV2 (mk6V "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
|
|
--}
|
|
--
|
|
|
|
}
|