Permalink
Browse files

Merge branch 'refs/heads/master' of https://kanalj@github.com/phyrex1…

…an/PathPal.git
  • Loading branch information...
2 parents 1bd4269 + d3c75db commit 05630db46a7695eeb0ffb7f95a2050983199b69d @northOfThule northOfThule committed May 6, 2011
View
Binary file not shown.
@@ -0,0 +1,17 @@
+abstract Locator = {
+ flags startcat = Phrase ;
+ cat
+ Phrase;
+ Adress;
+ AdressTree;
+ StoreType;
+ Answer;
+ fun
+ GoTo : AdressTree -> Phrase ;
+ AdressT : String -> AdressTree -> AdressTree;
+ AdressL : String -> AdressTree;
+ GoFromTo : AdressTree -> AdressTree -> Phrase;
+ FindStore : StoreType -> Phrase ;
+ WalkOrTrans : Answer -> Phrase;
+ Walking, Transportation: Answer;
+}
@@ -0,0 +1,16 @@
+concrete LocatorEng of Locator = {
+ lincat
+ Phrase,Adress,StoreType,Answer,AdressTree= {s : Str} ;
+ lin
+ GoTo it = {s = "I need to go to" ++ it.s} ;
+ GoFromTo it it' = {s = "I need to go from" ++ it.s ++ "to" ++ it'.s} ;
+ FindStore it = {s = "Where is the nearest" ++ it.s ++ "store"} ;
+
+ AdressT i i' = {s = i.s ++ i'.s} ;
+ AdressL i = {s = i.s} ;
+
+ WalkOrTrans item = {s = item.s} ;
+
+ Walking = {s = "Walking"} ;
+ Transportation = {s = "Transportation"} ;
+}
@@ -0,0 +1,16 @@
+concrete LocatorSwe of Locator = {
+ lincat
+ Phrase,Adress,StoreType,Answer,AdressTree= {s : Str} ;
+ lin
+ GoTo it = {s = "Jag måste gå till" ++ it.s} ;
+ GoFromTo i i' = {s = "Jag måste gå från" ++ i.s ++ "till" ++ i'.s} ;
+ FindStore item = {s = "Var är närmaste" ++ item.s} ;
+
+ AdressT i i' = {s = i.s ++ i'.s} ;
+ AdressL i = {s = i.s} ;
+
+ WalkOrTrans item = {s = item.s} ;
+
+ Walking = {s = "Gående"} ;
+ Transportation = {s = "Transport"} ;
+}

0 comments on commit 05630db

Please sign in to comment.