Implement contraction of certain noun phrases and prepositions, e.g. met + dat -> daarmee

This commit is contained in:
Inari Listenmaa
2018-01-04 23:46:29 +02:00
parent 6831710c31
commit b7ee620c8a
14 changed files with 118 additions and 91 deletions

View File

@@ -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
} ;