1// re2c $INPUT -o $OUTPUT -is
2char *scan(char *p)
3{
4/*!re2c
5 re2c:define:YYCTYPE = "unsigned char";
6 re2c:define:YYCURSOR = p;
7 re2c:yyfill:enable = 0;
8 re2c:yych:conversion = 1;
9 re2c:indent:top = 1;
10 [0-9]+ {return p;}
11 [\000-\377] {return (char*)0;}
12*/
13}
14
15