mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-01 11:38:34 -06:00
floating point numerals
This commit is contained in:
@@ -110,6 +110,8 @@ incomplete concrete NounScand of Noun =
|
||||
NumDigits nu = {s = \\g => nu.s ! NCard g ; n = nu.n} ;
|
||||
OrdDigits nu = {s = nu.s ! NOrd SupWeak} ;
|
||||
|
||||
NumFloat n1 n2 = {s = \\g => n1.s ! NCard neutrum ++ BIND ++ "." ++ BIND ++ n2.s ! NCard g ; n = Pl} ;
|
||||
|
||||
NumNumeral nu = {s = \\g => nu.s ! NCard g ; n = nu.n} ;
|
||||
OrdNumeral nu = {s = nu.s ! NOrd SupWeak} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user