(* lexer.mll *)

{
  open Parser
  (*let debug msg =
    print_string msg;
    print_newline() *)
  let debug msg = ()
}

rule token = parse
  | eof { EOF }
  | "<!--" ([^ '-'])* '-'+ ([^ '-' '>'][^'-']* '-'+)* "->"
    { debug "COMMENT" ; COMMENT(Lexing.lexeme lexbuf) }
  | ['\n']
    { debug "Whitespace! (newline)" ; Node.lineNum := !Node.lineNum + 1;  token lexbuf }
  | [' ' '\t']
    { debug "Whitespace!" ;  token lexbuf }
  | '<' { debug "LEFT" ; LEFT }
  | '>' { debug "RIGHT" ; RIGHT }
  | '/' { debug "SLASH" ; SLASH }
  | '=' { debug "EQUAL" ; EQUAL }
  | '"' ('\\' '"' | [^ '"'])* '"'
    {
      debug "STRING";
      let s = Lexing.lexeme lexbuf in
      (* let sub = String.sub s 1 ((String.length s) - 2) in
      STRING(sub) *)
      STRING(s)
    }
  | "br" | "hr" | "content" | "include" | "img" | "base" | "input"
    { debug "NB_IDENT" ; NB_IDENT(Lexing.lexeme lexbuf) }
  | [^ ' ' '\t' '\n' '<' '>' '/' '=' '"']+
    { debug "IDENT" ; IDENT(Lexing.lexeme lexbuf) }