view 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 source

{
#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;
  }
}