mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-20 18:29:33 -06:00
72 lines
1.6 KiB
Plaintext
72 lines
1.6 KiB
Plaintext
--# -path=.:prelude
|
||
|
||
concrete TravelThai of Travel = open Prelude in {
|
||
|
||
flags coding=utf8 ;
|
||
|
||
-- this file is processed by
|
||
-- GF.Text.Thai.thaiFile "À€À€เÀ€à¸°à¸¡à¸›à¸¥à¹€À€à¸•à¸£à¸°à¸¶à¹€À€À€ระึเลÀ€à¸«à¸±à¸‡à¸<C3A0>" (Just TGT)
|
||
-- GF.Text.Thai.thaiPronFile "À€À€เÀ€à¸°à¸¡à¸›à¸¥à¹€À€à¸•à¸£à¸°à¸¶à¹€À€À€ระึเลÀ€à¸«à¸±à¸‡à¸<C3A0>" (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 ["มะม่วง"] "ลูà¸<C3A0>" ;
|
||
Green = ss ["สีเขียว"] ;
|
||
|
||
oper
|
||
cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
|
||
|
||
}
|