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

@@ -29,7 +29,7 @@ concrete QuestionDut of Question = CatDut ** open ResDut in {
s = \\t,a,p =>
let
cls = slash.s ! t ! a ! p ;
who = appPrep slash.c2 ip.s
who = appPrep slash.c2 (noMerge ** ip)
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
@@ -60,7 +60,7 @@ concrete QuestionDut of Question = CatDut ** open ResDut in {
} ;
PrepIP p ip = {
s = appPrep p.s ip.s
s = appPrep p (noMerge ** ip)
} ;
AdvIP ip adv = {