extended Numerals API. moved from the WordNet grammar

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

View File

@@ -46,6 +46,8 @@ lincat
Sub100 = {s : CardOrd => Placement => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Placement => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Str ; n : Number} ;
Sub1000000000 = {s : CardOrd => Str ; n : Number} ;
Sub1000000000000 = {s : CardOrd => Str ; n : Number} ;
lin num x0 = x0 ;
@@ -139,6 +141,9 @@ lin pot3plus n m =
{s = \\g => (n.s ! NCard Masc ! attr) ++ "mille" ++ m.s ! g ! postpo ; n =
Pl} ;
lin pot3as4 n = n ;
lin pot4as5 n = n ;
oper hyphen = BIND ++ "-" ++ BIND ;