/* A recursive-descent parser generated by peg 0.1.18 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define YYRULECOUNT 18
#line 1 "cyoa.leg"

  
#include <stdio.h>
#include <stdlib.h>
#include <assert.h>

typedef struct page_t page_t;
typedef struct footer_t footer_t;

typedef struct page_node_t page_node_t;
typedef struct choicelist choicelist;

struct page_node_t {
  page_t *page;
  page_node_t *next;
};

#define FOOTER_END	1
#define FOOTER_GOTO	2
#define FOOTER_CHOICES	3
struct footer_t {
  int type;
  union {
    choicelist *choices;
    char *link;
  };
};

struct page_t {
  char *id;
  char *body;
  footer_t footer;
};

typedef struct statcheck_t statcheck_t;
typedef struct statchange_t statchange_t;
typedef struct choice_t choice_t;

#define STATCHECK_GT 1
#define STATCHECK_LT 2

struct statcheck_t {
  char *stat;
  int value;
  int rel;
};

struct statchange_t {
  char *stat;
  int addend;
};


#define CHOICE_STATCHECK  0x1
#define CHOICE_STATCHANGE 0x2

struct choice_t {
  int flags;
  int option;
  char *flavor;
  statcheck_t statcheck;
  char *redirect;
  statchange_t statchange;
};

struct choicelist {
  choice_t *choice;
  choicelist *next;
};

page_node_t *pages;

choice_t *make_choice();

void add_page(page_t*);
void add_choice(page_t*, choice_t*);

page_t *emit_ending();
page_t *emit_goto(char*);
page_t *emit_choices();

void append_body(page_t *page, char *str);

union value {
  page_t *page;
  char *string;
  choice_t *choice;
};

#define YYSTYPE union value


#ifndef YY_MALLOC
#define YY_MALLOC(C, N)		malloc(N)
#endif
#ifndef YY_REALLOC
#define YY_REALLOC(C, P, N)	realloc(P, N)
#endif
#ifndef YY_FREE
#define YY_FREE(C, P)		free(P)
#endif
#ifndef YY_LOCAL
#define YY_LOCAL(T)	static T
#endif
#ifndef YY_ACTION
#define YY_ACTION(T)	static T
#endif
#ifndef YY_RULE
#define YY_RULE(T)	static T
#endif
#ifndef YY_PARSE
#define YY_PARSE(T)	T
#endif
#ifndef YYPARSE
#define YYPARSE		yyparse
#endif
#ifndef YYPARSEFROM
#define YYPARSEFROM	yyparsefrom
#endif
#ifndef YYRELEASE
#define YYRELEASE	yyrelease
#endif
#ifndef YY_BEGIN
#define YY_BEGIN	( yy->__begin= yy->__pos, 1)
#endif
#ifndef YY_END
#define YY_END		( yy->__end= yy->__pos, 1)
#endif
#ifdef YY_DEBUG
# define yyprintf(args)	fprintf args
#else
# define yyprintf(args)
#endif
#ifndef YYSTYPE
#define YYSTYPE	int
#endif
#ifndef YY_STACK_SIZE
#define YY_STACK_SIZE 128
#endif

#ifndef YY_BUFFER_SIZE
#define YY_BUFFER_SIZE 1024
#endif

#ifndef YY_PART

typedef struct _yycontext yycontext;
typedef void (*yyaction)(yycontext *yy, char *yytext, int yyleng);
typedef struct _yythunk { int begin, end;  yyaction  action;  struct _yythunk *next; } yythunk;

struct _yycontext {
  char     *__buf;
  int       __buflen;
  int       __pos;
  int       __limit;
  char     *__text;
  int       __textlen;
  int       __begin;
  int       __end;
  int       __textmax;
  yythunk  *__thunks;
  int       __thunkslen;
  int       __thunkpos;
  YYSTYPE   __;
  YYSTYPE  *__val;
  YYSTYPE  *__vals;
  int       __valslen;
#ifdef YY_CTX_MEMBERS
  YY_CTX_MEMBERS
#endif
};

#ifdef YY_CTX_LOCAL
#define YY_CTX_PARAM_	yycontext *yyctx,
#define YY_CTX_PARAM	yycontext *yyctx
#define YY_CTX_ARG_	yyctx,
#define YY_CTX_ARG	yyctx
#ifndef YY_INPUT
#define YY_INPUT(yy, buf, result, max_size)		\
  {							\
    int yyc= getchar();					\
    result= (EOF == yyc) ? 0 : (*(buf)= yyc, 1);	\
    yyprintf((stderr, "<%c>", yyc));			\
  }
#endif
#else
#define YY_CTX_PARAM_
#define YY_CTX_PARAM
#define YY_CTX_ARG_
#define YY_CTX_ARG
yycontext _yyctx= { 0, 0 };
yycontext *yyctx= &_yyctx;
#ifndef YY_INPUT
#define YY_INPUT(buf, result, max_size)			\
  {							\
    int yyc= getchar();					\
    result= (EOF == yyc) ? 0 : (*(buf)= yyc, 1);	\
    yyprintf((stderr, "<%c>", yyc));			\
  }
#endif
#endif

YY_LOCAL(int) yyrefill(yycontext *yy)
{
  int yyn;
  while (yy->__buflen - yy->__pos < 512)
    {
      yy->__buflen *= 2;
      yy->__buf= (char *)YY_REALLOC(yy, yy->__buf, yy->__buflen);
    }
#ifdef YY_CTX_LOCAL
  YY_INPUT(yy, (yy->__buf + yy->__pos), yyn, (yy->__buflen - yy->__pos));
#else
  YY_INPUT((yy->__buf + yy->__pos), yyn, (yy->__buflen - yy->__pos));
#endif
  if (!yyn) return 0;
  yy->__limit += yyn;
  return 1;
}

YY_LOCAL(int) yymatchDot(yycontext *yy)
{
  if (yy->__pos >= yy->__limit && !yyrefill(yy)) return 0;
  ++yy->__pos;
  return 1;
}

YY_LOCAL(int) yymatchChar(yycontext *yy, int c)
{
  if (yy->__pos >= yy->__limit && !yyrefill(yy)) return 0;
  if ((unsigned char)yy->__buf[yy->__pos] == c)
    {
      ++yy->__pos;
      yyprintf((stderr, "  ok   yymatchChar(yy, %c) @ %s\n", c, yy->__buf+yy->__pos));
      return 1;
    }
  yyprintf((stderr, "  fail yymatchChar(yy, %c) @ %s\n", c, yy->__buf+yy->__pos));
  return 0;
}

YY_LOCAL(int) yymatchString(yycontext *yy, const char *s)
{
  int yysav= yy->__pos;
  while (*s)
    {
      if (yy->__pos >= yy->__limit && !yyrefill(yy)) return 0;
      if (yy->__buf[yy->__pos] != *s)
        {
          yy->__pos= yysav;
          return 0;
        }
      ++s;
      ++yy->__pos;
    }
  return 1;
}

YY_LOCAL(int) yymatchClass(yycontext *yy, unsigned char *bits)
{
  int c;
  if (yy->__pos >= yy->__limit && !yyrefill(yy)) return 0;
  c= (unsigned char)yy->__buf[yy->__pos];
  if (bits[c >> 3] & (1 << (c & 7)))
    {
      ++yy->__pos;
      yyprintf((stderr, "  ok   yymatchClass @ %s\n", yy->__buf+yy->__pos));
      return 1;
    }
  yyprintf((stderr, "  fail yymatchClass @ %s\n", yy->__buf+yy->__pos));
  return 0;
}

YY_LOCAL(void) yyDo(yycontext *yy, yyaction action, int begin, int end)
{
  while (yy->__thunkpos >= yy->__thunkslen)
    {
      yy->__thunkslen *= 2;
      yy->__thunks= (yythunk *)YY_REALLOC(yy, yy->__thunks, sizeof(yythunk) * yy->__thunkslen);
    }
  yy->__thunks[yy->__thunkpos].begin=  begin;
  yy->__thunks[yy->__thunkpos].end=    end;
  yy->__thunks[yy->__thunkpos].action= action;
  ++yy->__thunkpos;
}

YY_LOCAL(int) yyText(yycontext *yy, int begin, int end)
{
  int yyleng= end - begin;
  if (yyleng <= 0)
    yyleng= 0;
  else
    {
      while (yy->__textlen < (yyleng + 1))
	{
	  yy->__textlen *= 2;
	  yy->__text= (char *)YY_REALLOC(yy, yy->__text, yy->__textlen);
	}
      memcpy(yy->__text, yy->__buf + begin, yyleng);
    }
  yy->__text[yyleng]= '\0';
  return yyleng;
}

YY_LOCAL(void) yyDone(yycontext *yy)
{
  int pos;
  for (pos= 0;  pos < yy->__thunkpos;  ++pos)
    {
      yythunk *thunk= &yy->__thunks[pos];
      int yyleng= thunk->end ? yyText(yy, thunk->begin, thunk->end) : thunk->begin;
      yyprintf((stderr, "DO [%d] %p %s\n", pos, thunk->action, yy->__text));
      thunk->action(yy, yy->__text, yyleng);
    }
  yy->__thunkpos= 0;
}

YY_LOCAL(void) yyCommit(yycontext *yy)
{
  if ((yy->__limit -= yy->__pos))
    {
      memmove(yy->__buf, yy->__buf + yy->__pos, yy->__limit);
    }
  yy->__begin -= yy->__pos;
  yy->__end -= yy->__pos;
  yy->__pos= yy->__thunkpos= 0;
}

YY_LOCAL(int) yyAccept(yycontext *yy, int tp0)
{
  if (tp0)
    {
      fprintf(stderr, "accept denied at %d\n", tp0);
      return 0;
    }
  else
    {
      yyDone(yy);
      yyCommit(yy);
    }
  return 1;
}

YY_LOCAL(void) yyPush(yycontext *yy, char *text, int count)
{
  yy->__val += count;
  while (yy->__valslen <= yy->__val - yy->__vals)
    {
      long offset= yy->__val - yy->__vals;
      yy->__valslen *= 2;
      yy->__vals= (YYSTYPE *)YY_REALLOC(yy, yy->__vals, sizeof(YYSTYPE) * yy->__valslen);
      yy->__val= yy->__vals + offset;
    }
}
YY_LOCAL(void) yyPop(yycontext *yy, char *text, int count)   { yy->__val -= count; }
YY_LOCAL(void) yySet(yycontext *yy, char *text, int count)   { yy->__val[count]= yy->__; }

#endif /* YY_PART */

#define	YYACCEPT	yyAccept(yy, yythunkpos0)

YY_RULE(int) yy_StatName(yycontext *yy); /* 18 */
YY_RULE(int) yy_StatChange(yycontext *yy); /* 17 */
YY_RULE(int) yy_StatCheck(yycontext *yy); /* 16 */
YY_RULE(int) yy_Redirect(yycontext *yy); /* 15 */
YY_RULE(int) yy_Spacing(yycontext *yy); /* 14 */
YY_RULE(int) yy_Choice(yycontext *yy); /* 13 */
YY_RULE(int) yy_Goto(yycontext *yy); /* 12 */
YY_RULE(int) yy_Ending(yycontext *yy); /* 11 */
YY_RULE(int) yy_TextLine(yycontext *yy); /* 10 */
YY_RULE(int) yy_Footer(yycontext *yy); /* 9 */
YY_RULE(int) yy_Newline(yycontext *yy); /* 8 */
YY_RULE(int) yy_Identifier(yycontext *yy); /* 7 */
YY_RULE(int) yy_Body(yycontext *yy); /* 6 */
YY_RULE(int) yy_Header(yycontext *yy); /* 5 */
YY_RULE(int) yy_EndOfFile(yycontext *yy); /* 4 */
YY_RULE(int) yy_Page(yycontext *yy); /* 3 */
YY_RULE(int) yy_BlankLine(yycontext *yy); /* 2 */
YY_RULE(int) yy_Story(yycontext *yy); /* 1 */

YY_ACTION(void) yy_1_Choice(yycontext *yy, char *yytext, int yyleng)
{
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Choice\n"));
  {
#line 120
   __.choice = make_choice(); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
}
YY_ACTION(void) yy_1_Goto(yycontext *yy, char *yytext, int yyleng)
{
#define i yy->__val[-1]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Goto\n"));
  {
#line 115
   __.string = strndup(yytext, yyleng); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef i
}
YY_ACTION(void) yy_3_Footer(yycontext *yy, char *yytext, int yyleng)
{
#define g yy->__val[-1]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_3_Footer\n"));
  {
#line 111
   __.page = emit_ending(); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef g
}
YY_ACTION(void) yy_2_Footer(yycontext *yy, char *yytext, int yyleng)
{
#define g yy->__val[-1]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_2_Footer\n"));
  {
#line 110
   __.page = emit_goto(g.string); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef g
}
YY_ACTION(void) yy_1_Footer(yycontext *yy, char *yytext, int yyleng)
{
#define g yy->__val[-1]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Footer\n"));
  {
#line 109
   __.page = emit_ending(); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef g
}
YY_ACTION(void) yy_1_TextLine(yycontext *yy, char *yytext, int yyleng)
{
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_TextLine\n"));
  {
#line 107
   __.string = strndup(yytext, yyleng); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
}
YY_ACTION(void) yy_1_Body(yycontext *yy, char *yytext, int yyleng)
{
#define b yy->__val[-1]
#define t yy->__val[-2]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Body\n"));
  {
#line 105
   __ = b; append_body(b.page, t.string);;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef b
#undef t
}
YY_ACTION(void) yy_1_Header(yycontext *yy, char *yytext, int yyleng)
{
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Header\n"));
  {
#line 100
   __.string = strndup(yytext, yyleng); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
}
YY_ACTION(void) yy_1_Page(yycontext *yy, char *yytext, int yyleng)
{
#define b yy->__val[-1]
#define h yy->__val[-2]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Page\n"));
  {
#line 97
   __.page = b.page; __.page->id = h.string;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef b
#undef h
}
YY_ACTION(void) yy_1_Story(yycontext *yy, char *yytext, int yyleng)
{
#define p yy->__val[-1]
#define __ yy->__
#define yypos yy->__pos
#define yythunkpos yy->__thunkpos
  yyprintf((stderr, "do yy_1_Story\n"));
  {
#line 95
   add_page(p.page); ;
  }
#undef yythunkpos
#undef yypos
#undef yy
#undef p
}

YY_RULE(int) yy_StatName(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "StatName"));  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\000\000\376\377\377\007\376\377\377\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l1;
  l2:;	
  {  int yypos3= yy->__pos, yythunkpos3= yy->__thunkpos;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\000\000\376\377\377\007\376\377\377\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l3;  goto l2;
  l3:;	  yy->__pos= yypos3; yy->__thunkpos= yythunkpos3;
  }
  yyprintf((stderr, "  ok   %s @ %s\n", "StatName", yy->__buf+yy->__pos));
  return 1;
  l1:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "StatName", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_StatChange(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "StatChange"));  if (!yymatchChar(yy, '(')) goto l4;
  {  int yypos5= yy->__pos, yythunkpos5= yy->__thunkpos;  if (!yymatchChar(yy, '+')) goto l6;  goto l5;
  l6:;	  yy->__pos= yypos5; yy->__thunkpos= yythunkpos5;  if (!yymatchChar(yy, '-')) goto l4;
  }
  l5:;	  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l4;
  l7:;	
  {  int yypos8= yy->__pos, yythunkpos8= yy->__thunkpos;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l8;  goto l7;
  l8:;	  yy->__pos= yypos8; yy->__thunkpos= yythunkpos8;
  }  if (!yy_Spacing(yy)) goto l4;  if (!yy_StatName(yy)) goto l4;  if (!yymatchChar(yy, ')')) goto l4;
  yyprintf((stderr, "  ok   %s @ %s\n", "StatChange", yy->__buf+yy->__pos));
  return 1;
  l4:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "StatChange", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_StatCheck(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "StatCheck"));  if (!yymatchChar(yy, '<')) goto l9;  if (!yy_StatName(yy)) goto l9;  if (!yy_Spacing(yy)) goto l9;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l9;
  l10:;	
  {  int yypos11= yy->__pos, yythunkpos11= yy->__thunkpos;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l11;  goto l10;
  l11:;	  yy->__pos= yypos11; yy->__thunkpos= yythunkpos11;
  }
  {  int yypos12= yy->__pos, yythunkpos12= yy->__thunkpos;
  {  int yypos14= yy->__pos, yythunkpos14= yy->__thunkpos;  if (!yymatchChar(yy, '+')) goto l15;  goto l14;
  l15:;	  yy->__pos= yypos14; yy->__thunkpos= yythunkpos14;  if (!yymatchChar(yy, '-')) goto l12;
  }
  l14:;	  goto l13;
  l12:;	  yy->__pos= yypos12; yy->__thunkpos= yythunkpos12;
  }
  l13:;	  if (!yymatchChar(yy, '>')) goto l9;
  yyprintf((stderr, "  ok   %s @ %s\n", "StatCheck", yy->__buf+yy->__pos));
  return 1;
  l9:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "StatCheck", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Redirect(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "Redirect"));
  {  int yypos17= yy->__pos, yythunkpos17= yy->__thunkpos;  if (!yy_StatCheck(yy)) goto l17;  goto l18;
  l17:;	  yy->__pos= yypos17; yy->__thunkpos= yythunkpos17;
  }
  l18:;	  if (!yy_Spacing(yy)) goto l16;  if (!yymatchChar(yy, '[')) goto l16;  if (!yy_Identifier(yy)) goto l16;  if (!yymatchChar(yy, ']')) goto l16;  if (!yy_Spacing(yy)) goto l16;
  {  int yypos19= yy->__pos, yythunkpos19= yy->__thunkpos;  if (!yy_StatChange(yy)) goto l19;  goto l20;
  l19:;	  yy->__pos= yypos19; yy->__thunkpos= yythunkpos19;
  }
  l20:;	  if (!yy_Newline(yy)) goto l16;
  yyprintf((stderr, "  ok   %s @ %s\n", "Redirect", yy->__buf+yy->__pos));
  return 1;
  l16:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Redirect", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Spacing(yycontext *yy)
{
  yyprintf((stderr, "%s\n", "Spacing"));
  l22:;	
  {  int yypos23= yy->__pos, yythunkpos23= yy->__thunkpos;
  {  int yypos24= yy->__pos, yythunkpos24= yy->__thunkpos;  if (!yymatchChar(yy, ' ')) goto l25;  goto l24;
  l25:;	  yy->__pos= yypos24; yy->__thunkpos= yythunkpos24;  if (!yymatchChar(yy, '\t')) goto l23;
  }
  l24:;	  goto l22;
  l23:;	  yy->__pos= yypos23; yy->__thunkpos= yythunkpos23;
  }
  yyprintf((stderr, "  ok   %s @ %s\n", "Spacing", yy->__buf+yy->__pos));
  return 1;
}
YY_RULE(int) yy_Choice(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "Choice"));  yyDo(yy, yy_1_Choice, yy->__begin, yy->__end);  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l26;
  l27:;	
  {  int yypos28= yy->__pos, yythunkpos28= yy->__thunkpos;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l28;  goto l27;
  l28:;	  yy->__pos= yypos28; yy->__thunkpos= yythunkpos28;
  }  if (!yymatchChar(yy, ')')) goto l26;  if (!yy_Spacing(yy)) goto l26;  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_BEGIN)) goto l26;
#undef yytext
#undef yyleng
  }
  {  int yypos31= yy->__pos, yythunkpos31= yy->__thunkpos;  if (!yy_Redirect(yy)) goto l31;  goto l26;
  l31:;	  yy->__pos= yypos31; yy->__thunkpos= yythunkpos31;
  }  if (!yymatchDot(yy)) goto l26;
  l29:;	
  {  int yypos30= yy->__pos, yythunkpos30= yy->__thunkpos;
  {  int yypos32= yy->__pos, yythunkpos32= yy->__thunkpos;  if (!yy_Redirect(yy)) goto l32;  goto l30;
  l32:;	  yy->__pos= yypos32; yy->__thunkpos= yythunkpos32;
  }  if (!yymatchDot(yy)) goto l30;  goto l29;
  l30:;	  yy->__pos= yypos30; yy->__thunkpos= yythunkpos30;
  }  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_END)) goto l26;
#undef yytext
#undef yyleng
  }  if (!yy_Redirect(yy)) goto l26;
  yyprintf((stderr, "  ok   %s @ %s\n", "Choice", yy->__buf+yy->__pos));
  return 1;
  l26:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Choice", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Goto(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;  yyDo(yy, yyPush, 1, 0);
  yyprintf((stderr, "%s\n", "Goto"));  if (!yymatchString(yy, "GOTO")) goto l33;  if (!yy_Spacing(yy)) goto l33;  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_BEGIN)) goto l33;
#undef yytext
#undef yyleng
  }  if (!yy_Identifier(yy)) goto l33;  yyDo(yy, yySet, -1, 0);  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_END)) goto l33;
#undef yytext
#undef yyleng
  }  if (!yy_Newline(yy)) goto l33;  yyDo(yy, yy_1_Goto, yy->__begin, yy->__end);
  yyprintf((stderr, "  ok   %s @ %s\n", "Goto", yy->__buf+yy->__pos));  yyDo(yy, yyPop, 1, 0);
  return 1;
  l33:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Goto", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Ending(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "Ending"));  if (!yymatchString(yy, "THE END")) goto l34;  if (!yy_Newline(yy)) goto l34;
  yyprintf((stderr, "  ok   %s @ %s\n", "Ending", yy->__buf+yy->__pos));
  return 1;
  l34:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Ending", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_TextLine(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "TextLine"));  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_BEGIN)) goto l35;
#undef yytext
#undef yyleng
  }
  l36:;	
  {  int yypos37= yy->__pos, yythunkpos37= yy->__thunkpos;
  {  int yypos38= yy->__pos, yythunkpos38= yy->__thunkpos;  if (!yy_Newline(yy)) goto l38;  goto l37;
  l38:;	  yy->__pos= yypos38; yy->__thunkpos= yythunkpos38;
  }  if (!yymatchDot(yy)) goto l37;  goto l36;
  l37:;	  yy->__pos= yypos37; yy->__thunkpos= yythunkpos37;
  }  if (!yy_Newline(yy)) goto l35;  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_END)) goto l35;
#undef yytext
#undef yyleng
  }  yyDo(yy, yy_1_TextLine, yy->__begin, yy->__end);
  yyprintf((stderr, "  ok   %s @ %s\n", "TextLine", yy->__buf+yy->__pos));
  return 1;
  l35:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "TextLine", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Footer(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;  yyDo(yy, yyPush, 1, 0);
  yyprintf((stderr, "%s\n", "Footer"));
  {  int yypos40= yy->__pos, yythunkpos40= yy->__thunkpos;  if (!yy_Ending(yy)) goto l41;  yyDo(yy, yy_1_Footer, yy->__begin, yy->__end);  goto l40;
  l41:;	  yy->__pos= yypos40; yy->__thunkpos= yythunkpos40;  if (!yy_Goto(yy)) goto l42;  yyDo(yy, yySet, -1, 0);  yyDo(yy, yy_2_Footer, yy->__begin, yy->__end);  goto l40;
  l42:;	  yy->__pos= yypos40; yy->__thunkpos= yythunkpos40;  if (!yy_Choice(yy)) goto l39;
  l43:;	
  {  int yypos44= yy->__pos, yythunkpos44= yy->__thunkpos;  if (!yy_Choice(yy)) goto l44;  goto l43;
  l44:;	  yy->__pos= yypos44; yy->__thunkpos= yythunkpos44;
  }  yyDo(yy, yy_3_Footer, yy->__begin, yy->__end);
  }
  l40:;	
  yyprintf((stderr, "  ok   %s @ %s\n", "Footer", yy->__buf+yy->__pos));  yyDo(yy, yyPop, 1, 0);
  return 1;
  l39:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Footer", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Newline(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "Newline"));
  {  int yypos46= yy->__pos, yythunkpos46= yy->__thunkpos;  if (!yymatchString(yy, "\r\n")) goto l47;  goto l46;
  l47:;	  yy->__pos= yypos46; yy->__thunkpos= yythunkpos46;  if (!yymatchChar(yy, '\r')) goto l48;  goto l46;
  l48:;	  yy->__pos= yypos46; yy->__thunkpos= yythunkpos46;  if (!yymatchChar(yy, '\n')) goto l45;
  }
  l46:;	
  yyprintf((stderr, "  ok   %s @ %s\n", "Newline", yy->__buf+yy->__pos));
  return 1;
  l45:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Newline", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Identifier(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "Identifier"));  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\000\000\376\377\377\007\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l49;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\376\377\377\207\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l49;
  l50:;	
  {  int yypos51= yy->__pos, yythunkpos51= yy->__thunkpos;  if (!yymatchClass(yy, (unsigned char *)"\000\000\000\000\000\000\377\003\376\377\377\207\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000")) goto l51;  goto l50;
  l51:;	  yy->__pos= yypos51; yy->__thunkpos= yythunkpos51;
  }
  yyprintf((stderr, "  ok   %s @ %s\n", "Identifier", yy->__buf+yy->__pos));
  return 1;
  l49:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Identifier", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Body(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;  yyDo(yy, yyPush, 2, 0);
  yyprintf((stderr, "%s\n", "Body"));
  {  int yypos53= yy->__pos, yythunkpos53= yy->__thunkpos;  if (!yy_Footer(yy)) goto l54;  goto l53;
  l54:;	  yy->__pos= yypos53; yy->__thunkpos= yythunkpos53;  if (!yy_TextLine(yy)) goto l52;  yyDo(yy, yySet, -2, 0);  if (!yy_Body(yy)) goto l52;  yyDo(yy, yySet, -1, 0);  yyDo(yy, yy_1_Body, yy->__begin, yy->__end);
  }
  l53:;	
  yyprintf((stderr, "  ok   %s @ %s\n", "Body", yy->__buf+yy->__pos));  yyDo(yy, yyPop, 2, 0);
  return 1;
  l52:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Body", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Header(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "Header"));  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_BEGIN)) goto l55;
#undef yytext
#undef yyleng
  }  if (!yy_Identifier(yy)) goto l55;  yyText(yy, yy->__begin, yy->__end);  {
#define yytext yy->__text
#define yyleng yy->__textlen
if (!(YY_END)) goto l55;
#undef yytext
#undef yyleng
  }  yyDo(yy, yy_1_Header, yy->__begin, yy->__end);  if (!yy_Newline(yy)) goto l55;
  l56:;	
  {  int yypos57= yy->__pos, yythunkpos57= yy->__thunkpos;  if (!yy_BlankLine(yy)) goto l57;  goto l56;
  l57:;	  yy->__pos= yypos57; yy->__thunkpos= yythunkpos57;
  }
  yyprintf((stderr, "  ok   %s @ %s\n", "Header", yy->__buf+yy->__pos));
  return 1;
  l55:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Header", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_EndOfFile(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "EndOfFile"));
  {  int yypos59= yy->__pos, yythunkpos59= yy->__thunkpos;  if (!yymatchDot(yy)) goto l59;  goto l58;
  l59:;	  yy->__pos= yypos59; yy->__thunkpos= yythunkpos59;
  }
  yyprintf((stderr, "  ok   %s @ %s\n", "EndOfFile", yy->__buf+yy->__pos));
  return 1;
  l58:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "EndOfFile", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Page(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;  yyDo(yy, yyPush, 2, 0);
  yyprintf((stderr, "%s\n", "Page"));  if (!yy_Header(yy)) goto l60;  yyDo(yy, yySet, -2, 0);  if (!yy_Body(yy)) goto l60;  yyDo(yy, yySet, -1, 0);  yyDo(yy, yy_1_Page, yy->__begin, yy->__end);
  l61:;	
  {  int yypos62= yy->__pos, yythunkpos62= yy->__thunkpos;  if (!yy_BlankLine(yy)) goto l62;  goto l61;
  l62:;	  yy->__pos= yypos62; yy->__thunkpos= yythunkpos62;
  }
  yyprintf((stderr, "  ok   %s @ %s\n", "Page", yy->__buf+yy->__pos));  yyDo(yy, yyPop, 2, 0);
  return 1;
  l60:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Page", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_BlankLine(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;
  yyprintf((stderr, "%s\n", "BlankLine"));  if (!yy_Spacing(yy)) goto l63;  if (!yy_Newline(yy)) goto l63;
  yyprintf((stderr, "  ok   %s @ %s\n", "BlankLine", yy->__buf+yy->__pos));
  return 1;
  l63:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "BlankLine", yy->__buf+yy->__pos));
  return 0;
}
YY_RULE(int) yy_Story(yycontext *yy)
{  int yypos0= yy->__pos, yythunkpos0= yy->__thunkpos;  yyDo(yy, yyPush, 1, 0);
  yyprintf((stderr, "%s\n", "Story"));
  l65:;	
  {  int yypos66= yy->__pos, yythunkpos66= yy->__thunkpos;  if (!yy_BlankLine(yy)) goto l66;  goto l65;
  l66:;	  yy->__pos= yypos66; yy->__thunkpos= yythunkpos66;
  }  if (!yy_Page(yy)) goto l64;  yyDo(yy, yySet, -1, 0);  yyDo(yy, yy_1_Story, yy->__begin, yy->__end);
  l67:;	
  {  int yypos68= yy->__pos, yythunkpos68= yy->__thunkpos;  if (!yy_Page(yy)) goto l68;  yyDo(yy, yySet, -1, 0);  yyDo(yy, yy_1_Story, yy->__begin, yy->__end);  goto l67;
  l68:;	  yy->__pos= yypos68; yy->__thunkpos= yythunkpos68;
  }  if (!yy_EndOfFile(yy)) goto l64;
  yyprintf((stderr, "  ok   %s @ %s\n", "Story", yy->__buf+yy->__pos));  yyDo(yy, yyPop, 1, 0);
  return 1;
  l64:;	  yy->__pos= yypos0; yy->__thunkpos= yythunkpos0;
  yyprintf((stderr, "  fail %s @ %s\n", "Story", yy->__buf+yy->__pos));
  return 0;
}

#ifndef YY_PART

typedef int (*yyrule)(yycontext *yy);

YY_PARSE(int) YYPARSEFROM(YY_CTX_PARAM_ yyrule yystart)
{
  int yyok;
  if (!yyctx->__buflen)
    {
      yyctx->__buflen= YY_BUFFER_SIZE;
      yyctx->__buf= (char *)YY_MALLOC(yyctx, yyctx->__buflen);
      yyctx->__textlen= YY_BUFFER_SIZE;
      yyctx->__text= (char *)YY_MALLOC(yyctx, yyctx->__textlen);
      yyctx->__thunkslen= YY_STACK_SIZE;
      yyctx->__thunks= (yythunk *)YY_MALLOC(yyctx, sizeof(yythunk) * yyctx->__thunkslen);
      yyctx->__valslen= YY_STACK_SIZE;
      yyctx->__vals= (YYSTYPE *)YY_MALLOC(yyctx, sizeof(YYSTYPE) * yyctx->__valslen);
      yyctx->__begin= yyctx->__end= yyctx->__pos= yyctx->__limit= yyctx->__thunkpos= 0;
    }
  yyctx->__begin= yyctx->__end= yyctx->__pos;
  yyctx->__thunkpos= 0;
  yyctx->__val= yyctx->__vals;
  yyok= yystart(yyctx);
  if (yyok) yyDone(yyctx);
  yyCommit(yyctx);
  return yyok;
}

YY_PARSE(int) YYPARSE(YY_CTX_PARAM)
{
  return YYPARSEFROM(YY_CTX_ARG_ yy_Story);
}

YY_PARSE(yycontext *) YYRELEASE(yycontext *yyctx)
{
  if (yyctx->__buflen)
    {
      yyctx->__buflen= 0;
      YY_FREE(yyctx, yyctx->__buf);
      YY_FREE(yyctx, yyctx->__text);
      YY_FREE(yyctx, yyctx->__thunks);
      YY_FREE(yyctx, yyctx->__vals);
    }
  return yyctx;
}

#endif
#line 138 "cyoa.leg"


void add_page(page_t *page) {
  page_node_t *mynode = (page_node_t*) malloc(sizeof(page_node_t));
  mynode->page = page;
  mynode->next = NULL;

  page_node_t *curr = pages;
  page_node_t *prev = NULL;
  
  if (curr) {
    for(; curr; prev = curr, curr = curr->next);
    prev->next = mynode;
  } else {
    pages = mynode;
  }
}

void add_choice(page_t *page, choice_t* choice) {
  assert(page != choice);
  choicelist *mychoices = (choicelist *) malloc(sizeof(choicelist));
  mychoices->choice = choice;
  mychoices->next = NULL;

  choicelist *curr = page->footer.choices;
  choicelist *prev = NULL;

  if (curr) {
    for(; curr; prev = curr, curr = curr->next);
    prev->next = mychoices;
  } else {
    page->footer.choices = mychoices;
  }
}

static inline page_t *make_page() {
  page_t *mypage = (page_t*) malloc(sizeof(page_t));
  mypage->id = NULL;
  mypage->body = NULL;
  return mypage;
}

inline choice_t *make_choice() {
  choice_t *mychoice = (choice_t*) malloc(sizeof(choice_t));
  mychoice->flags = 0x0;
  printf("choice 0x%x\n", mychoice);
  return mychoice;
}

page_t *emit_goto(char *id) {
  page_t *mypage = make_page();
  mypage->footer.type = FOOTER_GOTO;
  mypage->footer.link = id;
  return mypage;
}

page_t *emit_ending() {
  page_t *mypage = make_page();
  mypage->footer.type = FOOTER_END;
  return mypage;
}

page_t *emit_choices() {
  page_t *mypage = make_page();
  mypage->footer.type = FOOTER_CHOICES;
  mypage->footer.choices = NULL;
  printf("page 0x%x\n", mypage);
  return mypage;
}

void append_body(page_t *page, char *str) {
  if (page->body) {
    int size = strlen(page->body) + strlen(str) + 1;
    char *newstring = (char*) calloc(size, sizeof(char));
    strcpy(newstring, str);
    strcat(newstring, page->body);
    free(page->body);
    page->body = newstring;
  } else {
    page->body = str;
  }
}

void print_page(page_t *page) {
  printf("HEADER: %s\nBODY: %s\n", page->id, page->body);
  switch (page->footer.type) {
  case FOOTER_END:
    printf("THE END\n");
    break;
  case FOOTER_GOTO:
    printf("GOTO %s\n", page->footer.link);
    break;
  case FOOTER_CHOICES:
    printf("CHOICES:\n");
    break;
  }
}

int main() {
  if (!yyparse()) {
    printf("Parsing Error!\n");
    return 1;
  } else {
    for (page_node_t *curr = pages; curr; curr = curr->next) {
      print_page(curr->page);
    }
  }
  return 0;
}

/* Local Variables: */
/* mode: text */
/* End: */