summaryrefslogtreecommitdiff
path: root/examples/travel
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/travel
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (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.gf30
-rw-r--r--examples/travel/EssentialThai.gf44
-rw-r--r--examples/travel/Travel.gf54
-rw-r--r--examples/travel/TravelTha.gf73
-rw-r--r--examples/travel/TravelThai.gf71
-rw-r--r--examples/travel/TravelThaiPron.gf71
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} ;
-
-}