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

(Hun) Fix bug with indef. article and digits

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-20 10:37:12 +02:00
parent 15a414707c
commit 252ecd0bb3
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/hungarian/NounHun.gf
View File

@@ -68,7 +68,9 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
<True,True> => [] ; -- don't output "a 2 cars" <True,True> => [] ; -- don't output "a 2 cars"
_ => quant.s ! num.n ! c } _ => quant.s ! num.n ! c }
++ num.s ! Attrib ; -- TODO: add inflection table in numbers ++ num.s ! Attrib ; -- TODO: add inflection table in numbers
sp = \\c => quant.sp ! num.n ! c sp = \\c => case <isNum num,quant.isIndefArt> of {
<True,True> => [] ;
_ => quant.sp ! num.n ! c }
++ num.s ! Indep ; ++ num.s ! Indep ;
} ; } ;
@@ -97,7 +99,7 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude, Coordination in {
-- : Digits -> Card ; -- : Digits -> Card ;
NumDigits dig = dig ** { NumDigits dig = dig ** {
s = \\place => dig.s ! NCard ; s = \\place => dig.s ! NCard ;
numtype = IsNum ; numtype = IsDig ;
} ; } ;
-- : Numeral -> Card ; -- : Numeral -> Card ;