From 83c5b57615e35cb21f29766488ff29b95e49f665 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 28 Dec 2006 14:30:25 +0000 Subject: corrections in thai numerals --- examples/numerals/thai.gf | 10 ++++++---- examples/numerals/thaiU.gf | 11 ++++++----- 2 files changed, 12 insertions(+), 9 deletions(-) (limited to 'examples') diff --git a/examples/numerals/thai.gf b/examples/numerals/thai.gf index da6648a42..fcb2c7bcb 100644 --- a/examples/numerals/thai.gf +++ b/examples/numerals/thai.gf @@ -3,6 +3,8 @@ 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} ; @@ -18,10 +20,10 @@ lin n2 = mkNum "s-Og" "y'i:E" "s-Og" ; n3 = regNum "s-a:m" ; - n4 = regNum "s-i:E" ; - n5 = regNum "ha:E" ; + n4 = regNum "s-i:E" ; -- E = E48 ' + n5 = regNum "hTa:" ; -- T = E49 9 n6 = regNum "ho?k" ; - n7 = regNum "ecMd'" ; + n7 = regNum "ecMd'" ; -- M = E47 w n8 = regNum "e:pd'" ; n9 = regNum "eka:" ; @@ -63,5 +65,5 @@ oper sip = table {Unit => "s'ib" ; Thousand => "hmv:En"} ; - roy = table {Unit => "rEOy'" ; Thousand => "se:n"} ; + roy = table {Unit => "rTOy'" ; Thousand => "se:n"} ; phan = table {Unit => [] ; Thousand => "p2an"} ; diff --git a/examples/numerals/thaiU.gf b/examples/numerals/thaiU.gf index 61777416d..a5f6ca685 100644 --- a/examples/numerals/thaiU.gf +++ b/examples/numerals/thaiU.gf @@ -1,6 +1,7 @@ include numerals.Abs.gf ; --- Thai UTF8, produced from thai.gf by GF/Text/Thai.hs. AR 28/12/2006 +-- Thai transliteration, produces thaiU.gf by GF/Text/Thai.hs +-- AR 28/12/2006 flags coding=utf8 ; @@ -19,10 +20,10 @@ lin n2 = mkNum "สอง" "ยี่" "สอง" ; n3 = regNum "สาม" ; - n4 = regNum "สี่" ; - n5 = regNum "หา่" ; + n4 = regNum "สี่" ; -- E = E48 ' + n5 = regNum "ห้า" ; -- T = E49 9 n6 = regNum "หก" ; - n7 = regNum "เจ็ด" ; + n7 = regNum "เจ็ด" ; -- M = E47 w n8 = regNum "แปด" ; n9 = regNum "เกา" ; @@ -64,5 +65,5 @@ oper sip = table {Unit => "ศิบ" ; Thousand => "หมื่น"} ; - roy = table {Unit => "ร่อย" ; Thousand => "ซแน"} ; + roy = table {Unit => "ร้อย" ; Thousand => "ซแน"} ; phan = table {Unit => [] ; Thousand => "พะน"} ; -- cgit v1.2.3