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

substantival IndefArt in Ger (einer, eines, eine); DetNPMasc and DetNPFem in Extra

Browse Source
This commit is contained in:
aarne
2012-04-10 20:50:50 +00:00
parent 840f982fd4
commit 836bcfa4f7
3 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/src/german/ExtraGer.gf
View File

@@ -35,4 +35,15 @@ concrete ExtraGer of ExtraGerAbs = CatGer **
IAdvAdv adv = {s = "wie" ++ adv.s} ;
DetNPMasc det = {
s = \\c => det.sp ! Masc ! c ; ---- genders
a = agrP3 det.n ;
isPron = False
} ;
DetNPFem det = {
s = \\c => det.sp ! Fem ! c ; ---- genders
a = agrP3 det.n ;
isPron = False
} ;
}

1
lib/src/german/ExtraGerAbs.gf
View File

@@ -8,4 +8,5 @@ abstract ExtraGerAbs = Extra [
moegen_VV : VV ; -- ich mag/möchte singen
DetNPMasc, DetNPFem : Det -> NP ;
}

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

@@ -1,4 +1,4 @@
concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
concrete NounGer of Noun = CatGer ** open ResGer, MorphoGer, Prelude in {
flags optimize=all_subs ;
@@ -11,7 +11,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
} ;
DetNP det = {
s = \\c => det.sp ! Neutr ! c ; ---- genders
s = \\c => det.sp ! Neutr ! c ; -- more genders in ExtraGer
a = agrP3 det.n ;
isPron = False
} ;
@@ -109,7 +109,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
}
} ;
sp = table {
Sg => \\g,c => usePrepC c (\k -> "ein" + pronEnding ! GSg g ! k) ;
Sg => \\g,c => usePrepC c (\k -> (detLikeAdj Sg "ein").s ! g ! NPC k) ;
Pl => \\_,c => usePrepC c (\k -> caselist "einige" "einige" "einigen" "einiger" ! k)
} ;
a = Strong