diff options
Diffstat (limited to 'examples/numerals/polish.gf')
| -rw-r--r-- | examples/numerals/polish.gf | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/numerals/polish.gf b/examples/numerals/polish.gf index 8ecc3839a..b5d57bc92 100644 --- a/examples/numerals/polish.gf +++ b/examples/numerals/polish.gf @@ -23,10 +23,13 @@ param DForm = unit | teen | ten | hund ; param ThForm = onlyone | lastone | twoorthreeorfour | fiveup ; oper LinDigit = {s : DForm => Str; o : ThForm ; t : ThForm } ; + +lincat Numeral = { s : Str } ; lincat Digit = LinDigit ; lincat Sub10 = {s : DForm => Str; o : ThForm ; t : ThForm } ; lincat Sub100 = {s : Str; t : ThForm } ; lincat Sub1000 = {s : Str; t : ThForm } ; +lincat Sub1000000 = { s : Str } ; oper mkNum : Str -> Str -> Str -> Str -> ThForm -> LinDigit = \dwa -> \dwanascie -> \dwadziescia -> \dwiescie -> \thform -> |