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

fix bug with numeral 1 in DetQuant

Browse Source
This commit is contained in:
Inari Listenmaa
2017-12-28 13:18:03 +02:00
parent 9cdc92c552
commit 4c7d04444a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/basque/NounEus.gf
View File

@@ -94,14 +94,14 @@ concrete NounEus of Noun = CatEus ** open ResEus, Prelude in {
-- : Quant -> Num -> Det ; -- : Quant -> Num -> Det ;
DetQuant quant num = quant ** DetQuant quant num = quant **
{ s = \\c,ph => case <num.isNum,num.n> of { --numeral 1 ("bat") goes after NP! { s = \\c,ph => case <num.isNum,num.n> of {
<True,Sg> => num.s ++ quant.s ! num.n ! c ! FinalCons ; <True,Sg> => num.s ; --numeral 1 ("bat") goes after NP, and no other article
_ => quant.s ! num.n ! c ! ph _ => quant.s ! num.n ! c ! ph
} ; } ;
nbr = num.n ; nbr = num.n ;
pref = case num.n of { pref = case num.n of {
Sg => quant.pref ; Sg => quant.pref ; -- empty in case of numeral 1
Pl => quant.pref ++ num.s Pl => quant.pref ++ num.s -- the numeral itself in case of other numerals
} ; } ;
isDef = orB quant.isDef num.isNum } ; isDef = orB quant.isDef num.isNum } ;