/*
 * @LANG: d
 * @GENERATED: true
 */

import std.stdio;
import std.string;

class clang
{
int pos;
int line;

%%{
	machine clang;

	# Function to buffer a character.
	action bufChar {	buffer[blen++] = *p;
	buffer[blen] = 0;
}

	# Function to clear the buffer.
	action clearBuf {	blen = 0;
}

	action incLine {line = line + 1;
}

	# Functions to dump tokens as they are matched.
	action ident {printf( "%.*s", "ident(" );printf( "%d", line );
printf( "%.*s", "," );printf( "%d", blen );
printf( "%.*s", "): " );printf( "%.*s", buffer );printf( "%.*s", "\n" );}
	action literal {printf( "%.*s", "literal(" );printf( "%d", line );
printf( "%.*s", "," );printf( "%d", blen );
printf( "%.*s", "): " );printf( "%.*s", buffer );printf( "%.*s", "\n" );}
	action float {printf( "%.*s", "float(" );printf( "%d", line );
printf( "%.*s", "," );printf( "%d", blen );
printf( "%.*s", "): " );printf( "%.*s", buffer );printf( "%.*s", "\n" );}
	action integer {printf( "%.*s", "int(" );printf( "%d", line );
printf( "%.*s", "," );printf( "%d", blen );
printf( "%.*s", "): " );printf( "%.*s", buffer );printf( "%.*s", "\n" );}
	action hex {printf( "%.*s", "hex(" );printf( "%d", line );
printf( "%.*s", "," );printf( "%d", blen );
printf( "%.*s", "): " );printf( "%.*s", buffer );printf( "%.*s", "\n" );}
	action symbol {printf( "%.*s", "symbol(" );printf( "%d", line );
printf( "%.*s", "," );printf( "%d", blen );
printf( "%.*s", "): " );printf( "%.*s", buffer );printf( "%.*s", "\n" );}

	# Alpha numberic characters or underscore.
	alnumu = alnum | '_';

	# Alpha charactres or underscore.
	alphau = alpha | '_';

	# Symbols. Upon entering clear the buffer. On all transitions
	# buffer a character. Upon leaving dump the symbol.
	symbol = ( punct - [_'"] ) >clearBuf $bufChar %symbol;

	# Identifier. Upon entering clear the buffer. On all transitions
	# buffer a character. Upon leaving, dump the identifier.
	ident = (alphau . alnumu*) >clearBuf $bufChar %ident;

	# Match single characters inside literal strings. Or match 
	# an escape sequence. Buffers the charater matched.
	sliteralChar =
			( extend - ['\\] ) @bufChar |
			( '\\' . extend @bufChar );
	dliteralChar =
			( extend - ["\\] ) @bufChar |
			( '\\' . extend @bufChar );

	# Single quote and double quota literals. At the start clear
	# the buffer. Upon leaving dump the literal.
	sliteral = ('\'' @clearBuf . sliteralChar* . '\'' ) %literal;
	dliteral = ('"' @clearBuf . dliteralChar* . '"' ) %literal;
	literal = sliteral | dliteral;

	# Whitespace is standard ws, newlines and control codes.
	whitespace = any - 33 .. 126;

	# Describe both c style comments and c++ style comments. The
	# priority bump on tne terminator of the comments brings us
	# out of the extend* which matches everything.
	ccComment = '//' . extend* $0 . '\n' @1;
	cComment = '/!' . extend* $0 . '!/' @1;

	# Match an integer. We don't bother clearing the buf or filling it.
	# The float machine overlaps with int and it will do it.
	integer = digit+ %integer;

	# Match a float. Upon entering the machine clear the buf, buffer
	# characters on every trans and dump the float upon leaving.
	float =  ( digit+ . '.' . digit+ ) >clearBuf $bufChar %float;

	# Match a hex. Upon entering the hex part, clear the buf, buffer characters
	# on every trans and dump the hex on leaving transitions.
	hex = '0x' . xdigit+ >clearBuf $bufChar %hex;

	# Or together all the lanuage elements.
	fin = ( ccComment |
		cComment |
		symbol |
		ident |
		literal |
		whitespace |
		integer |
		float |
		hex );

	# Star the language elements. It is critical in this type of application
	# that we decrease the priority of out transitions before doing so. This
	# is so that when we see 'aa' we stay in the fin machine to match an ident
	# of length two and not wrap around to the front to match two idents of 
	# length one.
	clang_main = ( fin $1 %0 )*;

	# This machine matches everything, taking note of newlines.
	newline = ( any | '\n' @incLine )*;

	# The final fsm is the lexer intersected with the newline machine which
	# will count lines for us. Since the newline machine accepts everything,
	# the strings accepted is goverened by the clang_main machine, onto which
	# the newline machine overlays line counting.
	main := clang_main & newline;
}%%



%% write data;
int cs;
int blen;
char buffer[1024];

void init()
{
pos = 0;
line = 1;
	%% write init;
}
void exec( const(char) data[] )
{
	const(char) *p = data.ptr;
	const(char) *pe = data.ptr + data.length;
	const(char) *eof = pe;
	char _s[];

	%% write exec;
}

void finish( )
{
	if ( cs >= clang_first_final )
		writefln( "ACCEPT" );
	else
		writefln( "FAIL" );
}
static const char[][] inp = [
"999 0xaAFF99 99.99 /!\n!/ 'lksdj' //\n\"\n\nliteral\n\n\n\"0x00aba foobardd.ddsf 0x0.9\n",
"wordwithnum00asdf\n000wordfollowsnum,makes new symbol\n\nfinishing early /! unfinished ...\n",
];

int inplen = 2;

}
int main()
{
	clang m = new clang();
	int i;
	for ( i = 0; i < m.inplen; i++ ) {
		m.init();
		m.exec( m.inp[i] );
		m.finish();
	}
	return 0;
}