Chamo.Ocaml_lexer
type token =
| AMPERAMPER
| AMPERSAND
| AND
| AS
| ASSERT
| BACKQUOTE
| BAR
| BARBAR
| BARRBRACKET
| BEGIN
| CHAR
| CLASS
| COLON
| COLONCOLON
| COLONEQUAL
| COLONGREATER
| COMMA
| CONSTRAINT
| DO
| DONE
| DOT
| DOTDOT
| DOWNTO
| ELSE
| END
| EOF
| EQUAL
| EXCEPTION
| EXTERNAL
| FALSE
| FLOAT
| FOR
| FUN
| FUNCTION
| FUNCTOR
| GREATER
| GREATERRBRACE
| GREATERRBRACKET
| IF
| IN
| INCLUDE
| INFIXOP0
| INFIXOP1
| INFIXOP2
| INFIXOP3
| INFIXOP4
| INHERIT
| INITIALIZER
| INT
| INT32
| INT64
| NATIVEINT
| LABEL of string
| LAZY
| LBRACE
| LBRACELESS
| LBRACKET
| LBRACKETBAR
| LBRACKETGREATER
| LBRACKETLESS
| LESS
| LESSMINUS
| LET
| LIDENT
| LPAREN
| MATCH
| METHOD
| MINUS
| MINUSDOT
| MINUSGREATER
| MODULE
| MUTABLE
| NEW
| OBJECT
| OF
| OPEN
| OPTLABEL of string
| OR
| PARSER
| PLUS
| PREFIXOP
| PRIVATE
| QUESTION
| QUESTIONQUESTION
| QUOTE
| RBRACE
| RBRACKET
| REC
| RPAREN
| SEMI
| SEMISEMI
| SHARP
| SIG
| STAR
| STRING
| STRUCT
| SUBTRACTIVE
| THEN
| TO
| TRUE
| TRY
| TYPE
| UIDENT
| UNDERSCORE
| VAL
| VIRTUAL
| WHEN
| WHILE
| WITH
| COMMENT
| EOL
| EOFCOMMENT
| EOFSTRING
| ERROR
| RULE
| PARSE
val token_kw : (string * token) list
val keyword_table : (string, token) Stdlib.Hashtbl.t
val report_error : error -> string
val blocks : (token * int * int) list Stdlib.ref
type cst_indent = {
ind_newline : int;
ind_bracket : int;
ind_brace : int;
ind_parent : int;
ind_let : int;
ind_begin : int;
ind_match : int;
ind_comment : int;
ind_if : int;
ind_fun : int;
ind_struct : int;
ind_object : int;
ind_class : int;
ind_module : int;
ind_type : int;
ind_exception : int;
ind_loop : int;
ind_field : int;
ind_val : int;
}
val default_indent : cst_indent
val cst_indent : cst_indent Stdlib.ref
Ad this indentation to the line_indentation list if we're on the first token of the line
val string_of_token : token -> string
val last_popped : (token * int * int) option Stdlib.ref
val pop : token list -> string -> Stdlib.Lexing.lexbuf -> int * int
val push : token -> int -> int -> unit
val push_if_different : token -> int -> int -> bool
val on_par_open : token -> 'a -> unit
val on_par_close : Stdlib.Lexing.lexbuf -> token -> string -> unit
val on_keyword : Stdlib.Lexing.lexbuf -> token -> unit
val token : Stdlib.Lexing.lexbuf -> token
val __ocaml_lex_token_rec : Stdlib.Lexing.lexbuf -> int -> token
val get_lines_indentation :
?indent_spec:cst_indent ->
string ->
[> `Failure of error * location * int option list
| `Success of int option list ]