#include "cmd_parse.h"

//#define CTS(X) {if (!dm_current_tok)token_s = p; printf("%s ",#X);if (!dm_current_tok) dm_current_tok = TOK_##X;}
//#define CTE() {token_e = p;}
#define TADD(T,S,E,SZ) {cmd_tok_t *t=cmd_tok_create(S,E,SZ,T);cmd_tok_add(tl,t);tl=tl->next;}
//#define TADD(T,S,E)

#define PR_TK_DBG(S) printf(S);fwrite(ts,1,te-ts,stdout);printf("\n");
//#define PR_TK_DBG(S) ;

char *new_string( const char *start, const char *end )
{
	int str_s = end-start+1;
	char *new_str=malloc( str_s+1 );
	memcpy( new_str, start, str_s );
	if ( new_str != NULL )
		new_str[str_s]=0x0;
	return new_str;
}

int print_token( char *s, char *e, int tok)
{
	char *p = new_string( s, e );
	printf("t=%d,p=%s\n",tok,p);
	free( p );
	return 0;
}


%%{
	machine cmd;
	
	hex            = '0x' [a-fA-F0-9]+;
	decimal        = [0-9]+;
	binary         = '0b' [0-1]+;
	quoted_string  = '"' 
					(
						(any-['\\' '"' ' '])*
						|'\\\\'
						|'\\\"'
						|'\\ '
					)* 
					'"';
	string         = 	(any-['"' ' ']){1}
						(any-['"' ' '])*
						(any-['"' ' ']){1};
	#seperate      = ';';
	word           = [a-zA-Z] ([a-zA-Z0-9])*;
	sp             = ([' ','\t','\n']);

	main := |*
		hex     		{PR_TK_DBG("hex  = ");TADD(CMDT_HEX,  ts,te,te-ts);};
		decimal 		{PR_TK_DBG("dec  = ");TADD(CMDT_INT,  ts,te,te-ts);};
		binary  		{PR_TK_DBG("bin  = ");TADD(CMDT_BIN,  ts,te,te-ts);};
		quoted_string 	{PR_TK_DBG("qstr = ");TADD(CMDT_QSTR, ts,te,te-ts);};
		word    		{PR_TK_DBG("word = ");TADD(CMDT_WORD, ts,te,te-ts);};
		sp      		{PR_TK_DBG("sp   = ");TADD(CMDT_SP,   ts,te,te-ts);};
		string  		{PR_TK_DBG("str  = ");TADD(CMDT_STR, ts,te,te-ts);};	
	*|;



	write data;
}%%

int parse_cmd( cmd_tok_t *tl, const char *str, size_t str_size )
{
	static uint8_t cs;
	const int stacksize = 10;
	int res=0, *stack=NULL, act=0,top=0;
	stack = malloc( sizeof(stack)*stacksize );
	char *p=(char *)str, *pe = (char *)str + str_size, *eof=pe;
	char *ts, *te = 0;

	/*save for cmd_begin state*/
	char *ts_cb=0, *te_cb=0;

	printf("PE:%s %02x\n",pe,(unsigned char)*pe);

	/*
	variables used in state machine
	*/

	%%write init;
	%%write exec;

	if ( cs == cmd_error )
	{
		printf("CLIPARSE ERR state [%d] pos[%d]:[%s]\n", res, p-str, p);
		res = -1;
	}

	free( stack );

	return res;
}