forked from GitHub/gf-core
74 lines
1.5 KiB
Plaintext
74 lines
1.5 KiB
Plaintext
--# -path=.:prelude
|
|
|
|
concrete TravelTha of Travel = open Prelude in {
|
|
|
|
flags coding=utf8 ;
|
|
|
|
-- this file is processed by
|
|
-- GF.Text.Thai.thaiFile "../examples/travel/TravelTha.gf"
|
|
(Just "../examples/travel/TravelThai.gf")
|
|
-- GF.Text.Thai.thaiPronFile "../examples/travel/TravelTha.gf"
|
|
(Just "../examples/travel/TravelThaiPron.gf")
|
|
-- 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 "k2ra.b" ;
|
|
Female = ss "k2T1a." ;
|
|
|
|
Single, Many = ss [] ;
|
|
|
|
Hello = ss ["swas di:"] ;
|
|
Thanks = ss ["k1Ob k2un'"] ;
|
|
|
|
IWant = prefixSS "eOa:" ;
|
|
|
|
DoYouHave = postfixSS ["mi: a&hm"] ;
|
|
IsIt x q = ss (x.s ++ q.s ++ "a&hm") ;
|
|
|
|
ItIs = cc2 ;
|
|
|
|
Indef k = ss (k.s ++ k.c ++ "nvT1g") ;
|
|
This k = ss (k.s ++ k.c ++ "ni:T2") ;
|
|
|
|
NumberObjects n k = ss (k.s ++ n.s ++ k.c) ;
|
|
|
|
One = ss "nvT1g" ;
|
|
Two = ss "sOg" ;
|
|
Five = ss "ha:" ;
|
|
Ten = ss "sib" ;
|
|
|
|
Mango = cls ["ma. mT1wg"] "lu:k" ;
|
|
Green = ss ["si: ek1i:yw"] ;
|
|
|
|
oper
|
|
cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
|
|
|
|
}
|