1
0
forked from GitHub/gf-core

added EmptyRelSlash in ExtraBul and ExtraGer. For Bulgarian and German the function simply inserts the default relative pronoun

This commit is contained in:
kr.angelov
2012-09-27 09:28:31 +00:00
parent 1b571d69ff
commit 6084647328
5 changed files with 24 additions and 12 deletions

View File

@@ -47,6 +47,13 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
isPron = False
} ;
EmptyRelSlash slash = {
s = \\m,t,a,p,gn =>
appPrep slash.c2 (\\k => usePrepC k (\c -> relPron ! gn ! c)) ++
slash.s ! m ! t ! a ! p ! Sub ;
c = (prepC slash.c2.c).c
} ;
lincat
VPS = {s : Order => Agr => Str} ;
[VPS] = {s1,s2 : Order => Agr => Str} ;