blob: f1a07af09b36bc9d43fd57629dd858c3968d9ffd (
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
|
--# -resource=multimodal/MultimodalEng.gfc
--# -path=multimodal:present:mathematical:prelude
incomplete concrete TramI of Tram = open Multimodal, DemRes, 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_MAdv y_MAdv = in MultimodalEng.MS "I want to go X Y" ;
ComeToFrom x_MAdv y_MAdv = in MultimodalEng.MS "I want to come X Y" ;
ComeFrom x_MAdv = in MultimodalEng.MS "I want to come X" ;
GoTo x_MAdv = in MultimodalEng.MS "I want to go X" ;
DepClick c = mkDem Adv (in MAdv "from here") c ;
DestClick c = mkDem Adv (in MAdv "to here") c ;
DepHere = DemAdv (in Adv "from here") ;
DestHere = DemAdv (in Adv "to here") ;
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 =
}
|
