cc65/test/ref/yacc2.c

/*
  !!DESCRIPTION!!
  !!ORIGIN!!      testsuite
  !!LICENCE!!     Public Domain
  !!AUTHOR!!      Groepaz/Hitmen
*/

#include <stdio.h>

# define YYTYPE char
struct yywork 
{ 
	YYTYPE verify, advance; 
} yycrank[] =
{
	{0,0},	{0,0},	{1,3},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{1,4},	{1,3},
	{0,0},	{0,0},	{0,0},	{0,0},

	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
 
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
 
	{0,0},	{1,5},	{5,7},	{5,7},
	{5,7},	{5,7},	{5,7},	{5,7},
	{5,7},	{5,7},	{5,7},	{5,7},
	{0,0},	{0,0},	{0,0},	{0,0},
/* 0x40 */
	{0,0},	{0,0},	{1,6},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{0,0},	{0,0},	{0,0},
 
	{0,0},	{0,0},	{0,0},	{0,0},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
 
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{0,0},	{0,0},
 
	{0,0},	{0,0},	{6,8},	{0,0},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
/* 0x80 */
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{0,0},	{0,0},

#ifdef CHARSETHACK
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},

 	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},

 	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},
	{0,0},	{0,0},	{0,0},	{0,0},

/* 0xc0 */
	{0,0},	{0,0},	{1,6},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{6,8},	{6,8},	{6,8},
	{6,8},	{0,0},	{0,0},	{0,0},
#endif
	{0,0}
};

struct yywork *yytop = yycrank+255;

int yyvstop[] =
{
	0,4,0,3,4,0,2,4,0,1,4,0,2,0,1,0,0
};

struct yysvf 
{
	struct yywork *yystoff;
	struct yysvf *yyother;
	int *yystops;
};

struct yysvf yysvec[] =
{
	{0,	0,	0},
	{yycrank+-1,	0,		0},
	{yycrank+0,	yysvec+1,	0},
	{yycrank+0,	0,		yyvstop+1},
	{yycrank+0,	0,		yyvstop+3},
	{yycrank+2,	0,		yyvstop+6},
	{yycrank+19,	0,		yyvstop+9},
	{yycrank+0,	yysvec+5,	yyvstop+12},
	{yycrank+0,	yysvec+6,	yyvstop+14},
	{0,	0,	0}
};

#if 0
# define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):GETCHAR())==('\n')?(yylineno++,yytchar):yytchar)==EOF?0:yytchar)
// *yylastch++ = yych = input();
void subtest1(void)
{
	*yylastch++ = yych = input();
}
#endif

// do some bogus operation to destroy all registers etc
static int bog=1234;
#if 0
void bogus(void)
{
	bog*=0x1234;
}
#else
#define bogus()	bog+=0x1234
#endif

#if 1
// yyt = yyt + yych;
void subtest2(void)
{
	register struct yywork *yyt;
	int yych;

	yyt=yycrank;
	yych=10;

	bogus();
	yyt = yyt + yych;

	printf("yyt: %d %d\n",yyt->verify,yyt->advance);
}
#endif

#if 1
// if(yyt <= yytop && yyt->verify+yysvec == yystate)
void subtest3(void)
{
	register struct yywork *yyt;
	register struct yysvf *yystate;

	yyt=yycrank;
	yystate=yysvec;
	
	bogus();
	if(yyt <= yytop && yyt->verify+yysvec == yystate)
	{
		printf("if ok %d %d\n",yyt->verify,yyt->advance);
	}
	else
	{
		printf("if not ok %d %d\n",yyt->verify,yyt->advance);
	}
}
#endif

short yyr2[]=
{
   0,   0,   2,   3,   3,   3,   3,   3,   3,   3,
   2,   3,   1,   1,   1 
};

// yyps -= yyr2[yyn];
void subtest4(void)
{
	register short *yyps, yyn;

	yyps=0x8004;
	yyn=0;

	while(yyn<14)
	{
		bogus();
		yyps -= yyr2[yyn];

		yyn++;
	}
	printf("yyps: %04x\n",yyps);
}

#if 1

int yylookret=10;
yylook()
{
	yylookret--;
	return yylookret;
}

// while((nstr = yylook()) >= 0)
void subtest5(void)
{
	int nstr;

	bogus();
	while((nstr = yylook()) >= 0)
	{
		printf("nstr: %04x\n",nstr);
		bogus();
	}
}
#endif

int main(void)
{
//    subtest1();
    subtest2();
    subtest3();
    subtest4();
    subtest5();

    return 0;
}