diff options
Diffstat (limited to 'examples/numerals/old_church_slavonic.gf')
| -rw-r--r-- | examples/numerals/old_church_slavonic.gf | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/numerals/old_church_slavonic.gf b/examples/numerals/old_church_slavonic.gf index dff2f502a..6072bbec8 100644 --- a/examples/numerals/old_church_slavonic.gf +++ b/examples/numerals/old_church_slavonic.gf @@ -11,10 +11,12 @@ flags coding=OCScyrillic ; param Size = sg | dual | threefour | fiveup ; +lincat Numeral = { s : Str } ; lincat Digit = {s : Str ; s2 : Str ; size : Size } ; lincat Sub10 = {s : Str ; s2 : Str ; size : Size } ; lincat Sub100 = {s : Str ; s2 : Str ; size : Size } ; lincat Sub1000 = {s : Str ; s2 : Str ; size : Size } ; +lincat Sub1000000 = { s : Str } ; oper mkNum : Str -> Size -> {s : Str ; s2 : Str ; size : Size} = \petI -> \sz -> { s = petI ; s2 = petI ; size = sz}; |