Return to et_lex.lex.l CVS log

Up to [local] / src / usr.bin / compile_et

Annotation of src/usr.bin/compile_et/et_lex.lex.l, Revision 1.4

1.1       downsj      1: %{
1.3       hin         2: /*
                      3:  * Copyright (c) 1998 Kungliga Tekniska Högskolan
                      4:  * (Royal Institute of Technology, Stockholm, Sweden).
                      5:  * All rights reserved.
                      6:  *
                      7:  * Redistribution and use in source and binary forms, with or without
                      8:  * modification, are permitted provided that the following conditions
                      9:  * are met:
                     10:  *
                     11:  * 1. Redistributions of source code must retain the above copyright
                     12:  *    notice, this list of conditions and the following disclaimer.
                     13:  *
                     14:  * 2. Redistributions in binary form must reproduce the above copyright
                     15:  *    notice, this list of conditions and the following disclaimer in the
                     16:  *    documentation and/or other materials provided with the distribution.
                     17:  *
                     18:  * 3. All advertising materials mentioning features or use of this software
                     19:  *    must display the following acknowledgement:
                     20:  *      This product includes software developed by Kungliga Tekniska
                     21:  *      Högskolan and its contributors.
                     22:  *
                     23:  * 4. Neither the name of the Institute nor the names of its contributors
                     24:  *    may be used to endorse or promote products derived from this software
                     25:  *    without specific prior written permission.
                     26:  *
                     27:  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
                     28:  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
                     29:  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
                     30:  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
                     31:  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
                     32:  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
                     33:  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
                     34:  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
                     35:  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
                     36:  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
                     37:  * SUCH DAMAGE.
                     38:  */
                     39:
                     40: /*
                     41:  * This is to handle the definition of this symbol in some AIX
                     42:  * headers, which will conflict with the definition that lex will
                     43:  * generate for it.  It's only a problem for AIX lex.
                     44:  */
                     45:
                     46: #undef ECHO
                     47:
                     48: #include "compile_et.h"
                     49: #include "error_table.h"
                     50:
                     51: /* RCSID("$KTH: lex.l,v 1.4 1998/11/20 05:58:52 assar Exp $"); */
                     52:
                     53: static unsigned lineno = 1;
                     54: void error_message(char *, ...);
                     55: int getstring(void);
1.4     ! deraadt    56: int yylex(void);
1.3       hin        57:
1.1       downsj     58: %}
                     59:
1.3       hin        60:
                     61: %%
                     62: et                     { return ET; }
                     63: error_table            { return ET; }
                     64: ec                     { return EC; }
                     65: error_code             { return EC; }
                     66: prefix                 { return PREFIX; }
                     67: index                  { return INDEX; }
                     68: id                     { return ID; }
                     69: end                    { return END; }
                     70: [0-9]+                 { yylval.number = atoi(yytext); return NUMBER; }
                     71: #[^\n]*                        ;
                     72: [ \t]                  ;
                     73: \n                     { lineno++; }
                     74: \"                     { return getstring(); }
                     75: [a-zA-Z0-9_]+          { yylval.string = strdup(yytext); return STRING; }
                     76: .                      { return *yytext; }
1.1       downsj     77: %%
                     78:
1.3       hin        79: #ifndef yywrap /* XXX */
                     80: int
                     81: yywrap ()
                     82: {
                     83:      return 1;
                     84: }
                     85: #endif
1.1       downsj     86:
1.3       hin        87: int
                     88: getstring(void)
                     89: {
                     90:     char x[128];
                     91:     int i = 0;
                     92:     int c;
                     93:     int quote = 0;
                     94:     while((c = input()) != EOF){
                     95:        if(quote) {
                     96:            x[i++] = c;
                     97:            quote = 0;
                     98:            continue;
                     99:        }
                    100:        if(c == '\n'){
                    101:            error_message("unterminated string");
                    102:            lineno++;
                    103:            break;
                    104:        }
                    105:        if(c == '\\'){
                    106:            quote++;
                    107:            continue;
                    108:        }
                    109:        if(c == '\"')
                    110:            break;
                    111:        x[i++] = c;
                    112:     }
                    113:     x[i] = '\0';
                    114:     yylval.string = strdup(x);
                    115:     return STRING;
                    116: }
                    117:
                    118: void
                    119: error_message (char *format, ...)
                    120: {
                    121:      va_list args;
                    122:
                    123:      va_start (args, format);
                    124:      fprintf (stderr, "%s:%d:", filename, lineno);
                    125:      vfprintf (stderr, format, args);
                    126:      va_end (args);
                    127:      numerror++;
                    128: }