version 1.5, 2005/05/13 05:05:22 |
version 1.6, 2005/10/17 07:35:29 |
|
|
%{ |
%{ |
/* |
/* |
* Copyright (c) 1998 Kungliga Tekniska Högskolan |
* Copyright (c) 1998 - 2000 Kungliga Tekniska Högskolan |
* (Royal Institute of Technology, Stockholm, Sweden). |
* (Royal Institute of Technology, Stockholm, Sweden). |
* All rights reserved. |
* All rights reserved. |
* |
* |
|
|
* notice, this list of conditions and the following disclaimer in the |
* notice, this list of conditions and the following disclaimer in the |
* documentation and/or other materials provided with the distribution. |
* documentation and/or other materials provided with the distribution. |
* |
* |
* 3. All advertising materials mentioning features or use of this software |
* 3. Neither the name of the Institute nor the names of its contributors |
* must display the following acknowledgement: |
|
* This product includes software developed by Kungliga Tekniska |
|
* Högskolan and its contributors. |
|
* |
|
* 4. Neither the name of the Institute nor the names of its contributors |
|
* may be used to endorse or promote products derived from this software |
* may be used to endorse or promote products derived from this software |
* without specific prior written permission. |
* without specific prior written permission. |
* |
* |
|
|
#include "compile_et.h" |
#include "compile_et.h" |
#include "error_table.h" |
#include "error_table.h" |
|
|
/* RCSID("$KTH: lex.l,v 1.4 1998/11/20 05:58:52 assar Exp $"); */ |
/* RCSID("$KTH: lex.l,v 1.8 2005/05/16 08:52:54 lha Exp $"); */ |
|
|
static unsigned lineno = 1; |
static unsigned lineno = 1; |
void error_message(char *, ...); |
void error_message(const char *, ...); |
int getstring(void); |
static int getstring(void); |
|
|
|
#define YY_NO_UNPUT |
|
|
|
#undef ECHO |
|
|
%} |
%} |
|
|
|
|
|
|
} |
} |
#endif |
#endif |
|
|
int |
static int |
getstring(void) |
getstring(void) |
{ |
{ |
char x[128]; |
char x[128]; |
|
|
x[i++] = c; |
x[i++] = c; |
} |
} |
x[i] = '\0'; |
x[i] = '\0'; |
if ((yylval.string = strdup(x)) == NULL) |
yylval.string = strdup(x); |
err(1, NULL); |
if (yylval.string == NULL) |
|
err(1, "malloc"); |
return STRING; |
return STRING; |
} |
} |
|
|
void |
void |
error_message (char *format, ...) |
error_message (const char *format, ...) |
{ |
{ |
va_list args; |
va_list args; |
|
|