diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-08-04 18:26:48 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-08-04 18:26:48 +0000 |
| commit | a9893f45724299e6cc773bbb2fa2cf315fe85206 (patch) | |
| tree | b5c6222b2422a3db7bf4dd676aa4872adf22daf4 /examples/numerals/kwaza.gf | |
| parent | a401820e3718a936cc926c457d29ec145e189be5 (diff) | |
ported numerals to GF3 and encoded in UTF8; some problematic ones in todo
Diffstat (limited to 'examples/numerals/kwaza.gf')
| -rw-r--r-- | examples/numerals/kwaza.gf | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/examples/numerals/kwaza.gf b/examples/numerals/kwaza.gf new file mode 100644 index 000000000..adf14e312 --- /dev/null +++ b/examples/numerals/kwaza.gf @@ -0,0 +1,40 @@ +concrete kwaza of Numerals = { +-- include numerals.Abs.gf ; + +lincat Numeral = {s : Str} ; +lincat Digit = {s : Str } ; +lincat Sub10 = {s : Str } ; +lincat Sub100 = {s : Str } ; +lincat Sub1000 = {s : Str } ; +lincat Sub1000000 = {s : Str} ; +lin num x0 = + {s = x0.s} ; -- TODO + +oper na = {s = "N/A" } ; + +lin n2 = {s = "aky'hy~" }; +lin n3 = {s = "e'ma~" }; +lin n4 = {s = "ElE'lE" }; +lin n5 = {s = "bwako'je" }; +lin n6 = na ; +lin n7 = na ; +lin n8 = na ; +lin n9 = na ; + +lin pot01 = + {s = "tei'hy~"}; +lin pot0 d = d ; +lin pot110 = na ; +lin pot111 = na ; +lin pot1to19 d = na ; +lin pot0as1 n = n ; +lin pot1 d = na ; +lin pot1plus d e = na ; +lin pot1as2 n = n ; +lin pot2 d = na ; +lin pot2plus d e = na ; +lin pot2as3 n = n ; +lin pot3 n = na ; +lin pot3plus n m = na ; + +} |
