diff options
Diffstat (limited to 'examples/travel/TravelThai.gf')
| -rw-r--r-- | examples/travel/TravelThai.gf | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/examples/travel/TravelThai.gf b/examples/travel/TravelThai.gf deleted file mode 100644 index 925fd3903..000000000 --- a/examples/travel/TravelThai.gf +++ /dev/null @@ -1,71 +0,0 @@ ---# -path=.:prelude - -concrete TravelThai of Travel = open Prelude in { - - flags coding=utf8 ; - --- this file is processed by --- GF.Text.Thai.thaiFile "เะมปลเตระึเระึเลหังฝ" (Just TGT) --- GF.Text.Thai.thaiPronFile "เะมปลเตระึเระึเลหังฝ" (Just TGT) --- to produce target Thai script and pronunciation files. - - lincat - Phrase, - - Greeting, - Order, - Question, - Sentence, - Object = SS ; - - Kind = {s,c : Str} ; -- c is classifier - - Quality, - Number, - - Speaker, - Hearer, - Gender, - Quantity = SS ; - - lin - PGreeting g s h = ss (g.s ++ s.s ++ h.s) ; - POrder g s h = ss (g.s ++ s.s ++ h.s) ; - PQuestion g s h = ss (g.s ++ s.s ++ h.s) ; - PSentence g s h = ss (g.s ++ s.s ++ h.s) ; - - MkSpeaker = cc2 ; - MkHearer _ _ = ss [] ; - - Male = ss "คระบ" ; - Female = ss "ค่ะ" ; - - Single, Many = ss [] ; - - Hello = ss ["สวัสดี"] ; - Thanks = ss ["ขอบคุณ"] ; - - IWant = prefixSS "เอา" ; - - DoYouHave = postfixSS ["มีไหม"] ; - IsIt x q = ss (x.s ++ q.s ++ "ไหม") ; - - ItIs = cc2 ; - - Indef k = ss (k.s ++ k.c ++ "นึ่ง") ; - This k = ss (k.s ++ k.c ++ "นี้") ; - - NumberObjects n k = ss (k.s ++ n.s ++ k.c) ; - - One = ss "นึ่ง" ; - Two = ss "สอง" ; - Five = ss "หา" ; - Ten = ss "สิบ" ; - - Mango = cls ["มะม่วง"] "ลูก" ; - Green = ss ["สีเขียว"] ; - - oper - cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ; - -} |
