From 8ee11c0e7edaa32b606ac96ec24cc2f8d0bca2e3 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 9 Dec 2005 16:29:49 +0000 Subject: tram with new API --- examples/tram/Tram.gf | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 examples/tram/Tram.gf (limited to 'examples/tram/Tram.gf') diff --git a/examples/tram/Tram.gf b/examples/tram/Tram.gf new file mode 100644 index 000000000..bcd9f7b7c --- /dev/null +++ b/examples/tram/Tram.gf @@ -0,0 +1,33 @@ +abstract Tram = { + +cat + Dep ; -- from here, from Angered + Dest ; -- to here, to Angered + Query ; -- message sent to the dialogue manager: sequentialized + Input ; -- user input: parallel text and clicks + Click ; -- map clicks + +fun + QInput : Input -> Query ; -- sequentialize user input + +fun + GoFromTo : Dep -> Dest -> Input ; -- user input "want to go from a to b" + GoToFrom : Dest -> Dep -> Input ; -- user input "want to go to a from b" + ComeFrom : Dep -> Input ; -- user input "want to come from x (to where I am now) + GoTo : Dest -> Input ; -- user input "want to go to x (from where I am now) + + DepClick : Click -> Dep ; -- "from here" with click + DestClick : Click -> Dest ; -- "to here" with click + DepHere : Dep ; -- "from here" indexical + DestHere : Dest ; -- "to here" indexical + DepNamed : String -> Dep ; -- from a place name + DestNamed : String -> Dest ; -- to a place name + + CCoord : Int -> Int -> Click ; + +--- the syntax of here (prep + adverb, not prep + np) prevent these +-- Place ; -- any way to identify a place: name, click, or indexical "here" +-- PClick : Click -> Place ; -- click associated with a "here" +-- PHere : Place ; -- indexical "here", without a click + +} -- cgit v1.2.3