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

(Por) Numeral: add spacing and handle case of millions (not in RGL, only in ParseExtend)

Browse Source
This commit is contained in:
odanoburu
2018-09-12 18:02:49 +00:00
parent 6fc46c2176
commit 625bf5485f
2 changed files with 19 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/portuguese/MorphoPor.gf
View File

@@ -8,8 +8,7 @@
-- $ParadigmsPor$, which gives a higher-level access to this module. -- $ParadigmsPor$, which gives a higher-level access to this module.
resource MorphoPor = CommonRomance, ResPor ** resource MorphoPor = CommonRomance, ResPor **
open PhonoPor, Prelude, Predef, open PhonoPor, Prelude, Predef, CatPor in {
CatPor in {
flags optimize=all ; flags optimize=all ;
coding=utf8 ; coding=utf8 ;

8
src/portuguese/NumeralPor.gf
View File

@@ -126,8 +126,12 @@ concrete NumeralPor of Numeral = CatPor [Numeral,Digits] **
} }
} ; } ;
regCard : Str -> Gender -> Number -> Str = \vigesimo -> regCard : Str -> Gender -> Number -> Str ;
pronForms (adjPreto vigesimo) ; regCard vigesimo = case vigesimo of {
-- to handle milhão case (in ParseExtend module)
milh + "ão" => \g, n -> genNumForms vigesimo vigesimo (milh + "ões") vigesimo ! g ! n;
_ => pronForms (adjPreto vigesimo)
} ;
spl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \s -> { spl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \s -> {
s = s ; s = s ;