let char_for_decimal_code lexbuf i =
(* let c = 100 * (Char.code(Lexing.lexeme_char lexbuf i) - 48) +
10 * (Char.code(Lexing.lexeme_char lexbuf (i+1)) - 48) +
(Char.code(Lexing.lexeme_char lexbuf (i+2)) - 48) in
if (c < 0 || c > 255) && not (in_comment ())
then raise (Error(Illegal_escape (Lexing.lexeme lexbuf),
curr_loc lexbuf))
else Char.chr c
*)
'x'