Merge from vendor branch ZLIB:
[dragonfly.git] / contrib / com_err / lex.l
1 %{
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 "parse.h"
50
51 #if 0
52 RCSID("$Id: lex.l,v 1.4 1998/11/20 05:58:52 assar Exp $");
53 #endif
54
55 static unsigned lineno = 1;
56 void error_message(char *, ...);
57 int getstring(void);
58
59 %}
60
61
62 %%
63 et                      { return ET; }
64 error_table             { return ET; }
65 ec                      { return EC; }
66 error_code              { return EC; }
67 prefix                  { return PREFIX; }
68 index                   { return INDEX; }
69 id                      { return ID; }
70 end                     { return END; }
71 [0-9]+                  { yylval.number = atoi(yytext); return NUMBER; }
72 #[^\n]*                 ;
73 [ \t]                   ;
74 \n                      { lineno++; }
75 \"                      { return getstring(); }
76 [a-zA-Z0-9_]+           { yylval.string = strdup(yytext); return STRING; }
77 .                       { return *yytext; }
78 %%
79
80 #ifndef yywrap /* XXX */
81 int
82 yywrap () 
83 {
84      return 1;
85 }
86 #endif
87
88 int
89 getstring(void)
90 {
91     char x[128];
92     int i = 0;
93     int c;
94     int quote = 0;
95     while((c = input()) != EOF){
96         if(quote) {
97             x[i++] = c;
98             quote = 0;
99             continue;
100         }
101         if(c == '\n'){
102             error_message("unterminated string");
103             lineno++;
104             break;
105         }
106         if(c == '\\'){
107             quote++;
108             continue;
109         }
110         if(c == '\"')
111             break;
112         x[i++] = c;
113     }
114     x[i] = '\0';
115     yylval.string = strdup(x);
116     return STRING;
117 }
118
119 void
120 error_message (char *format, ...)
121 {
122      va_list args;
123
124      va_start (args, format);
125      fprintf (stderr, "%s:%d:", filename, lineno);
126      vfprintf (stderr, format, args);
127      va_end (args);
128      numerror++;
129 }