mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-21 17:26:25 -06:00
extended Numerals API. moved from the WordNet grammar
This commit is contained in:
@@ -11,6 +11,8 @@ lincat Sub10 = {s : CardOrd => DForm => Placement => Str ; size : Size} ;
|
||||
lincat Sub100 = {s : CardOrd => NumF => Placement => Str ; size : Size} ;
|
||||
lincat Sub1000 = {s : CardOrd => NumF => Placement => Str ; size : Size } ;
|
||||
lincat Sub1000000 = { s : CardOrd => NumF => Placement => Str; size : Size } ;
|
||||
lincat Sub1000000000 = { s : CardOrd => NumF => Placement => Str; size : Size } ;
|
||||
lincat Sub1000000000000 = { s : CardOrd => NumF => Placement => Str; size : Size } ;
|
||||
|
||||
|
||||
|
||||
@@ -196,6 +198,9 @@ lin pot3plus n m =
|
||||
size = m.size
|
||||
};
|
||||
|
||||
lin pot3as4 n = n ;
|
||||
lin pot4as5 n = n ;
|
||||
|
||||
oper mksute : Size -> Str = \sz -> table {sg => "sută" ; _ => "sute" } ! sz ;
|
||||
oper mkSute : Size -> Gender -> Str = \sz, g ->
|
||||
table {sg => mkOrdinalForm "sută" g ;
|
||||
|
||||
Reference in New Issue
Block a user