mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-22 09:46:22 -06:00
Implement contraction of certain noun phrases and prepositions, e.g. met + dat -> daarmee
This commit is contained in:
@@ -23,12 +23,13 @@ concrete RelativeDut of Relative = CatDut ** open ResDut in {
|
||||
|
||||
RelSlash rp slash = {
|
||||
s = \\t,a,p,g,n =>
|
||||
appPrep slash.c2 (\\_ => rp.s ! g ! n) ++ slash.s ! t ! a ! p ! Sub ;
|
||||
appPrep slash.c2 (npLite (\\_ => rp.s ! g ! n))
|
||||
++ slash.s ! t ! a ! p ! Sub ;
|
||||
c = slash.c2.c
|
||||
} ;
|
||||
|
||||
FunRP p np rp = {
|
||||
s = \\g,n => np.s ! NPNom ++ appPrep p.s (\\_ => rp.s ! g ! n) ;
|
||||
s = \\g,n => np.s ! NPNom ++ appPrep p (npLite (\\_ => rp.s ! g ! n)) ;
|
||||
a = RAg np.a.n np.a.p
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user