msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixed some functions in IdiomGer where the discontinuous parts had been omitted

Browse Source
This commit is contained in:
aarne
2016-06-14 06:53:58 +00:00
parent 7a08aedab9
commit 69113d26ba
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/german/IdiomGer.gf
View File

@@ -10,7 +10,7 @@ concrete IdiomGer of Idiom = CatGer **
CleftNP np rs = mkClause "es" (agrP3 Sg)
(insertExtrapos (rs.s ! RGenNum (gennum (genderAgr np.a) (numberAgr np.a))) ----
(insertObj (\\_ => np.s ! NPC rs.c) (predV MorphoGer.sein_V))) ;
(insertObj (\\_ => np.s ! NPC rs.c ++ bigNP np) (predV MorphoGer.sein_V))) ;
CleftAdv ad s = mkClause "es" (agrP3 Sg)
(insertExtrapos (conjThat ++ s.s ! Sub)
@@ -19,7 +19,7 @@ concrete IdiomGer of Idiom = CatGer **
ExistNP np =
mkClause "es" (agrP3 Sg)
(insertObj (\\_ => appPrep geben.c2 np.s)
(insertObj (\\_ => appPrep geben.c2 np.s ++ bigNP np)
(predV geben)) ;
ExistIP ip = {
@@ -36,7 +36,7 @@ concrete IdiomGer of Idiom = CatGer **
ExistNPAdv np adv=
mkClause "es" (agrP3 Sg)
(insertAdv adv.s (insertObj (\\_ => appPrep geben.c2 np.s)
(insertAdv adv.s (insertObj (\\_ => appPrep geben.c2 np.s ++ bigNP np)
(predV geben))) ;
ExistIPAdv ip adv = {
@@ -66,7 +66,7 @@ concrete IdiomGer of Idiom = CatGer **
SelfAdvVP vp = insertAdv "selbst" vp ;
SelfAdVVP vp = insertAdv "selbst" vp ;
SelfNP np = np ** {
s = \\c => np.s ! c ++ "selbst" ;
s = \\c => np.s ! c ++ "selbst" ++ bigNP np ;
isPron = False ;
} ;