scan.l revision 203443
1%{ 2/* $OpenBSD: scan.l,v 1.23 2009/10/27 23:59:36 deraadt Exp $ */ 3 4/* 5 * Copyright (c) 2003, Otto Moerbeek <otto@drijf.net> 6 * 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. 10 * 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. 18 */ 19 20#include <sys/cdefs.h> 21__FBSDID("$FreeBSD: head/usr.bin/bc/scan.l 203443 2010-02-03 21:06:13Z gabor $"); 22 23#include <err.h> 24#include <errno.h> 25#include <signal.h> 26#include <stdbool.h> 27#include <string.h> 28#include <unistd.h> 29 30#include "extern.h" 31#include "bc.h" 32#include "pathnames.h" 33 34int lineno; 35 36static char *strbuf = NULL; 37static size_t strbuf_sz = 1; 38static bool dot_seen; 39 40static void init_strbuf(void); 41static void add_str(const char *); 42 43%} 44 45%option always-interactive 46 47DIGIT [0-9A-F] 48ALPHA [a-z_] 49ALPHANUM [a-z_0-9] 50 51%x comment string number 52 53%% 54 55"/*" BEGIN(comment); 56<comment>{ 57 "*/" BEGIN(INITIAL); 58 \n lineno++; 59 \* ; 60 [^*\n]+ ; 61 <<EOF>> fatal("end of file in comment"); 62} 63 64\" BEGIN(string); init_strbuf(); 65<string>{ 66 [^"\n\\\[\]]+ add_str(yytext); 67 \[ add_str("\\["); 68 \] add_str("\\]"); 69 \\ add_str("\\\\"); 70 \n add_str("\n"); lineno++; 71 \" BEGIN(INITIAL); yylval.str = strbuf; return STRING; 72 <<EOF>> fatal("end of file in string"); 73} 74 75{DIGIT}+ { 76 BEGIN(number); 77 dot_seen = false; 78 init_strbuf(); 79 add_str(yytext); 80 } 81\. { 82 BEGIN(number); 83 dot_seen = true; 84 init_strbuf(); 85 add_str("."); 86 } 87<number>{ 88 {DIGIT}+ add_str(yytext); 89 \. { 90 if (dot_seen) { 91 BEGIN(INITIAL); 92 yylval.str = strbuf; 93 unput('.'); 94 return (NUMBER); 95 } else { 96 dot_seen = true; 97 add_str("."); 98 } 99 } 100 \\\n[ \t]* lineno++; 101 [^0-9A-F\.] { 102 BEGIN(INITIAL); 103 unput(yytext[0]); 104 if (strcmp(strbuf, ".") == 0) 105 return (DOT); 106 else { 107 yylval.str = strbuf; 108 return (NUMBER); 109 } 110 } 111} 112 113"auto" return (AUTO); 114"break" return (BREAK); 115"continue" return (CONTINUE); 116"define" return (DEFINE); 117"else" return (ELSE); 118"ibase" return (IBASE); 119"if" return (IF); 120"last" return (DOT); 121"for" return (FOR); 122"length" return (LENGTH); 123"obase" return (OBASE); 124"print" return (PRINT); 125"quit" return (QUIT); 126"return" return (RETURN); 127"scale" return (SCALE); 128"sqrt" return (SQRT); 129"while" return (WHILE); 130 131"^" return (EXPONENT); 132"*" return (MULTIPLY); 133"/" return (DIVIDE); 134"%" return (REMAINDER); 135 136"!" return (BOOL_NOT); 137"&&" return (BOOL_AND); 138"||" return (BOOL_OR); 139 140"+" return (PLUS); 141"-" return (MINUS); 142 143"++" return (INCR); 144"--" return (DECR); 145 146"=" yylval.str = ""; return (ASSIGN_OP); 147"+=" yylval.str = "+"; return (ASSIGN_OP); 148"-=" yylval.str = "-"; return (ASSIGN_OP); 149"*=" yylval.str = "*"; return (ASSIGN_OP); 150"/=" yylval.str = "/"; return (ASSIGN_OP); 151"%=" yylval.str = "%"; return (ASSIGN_OP); 152"^=" yylval.str = "^"; return (ASSIGN_OP); 153 154"==" return (EQUALS); 155"<=" return (LESS_EQ); 156">=" return (GREATER_EQ); 157"!=" return (UNEQUALS); 158"<" return (LESS); 159">" return (GREATER); 160 161"," return (COMMA); 162";" return (SEMICOLON); 163 164"(" return (LPAR); 165")" return (RPAR); 166 167"[" return (LBRACKET); 168"]" return (RBRACKET); 169 170"{" return (LBRACE); 171"}" return (RBRACE); 172 173{ALPHA}{ALPHANUM}* { 174 /* alloc an extra byte for the type marker */ 175 char *p = malloc(yyleng + 2); 176 if (p == NULL) 177 err(1, NULL); 178 strlcpy(p, yytext, yyleng + 1); 179 yylval.astr = p; 180 return (LETTER); 181 } 182 183\\\n lineno++; 184\n lineno++; return (NEWLINE); 185 186#[^\n]* ; 187[ \t] ; 188<<EOF>> return (QUIT); 189. yyerror("illegal character"); 190 191%% 192 193static void 194init_strbuf(void) 195{ 196 197 if (strbuf == NULL) { 198 strbuf = malloc(strbuf_sz); 199 if (strbuf == NULL) 200 err(1, NULL); 201 } 202 strbuf[0] = '\0'; 203} 204 205static void 206add_str(const char *str) 207{ 208 size_t arglen; 209 210 arglen = strlen(str); 211 212 if (strlen(strbuf) + arglen + 1 > strbuf_sz) { 213 size_t newsize; 214 char *p; 215 216 newsize = strbuf_sz + arglen + 1; 217 p = realloc(strbuf, newsize); 218 if (p == NULL) { 219 free(strbuf); 220 err(1, NULL); 221 } 222 strbuf_sz = newsize; 223 strbuf = p; 224 } 225 strlcat(strbuf, str, strbuf_sz); 226} 227 228/* ARGSUSED */ 229void 230abort_line(int sig) 231{ 232 static const char str[] = "[\n]P\n"; 233 int save_errno; 234 235 switch (sig) { 236 default: 237 save_errno = errno; 238 YY_FLUSH_BUFFER; /* XXX signal race? */ 239 write(STDOUT_FILENO, str, sizeof(str) - 1); 240 errno = save_errno; 241 } 242} 243 244int 245yywrap(void) 246{ 247 static YY_BUFFER_STATE buf; 248 static int state; 249 250 if (fileindex == 0 && sargc > 0 && strcmp(sargv[0], _PATH_LIBB) == 0) { 251 filename = sargv[fileindex++]; 252 yyin = fopen(filename, "r"); 253 lineno = 1; 254 if (yyin == NULL) 255 err(1, "cannot open %s", filename); 256 return (0); 257 } 258 if (state == 0 && cmdexpr[0] != '\0') { 259 buf = yy_scan_string(cmdexpr); 260 state++; 261 lineno = 1; 262 filename = "command line"; 263 return (0); 264 } else if (state == 1) { 265 yy_delete_buffer(buf); 266 free(cmdexpr); 267 state++; 268 } 269 if (yyin != NULL && yyin != stdin) 270 fclose(yyin); 271 if (fileindex < sargc) { 272 filename = sargv[fileindex++]; 273 yyin = fopen(filename, "r"); 274 lineno = 1; 275 if (yyin == NULL) 276 err(1, "cannot open %s", filename); 277 return (0); 278 } else if (fileindex == sargc) { 279 fileindex++; 280 yyin = stdin; 281 if (interactive) 282 signal(SIGINT, abort_line); 283 lineno = 1; 284 filename = "stdin"; 285 return (0); 286 } 287 return (1); 288} 289