home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / bc-1.03-src.tgz / tar.out / fsf / bc / scan.l < prev    next >
Text File  |  1996-09-28  |  6KB  |  203 lines
  1. %{
  2. /* scan.l: the (f)lex description file for the scanner. */
  3.  
  4. /*  This file is part of bc written for MINIX.
  5.     Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
  6.  
  7.     This program is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU General Public License as published by
  9.     the Free Software Foundation; either version 2 of the License , or
  10.     (at your option) any later version.
  11.  
  12.     This program is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.  
  17.     You should have received a copy of the GNU General Public License
  18.     along with this program; see the file COPYING.  If not, write to
  19.     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.     You may contact the author by:
  22.        e-mail:  phil@cs.wwu.edu
  23.       us-mail:  Philip A. Nelson
  24.                 Computer Science Department, 9062
  25.                 Western Washington University
  26.                 Bellingham, WA 98226-9062
  27.        
  28. *************************************************************************/
  29.  
  30. #include "bcdefs.h"
  31. #include "y.tab.h"
  32. #include "global.h"
  33. #include "proto.h"
  34.  
  35. /* Using flex, we can ask for a smaller input buffer.  With lex, this
  36.    does nothing! */
  37.  
  38. #ifdef SMALL_BUF
  39. #undef YY_READ_BUF_SIZE
  40. #define YY_READ_BUF_SIZE 512
  41. #endif
  42.  
  43. /* We want to define our own yywrap. */
  44. #undef yywrap
  45. _PROTOTYPE(int yywrap, (void));
  46.  
  47. /* MINIX returns from read with < 0 if SIGINT is  encountered.
  48.    In flex, we can redefine YY_INPUT to the following.  In lex, this
  49.    does nothing! */
  50. #include <errno.h>
  51. #undef  YY_INPUT
  52. #define YY_INPUT(buf,result,max_size) \
  53.     while ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \
  54.         if (errno != EINTR) \
  55.         YY_FATAL_ERROR( "read() in flex scanner failed" );
  56.  
  57. %}
  58. DIGIT [0-9A-F]
  59. LETTER [a-z]
  60. %%
  61. define return(Define);
  62. break  return(Break);
  63. quit   return(Quit);
  64. length return(Length);
  65. return return(Return);
  66. for    return(For);
  67. if     return(If);
  68. while  return(While);
  69. sqrt   return(Sqrt);
  70. scale  return(Scale);
  71. ibase  return(Ibase);
  72. obase  return(Obase);
  73. auto   return(Auto);
  74. else   return(Else);
  75. read   return(Read);
  76. halt   return(Halt);
  77. last   return(Last);
  78. warranty return(Warranty);
  79. continue return(Continue);
  80. print  return(Print);
  81. limits return(Limits);
  82. "." {
  83. #ifdef DOT_IS_LAST
  84.        return(Last);
  85. #else
  86.        yyerror ("illegal character: %s",yytext);
  87. #endif
  88.     }
  89. "+"|"-"|";"|"("|")"|"{"|"}"|"["|"]"|","|"^" { yylval.c_value = yytext[0]; 
  90.                           return((int)yytext[0]); }
  91. && { return(AND); }
  92. \|\| { return(OR); }
  93. "!" { return(NOT); }
  94. "*"|"/"|"%" { yylval.c_value = yytext[0]; return(MUL_OP); }
  95. "="|\+=|-=|\*=|\/=|%=|\^=  { yylval.c_value = yytext[0]; return(ASSIGN_OP); }
  96. =\+|=-|=\*|=\/|=%|=\^  { 
  97. #ifdef OLD_EQ_OP
  98.              char warn_save;
  99.              warn_save = warn_not_std;
  100.              warn_not_std = TRUE;
  101.              warn ("Old fashioned =<op>");
  102.              warn_not_std = warn_save;
  103.              yylval.c_value = yytext[1];
  104. #else
  105.              yylval.c_value = '=';
  106.              yyless (1);
  107. #endif
  108.              return(ASSIGN_OP);
  109.                }
  110. ==|\<=|\>=|\!=|"<"|">" { yylval.s_value = strcopyof(yytext); return(REL_OP); }
  111. \+\+|-- { yylval.c_value = yytext[0]; return(INCR_DECR); }
  112. "\n" { line_no++; return(NEWLINE); }
  113. \\\n {  line_no++;  /* ignore a "quoted" newline */ }
  114. [ \t]+  { /* ignore spaces and tabs */ }
  115. "/*"  {
  116.     int c;
  117.  
  118.     for (;;)
  119.       {
  120.         while ( ((c=input()) != '*') && (c != EOF)) 
  121.           /* eat it */
  122.           if (c == '\n') line_no++;
  123.         if (c == '*')
  124.            {
  125.         while ( (c=input()) == '*') /* eat it*/;
  126.         if (c == '/') break; /* at end of comment */
  127.         if (c == '\n') line_no++;
  128.           }
  129.         if (c == EOF)
  130.           {
  131.         fprintf (stderr,"EOF encountered in a comment.\n");
  132.         break;
  133.           }
  134.       }
  135.       }
  136. [a-z][a-z0-9_]* { yylval.s_value = strcopyof(yytext); return(NAME); }
  137. \"[^\"]*\"  {
  138.           /* ADE-local: Changed "look" from "unsigned char *" to just "char *"
  139.          since that is the type of yytext, and in ANSI C, these are different
  140.          types, leading to a compiler diagnostic message and/or error. */
  141.            char *look;
  142.           int count = 0;
  143.           yylval.s_value = strcopyof(yytext);
  144.           for (look = yytext; *look != 0; look++)
  145.         {
  146.           if (*look == '\n') line_no++;
  147.           if (*look == '"')  count++;
  148.         }
  149.           if (count != 2) yyerror ("NUL character in string.");
  150.           return(STRING);
  151.         }
  152. {DIGIT}({DIGIT}|\\\n)*("."({DIGIT}|\\\n)*)?|"."(\\\n)*{DIGIT}({DIGIT}|\\\n)* {
  153.           /* ADE-local: Changed "src" and "dst" from "unsigned char *" to just "char *"
  154.          since that is the type of yytext, and in ANSI C, these are different
  155.          types, leading to a compiler diagnostic message and/or error. */
  156.           char *src, *dst;
  157.           int len;
  158.           /* remove a trailing decimal point. */
  159.           len = strlen(yytext);
  160.           if (yytext[len-1] == '.')
  161.             yytext[len-1] = 0;
  162.           /* remove leading zeros. */
  163.           src = yytext;
  164.           dst = yytext;
  165.           while (*src == '0') src++;
  166.           if (*src == 0) src--;
  167.           /* Copy strings removing the newlines. */
  168.           while (*src != 0)
  169.         {
  170.               if (*src == '\\')
  171.             {
  172.               src++; src++;
  173.               line_no++;
  174.             }
  175.           else
  176.             *dst++ = *src++;
  177.             }
  178.           *dst = 0;
  179.           yylval.s_value = strcopyof(yytext); 
  180.           return(NUMBER);
  181.         }
  182. .       {
  183.       if (yytext[0] < ' ')
  184.         yyerror ("illegal character: ^%c",yytext[0] + '@');
  185.       else
  186.         if (yytext[0] > '~')
  187.           yyerror ("illegal character: \\%3d", (int) yytext[0]);
  188.         else
  189.           yyerror ("illegal character: %s",yytext);
  190.     }
  191. %%
  192.  
  193.  
  194.  
  195. /* This is the way to get multiple files input into lex. */
  196.  
  197. int
  198. yywrap()
  199. {
  200.   if (!open_new_file ()) return (1);    /* EOF on standard in. */
  201.   return (0);                /* We have more input. */
  202. }
  203.