msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests 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

6
src/catalan/NumeralCat.gf
View File

@@ -12,6 +12,8 @@ lincat
Sub100 = {s : CardOrd => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Str ; n : Number} ;
Sub1000000000 = {s : CardOrd => Str ; n : Number} ;
Sub1000000000000 = {s : CardOrd => Str ; n : Number} ;
-- Auxiliaries
@@ -125,7 +127,9 @@ lin
pot3plus n m =
{s= \\co => (table {Sg => []; Pl => (n.s ! co)} ! n.n) ++ "mil" ++ (m.s !co);
n= Pl} ;
pot3as4 n = n ;
pot4as5 n = n ;
param
DForm = unit | teen | ten | tenplus | Aunit | OrdF ;