diff options
Diffstat (limited to 'old-examples/tram/TramI.gf')
| -rw-r--r-- | old-examples/tram/TramI.gf | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/old-examples/tram/TramI.gf b/old-examples/tram/TramI.gf deleted file mode 100644 index 31dbaab59..000000000 --- a/old-examples/tram/TramI.gf +++ /dev/null @@ -1,46 +0,0 @@ -incomplete concrete TramI of Tram = open Multimodal, Symbol in { - -flags startcat=Query ; lexer=literals ; - -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) ; - - ComeToFrom x y = - MPredVP (DemNP (UsePron i_Pron)) - (MAdvVP (MAdvVP (MComplVV want_VV (MUseV come_V)) x) y) ; - - ComeFrom x = - MPredVP (DemNP (UsePron i_Pron)) - (MAdvVP (MComplVV want_VV (MUseV come_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)) ; - ----- FromThisPlace = - -} |
