view tests/agcl/parsifal/tcsoff2.syn @ 24:a4899cdfc2d6 default tip

Obfuscate the regexps to strip off the IBM compiler's copyright banners. I don't want bots scanning github to think they're real copyright notices because that could cause real problems.
author David A. Holland
date Mon, 13 Jun 2022 00:40:23 -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;
}