mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-24 02:31:10 -06:00
extended Numerals API. moved from the WordNet grammar
This commit is contained in:
@@ -21,6 +21,8 @@ lincat Sub10 = LinDigit ;
|
||||
lincat Sub100 = LinNumeral ;
|
||||
lincat Sub1000 = LinNumeral ;
|
||||
lincat Sub1000000 = LinNumeral ;
|
||||
lincat Sub1000000000 = LinNumeral ;
|
||||
lincat Sub1000000000000 = LinNumeral ;
|
||||
|
||||
oper mkNum : Determiner -> Str -> Str -> Str -> LinDigit =
|
||||
\dva, dvanast, dvadsat, dveste -> {
|
||||
@@ -85,6 +87,9 @@ lin pot3plus n m = {
|
||||
size = tfSize m.size
|
||||
} ;
|
||||
|
||||
lin pot3as4 n = n ;
|
||||
lin pot4as5 n = n ;
|
||||
|
||||
oper tfSize : NumSize -> NumSize = \sz ->
|
||||
table {Num1 => Num5 ; other => other} ! sz ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user