1
0
forked from GitHub/gf-core

remove the genitive case. Instead the pronouns have a separate gen field

This commit is contained in:
krasimir
2008-02-21 11:27:53 +00:00
parent e17235893d
commit 16ce34eee7
3 changed files with 8 additions and 7 deletions

View File

@@ -18,7 +18,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
in det.s ! cn.g ! c ++ cn.s ! nf ;
a = {gn = gennum cn.g det.n; p = P3} ;
} ;
UsePron p = p ;
UsePron p = {s = p.s; a=p.a} ;
DetSg quant ord = {
s = \\g,c => quant.s ! gennum g Sg ++
@@ -38,7 +38,7 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
} ;
PossPron p = {
s = \\gn => p.s ! Gen (aform gn Def Nom) ;
s = \\gn => p.gen ! aform gn Indef Nom ;
spec = Indef
} ;