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

extended Numerals API. moved from the WordNet grammar

Browse Source
This commit is contained in:
Krasimir Angelov
2022-10-21 20:50:49 +02:00
parent 96f4543c4c
commit b066fb4d35
29 changed files with 351 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/swahili/NumeralSwa.gf
+9 -4
View File
@@ -4,9 +4,11 @@ open Prelude,DiffSwa,MorphoSwa in {
lincat
Digit = {s : DForm => CardOrd => Gender => Str} ;
Sub10 = {s : DForm => CardOrd => Gender => Str ; n : Number} ;
Sub100 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub100 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000000000 = {s : CardOrd => Gender => Str ; n : Number} ;
Sub1000000000000 = {s : CardOrd => Gender => Str ; n : Number} ;
lin num x = x ;
lin n2 = mkNumn "ili" "ishirini" "pili" ;
@@ -35,7 +37,7 @@ lin pot2plus d e = {s = table {
NCard => \\g => d.s ! hund ! NCard ! g ++ "na" ++ e.s !NCard ! g ;
NOrd => \\g =>Ordprefix g++ d.s ! hund ! NCard ! g ++ "na" ++ e.s ! NCard ! g } ;
n = Pl} ;
lin pot2as3 n = n ;
lin pot2as3 n = n ;
lin pot3 n = { s = table {
NCard => \\g => mkCard NCard "elfu" ! g ++ n.s ! NCard ! g ;
NOrd => \\g =>Ordprefix g++ mkCard NCard "elfu" ! g ++ n.s ! NCard ! g } ;
@@ -45,6 +47,9 @@ lin pot3plus n m = { s = table {
NOrd => \\g =>Ordprefix g++ "elfu" ++ n.s ! NCard !g ++ m.s ! NCard ! g} ;
n = Pl} ;
lin pot3as4 n = n ;
lin pot4as5 n = n ;
-- numerals as sequences of digits0'
lincat