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

Half the implementation of Numerals. However, pot2plus still problematic. Ordinal numerals also problematic

Browse Source
This commit is contained in:
David Bamutura
2019-05-06 01:29:47 +02:00
parent 7d49c87d1e
commit 5af7fd2fa9
6 changed files with 166 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/rukiga/ResCgg.gf
+29 -1
View File
@@ -24,7 +24,7 @@ param
MU | KU | ZERO_BU | ZERO_BI | ZERO_MA |
ZERO_MI | ZERO_TU | ZERO_N | I_ZERO |
RI_ZERO | KU_ZERO | MU_ZERO | RU_ZERO |
KA_ZERO |ZERO_BAA | N_ZERO;
KA_ZERO |ZERO_BAA | N_ZERO | KI_ZERO;
Case = Acc | Nom ; -- we need to include Gen because we shall need it with Gen Pronouns
RCase = RSuj | RObj |RGen;
PersonalPronounType = SubjM | Obj | RelSubj | RelObj |
@@ -64,6 +64,9 @@ param
-}
NounState = Complete | Incomplete ;
oper
-- the is for Common Nouns only
Noun : Type = {s : NounState => Number => Str ; gender : Gender} ;
@@ -1026,4 +1029,29 @@ oper
--Conjunctions
Conjunction : Type = {s : AgrConj =>Str ;s2 : Str ; n : Number} ;
-- For $Numeral$.
param
--2 For $Numeral$
CardOrd = NCard;
--DForm = Unit Gender| Ten Gender | N20_50 Gender| N60_n70 Gender; -- | hundred | thousand | tenThousand | hundredThousand | million ;
oper
mkNum : Str ->Str -> Gender ->Str-> Gender -> --Str-> Gender->Str-> Gender-> Str -> Gender
{
s : Str;
unit : { s:Str ; g : Gender; stem : Str};
ten : { s:Str ; g : Gender}
--twenty_fifty : { s:str ; g : gender; stem : Str};
--sixty_seventy : { s:str ; g : gender; stem : Str};
--eighty_ninety : { s:str ; g : gender; stem : Str};
} =
\biri,ibiri, g1, abiri,g2 ->
{
s = [];
unit = {s = "ibiri"; g = g1; stem ="biri"};
ten = {s = "abiri" ; g = g2};
};
}