diff options
Diffstat (limited to 'devel/phrases/TravelThaiP.gf')
| -rw-r--r-- | devel/phrases/TravelThaiP.gf | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/devel/phrases/TravelThaiP.gf b/devel/phrases/TravelThaiP.gf new file mode 100644 index 000000000..5462563ec --- /dev/null +++ b/devel/phrases/TravelThaiP.gf @@ -0,0 +1,79 @@ +--# -path=.:prelude:resource-1.0/thai + +concrete TravelThaiP of Travel = NumeralThaiP ** open Prelude, StringsTha in { + +flags startcat = Order; language = en_US ; + +lincat + Order = { s : Str } ; + +printname cat + Order = "What would you like to say?" ; + +lin + order is = { s = is.s } ; + + + +lincat + Output = { s : Str } ; + +lin + confirm o t = { s = o.s } ; + + + + +flags unlexer=unwords ; + +lincat + Phrase = SS ; + Number = SS ; + +lin + Hello = ss ["sah wut dee"] ; + Goodbye = ss ["lah gorn"] ; + Please = ss "kor" ; + ThankYou = ss ["kop koon"] ; + YoureWelcome = ss ["yin dee"] ; + Yes = ss "chai" ; + No = ss "mai" ; + ExcuseAttention = ss ["koh tort"] ; + ExcuseGetPast = ss ["koh ahpai"] ; + Sorry = ss ["koh tort"] ; + IUnderstand = ss ["pom kow jai"] ; + IDontUnderstand = ss ["pom mai kow jai"] ; + Help = ss ["chew wai dewai"] ; + WhereAreToilets = ss ["hong narm yoo tee nai"] ; + + + SayNumber n = n ; + + One = ss "neung" ; + Two = ss "song" ; + Three = ss "sahm" ; + Four = ss "see" ; + Five = ss "hah" ; + Six = ss "hok" ; + Seven = ss "jet" ; + Eight = ss "baat" ; + Nine = ss "gow" ; + Ten = ss "sip" ; + +lincat + Product = {s : Str} ; + Kind = {s : Str} ; + +printname cat + Product = "what product do you mean?" ; + Kind = "what kind of product do you mean?" ; + +lin + HowMuchCost p = ss (p.s ++ "tao" ++ "rai") ; + + This k = ss (k.s ++ "nee") ; + + Beer = ss "beea" ; + Shirt = ss ("seua" ++ "cheut") ; + +}
\ No newline at end of file |