summaryrefslogtreecommitdiff
path: root/examples/numerals/thai.gf
diff options
context:
space:
mode:
authorjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
committerjohn.j.camilleri <john.j.camilleri@chalmers.se>2013-09-16 07:17:27 +0000
commitf5461eb3d4eb2605b546a4ed202c12bcdaa1f4e4 (patch)
tree946c9e8542b8e8271b6b529a95c0400fa6613cb4 /examples/numerals/thai.gf
parent8e1c6cca407c82fc09569d80c231b8d256735989 (diff)
Remove contribs and examples
Everything has now been moved to a separate repository at https://github.com/GrammaticalFramework/gf-contrib The contents of the examples folder are build during SetupWeb
Diffstat (limited to 'examples/numerals/thai.gf')
-rw-r--r--examples/numerals/thai.gf72
1 files changed, 0 insertions, 72 deletions
diff --git a/examples/numerals/thai.gf b/examples/numerals/thai.gf
deleted file mode 100644
index 8180045af..000000000
--- a/examples/numerals/thai.gf
+++ /dev/null
@@ -1,72 +0,0 @@
-concrete thai of Numerals = {
--- include numerals.Abs.gf ;
-
--- Thai transliteration, produces thaiU.gf by GF/Text/Thai.hs
--- AR 28/12/2006
-
-flags coding=utf8 ;
-
-lincat
- Numeral = {s : Str} ;
- Digit = {s : DForm => Str} ;
- Sub10 = {s : DForm => Str} ;
- Sub100 = {s : NForm => Str} ;
- Sub1000 = {s : NForm => Str} ;
- Sub1000000 = {s : Str} ;
-
-lin
- num x = x ;
-
- pot01 = mkNum "หนึง" "หนึง" "เอ็ด" ;
-
- n2 = mkNum "สอง" "ยี่" "สอง" ;
- n3 = regNum "สาม" ;
- n4 = regNum "สี่" ; -- T1 = E48 '
- n5 = regNum "ห้า" ; -- T2 = E49 9
- n6 = regNum "หก" ;
- n7 = regNum "เจ็ด" ; -- S = E47 w
- n8 = regNum "แปด" ;
- n9 = regNum "เกา" ;
-
-
- pot0 d = d ;
-
- pot110 = {s = sip} ;
- pot111 = {s = table {
- Unit => ["สิบเอ็ด"] ;
- Thousand => ["หนึงหมื่นหนึงพะน"]
- }
- } ;
- pot1to19 d = {s = table {
- Unit => "สิบ" ++ d.s ! After ;
- Thousand => ["หนึงหมื่น"] ++ d.s ! Indep ++ "พะน"
- }
- } ;
- pot0as1 d = {s = \\n => d.s ! Indep ++ phan ! n} ;
- pot1 d = {s = \\n => d.s ! ModTen ++ sip ! n} ;
- pot1plus d e = {
- s = \\n => d.s ! ModTen ++ sip ! n ++ e.s ! After ++ phan ! n
- } ;
- pot1as2 n = n ;
- pot2 d = {s = \\n => d.s ! Indep ++ roy ! n} ;
- pot2plus d e = {s = \\n => d.s ! Indep ++ roy ! n ++ e.s ! n} ;
- pot2as3 n = {s = n.s ! Unit} ;
- pot3 n = {s = n.s ! Thousand} ;
- pot3plus n m = {s = n.s ! Thousand ++ m.s ! Unit} ;
-
-param
- DForm = Indep | ModTen | After ;
- NForm = Unit | Thousand ;
-
-oper
- mkNum : Str -> Str -> Str -> {s : DForm => Str} = \x,y,z ->
- {s = table {Indep => x ; ModTen => y ; After => z}} ;
- regNum : Str -> {s : DForm => Str} = \x ->
- mkNum x x x ;
-
-
- sip = table {Unit => "สิบ" ; Thousand => "หมื่น"} ;
- roy = table {Unit => "ร้อย" ; Thousand => "แสน"} ;
- phan = table {Unit => [] ; Thousand => "พะน"} ;
-
-}