diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-09 16:28:45 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-09 16:28:45 +0000 |
| commit | 5766d566a8477cd8d651eb51cd6fb2359a976be5 (patch) | |
| tree | 2cc3b1d1a709cf3941892e82889117305616436f /examples/tram/TramI.gf | |
| parent | f63542c17fd5494166e7ed75809f4bc5516c0cd1 (diff) | |
multimodal for Swedish
Diffstat (limited to 'examples/tram/TramI.gf')
| -rw-r--r-- | examples/tram/TramI.gf | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/examples/tram/TramI.gf b/examples/tram/TramI.gf deleted file mode 100644 index 384cdbf3b..000000000 --- a/examples/tram/TramI.gf +++ /dev/null @@ -1,44 +0,0 @@ -incomplete concrete TramI of Tram = open Multimodal, Math in { - -flags startcat=Query ; lexer=textlit ; - -lincat - Dep, Dest = DAdv ; - Query = Phr ; -- top level, plain string - Input = MS ; -- two parallel sequences (text and clicks) - Click = Point ; - -lin - QInput i = SentMS PPos i ; - - GoFromTo x y = - ModDemV want_VV go_V (DemNP i_NP) - (ConsDAdv x (ConsDAdv y BaseDAdv)) ; - - GoToFrom x y = - ModDemV want_VV go_V (DemNP i_NP) - (ConsDAdv x (ConsDAdv y BaseDAdv)) ; - - ComeFrom x = - ModDemV want_VV come_V (DemNP i_NP) - (ConsDAdv x BaseDAdv) ; - - GoTo x = - ModDemV want_VV go_V (DemNP i_NP) - (ConsDAdv x BaseDAdv) ; - - DepClick c = here7from_DAdv c ; - DestClick c = here7to_DAdv c ; - DepHere = DemAdv here7from_Adv ; - DestHere = DemAdv here7to_Adv ; - DepNamed s = PrepDNP from_Prep (DemNP (UsePN (SymbPN s))) ; - DestNamed s = PrepDNP to_Prep (DemNP (UsePN (SymbPN s))) ; - - CCoord x y = {s5 = "(" ++ 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)) ; - -} |
