diff tests/agcl/parsifal/test1.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/test1.syn	Sat Dec 22 17:52:45 2007 -0500
@@ -0,0 +1,37 @@
+{
+#include <stdio.h>
+}
+
+[
+  //event driven
+  distinguish keywords {'a-z' + 'A-Z' + '0-9'}
+]
+
+line $
+ -> "if", '(', ~(eol + '(')?..., eol     =printf("if\n");
+ -> "ifx",'(', ~(eol + '(')?..., eol     =printf("ifx\n");
+ -> other stuff, eol
+
+other stuff
+ -> ~eol:c                        =printf("%c", c);
+ -> other stuff, ~eol:c           =printf("%c", c);
+
+
+eol = '\n'
+
+{
+  int main(void) {
+/*
+    int c;
+    init_test2();
+    do {
+      c = getchar();
+      PCB.input_code = c;
+      test2();
+    } while ( c != '\n');
+*/
+    test1();
+    return 0;
+  }
+}
+