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

rename empty field to nonEmpty and fix the countabled

Browse Source
This commit is contained in:
krasimir
2008-02-20 16:38:54 +00:00
parent 166dafacd1
commit 10ac938d12
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource/bulgarian/CatBul.gf
View File

@@ -36,8 +36,8 @@ concrete CatBul of Cat = CommonX ** open ResBul, Prelude in {
CN = {s : NForm => Str; g : DGender} ;
NP, Pron = {s : Case => Str ; a : Agr} ;
Det = {s : DGender => Case => Str ; n : Number; countable : Bool; spec : Species} ;
Predet, Ord = {s : AForm => Str; empty : Bool} ;
Num = {s : DGenderSpecies => Str; n : Number; empty : Bool} ;
Predet, Ord = {s : AForm => Str; nonEmpty : Bool} ;
Num = {s : DGenderSpecies => Str; n : Number; nonEmpty : Bool} ;
Quant = {s : GenNum => Str; spec : Species} ;
-- Numeral

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

@@ -25,16 +25,16 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
ord.s ! aform (gennum g Sg) quant.spec c ;
n = Sg ;
countable = False ;
spec=case ord.empty of {True => quant.spec; _ => Indef}
spec=case ord.nonEmpty of {False => quant.spec; _ => Indef}
} ;
DetPl quant num ord = {
s = \\g,c => quant.s ! gennum g num.n ++
num.s ! dgenderSpecies g quant.spec c ++
ord.s ! aform (gennum g num.n) (case num.empty of {True => quant.spec; _ => Indef}) c ;
ord.s ! aform (gennum g num.n) (case num.nonEmpty of {False => quant.spec; _ => Indef}) c ;
n = num.n ;
countable = True ;
spec=case <num.empty,ord.empty> of {<True,True> => quant.spec; _ => Indef}
countable = num.nonEmpty ;
spec=case <num.nonEmpty,ord.nonEmpty> of {<False,False> => quant.spec; _ => Indef}
} ;
PossPron p = {
@@ -42,11 +42,11 @@ concrete NounBul of Noun = CatBul ** open ResBul, Prelude in {
spec = Indef
} ;
NoNum = {s = \\_ => []; n = Pl; empty = True} ;
NoOrd = {s = \\_ => []; empty = True} ;
NoNum = {s = \\_ => []; n = Pl; nonEmpty = False} ;
NoOrd = {s = \\_ => []; nonEmpty = False} ;
NumNumeral numeral = {s = \\gspec => numeral.s ! NCard gspec; n = numeral.n; empty = False} ;
OrdNumeral numeral = {s = \\aform => numeral.s ! NOrd aform; empty = False} ;
NumNumeral numeral = {s = \\gspec => numeral.s ! NCard gspec; n = numeral.n; nonEmpty = False} ;
OrdNumeral numeral = {s = \\aform => numeral.s ! NOrd aform; nonEmpty = False} ;
DefArt = {
s = \\_ => [] ;