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