mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-06-24 10:41:09 -06:00
aarne
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 "À€À€เÀ€à¸°à¸¡à¸›à¸¥à¹€À€à¸•à¸£à¸°à¸¶à¹€À€À€ระึเลÀ€à¸«à¸±à¸‡à¸�" (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} ;
|
|
|
|
}
|