msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

New numeral grammars.

Browse Source
This commit is contained in:
aarne
2003-11-10 15:45:42 +00:00
parent a931676d90
commit e470c6281f
5 changed files with 75 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
grammars/numerals/Numerals.gf
View File

@@ -1,4 +1,4 @@
-- numerals from 1 to 999999 in decimal notation. AR 1998 -- 2003
-- numerals from 1 to 999999 in decimal notation
abstract Numerals = {
@@ -31,10 +31,4 @@ fun
pot2as3 : Sub1000 -> Sub1000000 ; -- coercion of 1..999
pot3 : Sub1000 -> Sub1000000 ; -- m * 1000
pot3plus : Sub1000 -> Sub1000 -> Sub1000000 ; -- m * 1000 + n
data
Numeral = num ;
Digit = n2 | n3 | n4 | n5 | n6 | n7 | n8 | n9 ;
Sub10 = pot01 | pot0 ;
Sub100 = pot110 | pot111 | pot1to19 | pot0as1 | pot1 | pot1plus ;
}