1 %option nounput noinput
3 /* $OpenBSD: tokenizer.l,v 1.9 2017/06/15 13:48:42 bcallah Exp $ */
5 * Copyright (c) 2004 Marc Espie <espie@cvs.openbsd.org>
7 * Permission to use, copy, modify, and distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
17 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
28 extern void m4_warnx(const char *, ...);
30 extern int32_t yylval;
33 int32_t parse_radix(void);
34 extern int yylex(void);
36 #define YY_DECL int yylex(void)
44 radix 0[rR][0-9]+:[0-9a-zA-Z]+
49 {ws} {/* just skip it */}
50 {hex}|{oct}|{dec} { yylval = number(); return(NUMBER); }
51 {radix} { if (mimic_gnu) {
52 yylval = parse_radix(); return(NUMBER);
59 "<<" { return(LSHIFT); }
60 ">>" { return(RSHIFT); }
63 "&&" { return(LAND); }
65 "**" { if (mimic_gnu) { return (EXPONENT); } }
66 . { return yytext[0]; }
75 l = strtol(yytext, NULL, 0);
76 if (((l == LONG_MAX || l == LONG_MIN) && errno == ERANGE) ||
77 l > INT32_MAX || l < INT32_MIN) {
78 m4_warnx("numeric overflow in expr: %s", yytext);
92 base = strtol(yytext+2, &next, 0);
93 if (base > 36 || next == NULL) {
94 m4_warnx("error in number %s", yytext);
98 if (*next >= '0' && *next <= '9')
100 else if (*next >= 'a' && *next <= 'z')
101 d = *next - 'a' + 10;
103 assert(*next >= 'A' && *next <= 'Z');
104 d = *next - 'A' + 10;
107 m4_warnx("error in number %s", yytext);