view tests/agcl/parsifal/tcsoff2.syn @ 9:60b08b68c750

Switch to static inline as an expedient build fix. Should probably set this up with working C99 inline but for the moment I don't have the energy.
author David A. Holland
date Mon, 30 May 2022 23:56:45 -0400
parents 13d2b8934445
children
line wrap: on
line source

[
  ~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;
}