GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-19 16:12:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

replaced German Agr record by an algebraic type

Browse Source
This commit is contained in:
aarne
2009-12-16 15:45:29 +00:00
parent 4f749d8bae
commit 403bec9f16
6 changed files with 51 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/german/NounGer.gf
View File

@@ -25,7 +25,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
PredetNP pred np = {
s = \\c0 =>
let c = case pred.c of {NoCase => c0 ; PredCase k => k} in
pred.s ! np.a.n ! Masc ! c0 ++ np.s ! c ; ---- g
pred.s ! numberAgr np.a ! Masc ! c0 ++ np.s ! c ; ---- g
a = np.a
} ;
@@ -157,7 +157,8 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
} ;
RelNP np rs = {
s = \\c => np.s ! c ++ "," ++ rs.s ! gennum np.a.g np.a.n ;
s = \\c => np.s ! c ++ "," ++
rs.s ! gennum (genderAgr np.a) (numberAgr np.a) ;
a = np.a ;
isPron = False
} ;