mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-16 00:09:31 -06:00
13 lines
432 B
Plaintext
13 lines
432 B
Plaintext
concrete RelativeChi of Relative = CatChi ** open ResChi, Prelude in {
|
|
|
|
lin
|
|
RelCl cl = {s = \\p,a => cl.s ! p ! a ++ relative_s} ; ---- ??
|
|
RelVP rp vp = {
|
|
s = \\p,a => vp.prePart ++ useVerb vp.verb ! p ! a ++ vp.compl ++ rp.s
|
|
} ; ---- ??
|
|
RelSlash rp slash = {s = \\p,a => slash.s ! p ! a ++ appPrep slash.c2 rp.s} ;
|
|
FunRP p np rp = ss (appPrep p np.s ++ rp.s) ; ---- ??
|
|
IdRP = ss relative_s ;
|
|
|
|
}
|