mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 11:19:32 -06:00
72 lines
1.4 KiB
Plaintext
72 lines
1.4 KiB
Plaintext
--# -path=.:prelude
|
|
|
|
concrete TravelThaiPron of Travel = open Prelude in {
|
|
|
|
flags coding=utf8 ;
|
|
|
|
-- this file is processed by
|
|
-- GF.Text.Thai.thaiFile "m^eaeaveaveapltrrlhg-" (Just TGT)
|
|
-- GF.Text.Thai.thaiPronFile "m^eaeaveaveapltrrlhg-" (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 "khr'ap" ;
|
|
Female = ss "kh^a" ;
|
|
|
|
Single, Many = ss [] ;
|
|
|
|
Hello = ss ["s`awt d-ii"] ;
|
|
Thanks = ss ["kh`Op kh-un"] ;
|
|
|
|
IWant = prefixSS "O-eaa" ;
|
|
|
|
DoYouHave = postfixSS ["m-ii m~ay"] ;
|
|
IsIt x q = ss (x.s ++ q.s ++ "m~ay") ;
|
|
|
|
ItIs = cc2 ;
|
|
|
|
Indef k = ss (k.s ++ k.c ++ "n^vg") ;
|
|
This k = ss (k.s ++ k.c ++ "n~ii") ;
|
|
|
|
NumberObjects n k = ss (k.s ++ n.s ++ k.c) ;
|
|
|
|
One = ss "n^vg" ;
|
|
Two = ss "s~Og" ;
|
|
Five = ss "h~aa" ;
|
|
Ten = ss "s`ip" ;
|
|
|
|
Mango = cls ["m'a m^owg"] "l^uuk" ;
|
|
Green = ss ["s~ii kh`eiiyw"] ;
|
|
|
|
oper
|
|
cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
|
|
|
|
}
|