(May) Add numerals and digits

This commit is contained in:
Inari Listenmaa
2020-09-01 16:14:09 +02:00
parent d3dd3d668c
commit c79c113e01
3 changed files with 168 additions and 10 deletions
+9 -5
View File
@@ -70,21 +70,25 @@ oper
-- numtype : NumType ; -- number as in "5" or "Sg/Pl", often makes a difference in lots of things
} ;
Num : Type = {
s : DForm => Str ; -- independent or attribute
CardNum : Type = {
s : Str ;
n : Number
} ;
baseNum : Num = {
s = \\_ => [] ;
baseNum : CardNum = {
s = [] ;
n = Sg ;
numtype = NoNum
} ;
Numeral : Type = Num ** {
CardOrdNum : Type = CardNum ** {
ord : Str
} ;
DigNum : Type = {
s : CardOrd => Str ;
} ;
baseQuant : Quant = {
s = [] ;
sp = \\_ => [] ;