diff tests/agcl/parsifal/tcsoff2.syn @ 0:13d2b8934445

Import AnaGram (near-)release tree into Mercurial.
author David A. Holland
date Sat, 22 Dec 2007 17:52:45 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/agcl/parsifal/tcsoff2.syn	Sat Dec 22 17:52:45 2007 -0500
@@ -0,0 +1,32 @@
+[
+  ~case sensitive
+  event driven
+]
+
+eof = -1
+eol = '\n'
+
+grammar
+ -> [word...|eol...|string 1 | string 2]/..., eof
+
+word
+ -> "yes"   =printf("Input was yes\n");
+ -> "no"    =printf("Input was no\n");
+
+string 1
+ -> 'a-n'... = printf("input was 'a-n'...\n");
+
+string 2
+ -> 'O-Z'... = printf("input was 'O-Z'...\n");
+
+
+{
+  int main(void) {
+    int c;
+    do {
+      c = PCB.input_code = getchar();
+      tcsoff2();
+    } while (c != -1);
+  }
+  return 0;
+}