mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-28 22:12:51 -06:00
36 lines
717 B
Plaintext
36 lines
717 B
Plaintext
--# -path=.:../abstract:../common:../../prelude
|
|
|
|
concrete RelativeMon of Relative = CatMon ** open ResMon, MorphoMon, Prelude in {
|
|
|
|
flags optimize=all_subs ; coding=utf8 ;
|
|
|
|
lin
|
|
|
|
RelCl cl = {
|
|
s = \\t,ant,pol,_ => cl.s ! t ! ant ! pol ! Part Rel ;
|
|
existSubject = True
|
|
} ;
|
|
|
|
RelVP rp vp = {
|
|
s = \\t,ant,pol,_ =>
|
|
let
|
|
cl = (mkClause (\\_ => []) Sg vp.vt Acc vp)
|
|
in
|
|
cl.s ! t ! ant ! pol ! Part Object ;
|
|
existSubject = False
|
|
} ;
|
|
|
|
RelSlash rp slash = {
|
|
s = \\t,ant,pol,_ => slash.s ! t ! ant ! pol ! Part Object ++ slash.c2.s ;
|
|
existSubject = False
|
|
} ;
|
|
|
|
IdRP = {s = []} ;
|
|
|
|
FunRP p np rp = {
|
|
s = np.s ! Nom ++ "нь"
|
|
} ;
|
|
|
|
}
|
|
|