godis tram grammars, augmented with Fin

examples/godis-tram/Tram/TramUserEng.gf

@@ -0,0 +1,59 @@
+--# -path=.:../Common:prelude:resource-1.0/abstract:resource-1.0/common:resource-1.0/english
+
+concrete TramUserEng of TramUser = GodisUserEng, StopsEng ** TramUserI
+    with (Grammar=GrammarEng), (GodisLang=GodisLangEng), 
+         (TramSystemI=TramSystemEng), (TramLexicon=TramLexiconEng);
+
+-- concrete TramUserEng of TramUser = GodisUserEng, StopsEng ** 
+--     open Prelude, GodisLangEng, TramSystemEng, ResEng, TramLexiconEng in {
+
+-- ----------------------------------------------------------------------
+-- -- Predicates and questions
+
+-- lin
+
+-- shortest_route 
+--     = variants{ askQS shortest_route_Q;
+-- 		ss (variants{["find"]; ["find out"]; ["get"]; ["ask for"]} ++ 
+-- 			variants{["a route"]; ["shortest route"];["a way"];["a itinerary"]})};
+
+-- shortest_route__dept x 
+--     = ss ( ["i want to go from"] ++ x.s!Nom); 
+ 
+
+-- shortest_route__dest x 
+--     = ss ( ["i want to go to"] ++ x.s!Nom);
+
+
+-- shortest_route__dept_dest x y 
+--     = ss ( variants{["i want to go from"] ++ x.s!Nom ++ "to" ++ y.s!Nom;
+-- 	["i want to go to"] ++ y.s!Nom ++ "from" ++ x.s!Nom} );
+
+
+-- dest_stop x = ss( "to" ++ x.s!Nom);	
+-- dept_stop x = ss( "from" ++ x.s!Nom);
+
+-- dept_dest_stop x y = ss(variants{"to" ++ y.s!Nom ++ "from" ++ x.s!Nom; 
+-- "from" ++ x.s!Nom ++ "to" ++ y.s!Nom} );
+
+-- stop_dest_stop x y = ss(x.s!Nom ++ "to" ++ y.s!Nom);
+-- stop_dept_stop x y = ss(x.s!Nom ++ "from" ++ y.s!Nom);
+
+
+-- ----------------------------------------------------------------------
+-- -- short answers
+-- lin
+
+-- stop   x = ansNP x;
+
+
+-- ----------------------------------------------------------------------
+-- -- Actions
+-- lin
+
+-- top = reqVP top;
+
+-- help = reqVP help; 
+
+-- }
+