I want phrases in thai travel

4 files changed, 13 insertions, 11 deletions

diff --git a/devel/phrases/Travel.gf b/devel/phrases/Travel.gf
index f7fa73bb5..144499815 100644
--- a/devel/phrases/Travel.gf
+++ b/devel/phrases/Travel.gf
@@ -45,6 +45,7 @@ cat
 
 fun
   HowMuchCost : Product -> Order ;
+  IWantToHave : Product -> Order ;
 
   This : Kind -> Product ;
 
diff --git a/devel/phrases/TravelEng.gf b/devel/phrases/TravelEng.gf
index e04e7fce4..e238603d4 100644
--- a/devel/phrases/TravelEng.gf
+++ b/devel/phrases/TravelEng.gf
@@ -66,21 +66,20 @@ printname cat
   Kind = "what kind of product do you mean?" ;
 
 lin
-  HowMuchCost p = {s = ["how much does"] ++ 
-    variants {
-    p.s ;
-    -- no kind given
-    "this" ;
-    -- no product given at all
-    "it"
-    } ++ 
-    "cost"} ;
+  HowMuchCost p = {s = ["how much does"] ++ item p ++ "cost"} ;
+  IWantToHave p = {s = ["I would like to have"] ++ item p} ;
 
-  This k = {s = "this" ++ k.s} ;
+  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"
+    } ;
 
 }
diff --git a/devel/phrases/TravelTha.gf b/devel/phrases/TravelTha.gf
index d697b0db5..c637f0d1c 100644
--- a/devel/phrases/TravelTha.gf
+++ b/devel/phrases/TravelTha.gf
@@ -70,6 +70,7 @@ printname cat
 
 lin
   HowMuchCost p = ss (p.s ++ thao_s ++ rai_s) ;
+  IWantToHave p = ss (khoo_s ++ p.s ++ noi_s) ;
 
   This k = ss (k.s ++ nii_s) ;
 
diff --git a/devel/phrases/TravelThaiP.gf b/devel/phrases/TravelThaiP.gf
index 5462563ec..b0d6f9e2d 100644
--- a/devel/phrases/TravelThaiP.gf
+++ b/devel/phrases/TravelThaiP.gf
@@ -70,6 +70,7 @@ printname cat
 
 lin
   HowMuchCost p = ss (p.s ++ "tao" ++ "rai") ;
+  IWantToHave p = ss ("kor" ++ p.s ++ "noy") ;
 
   This k = ss (k.s ++ "nee") ;