extern/boxes
1
0
Fork 0
mirror of https://github.com/ascii-boxes/boxes.git synced 2025-06-19 00:06:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Replaced DEBUG macro with LEXER_DEBUG, which is now activated in boxes.h

Browse Source 
New tokens to, with, global, once
Added LEX_MAX_WARN macro to limit number of lex errors printed per design
Replaced exit()s with return YUNREC where errors are not fatal
This commit is contained in:
Thomas Jensen 1999-06-28 18:37:38 +00:00
parent 93793ba1a2
commit 3640421283
1 changed files with 62 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
src/lexer.l
View File

@ -4,7 +4,7 @@
* Date created: March 15, 1999 (Monday, 17:16h) * Date created: March 15, 1999 (Monday, 17:16h)
* Author: Thomas Jensen * Author: Thomas Jensen
* tsjensen@stud.informatik.uni-erlangen.de * tsjensen@stud.informatik.uni-erlangen.de
* Version: $Id: lexer.l,v 1.9 1999/06/22 12:00:05 tsjensen Exp tsjensen $ * Version: $Id: lexer.l,v 1.10 1999/06/28 12:17:46 tsjensen Exp tsjensen $
* Language: lex (ANSI C) * Language: lex (ANSI C)
* Purpose: flex lexical analyzer for boxes configuration files * Purpose: flex lexical analyzer for boxes configuration files
* Remarks: --- * Remarks: ---
@ -12,6 +12,10 @@
* Revision History: * Revision History:
* *
* $Log: lexer.l,v $ * $Log: lexer.l,v $
* Revision 1.10 1999/06/28 12:17:46 tsjensen
* Added tokens YBOX and YEND (thus, BOX and END are no longer YKEYWORDs)
* Added #define FILE_LEXER_L around #include boxes.h to please compiler
*
* Revision 1.9 1999/06/22 12:00:05 tsjensen * Revision 1.9 1999/06/22 12:00:05 tsjensen
* Added #undef DEBUG, because DEBUGging is now activated in boxes.h * Added #undef DEBUG, because DEBUGging is now activated in boxes.h
* Added #include tools.h * Added #include tools.h
@ -53,15 +57,17 @@
#include "tools.h" #include "tools.h"
#include "y.tab.h" #include "y.tab.h"
#undef DEBUG
/* #define DEBUG */
#define LEX_MAX_WARN 3 /* number of errors per design */
static const char rcsid_lexer_l[] = static const char rcsid_lexer_l[] =
"$Id: lexer.l,v 1.9 1999/06/22 12:00:05 tsjensen Exp tsjensen $"; "$Id: lexer.l,v 1.10 1999/06/28 12:17:46 tsjensen Exp tsjensen $";
int yylineno = 1; int yylineno = 1;
int yyerrcnt = 0;
%} %}
@ -77,8 +83,9 @@ int yylineno = 1;
<SAMPLE1,SHAPES,ELASTIC,INITIAL>\n yylineno++; <SAMPLE1,SHAPES,ELASTIC,INITIAL>\n yylineno++;
\"[^"\n]*$ { \"[^"\n]*$ {
if (yyerrcnt++ < 5)
yyerror ("Unterminated String at %s", yytext); yyerror ("Unterminated String at %s", yytext);
exit (EXIT_FAILURE); return YUNREC;
} }
\"[^"\n]*\" { \"[^"\n]*\" {
@ -104,16 +111,20 @@ int yylineno = 1;
yytext[yyleng-1] = '\0'; yytext[yyleng-1] = '\0';
--yyleng; --yyleng;
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n STRING: \"%s\"", yytext); fprintf (stderr, "\n STRING: \"%s\"", yytext);
#endif #endif
yylval.s = (char *) strdup (yytext); yylval.s = (char *) strdup (yytext);
if (yylval.s == NULL) {
perror (PROJECT);
exit (EXIT_FAILURE);
}
return STRING; return STRING;
} }
} }
Sample { Sample {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n WORD: %s -- STATE SAMPLE1", yytext); fprintf (stderr, "\n WORD: %s -- STATE SAMPLE1", yytext);
#endif #endif
BEGIN SAMPLE1; BEGIN SAMPLE1;
@ -121,7 +132,7 @@ Sample {
} }
<SAMPLE1>\{ { <SAMPLE1>\{ {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n SYMBOL: \'%c\' -- STATE SAMPLE2", yytext[0]); fprintf (stderr, "\n SYMBOL: \'%c\' -- STATE SAMPLE2", yytext[0]);
#endif #endif
BEGIN SAMPLE2; BEGIN SAMPLE2;
@ -129,8 +140,9 @@ Sample {
} }
<SAMPLE1>[^{\n\t\r ]+ { <SAMPLE1>[^{\n\t\r ]+ {
if (yyerrcnt++ < 5)
yyerror ("Syntax Error at \"%s\"", yytext); yyerror ("Syntax Error at \"%s\"", yytext);
exit (EXIT_FAILURE); return YUNREC;
} }
<SAMPLE2>\n { <SAMPLE2>\n {
@ -163,16 +175,21 @@ Sample {
} }
} }
BEGIN INITIAL; BEGIN INITIAL;
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n SAMPLE: %s -- STATE INITIAL", yytext); fprintf (stderr, "\n SAMPLE: %s -- STATE INITIAL", yytext);
#endif #endif
yylval.s = (char *) strdup (yytext); yylval.s = (char *) strdup (yytext);
if (yylval.s == NULL) {
perror (PROJECT);
exit (EXIT_FAILURE);
}
return STRING; return STRING;
} }
} }
else { else {
if (yyerrcnt++ < 5)
yyerror ("SAMPLE entry must not be empty"); yyerror ("SAMPLE entry must not be empty");
exit (EXIT_FAILURE); return YUNREC;
} }
} }
@ -180,8 +197,8 @@ Sample {
yymore(); yymore();
} }
elastic { Elastic {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\nYELASTC: %s -- STATE ELASTIC", yytext); fprintf (stderr, "\nYELASTC: %s -- STATE ELASTIC", yytext);
#endif #endif
BEGIN ELASTIC; BEGIN ELASTIC;
@ -189,47 +206,29 @@ elastic {
} }
Shapes { Shapes {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\nYSHAPES: %s -- STATE SHAPES", yytext); fprintf (stderr, "\nYSHAPES: %s -- STATE SHAPES", yytext);
#endif #endif
BEGIN SHAPES; BEGIN SHAPES;
return YSHAPES; return YSHAPES;
} }
Replace {
#ifdef DEBUG
fprintf (stderr, "\nYREPLACE: %s", yytext);
#endif
return YREPLACE;
}
Reverse {
#ifdef DEBUG
fprintf (stderr, "\nYREVERSE: %s", yytext);
#endif
return YREVERSE;
}
Padding {
#ifdef DEBUG
fprintf (stderr, "\nYPADDING: %s", yytext);
#endif
return YPADDING;
}
Box { Box {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\nYBOX: %s", yytext); fprintf (stderr, "\nYBOX: %s", yytext);
#endif #endif
yyerrcnt = 0;
return YBOX; return YBOX;
} }
End { Replace { return YREPLACE; }
#ifdef DEBUG Reverse { return YREVERSE; }
fprintf (stderr, "\nYEND: %s", yytext); Padding { return YPADDING; }
#endif End { return YEND; }
return YEND; To { return YTO; }
} With { return YWITH; }
Global { yylval.c = 'g'; return YRXPFLAG; }
Once { yylval.c = 'o'; return YRXPFLAG; }
<SHAPES,ELASTIC>nw { yylval.shape = NW; return SHAPE; } <SHAPES,ELASTIC>nw { yylval.shape = NW; return SHAPE; }
@ -250,7 +249,7 @@ End {
<SHAPES,ELASTIC>wnw { yylval.shape = WNW; return SHAPE; } <SHAPES,ELASTIC>wnw { yylval.shape = WNW; return SHAPE; }
<ELASTIC>\) { <ELASTIC>\) {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n SYMBOL: \'%c\' -- STATE INITIAL", yytext[0]); fprintf (stderr, "\n SYMBOL: \'%c\' -- STATE INITIAL", yytext[0]);
#endif #endif
BEGIN INITIAL; BEGIN INITIAL;
@ -258,7 +257,7 @@ End {
} }
<SHAPES>\} { <SHAPES>\} {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n SYMBOL: \'%c\' -- STATE INITIAL", yytext[0]); fprintf (stderr, "\n SYMBOL: \'%c\' -- STATE INITIAL", yytext[0]);
#endif #endif
BEGIN INITIAL; BEGIN INITIAL;
@ -270,25 +269,33 @@ author|created|revision|revdate|indent {
/* /*
* general key words * general key words
*/ */
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\nKEYWORD: %s", yytext); fprintf (stderr, "\nKEYWORD: %s", yytext);
#endif #endif
yylval.s = (char *) strdup (yytext); yylval.s = (char *) strdup (yytext);
if (yylval.s == NULL) {
perror (PROJECT);
exit (EXIT_FAILURE);
}
return KEYWORD; return KEYWORD;
} }
[a-zA-ZäöüÄÖÜ][a-zA-Z0-9\-_üäöÜÄÖß]* { [a-zA-ZäöüÄÖÜ][a-zA-Z0-9\-_üäöÜÄÖß]* {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n WORD: %s", yytext); fprintf (stderr, "\n WORD: %s", yytext);
#endif #endif
yylval.s = (char *) strdup (yytext); yylval.s = (char *) strdup (yytext);
if (yylval.s == NULL) {
perror (PROJECT);
exit (EXIT_FAILURE);
}
return WORD; return WORD;
} }
[\+-]?[0-9]+ { [\+-]?[0-9]+ {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\nYNUMBER: %s", yytext); fprintf (stderr, "\nYNUMBER: %s", yytext);
#endif #endif
yylval.num = atoi (yytext); yylval.num = atoi (yytext);
@ -297,7 +304,7 @@ author|created|revision|revdate|indent {
[,(){}] { [,(){}] {
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\n SYMBOL: \'%c\'", yytext[0]); fprintf (stderr, "\n SYMBOL: \'%c\'", yytext[0]);
#endif #endif
return yytext[0]; return yytext[0];
@ -306,15 +313,16 @@ author|created|revision|revdate|indent {
#.*$ { #.*$ {
/* ignore comments */ /* ignore comments */
#ifdef DEBUG #ifdef LEXER_DEBUG
fprintf (stderr, "\nCOMMENT: %s", yytext+1); fprintf (stderr, "\nCOMMENT: %s", yytext+1);
#endif #endif
} }
. { . {
if (yyerrcnt++ < LEX_MAX_WARN)
yyerror ("Unrecognized input at %s", yytext); yyerror ("Unrecognized input at %s", yytext);
exit (EXIT_FAILURE); return YUNREC;
} }