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

@@ -63,6 +63,8 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
Sub100 = Form2 ;
Sub1000 = Form2 ;
Sub1000000 = Form2 ;
Sub1000000000 = Form2 ;
Sub1000000000000 = Form2 ;
oper
@@ -335,6 +337,9 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits] ** open Prelude,ResMlt
f = Hund ; -- NOT IMPORTANT
} ;
pot3as4 m = m ;
pot4as5 m = m ;
oper
-- Build "x thousand" table
numTable : (CardOrd => NumCase => Str) = overload {