scanner.mll

{ 
open Parser
open String
}

rule token = parse
	[' ' '\t' '\r' '\n'] { token lexbuf } (* Whitespace *)
 	| "/*"     { comment lexbuf } 
 	| '{'	{ LBRACE }			
	| '}'	{ RBRACE }
	| '['	{ LSQUARE }
	| ']'	{ RSQUARE }
	| ','	{ COMMA }
	| '('	{ LPAREN }			
	| ')'	{ RPAREN }
	| ';'	{ SEMI }
	| '+'	{ PLUS }				
	| '-'	{ MINUS }			
	| '*'	{ TIMES }
	| '/'	{ DIVIDE }				
	| '%'	{ MOD }
	| '=' 	{ ASSIGN }
	| '>'	{ GT }					
	| '<'	{ LT }
	| "=="	{ ISEQ }				
	| "!="	{ NEQ }					
	| "<="	{ LEQ }
	| ">="	{ GEQ }
	| "&&"	{ AND }			
	| "||"	{ OR }
	| "!"	{ NOT }
	| "."	{ PERIOD }
	| "true" { TRUE }
	| "false" { FALSE }
	| "if"   { IF }
	| "else" { ELSE }
	| "while" { WHILE }
	| "int"   { INT }
	| "bool"  { BOOL }
	| "float" { FLOAT }
	| "color"  { COLOR }
	| "vec"		{ VECTOR}
	| "gameboard" { GBOARD }
 	| "entity"	  { ENT }
 	| "func"  { FUNC }
 	| "return" { RETURN }
 	| "init"	{ INIT }
 	| "clr"		{ CLR }
 	| "size" 	{ SIZE }
 	| "->"    { DO }
 	| "><"    { COLLIDE }
 	| "func"  { FUNC }
 	| "frame" { FRAME }
 	| "click" { CLICK }
 	| "key_"(['a'-'z' 'A'-'Z' '0'-'9'] | "UP" | "DOWN" | "LEFT" | "RIGHT" | "SPACE") as lxm 	{KEYPRESS(lxm) }
 	| ['0'-'9']*'.'['0'-'9']+ | ['0'-'9']+'.'['0'-'9']* as lxm { FLOAT_LITERAL(float_of_string lxm)}
	| ['0'-'9']+ as lxm { INT_LITERAL(int_of_string lxm) }
	| ['a'-'z' 'A'-'Z']['a'-'z' 'A'-'Z' '0'-'9' '_']* as lxm { ID(lxm) }
	| eof 	{ EOF }
	| _ as char { raise (Failure("illegal character " ^ Char.escaped char)) }


and comment = parse
  "*/" { token lexbuf }
| _    { comment lexbuf }