From b5bb4fc2b5b1d7e8ce17eb87722ba11e46a2ab2b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 29 Apr 2004 04:03:19 +0000
Subject: multimodality exx

---
 grammars/timetable/click.gf | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 grammars/timetable/click.gf

(limited to 'grammars/timetable/click.gf')

diff --git a/grammars/timetable/click.gf b/grammars/timetable/click.gf
new file mode 100644
index 000000000..d752fb027
--- /dev/null
+++ b/grammars/timetable/click.gf
@@ -0,0 +1,36 @@
+cat
+  Request ;
+  Place ;
+  Position ;
+
+fun
+  GoTo : Place -> Request ;
+  GoFromTo : Place -> Place -> Request ;
+
+  Named : String -> Place ;
+  Pointed : Position -> Place ;
+
+  Pos : Int -> Int -> Position ;
+
+lincat
+  Request, Place = {s,s2 : Str} ;
+
+lin
+  GoTo x = {
+    s = ["I want to go to"] ++ x.s ; 
+    s2 = x.s2
+    } ;
+  GoFromTo x y = {
+    s = ["I want to go from"] ++ x.s ++ "to" ++ y.s ; 
+    s2 = x.s2 ++ "," ++ y.s2
+    } ;
+
+  Named c = {
+    s = c.s ;
+    s2 = []
+    } ;
+  Pointed p = {
+    s = "here" ;
+    s2 = p.s
+    } ;
+  Pos x y = {s = "(" ++ x.s ++ "," ++ y.s ++ ")"} ;
-- 
cgit v1.2.3