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.5

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);
                     56:
1.1       downsj     57: %}
                     58:
1.3       hin        59:
                     60: %%
                     61: et                     { return ET; }
                     62: error_table            { return ET; }
                     63: ec                     { return EC; }
                     64: error_code             { return EC; }
                     65: prefix                 { return PREFIX; }
                     66: index                  { return INDEX; }
                     67: id                     { return ID; }
                     68: end                    { return END; }
                     69: [0-9]+                 { yylval.number = atoi(yytext); return NUMBER; }
                     70: #[^\n]*                        ;
                     71: [ \t]                  ;
                     72: \n                     { lineno++; }
                     73: \"                     { return getstring(); }
                     74: [a-zA-Z0-9_]+          { yylval.string = strdup(yytext); return STRING; }
                     75: .                      { return *yytext; }
1.1       downsj     76: %%
                     77:
1.3       hin        78: #ifndef yywrap /* XXX */
                     79: int
                     80: yywrap ()
                     81: {
                     82:      return 1;
                     83: }
                     84: #endif
1.1       downsj     85:
1.3       hin        86: int
                     87: getstring(void)
                     88: {
                     89:     char x[128];
                     90:     int i = 0;
                     91:     int c;
                     92:     int quote = 0;
1.5     ! jaredy     93:     while(i < sizeof(x) - 1 && (c = input()) != EOF){
1.3       hin        94:        if(quote) {
                     95:            x[i++] = c;
                     96:            quote = 0;
                     97:            continue;
                     98:        }
                     99:        if(c == '\n'){
                    100:            error_message("unterminated string");
                    101:            lineno++;
                    102:            break;
                    103:        }
                    104:        if(c == '\\'){
                    105:            quote++;
                    106:            continue;
                    107:        }
                    108:        if(c == '\"')
                    109:            break;
                    110:        x[i++] = c;
                    111:     }
                    112:     x[i] = '\0';
1.5     ! jaredy    113:     if ((yylval.string = strdup(x)) == NULL)
        !           114:        err(1, NULL);
1.3       hin       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: }