/*!@file
  \brief   APC test driver
  \details This driver does what APC does, but in staggered stages with
           additional debugging information
  \author  Jordan Lavatai
  \date    Aug 2016
  ----------------------------------------------------------------------------*/
/* Standard */
#include <stdio.h>  //print
#include <errno.h>  //errors
#include <string.h> //strnlen
/* Posix */
#include <stdlib.h> //exit
#include <unistd.h> //getopt
/* Internal */
#include <apc/parser.tab.h> //bison
#include <apc/ir.h>         //ir

/* Import apc.c but redefine its primary symbols for jumping */
#define main apc_main
#define yyparse testapc_yyparse
#include <bin/tools/apc.c>
#undef yyparse
#undef main

int main(int, char*[]);
int testapc_yyparse(void);

extern //bison
int yyparse(void);
extern //lexer.c
int  lexer_init(void);
extern //apc.c
const char* cargs['Z'];

extern //apc/parser.tab.c
YYSTYPE yylval;
extern //lexer.c
int  lexer(void);

/* Ansi Term Colors */
#define RED     "\x1b[31m"
#define GREEN   "\x1b[32m"
#define YELLOW  "\x1b[33m"
#define BLUE    "\x1b[34m"
#define MAGENTA "\x1b[35m"
#define CYAN    "\x1b[36m"
#define CLRC    "\x1b[0m" //clear current color

/* Main entry from terminal
   parses debugging options for testing apc, and calls apc_main
*/
int main
( int   argc,
  char* argv[]
)
{ apc_main(argc, argv);
  printf(GREEN "PASS\n");
  exit(EXIT_SUCCESS);
}

#define MAX_TOK 1024
char tok_lval[MAX_TOK];

/* yyparse intercept */
int testapc_yyparse
()
{ int i, tok;
  static char tok_pattern[] = "[" RED " %5i " CLRC "][" CYAN " %-12i " CLRC "]";
  for (i = 0; i < 1000; i++)
    { switch (tok = lexer())
    #define OFFS 27
	{ case STR:
	  case NAME:
	    tok_pattern[OFFS] = 's';
	    break;
	  case REF:
	  case FPTR:
	    tok_pattern[OFFS] = 'x';
	    break;
          case NUM:
          case SS:
	  case SSD:
	  default:
	    tok_pattern[OFFS] = 'i';
	    break;
          case 0:
	    printf(";\n" GREEN "Done" CLRC ".\n");
	    return 0;
	}
      printf(tok_pattern, tok, yylval.val);
      if (i % 4 == 0 || yylval.val == 1)
	printf(";\n");
    }
  printf("\n" CLRC);
}