Module Ocaml_preprocess.Lexer_raw

type error =
  1. | Illegal_character of char
  2. | Illegal_escape of string * string option
  3. | Reserved_sequence of string * string option
  4. | Unterminated_comment of Ocaml_parsing.Location.t
  5. | Unterminated_string
  6. | Unterminated_string_in_comment of Ocaml_parsing.Location.t * Ocaml_parsing.Location.t
  7. | Empty_character_literal
  8. | Keyword_as_label of string
  9. | Invalid_literal of string
  10. | Invalid_directive of string * string option
exception Error of error * Ocaml_parsing.Location.t
type keywords
val keywords : (string * Parser_raw.token) list -> keywords
val list_keywords : keywords -> string list
type 'a result =
  1. | Return of 'a
  2. | Refill of unit -> 'a result
  3. | Fail of error * Ocaml_parsing.Location.t
type state = {
  1. keywords : keywords;
  2. mutable buffer : Buffer.t;
  3. mutable string_start_loc : Ocaml_parsing.Location.t;
  4. mutable comment_start_loc : Ocaml_parsing.Location.t list;
  5. mutable preprocessor : preprocessor option;
}
val make : ?preprocessor:preprocessor -> keywords -> state
type comment = string * Ocaml_parsing.Location.t
val token_without_comments : state -> Merlin_utils.Std.Lexing.lexbuf -> Parser_raw.token result