diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
| commit | 73e401cee21fa61dcf9900d8d2b40ddd39f4e612 (patch) | |
| tree | c5569db477fd0281162fd7ba29cf8e60d24b364e /devel/phrases/TravelEng.gf | |
| parent | 64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff) | |
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/phrases/TravelEng.gf')
| -rw-r--r-- | devel/phrases/TravelEng.gf | 85 |
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" - } ; - -} |
