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/TramI.gf | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 examples/tram/TramI.gf (limited to 'examples/tram/TramI.gf') diff --git a/examples/tram/TramI.gf b/examples/tram/TramI.gf new file mode 100644 index 000000000..4ac7775ea --- /dev/null +++ b/examples/tram/TramI.gf @@ -0,0 +1,44 @@ +incomplete concrete TramI of Tram = open Multimodal, Math in { + +flags startcat=Query ; lexer=textlit ; + +lincat + Query = Phr ; -- top level, plain string + Input = MS ; -- two parallel sequences (text and clicks) + Dep, Dest = MAdv ; + Click = Point ; + +lin + QInput = PhrMS PPos ; + + GoFromTo x y = + MPredVP (DemNP (UsePron i_Pron)) + (MAdvVP (MAdvVP (MComplVV want_VV (MUseV go_V)) x) y) ; + + GoToFrom x y = + MPredVP (DemNP (UsePron i_Pron)) + (MAdvVP (MAdvVP (MComplVV want_VV (MUseV go_V)) x) y) ; + + ComeFrom x = + MPredVP (DemNP (UsePron i_Pron)) + (MAdvVP (MComplVV want_VV (MUseV go_V)) x) ; + + GoTo x = + MPredVP (DemNP (UsePron i_Pron)) + (MAdvVP (MComplVV want_VV (MUseV go_V)) x) ; + + DepClick = here7from_MAdv ; + DestClick = here7to_MAdv ; + DepHere = DemAdv here7from_Adv ; + DestHere = DemAdv here7to_Adv ; + DepNamed s = MPrepNP from_Prep (DemNP (UsePN (SymbPN (MkSymb s)))) ; + DestNamed s = MPrepNP to_Prep (DemNP (UsePN (SymbPN (MkSymb s)))) ; + + CCoord x y = {point = "(" ++ x.s ++ "," ++ y.s ++ ")" ; lock_Point = <>} ; + +-- Place = DNP ; -- name + click - not possible for "here" +-- PClick c = this_DNP c ; +-- PHere = DemNP this_NP ; +-- PNamed s = DemNP (UsePN (SymbPN s)) ; + +} -- cgit v1.2.3