diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/numerals/malay.gf | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff) | |
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/numerals/malay.gf')
| -rw-r--r-- | examples/numerals/malay.gf | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/examples/numerals/malay.gf b/examples/numerals/malay.gf deleted file mode 100644 index 1213a96ee..000000000 --- a/examples/numerals/malay.gf +++ /dev/null @@ -1,71 +0,0 @@ --- Malay Numerals (Indonesian) --- David Wahlstedt Sep 2002 - -include numerals.Abs.gf ; - -param - Place = attr | indep ; - Nm = sg | pl ; - -oper Num = {inh : Nm ; s : Place => Str} ; - -lincat - Numeral = {s : Str} ; - Digit = {s : Str} ; - Sub10 = Num ; - Sub100 = Num ; - Sub1000 = Num ; - Sub1000000 = {s : Str} ; - -oper - ratus : Nm => Str = -- 100 - table {{sg} => "seratus" ; {pl} => "ratus"} ; - - ribu : Nm => Str = -- 1000 - table {{sg} => "seribu" ; {pl} => "ribu"} ; - - mkTab : Str -> Place => Str = \s -> table { _ => s } ; - - mkNum : Str -> Num = \s -> {inh = pl ; s = mkTab s} ; - - ss : Str -> { s : Str } = \s -> { s = s } ; - -lin - num x0 = x0 ; - - n2 = ss "dua" ; - n3 = ss "tiga" ; - n4 = ss "empat" ; - n5 = ss "lima" ; - n6 = ss "enam" ; - n7 = ss "tujuh" ; - n8 = ss "delapan" ; - n9 = ss "sembilan" ; - - pot01 = {inh = sg ; s = table {{attr} => [] ; {indep} => "satu"}} ; - - pot0 d = mkNum d.s ; - - pot110 = mkNum "sepuluh" ; - - pot111 = mkNum "sebelas" ; - - pot1to19 d = mkNum ( d.s ++ "belas" ) ; - - pot0as1 n = n ; - - pot1 d = mkNum ( d.s ++ "puluh" ) ; - - pot1plus d e = mkNum ( d.s ++ "puluh" ++ e.s ! indep ) ; - - pot1as2 n = n ; - - pot2 d = mkNum ( d.s ! attr ++ ratus ! d.inh ) ; - - pot2plus d e = mkNum ( d.s ! attr ++ ratus ! d.inh ++ e.s ! indep ) ; - - pot2as3 n = ss ( n.s ! indep ) ; - - pot3 n = ss ( n.s ! attr ++ ribu ! n.inh ) ; - - pot3plus n m = ss ( n.s ! attr ++ ribu ! n.inh ++ m.s ! indep ) ; |
