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

rename Dt to Species like in Swedish

Browse Source
This commit is contained in:
krasimir
2008-02-19 10:32:08 +00:00
parent 27df450a26
commit f3024fa714
4 changed files with 35 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/resource/bulgarian/NounBul.gf
View File

@@ -4,44 +4,44 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
lin
DetCN det cn =
{ s = \\c => det.s ! cn.g ++ cn.s ! det.n ! c ! det.det ;
{ s = \\c => det.s ! cn.g ++ cn.s ! det.n ! c ! det.spec ;
a = agrP3 (gennum cn.g det.n)
} ;
UsePron p = p ;
DetSg quant ord = {
s = \\g => quant.s ! ASg g NDet ++ ord.s ;
s = \\g => quant.s ! ASg g Indef ++ ord.s ;
n = Sg ;
det=quant.det
spec=quant.spec
} ;
DetPl quant num ord = {
s = \\g => quant.s ! aformGenNum (gennum g num.n) ++ num.s ++ ord.s ;
n = num.n ;
det=quant.det
spec=quant.spec
} ;
PossPron p = {s = \\aform => p.s ! Gen aform; det = NDet} ;
PossPron p = {s = \\aform => p.s ! Gen aform; spec = Indef} ;
NoNum = {s = []; n = Pl } ;
NoOrd = {s = []} ;
DefArt = {
s = \\_ => [] ;
det = ResBul.Det
spec = ResBul.Def
} ;
IndefArt = {
s = \\_ => [] ;
det = ResBul.NDet
spec = ResBul.Indef
} ;
MassDet = {s = \\_ => [] ; n = Sg ; det = NDet} ;
MassDet = {s = \\_ => [] ; n = Sg ; spec = Indef} ;
UseN noun = {
s = \\n,c,dt => let aform = case n of {
Sg => case <noun.g,c,dt> of {
<Masc,Nom,Det> => AFullDet ;
<Masc,Nom,Def> => AFullDef ;
_ => ASg noun.g dt
} ;
Pl => APl dt