%{ /* $FreeBSD: src/contrib/bc/bc/scan.l,v 1.4.2.1 2001/03/04 09:34:54 kris Exp $ */ /* $DragonFly: src/contrib/bc/bc/Attic/scan.l,v 1.2 2003/06/17 04:23:58 dillon Exp $ */ /* scan.l: the (f)lex description file for the scanner. */ /* This file is part of GNU bc. Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License , or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; see the file COPYING. If not, write to The Free Software Foundation, Inc. 59 Temple Place, Suite 330 Boston, MA 02111 USA You may contact the author by: e-mail: philnelson@acm.org us-mail: Philip A. Nelson Computer Science Department, 9062 Western Washington University Bellingham, WA 98226-9062 *************************************************************************/ #include "bcdefs.h" #include "bc.h" #include "global.h" #include "proto.h" #include /* Using flex, we can ask for a smaller input buffer. With lex, this does nothing! */ #ifdef SMALL_BUF #undef YY_READ_BUF_SIZE #define YY_READ_BUF_SIZE 512 #endif /* Force . as last for now. */ #define DOT_IS_LAST /* We want to define our own yywrap. */ #undef yywrap _PROTOTYPE(int yywrap, (void)); #if defined(LIBEDIT) /* Support for the BSD libedit with history for nicer input on the interactive part of input. */ #include /* Have input call the following function. */ #undef YY_INPUT #define YY_INPUT(buf,result,max_size) \ bcel_input((char *)buf, &result, max_size) /* Variables to help interface editline with bc. */ static const char *bcel_line = (char *)NULL; static int bcel_len = 0; /* Required to get rid of that ugly ? default prompt! */ char * null_prompt (EditLine *el) { return ""; } /* bcel_input puts upto MAX characters into BUF with the number put in BUF placed in *RESULT. If the yy input file is the same as stdin, use editline. Otherwise, just read it. */ static void bcel_input (buf, result, max) char *buf; int *result; int max; { if (!edit || yyin != stdin) { while ( (*result = read( fileno(yyin), buf, max )) < 0 ) if (errno != EINTR) { yyerror( "read() in flex scanner failed" ); exit (1); } return; } /* Do we need a new string? */ if (bcel_len == 0) { bcel_line = el_gets(edit, &bcel_len); if (bcel_line == NULL) { /* end of file */ *result = 0; bcel_len = 0; return; } if (bcel_len != 0) history (hist, &histev, H_ENTER, bcel_line); fflush (stdout); } if (bcel_len <= max) { strncpy (buf, bcel_line, bcel_len); *result = bcel_len; bcel_len = 0; } else { strncpy (buf, bcel_line, max); *result = max; bcel_line += max; bcel_len -= max; } } #endif #ifdef READLINE /* Support for the readline and history libraries. This allows nicer input on the interactive part of input. */ /* Have input call the following function. */ #undef YY_INPUT #define YY_INPUT(buf,result,max_size) \ rl_input((char *)buf, &result, max_size) /* Variables to help interface readline with bc. */ static char *rl_line = (char *)NULL; static char *rl_start = (char *)NULL; static int rl_len = 0; /* Definitions for readline access. */ extern FILE *rl_instream; _PROTOTYPE(char *readline, (char *)); /* rl_input puts upto MAX characters into BUF with the number put in BUF placed in *RESULT. If the yy input file is the same as rl_instream (stdin), use readline. Otherwise, just read it. */ static void rl_input (buf, result, max) char *buf; int *result; int max; { if (yyin != rl_instream) { while ( (*result = read( fileno(yyin), buf, max )) < 0 ) if (errno != EINTR) { yyerror( "read() in flex scanner failed" ); exit (1); } return; } /* Do we need a new string? */ if (rl_len == 0) { if (rl_start) free(rl_start); rl_start = readline (""); if (rl_start == NULL) { /* end of file */ *result = 0; rl_len = 0; return; } rl_line = rl_start; rl_len = strlen (rl_line)+1; if (rl_len != 1) add_history (rl_line); rl_line[rl_len-1] = '\n'; fflush (stdout); } if (rl_len <= max) { strncpy (buf, rl_line, rl_len); *result = rl_len; rl_len = 0; } else { strncpy (buf, rl_line, max); *result = max; rl_line += max; rl_len -= max; } } #endif #if !defined(READLINE) && !defined(LIBEDIT) /* MINIX returns from read with < 0 if SIGINT is encountered. In flex, we can redefine YY_INPUT to the following. In lex, this does nothing! */ #undef YY_INPUT #define YY_INPUT(buf,result,max_size) \ while ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \ if (errno != EINTR) \ YY_FATAL_ERROR( "read() in flex scanner failed" ); #endif %} DIGIT [0-9A-F] LETTER [a-z] %s slcomment %% "#" { if (!std_only) BEGIN(slcomment); else yyerror ("illegal character: #"); } [^\n]* { BEGIN(INITIAL); } "\n" { line_no++; BEGIN(INITIAL); return(ENDOFLINE); } define return(Define); break return(Break); quit return(Quit); length return(Length); return return(Return); for return(For); if return(If); while return(While); sqrt return(Sqrt); scale return(Scale); ibase return(Ibase); obase return(Obase); auto return(Auto); else return(Else); read return(Read); halt return(Halt); last return(Last); history { #if defined(READLINE) || defined(LIBEDIT) return(HistoryVar); #else yylval.s_value = strcopyof(yytext); return(NAME); #endif } warranty return(Warranty); continue return(Continue); print return(Print); limits return(Limits); "." { #ifdef DOT_IS_LAST return(Last); #else yyerror ("illegal character: %s",yytext); #endif } "+"|"-"|";"|"("|")"|"{"|"}"|"["|"]"|","|"^" { yylval.c_value = yytext[0]; return((int)yytext[0]); } && { return(AND); } \|\| { return(OR); } "!" { return(NOT); } "*"|"/"|"%" { yylval.c_value = yytext[0]; return((int)yytext[0]); } "="|\+=|-=|\*=|\/=|%=|\^= { yylval.c_value = yytext[0]; return(ASSIGN_OP); } =\+|=-|=\*|=\/|=%|=\^ { #ifdef OLD_EQ_OP char warn_save; warn_save = warn_not_std; warn_not_std = TRUE; warn ("Old fashioned ="); warn_not_std = warn_save; yylval.c_value = yytext[1]; #else yylval.c_value = '='; yyless (1); #endif return(ASSIGN_OP); } ==|\<=|\>=|\!=|"<"|">" { yylval.s_value = strcopyof(yytext); return(REL_OP); } \+\+|-- { yylval.c_value = yytext[0]; return(INCR_DECR); } "\n" { line_no++; return(ENDOFLINE); } \\\n { line_no++; /* ignore a "quoted" newline */ } [ \t]+ { /* ignore spaces and tabs */ } "/*" { int c; for (;;) { while ( ((c=input()) != '*') && (c != EOF)) /* eat it */ if (c == '\n') line_no++; if (c == '*') { while ( (c=input()) == '*') /* eat it*/; if (c == '/') break; /* at end of comment */ if (c == '\n') line_no++; } if (c == EOF) { fprintf (stderr,"EOF encountered in a comment.\n"); break; } } } [a-z][a-z0-9_]* { yylval.s_value = strcopyof(yytext); return(NAME); } \"[^\"]*\" { unsigned char *look; int count = 0; yylval.s_value = strcopyof(yytext); for (look = yytext; *look != 0; look++) { if (*look == '\n') line_no++; if (*look == '"') count++; } if (count != 2) yyerror ("NUL character in string."); return(STRING); } {DIGIT}({DIGIT}|\\\n)*("."({DIGIT}|\\\n)*)?|"."(\\\n)*{DIGIT}({DIGIT}|\\\n)* { unsigned char *src, *dst; int len; /* remove a trailing decimal point. */ len = strlen(yytext); if (yytext[len-1] == '.') yytext[len-1] = 0; /* remove leading zeros. */ src = yytext; dst = yytext; while (*src == '0') src++; if (*src == 0) src--; /* Copy strings removing the newlines. */ while (*src != 0) { if (*src == '\\') { src++; src++; line_no++; } else *dst++ = *src++; } *dst = 0; yylval.s_value = strcopyof(yytext); return(NUMBER); } . { if (yytext[0] < ' ') yyerror ("illegal character: ^%c",yytext[0] + '@'); else if (yytext[0] > '~') yyerror ("illegal character: \\%03o", (int) yytext[0]); else yyerror ("illegal character: %s",yytext); } %% /* This is the way to get multiple files input into lex. */ int yywrap() { if (!open_new_file ()) return (1); /* EOF on standard in. */ return (0); /* We have more input. */ }