diff options
| author | aarne <aarne@chalmers.se> | 2011-11-06 21:13:09 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-11-06 21:13:09 +0000 |
| commit | 6b0a9291977b849f5fd4dc38cc990008e61cd4f5 (patch) | |
| tree | 7fb167e7ea15584107cfd35a773747dd5d3ad7ef /examples/phrasebook/src | |
| parent | 0d04d5624139c4c166ef57c28c33fabca43fed5d (diff) | |
Thai phrasebook started: Greetings OK
Diffstat (limited to 'examples/phrasebook/src')
| -rw-r--r-- | examples/phrasebook/src/GreetingsTha.gf | 34 | ||||
| -rw-r--r-- | examples/phrasebook/src/mkThai.gfs | 1 |
2 files changed, 35 insertions, 0 deletions
diff --git a/examples/phrasebook/src/GreetingsTha.gf b/examples/phrasebook/src/GreetingsTha.gf new file mode 100644 index 000000000..962fe78f9 --- /dev/null +++ b/examples/phrasebook/src/GreetingsTha.gf @@ -0,0 +1,34 @@ +concrete GreetingsTha of Greetings = + SentencesTha [Greeting,mkGreeting] ** + open ResTha, Prelude in { + +-- สุคสันต์วันเกิด + +flags coding = utf8 ; + +lin + GBye = mkGreeting (thbind "ecO" "kan" "na.") ; + GCheers = mkGreeting (thbind "a&c2" "o:y") ; + GDamn = mkGreeting (thbind "a'c2T1g") ; ---- google + GExcuse, GExcusePol = mkGreeting (thbind "k1O" "o:t5s.") ; + GGoodDay = mkGreeting (thbind "swas" "di:") ; + GGoodEvening = mkGreeting (thbind "swas" "di:") ; + GGoodMorning = mkGreeting (thbind "swas" "di:") ; + GGoodNight = mkGreeting (thbind "ra:" "tri:" "swas" "diK") ; + GGoodbye = mkGreeting (thbind "la:" "kT1On") ; + GHello = mkGreeting (thbind "hwas" "di:") ; + GHelp = mkGreeting (thbind "c2T1wy" "dT2wy") ; + GHowAreYou = mkGreeting (thbind "sba:y" "di:" "a&hm") ; + GLookOut = mkGreeting (thbind "ra." "wag") ; ---- google + GNiceToMeetYou, GNiceToMeetYouPol = + mkGreeting (thbind "yin" "di:" "t2i:T1" "a&dT2" "ru:T2" "cak") ; + GPleaseGive, GPleaseGivePol = mkGreeting (thbind "c2T1wy") ; ---- + GSeeYouSoon = mkGreeting (thbind "ecO" "kan" "na.") ; + GSorry, GSorryPol = mkGreeting (thbind "k1O" "o:t5s.") ; + GThanks = mkGreeting (thbind "k1Ob" "k2un'") ; + GTheCheck = mkGreeting (thbind "ec2Sk2" "bil") ; + GCongratulations = mkGreeting (thbind "yin" "di:" "dT2wy") ; + GHappyBirthday = mkGreeting (thbind "suk2" "santK" "wan" "ekid") ; + GGoodLuck = mkGreeting (thbind "o:ck2" "di:" "na.") ; +} + diff --git a/examples/phrasebook/src/mkThai.gfs b/examples/phrasebook/src/mkThai.gfs new file mode 100644 index 000000000..e1efbdcdf --- /dev/null +++ b/examples/phrasebook/src/mkThai.gfs @@ -0,0 +1 @@ +rf -file=src/GreetingsTha.gf | ps -env=quotes -to_thai | wf -file=GreetingsTha.gf |