mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-11 20:22:51 -06:00
16 lines
463 B
Plaintext
16 lines
463 B
Plaintext
--# -path=.:../abstract:../common:../../prelude
|
|
|
|
concrete IdiomRus of Idiom = CatRus ** open Prelude, ResRus in {
|
|
--
|
|
-- flags optimize=all_subs ;
|
|
--
|
|
-- lin
|
|
-- ExistNP np =
|
|
-- mkClause "there" (agrP3 np.a.n) (insertObj (\\_ => np.s ! Acc) (predAux auxBe)) ;
|
|
-- ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
|
|
-- GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
|
|
--
|
|
-- ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
|
|
--
|
|
}
|