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

Added new tokens YCHGDEL and YDELWORD

Browse Source 
Added code for DELIMITER statements
This commit is contained in:
Thomas Jensen 1999-08-18 15:38:44 +00:00
parent 3a59866e97
commit 52816696e6
1 changed files with 31 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/parser.y
View File

@ -4,7 +4,7 @@
* Date created: March 16, 1999 (Tuesday, 17:17h) * Date created: March 16, 1999 (Tuesday, 17:17h)
* Author: Copyright (C) 1999 Thomas Jensen * Author: Copyright (C) 1999 Thomas Jensen
* tsjensen@stud.informatik.uni-erlangen.de * tsjensen@stud.informatik.uni-erlangen.de
* Version: $Id: parser.y,v 1.19 1999/08/14 19:19:25 tsjensen Exp tsjensen $ * Version: $Id: parser.y,v 1.20 1999/08/16 16:29:25 tsjensen Exp tsjensen $
* Language: GNU bison (ANSI C) * Language: GNU bison (ANSI C)
* Purpose: Yacc parser for boxes configuration files * Purpose: Yacc parser for boxes configuration files
* *
@ -24,6 +24,11 @@
* Revision History: * Revision History:
* *
* $Log: parser.y,v $ * $Log: parser.y,v $
* Revision 1.20 1999/08/16 16:29:25 tsjensen
* Changed SAMPLE block syntax to get rid of all the quoting sh*t in SAMPLE
* blocks. Samples now look authentic even in the config file. Very simple now.
* Added new token YENDSAMPLE in the process.
*
* Revision 1.19 1999/08/14 19:19:25 tsjensen * Revision 1.19 1999/08/14 19:19:25 tsjensen
* Added anz_shapespec variable to count non-deepempty user-specified shapes * Added anz_shapespec variable to count non-deepempty user-specified shapes
* (must at least be 1) * (must at least be 1)
@ -121,7 +126,7 @@
const char rcsid_parser_y[] = const char rcsid_parser_y[] =
"$Id: parser.y,v 1.19 1999/08/14 19:19:25 tsjensen Exp tsjensen $"; "$Id: parser.y,v 1.20 1999/08/16 16:29:25 tsjensen Exp tsjensen $";
static int pflicht = 0; static int pflicht = 0;
@ -349,6 +354,7 @@ static void recover()
pflicht = 0; pflicht = 0;
time_for_se_check = 0; time_for_se_check = 0;
anz_shapespec = 0; anz_shapespec = 0;
chg_strdelims ('\\', '\"');
/* /*
* Clear current design * Clear current design
@ -398,13 +404,14 @@ static int design_needed (const char *name, const int design_idx)
} }
%token YSHAPES YELASTIC YPADDING YSAMPLE YENDSAMPLE YBOX YEND YUNREC %token YSHAPES YELASTIC YPADDING YSAMPLE YENDSAMPLE YBOX YEND YUNREC
%token YREPLACE YREVERSE YTO YWITH %token YREPLACE YREVERSE YTO YWITH YCHGDEL
%token <s> KEYWORD %token <s> KEYWORD
%token <s> WORD %token <s> WORD
%token <s> STRING %token <s> STRING
%token <shape> SHAPE %token <shape> SHAPE
%token <num> YNUMBER %token <num> YNUMBER
%token <c> YRXPFLAG %token <c> YRXPFLAG
%token <s> YDELWORD
%type <sentry> shape_def %type <sentry> shape_def
%type <sentry> shape_lines %type <sentry> shape_lines
@ -465,9 +472,8 @@ config_file: config_file design_or_error | design_or_error ;
design_or_error: design | error design_or_error: design | error
{ {
if (!speeding) { if (!speeding && !skipping) {
recover(); recover();
if (!skipping)
yyerror ("skipping to next design"); yyerror ("skipping to next design");
skipping = 1; skipping = 1;
} }
@ -477,6 +483,7 @@ design_or_error: design | error
design: YBOX WORD design: YBOX WORD
{ {
chg_strdelims ('\\', '\"');
skipping = 0; skipping = 0;
if (!design_needed ($2, design_idx)) { if (!design_needed ($2, design_idx)) {
speeding = 1; speeding = 1;
@ -609,6 +616,24 @@ entry: KEYWORD STRING
} }
} }
| YCHGDEL YDELWORD
{
if (strlen($2) != 2) {
yyerror ("invalid string delimiter specification -- %s", $2);
YYERROR;
}
if (($2)[0] == ($2)[1]) {
yyerror ("string delimiter and escape char may not be the same");
YYERROR;
}
if (strchr (LEX_SDELIM, ($2)[1]) == NULL) {
yyerror ("invalid string delimiter -- %c (try one of %s)",
($2)[1], LEX_SDELIM);
YYERROR;
}
chg_strdelims ($2[0], $2[1]);
}
| WORD STRING | WORD STRING
{ {
#ifdef PARSER_DEBUG #ifdef PARSER_DEBUG