Added all missing lincats in numerals grammars.

This commit is contained in:
bringert
2005-05-11 08:10:23 +00:00
parent c8de5fc0da
commit 9699fe1651
38 changed files with 88 additions and 7 deletions

View File

@@ -14,10 +14,13 @@ param DForm = unit | unite | unitra | teen | ten | tenra | hund | thou;
oper LinDigit = {s : DForm => Str };
oper LinS100 = {s : Str; s2 : Str } ;
lincat Numeral = { s : Str } ;
lincat Digit = LinDigit ;
lincat Sub10 = LinDigit ;
lincat Sub100 = LinS100 ;
lincat Sub1000 = LinS100 ;
lincat Sub1000000 = { s : Str } ;
oper mkNum : Str -> LinDigit = \dwa ->
{s = table {unit => dwa ; unite => dwa + "&" ; unitra => dwa + "&ra" ;