summaryrefslogtreecommitdiff
path: root/devel/phrases/TravelEng.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-27 11:59:03 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-27 11:59:03 +0000
commit73e401cee21fa61dcf9900d8d2b40ddd39f4e612 (patch)
treec5569db477fd0281162fd7ba29cf8e60d24b364e /devel/phrases/TravelEng.gf
parent64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff)
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/phrases/TravelEng.gf')
-rw-r--r--devel/phrases/TravelEng.gf85
1 files changed, 0 insertions, 85 deletions
diff --git a/devel/phrases/TravelEng.gf b/devel/phrases/TravelEng.gf
deleted file mode 100644
index e238603d4..000000000
--- a/devel/phrases/TravelEng.gf
+++ /dev/null
@@ -1,85 +0,0 @@
---# -path=.:prelude:resource-1.0/thai
-
-concrete TravelEng of Travel = NumeralEng ** open Prelude 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 "hello" ;
- Goodbye = ss "bye" ;
- Please = ss "please" ;
- ThankYou = ss "thanks" ;
- YoureWelcome = ss ["you are welcome"] ;
- Yes = ss "yes" ;
- No = ss "no" ;
- ExcuseAttention = ss ["excuse me"] ;
- ExcuseGetPast = ss ["excuse me"] ;
- Sorry = ss "sorry" ;
- IUnderstand = ss ["I understand"] ;
- IDontUnderstand = ss ["I do not understand"] ;
- Help = ss "help" ;
- WhereAreToilets = ss ["where are the toilets"] ;
-
-
- SayNumber n = n ;
-
- One = ss "one" ;
- Two = ss "two" ;
- Three = ss "three" ;
- Four = ss "four" ;
- Five = ss "five" ;
- Six = ss "six" ;
- Seven = ss "seven" ;
- Eight = ss "eight" ;
- Nine = ss "nine" ;
- Ten = ss "ten" ;
-
-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 = {s = ["how much does"] ++ item p ++ "cost"} ;
- IWantToHave p = {s = ["I would like to have"] ++ item p} ;
-
- This k = {s = "this" ++ variants {k.s ; []}} ;
-
- Beer = {s = "beer"} ;
- Shirt = {s = "shirt"} ;
-
-oper
- item : SS -> Str = \p ->
- variants {
- p.s ;
- -- no product given at all
- "it"
- } ;
-
-}