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

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;
        !            93:     while((c = input()) != EOF){
        !            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';
        !           113:     yylval.string = strdup(x);
        !           114:     return STRING;
        !           115: }
        !           116:
        !           117: void
        !           118: error_message (char *format, ...)
        !           119: {
        !           120:      va_list args;
        !           121:
        !           122:      va_start (args, format);
        !           123:      fprintf (stderr, "%s:%d:", filename, lineno);
        !           124:      vfprintf (stderr, format, args);
        !           125:      va_end (args);
        !           126:      numerror++;
        !           127: }