blob: 31dbaab5911312e569865ac57fba5b71a4ad8716 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
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 =
}
|
