mirror of
https://github.com/ascii-boxes/boxes.git
synced 2025-06-23 11:12:05 +02:00
It drew a correct box for the first time!
This commit is contained in:
Thomas Jensen
parent
9b572008d8
commit
dc10567bac
324
src/parser.y
324
src/parser.y
@ -4,7 +4,7 @@
|
|||||||
* Date created: March 16, 1999 (Tuesday, 17:17h)
|
* Date created: March 16, 1999 (Tuesday, 17:17h)
|
||||||
* Author: Thomas Jensen
|
* Author: Thomas Jensen
|
||||||
* tsjensen@stud.informatik.uni-erlangen.de
|
* tsjensen@stud.informatik.uni-erlangen.de
|
||||||
* Version: $Id: parser.y,v 1.2 1999/03/19 17:57:20 tsjensen Exp tsjensen $
|
* Version: $Id: parser.y,v 1.3 1999/03/24 17:29:12 tsjensen Exp tsjensen $
|
||||||
* Language: yacc (ANSI C)
|
* Language: yacc (ANSI C)
|
||||||
* Purpose: Yacc parser for boxes configuration files
|
* Purpose: Yacc parser for boxes configuration files
|
||||||
* Remarks: ---
|
* Remarks: ---
|
||||||
@ -12,6 +12,10 @@
|
|||||||
* Revision History:
|
* Revision History:
|
||||||
*
|
*
|
||||||
* $Log: parser.y,v $
|
* $Log: parser.y,v $
|
||||||
|
* Revision 1.3 1999/03/24 17:29:12 tsjensen
|
||||||
|
* Added detection of empty shapes ("") which are now cleared (+warning)
|
||||||
|
* Changed rcs string to #ident directive
|
||||||
|
*
|
||||||
* Revision 1.2 1999/03/19 17:57:20 tsjensen
|
* Revision 1.2 1999/03/19 17:57:20 tsjensen
|
||||||
* ... still programming ...
|
* ... still programming ...
|
||||||
*
|
*
|
||||||
@ -28,7 +32,7 @@
|
|||||||
#include <string.h>
|
#include <string.h>
|
||||||
#include "boxes.h"
|
#include "boxes.h"
|
||||||
|
|
||||||
#ident "$Id: parser.y,v 1.2 1999/03/19 17:57:20 tsjensen Exp tsjensen $";
|
#ident "$Id: parser.y,v 1.3 1999/03/24 17:29:12 tsjensen Exp tsjensen $";
|
||||||
|
|
||||||
|
|
||||||
static int pflicht = 0;
|
static int pflicht = 0;
|
||||||
@ -36,104 +40,107 @@ static int time_for_se_check = 0;
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
shape_t corner_ambiguity()
|
int check_sizes()
|
||||||
/*
|
/*
|
||||||
* Checks for ambiguity in corner specification using elastic and shape
|
* For the author's convenience, it is required that shapes on one side
|
||||||
* data. It must be clear which shape to use for each corner of the box.
|
* have equal width (vertical sides) and height (horizontal sides).
|
||||||
*
|
*
|
||||||
* A corner specification is ambiguous if the distance between the corner
|
* RETURNS: == 0 no problem detected
|
||||||
* and the nearest specified shape in horizontal and vertical direction is
|
* != 0 on error (prints error message, too)
|
||||||
* equal and both shapes have the same elasticity.
|
*
|
||||||
*
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||||
* RETURNS: ANZ_SHAPES no ambiguity
|
*/
|
||||||
* a corner spec is ambiguous
|
{
|
||||||
|
int i, j, k;
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
fprintf (stderr, "check_sizes()\n");
|
||||||
|
#endif
|
||||||
|
|
||||||
|
for (i=0; i<ANZ_SIDES; ++i) {
|
||||||
|
if (i == 0 || i == 2) {
|
||||||
|
/*
|
||||||
|
* horizontal
|
||||||
|
*/
|
||||||
|
for (j=0; j<SHAPES_PER_SIDE-1; ++j) {
|
||||||
|
if (designs[design_idx].shape[sides[i][j]].height == 0)
|
||||||
|
continue;
|
||||||
|
for (k=j+1; k<SHAPES_PER_SIDE; ++k) {
|
||||||
|
if (designs[design_idx].shape[sides[i][k]].height == 0)
|
||||||
|
continue;
|
||||||
|
if (designs[design_idx].shape[sides[i][j]].height
|
||||||
|
!= designs[design_idx].shape[sides[i][k]].height) {
|
||||||
|
yyerror ("All shapes on horizontal sides must be of "
|
||||||
|
"equal height (%s: %d, %s: %d)\n",
|
||||||
|
shape_name[sides[i][j]],
|
||||||
|
designs[design_idx].shape[sides[i][j]].height,
|
||||||
|
shape_name[sides[i][k]],
|
||||||
|
designs[design_idx].shape[sides[i][k]].height);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
/*
|
||||||
|
* vertical
|
||||||
|
*/
|
||||||
|
for (j=0; j<SHAPES_PER_SIDE-1; ++j) {
|
||||||
|
if (designs[design_idx].shape[sides[i][j]].width == 0)
|
||||||
|
continue;
|
||||||
|
for (k=j+1; k<SHAPES_PER_SIDE; ++k) {
|
||||||
|
if (designs[design_idx].shape[sides[i][k]].width == 0)
|
||||||
|
continue;
|
||||||
|
if (designs[design_idx].shape[sides[i][j]].width
|
||||||
|
!= designs[design_idx].shape[sides[i][k]].width) {
|
||||||
|
yyerror ("All shapes on vertical sides must be of "
|
||||||
|
"equal width (%s: %d, %s: %d)\n",
|
||||||
|
shape_name[sides[i][j]],
|
||||||
|
designs[design_idx].shape[sides[i][j]].width,
|
||||||
|
shape_name[sides[i][k]],
|
||||||
|
designs[design_idx].shape[sides[i][k]].width);
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0; /* all clear */
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
int corner_check()
|
||||||
|
/*
|
||||||
|
* Check that all corners are explicitly specified in the config file.
|
||||||
|
* Check that no corners are elastic.
|
||||||
|
*
|
||||||
|
* RETURNS: == 0 no problem detected
|
||||||
|
* != 0 on error
|
||||||
*
|
*
|
||||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||||
*/
|
*/
|
||||||
{
|
{
|
||||||
int hdist, vdist; /* distances to corners */
|
|
||||||
shape_t hcand, vcand; /* candidate shapes */
|
|
||||||
int c;
|
int c;
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
fprintf (stderr, "corner_check()\n");
|
||||||
|
#endif
|
||||||
|
|
||||||
for (c=0; c<ANZ_CORNERS; ++c) {
|
for (c=0; c<ANZ_CORNERS; ++c) {
|
||||||
|
if (isempty(designs[design_idx].shape+corners[c])) {
|
||||||
hdist = vdist = 0;
|
yyerror ("Missing shape specification for %s corner",
|
||||||
hcand = vcand = 0;
|
shape_name[corners[c]]);
|
||||||
|
return 1;
|
||||||
switch (corners[c])
|
|
||||||
{
|
|
||||||
case NW:
|
|
||||||
if (designs[design_idx].shape[NW].chars == NULL) {
|
|
||||||
if (designs[design_idx].shape[NNW].chars) { hdist = 1; hcand = NNW; }
|
|
||||||
else if (designs[design_idx].shape[N].chars) { hdist = 2; hcand = N; }
|
|
||||||
else if (designs[design_idx].shape[NNE].chars) { hdist = 3; hcand = NNE; }
|
|
||||||
else if (designs[design_idx].shape[NE].chars) { hdist = 4; hcand = NE; }
|
|
||||||
if (designs[design_idx].shape[WNW].chars) { vdist = 1; vcand = WNW; }
|
|
||||||
else if (designs[design_idx].shape[W].chars) { vdist = 2; vcand = W; }
|
|
||||||
else if (designs[design_idx].shape[WSW].chars) { vdist = 3; vcand = WSW; }
|
|
||||||
else if (designs[design_idx].shape[SW].chars) { vdist = 4; vcand = SW; }
|
|
||||||
}
|
}
|
||||||
else
|
if (designs[design_idx].shape[corners[c]].elastic) {
|
||||||
continue;
|
yyerror ("Corners may not be elastic (%s)", shape_name[corners[c]]);
|
||||||
break;
|
return 1;
|
||||||
|
|
||||||
case NE:
|
|
||||||
if (designs[design_idx].shape[NE].chars == NULL) {
|
|
||||||
if (designs[design_idx].shape[NNE].chars) { hdist = 1; hcand = NNE; }
|
|
||||||
else if (designs[design_idx].shape[N].chars) { hdist = 2; hcand = N; }
|
|
||||||
else if (designs[design_idx].shape[NNW].chars) { hdist = 3; hcand = NNW; }
|
|
||||||
else if (designs[design_idx].shape[NW].chars) { hdist = 4; hcand = NW; }
|
|
||||||
if (designs[design_idx].shape[ENE].chars) { vdist = 1; vcand = ENE; }
|
|
||||||
else if (designs[design_idx].shape[E].chars) { vdist = 2; vcand = E; }
|
|
||||||
else if (designs[design_idx].shape[ESE].chars) { vdist = 3; vcand = ESE; }
|
|
||||||
else if (designs[design_idx].shape[SE].chars) { vdist = 4; vcand = SE; }
|
|
||||||
}
|
}
|
||||||
else
|
|
||||||
continue;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case SE:
|
|
||||||
if (designs[design_idx].shape[SE].chars == NULL) {
|
|
||||||
if (designs[design_idx].shape[SSE].chars) { hdist = 1; hcand = SSE; }
|
|
||||||
else if (designs[design_idx].shape[S].chars) { hdist = 2; hcand = S; }
|
|
||||||
else if (designs[design_idx].shape[SSW].chars) { hdist = 3; hcand = SSW; }
|
|
||||||
else if (designs[design_idx].shape[SW].chars) { hdist = 4; hcand = SW; }
|
|
||||||
if (designs[design_idx].shape[ESE].chars) { vdist = 1; vcand = ESE; }
|
|
||||||
else if (designs[design_idx].shape[E].chars) { vdist = 2; vcand = E; }
|
|
||||||
else if (designs[design_idx].shape[ENE].chars) { vdist = 3; vcand = ENE; }
|
|
||||||
else if (designs[design_idx].shape[NE].chars) { vdist = 4; vcand = NE; }
|
|
||||||
}
|
|
||||||
else
|
|
||||||
continue;
|
|
||||||
break;
|
|
||||||
|
|
||||||
case SW:
|
|
||||||
if (designs[design_idx].shape[SW].chars == NULL) {
|
|
||||||
if (designs[design_idx].shape[SSW].chars) { hdist = 1; hcand = SSW; }
|
|
||||||
else if (designs[design_idx].shape[S].chars) { hdist = 2; hcand = S; }
|
|
||||||
else if (designs[design_idx].shape[SSE].chars) { hdist = 3; hcand = SSE; }
|
|
||||||
else if (designs[design_idx].shape[SE].chars) { hdist = 4; hcand = SE; }
|
|
||||||
if (designs[design_idx].shape[WSW].chars) { vdist = 1; vcand = WSW; }
|
|
||||||
else if (designs[design_idx].shape[W].chars) { vdist = 2; vcand = W; }
|
|
||||||
else if (designs[design_idx].shape[WNW].chars) { vdist = 3; vcand = WNW; }
|
|
||||||
else if (designs[design_idx].shape[NW].chars) { vdist = 4; vcand = NW; }
|
|
||||||
}
|
|
||||||
else
|
|
||||||
continue;
|
|
||||||
break;
|
|
||||||
|
|
||||||
default:
|
|
||||||
fprintf (stderr, "%s: internal error. Sorry.\n", PROJECT);
|
|
||||||
return corners[c];
|
|
||||||
}
|
}
|
||||||
|
|
||||||
if ((hdist == vdist) &&
|
return 0; /* all clear */
|
||||||
designs[design_idx].shape[hcand].elastic ==
|
|
||||||
designs[design_idx].shape[vcand].elastic)
|
|
||||||
return corners[c];
|
|
||||||
}
|
|
||||||
|
|
||||||
return (shape_t) ANZ_SHAPES; /* no ambiguity */
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -142,9 +149,13 @@ shape_t non_existent_elastics()
|
|||||||
{
|
{
|
||||||
shape_t i;
|
shape_t i;
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
fprintf (stderr, "non_existent_elastics()\n");
|
||||||
|
#endif
|
||||||
|
|
||||||
for (i=0; i<ANZ_SHAPES; ++i) {
|
for (i=0; i<ANZ_SHAPES; ++i) {
|
||||||
if (designs[design_idx].shape[i].elastic
|
if (designs[design_idx].shape[i].elastic
|
||||||
&& (designs[design_idx].shape[i].chars == NULL))
|
&& isempty(designs[design_idx].shape+i))
|
||||||
return i;
|
return i;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -155,38 +166,61 @@ shape_t non_existent_elastics()
|
|||||||
|
|
||||||
int insufficient_elasticity()
|
int insufficient_elasticity()
|
||||||
{
|
{
|
||||||
int i;
|
int i, j, ef;
|
||||||
shape_t s;
|
|
||||||
int ok[4] = {0, 0, 0, 0}; /* N, E, S, W */
|
|
||||||
|
|
||||||
for (s=0; s<ANZ_SHAPES; ++s) {
|
#ifdef DEBUG
|
||||||
if (designs[design_idx].shape[s].elastic) {
|
fprintf (stderr, "insufficient_elasticity()\n");
|
||||||
switch (s) {
|
#endif
|
||||||
case NW: ok[0] = 1; ok[3] = 1; break;
|
|
||||||
case SW: ok[2] = 1; ok[3] = 1; break;
|
for (i=0; i<ANZ_SIDES; ++i) {
|
||||||
case NE: ok[0] = 1; ok[1] = 1; break;
|
for (j=1,ef=0; j<4; ++j)
|
||||||
case SE: ok[2] = 1; ok[1] = 1; break;
|
if (designs[design_idx].shape[sides[i][j]].elastic)
|
||||||
case N: case NNE: case NNW: ok[0] = 1; break;
|
++ef;
|
||||||
case E: case ESE: case ENE: ok[1] = 1; break;
|
if (ef != 1 && ef != 2)
|
||||||
case S: case SSE: case SSW: ok[2] = 1; break;
|
return 1; /* error */
|
||||||
case W: case WSW: case WNW: ok[3] = 1; break;
|
}
|
||||||
default:
|
|
||||||
yyerror ("Internal parser error");
|
return 0; /* all clear */
|
||||||
return 1;
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
int adjoining_elastics()
|
||||||
|
{
|
||||||
|
int i, j, ef;
|
||||||
|
|
||||||
|
#ifdef DEBUG
|
||||||
|
fprintf (stderr, "adjoining_elastics()\n");
|
||||||
|
#endif
|
||||||
|
|
||||||
|
for (i=0; i<ANZ_SIDES; ++i) {
|
||||||
|
ef = 0;
|
||||||
|
for (j=1; j<4; ++j) {
|
||||||
|
if (isempty(designs[design_idx].shape+sides[i][j]))
|
||||||
|
continue;
|
||||||
|
if (designs[design_idx].shape[sides[i][j]].elastic) {
|
||||||
|
if (ef)
|
||||||
|
return 1; /* error detected */
|
||||||
|
else
|
||||||
|
ef = 1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
ef = 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
for (i=0; i<4; ++i) {
|
return 0; /* all clear */
|
||||||
if (!ok[i]) return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
return 0; /* no problem detected */
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
int perform_se_check()
|
int perform_se_check()
|
||||||
|
/*
|
||||||
|
* (shape-elastic check)
|
||||||
|
*
|
||||||
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||||
|
*/
|
||||||
{
|
{
|
||||||
shape_t s_rc;
|
shape_t s_rc;
|
||||||
|
|
||||||
@ -197,15 +231,18 @@ int perform_se_check()
|
|||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (insufficient_elasticity()) {
|
if (corner_check()) {
|
||||||
yyerror ("At least one shape per side must be elastic");
|
/* Error message printed in check func */
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
s_rc = corner_ambiguity();
|
if (insufficient_elasticity()) {
|
||||||
if (s_rc != ANZ_SHAPES) {
|
yyerror ("There must be exactly one or two elastic shapes per side");
|
||||||
yyerror ("Ambiguous Shape/Elastic specification for %s corner",
|
return 1;
|
||||||
shape_name[s_rc]);
|
}
|
||||||
|
|
||||||
|
if (adjoining_elastics()) {
|
||||||
|
yyerror ("Two adjoining shapes may not be elastic");
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -326,32 +363,28 @@ block: YSAMPLE '{' STRING '}'
|
|||||||
{
|
{
|
||||||
/*
|
/*
|
||||||
* Check that at least one shape per side is specified
|
* Check that at least one shape per side is specified
|
||||||
|
* (excluding corners)
|
||||||
*/
|
*/
|
||||||
if (!((designs[design_idx].shape[NW].chars
|
if ((isempty (designs[design_idx].shape + NNW)
|
||||||
|| designs[design_idx].shape[NNW].chars
|
&& isempty (designs[design_idx].shape + N)
|
||||||
|| designs[design_idx].shape[N].chars
|
&& isempty (designs[design_idx].shape + NNE))
|
||||||
|| designs[design_idx].shape[NNE].chars
|
|| (isempty (designs[design_idx].shape + ENE)
|
||||||
|| designs[design_idx].shape[NE].chars)
|
&& isempty (designs[design_idx].shape + E)
|
||||||
&& (designs[design_idx].shape[NE].chars
|
&& isempty (designs[design_idx].shape + ESE))
|
||||||
|| designs[design_idx].shape[ENE].chars
|
|| (isempty (designs[design_idx].shape + SSW)
|
||||||
|| designs[design_idx].shape[E].chars
|
&& isempty (designs[design_idx].shape + S)
|
||||||
|| designs[design_idx].shape[ESE].chars
|
&& isempty (designs[design_idx].shape + SSE))
|
||||||
|| designs[design_idx].shape[SE].chars)
|
|| (isempty (designs[design_idx].shape + WNW)
|
||||||
&& (designs[design_idx].shape[SW].chars
|
&& isempty (designs[design_idx].shape + W)
|
||||||
|| designs[design_idx].shape[SSW].chars
|
&& isempty (designs[design_idx].shape + WSW)))
|
||||||
|| designs[design_idx].shape[S].chars
|
|
||||||
|| designs[design_idx].shape[SSE].chars
|
|
||||||
|| designs[design_idx].shape[SE].chars)
|
|
||||||
&& (designs[design_idx].shape[NW].chars
|
|
||||||
|| designs[design_idx].shape[WNW].chars
|
|
||||||
|| designs[design_idx].shape[W].chars
|
|
||||||
|| designs[design_idx].shape[WSW].chars
|
|
||||||
|| designs[design_idx].shape[SW].chars)))
|
|
||||||
{
|
{
|
||||||
yyerror ("Must specify at least one shape per side");
|
yyerror ("Must specify at least one shape per side");
|
||||||
YYABORT;
|
YYABORT;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (check_sizes())
|
||||||
|
YYABORT;
|
||||||
|
|
||||||
++pflicht;
|
++pflicht;
|
||||||
if (++time_for_se_check > 1) {
|
if (++time_for_se_check > 1) {
|
||||||
if (perform_se_check() != 0)
|
if (perform_se_check() != 0)
|
||||||
@ -379,8 +412,14 @@ the_shapes: the_shapes SHAPE slist
|
|||||||
"height %d)\n", shape_name[$2], $3.width, $3.height);
|
"height %d)\n", shape_name[$2], $3.width, $3.height);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
if (isempty (designs[design_idx].shape+$2)) {
|
||||||
designs[design_idx].shape[$2] = $3;
|
designs[design_idx].shape[$2] = $3;
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
yyerror ("Duplicate specification for %s shape", shape_name[$2]);
|
||||||
|
YYABORT;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
| SHAPE slist
|
| SHAPE slist
|
||||||
{
|
{
|
||||||
@ -389,8 +428,14 @@ the_shapes: the_shapes SHAPE slist
|
|||||||
"height %d)\n", shape_name[$1], $2.width, $2.height);
|
"height %d)\n", shape_name[$1], $2.width, $2.height);
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
if (isempty (designs[design_idx].shape + $1)) {
|
||||||
designs[design_idx].shape[$1] = $2;
|
designs[design_idx].shape[$1] = $2;
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
yyerror ("Duplicate specification for %s shape", shape_name[$1]);
|
||||||
|
YYABORT;
|
||||||
|
}
|
||||||
|
}
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
@ -453,16 +498,17 @@ slist: '(' slist_entries ')'
|
|||||||
|
|
||||||
yyerror ("warning: minimum shape dimension is 1x1 - clearing.");
|
yyerror ("warning: minimum shape dimension is 1x1 - clearing.");
|
||||||
|
|
||||||
$$ = (sentry_t) { NULL, 0, 0, 0 };
|
$$ = SENTRY_INITIALIZER;
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$$ = $2;
|
$$ = $2;
|
||||||
|
/* memcpy (&($$), &($2), sizeof(sentry_t)); */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
| '(' ')'
|
| '(' ')'
|
||||||
{
|
{
|
||||||
$$ = (sentry_t) { NULL, 0, 0, 0 };
|
$$ = SENTRY_INITIALIZER;
|
||||||
}
|
}
|
||||||
;
|
;
|
||||||
|
|
||||||
@ -499,7 +545,7 @@ slist_entries: slist_entries ',' STRING
|
|||||||
|
|
||||||
| STRING
|
| STRING
|
||||||
{
|
{
|
||||||
sentry_t rval;
|
sentry_t rval = SENTRY_INITIALIZER;
|
||||||
|
|
||||||
#ifdef DEBUG
|
#ifdef DEBUG
|
||||||
fprintf (stderr, "Initializing a shape entry with first line\n");
|
fprintf (stderr, "Initializing a shape entry with first line\n");
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user