GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 03:46:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

(May) Form Det with numerals (NumCard, NumDigits etc.)

Browse Source
This commit is contained in:
Inari Listenmaa
2020-09-01 17:51:49 +02:00
parent c79c113e01
commit e122aea3ad
5 changed files with 40 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/malay/NumeralMay.gf
+6 -4
View File
@@ -4,11 +4,11 @@ concrete NumeralMay of Numeral = CatMay [Numeral,Digits] **
open Prelude, ResMay in {
lincat
Digit = CardOrdNum ; -- 2..9
Digit = OrdNum ; -- 2..9
Sub10, -- 1..9
Sub100, -- 1..99
Sub1000 = LinNumber ; -- 1..999
Sub1000000 = CardOrdNum ; -- 1..999999
Sub1000000 = OrdNum ; -- 1..999999
oper
LinNumber : Type = {
@@ -17,6 +17,8 @@ concrete NumeralMay of Numeral = CatMay [Numeral,Digits] **
ord : Str ;
} ;
OrdNum : Type = CardOrdNum ** {n : Number} ;
lin
-- : Sub1000000 -> Numeral ; -- 123456 [coercion to top category]
num x = x ;
@@ -100,10 +102,10 @@ oper
ord = "ke" + s ; -- Works for all but number 1
} ;
mkDigit : Str -> CardOrdNum = \s -> mkNum s ** {s=s} ;
mkDigit : Str -> OrdNum = \s -> mkNum s ** {s=s} ;
-- Only for Digit -> Sub*: we won't run into 1 here.
mkNum3 : (digit : CardOrdNum) -> (ten,unit : Str) -> LinNumber = \tiga,puluh,dua -> {
mkNum3 : (digit : OrdNum) -> (ten,unit : Str) -> LinNumber = \tiga,puluh,dua -> {
n = Pl ;
s = \\_ => tiga.s ++ puluh ++ dua ;
ord = tiga.ord ++ puluh ++ dua