diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-25 16:54:35 +0000 |
| commit | e9e80fc389365e24d4300d7d5390c7d833a96c50 (patch) | |
| tree | f0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/travel | |
| parent | b96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff) | |
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/travel')
| -rw-r--r-- | examples/travel/Essential.gf | 30 | ||||
| -rw-r--r-- | examples/travel/EssentialThai.gf | 44 | ||||
| -rw-r--r-- | examples/travel/Travel.gf | 54 | ||||
| -rw-r--r-- | examples/travel/TravelTha.gf | 73 | ||||
| -rw-r--r-- | examples/travel/TravelThai.gf | 71 | ||||
| -rw-r--r-- | examples/travel/TravelThaiPron.gf | 71 |
6 files changed, 0 insertions, 343 deletions
diff --git a/examples/travel/Essential.gf b/examples/travel/Essential.gf deleted file mode 100644 index f90dc45b6..000000000 --- a/examples/travel/Essential.gf +++ /dev/null @@ -1,30 +0,0 @@ --- the essential phrases from Lone Planet Thai Phrasebook - -abstract Essential = { - -cat - Phrase ; - Number ; - -fun - Hello : Phrase ; - Goodbye : Phrase ; - Please : Phrase ; - ThankYou : Phrase ; - YoureWelcome : Phrase ; - Yes : Phrase ; - No : Phrase ; - ExcuseAttention : Phrase ; - ExcuseGetPast : Phrase ; - Sorry : Phrase ; - IUnderstand : Phrase ; - IDontUnderstand : Phrase ; - Help : Phrase ; - WhereAreToilets : Phrase ; - - - SayNumber : Number -> Phrase ; - - One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten : Number ; - -}
\ No newline at end of file diff --git a/examples/travel/EssentialThai.gf b/examples/travel/EssentialThai.gf deleted file mode 100644 index 25255b9a5..000000000 --- a/examples/travel/EssentialThai.gf +++ /dev/null @@ -1,44 +0,0 @@ ---# -path=.:prelude:resource-1.0/thai - --- the essential phrases from Lone Planet Thai Phrasebook - -concrete EssentialThai of Essential = open Prelude, StringsTha in { - -flags unlexer=concat ; -startcat=Phrase ; - -lincat - Phrase = SS ; - Number = SS ; - -lin - Hello = ss (sawat_s ++ dii_s) ; - Goodbye = ss (laa_s ++ koon_s) ; - Please = ss (khoo_s) ; - ThankYou = ss (khoop_s ++ khun_s) ; - YoureWelcome = ss (yin_s ++ dii_s) ; - Yes = ss (chay_s) ; - No = ss (may_s) ; - ExcuseAttention = ss (khoo_s ++ thoot_s) ; - ExcuseGetPast = ss (khoo_s ++ aphai_s) ; - Sorry = ss (khoo_s ++ thoot_s) ; - IUnderstand = ss (phom_s ++ khow_s ++ jai_s) ; - IDontUnderstand = ss (phom_s ++ may_s ++ khow_s ++ jai_s) ; - Help = ss (chuay_s ++ duay_s) ; - WhereAreToilets = ss (hoog_s ++ nam_s ++ yuu_s ++ thii_s ++ nai_s) ; - - - SayNumber n = n ; - - One = ss (nvg_s) ; - Two = ss (soog_s) ; - Three = ss (saam_s) ; - Four = ss (sii_s) ; - Five = ss (haa_s) ; - Six = ss (hok_s) ; - Seven = ss (cet_s) ; - Eight = ss (peet_s) ; - Nine = ss (kaaw_s) ; - Ten = ss (sip_s) ; - -}
\ No newline at end of file diff --git a/examples/travel/Travel.gf b/examples/travel/Travel.gf deleted file mode 100644 index 77e2ec234..000000000 --- a/examples/travel/Travel.gf +++ /dev/null @@ -1,54 +0,0 @@ -abstract Travel = { - - flags startcat=Phrase ; - - cat - Phrase ; - - Greeting ; - Order ; - Question ; - Sentence ; - - Object ; - Kind ; - Quality ; - Number ; - - Speaker ; - Hearer ; - Gender ; - Quantity ; - - fun - PGreeting : Greeting -> Speaker -> Hearer -> Phrase ; - POrder : Order -> Speaker -> Hearer -> Phrase ; - PQuestion : Question -> Speaker -> Hearer -> Phrase ; - PSentence : Sentence -> Speaker -> Hearer -> Phrase ; - - MkSpeaker : Gender -> Quantity -> Speaker ; - MkHearer : Gender -> Quantity -> Hearer ; - - Male, Female : Gender ; - Single, Many : Quantity ; - - Hello : Greeting ; - Thanks : Greeting ; - - IWant : Object -> Order ; - - DoYouHave : Kind -> Question ; - IsIt : Object -> Quality -> Sentence ; - - ItIs : Object -> Quality -> Sentence ; - - Indef : Kind -> Object ; - This : Kind -> Object ; - NumberObjects : Number -> Kind -> Object ; - - One, Two, Five, Ten : Number ; - - Mango : Kind ; - Green : Quality ; - -} diff --git a/examples/travel/TravelTha.gf b/examples/travel/TravelTha.gf deleted file mode 100644 index 882745bef..000000000 --- a/examples/travel/TravelTha.gf +++ /dev/null @@ -1,73 +0,0 @@ ---# -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} ; - -} diff --git a/examples/travel/TravelThai.gf b/examples/travel/TravelThai.gf deleted file mode 100644 index 925fd3903..000000000 --- a/examples/travel/TravelThai.gf +++ /dev/null @@ -1,71 +0,0 @@ ---# -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} ; - -} diff --git a/examples/travel/TravelThaiPron.gf b/examples/travel/TravelThaiPron.gf deleted file mode 100644 index b152c4d2a..000000000 --- a/examples/travel/TravelThaiPron.gf +++ /dev/null @@ -1,71 +0,0 @@ ---# -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} ; - -} |
