ocp-indent-nlfork 1.5.4 (latest)

include module type of struct include Approx_tokens end

type 'a overflow = 'a Approx_tokens.overflow =

| InRange of 'a
| Overflow of string

type token = Approx_tokens.token =

| AMPERAMPER
| AMPERSAND
| AND
| AS
| ASSERT
| BACKQUOTE
| BANG
| BAR
| BARBAR
| BARRBRACKET
| BEGIN
| CHAR of char overflow
| CLASS
| COLON
| COLONCOLON
| COLONEQUAL
| COLONGREATER
| CONSTRAINT
| DO
| DONE
| DOT
| DOTDOT
| DOWNTO
| ELSE
| END
| EOF
| EQUAL
| EXCEPTION
| EXTERNAL
| FALSE
| FLOAT of string
| FOR
| FUN
| FUNCTION
| FUNCTOR
| GREATER
| GREATERRBRACE
| GREATERRBRACKET
| IF
| IN
| INCLUDE
| INFIXOP0 of string
| INFIXOP1 of string
| INFIXOP2 of string
| INFIXOP3 of string
| INFIXOP4 of string
| INHERIT
| INITIALIZER
| INT of int overflow
| INT32 of int32 overflow
| INT64 of int64 overflow
| LABEL of string
| LAZY
| LBRACE
| LBRACELESS
| LBRACKET
| LBRACKETBAR
| LBRACKETLESS
| LBRACKETGREATER
| LBRACKETPERCENT
| LBRACKETPERCENTPERCENT
| LBRACKETAT
| LBRACKETATAT
| LBRACKETATATAT
| LESS
| LESSMINUS
| LET
| LIDENT of string
| LINE_DIRECTIVE of string
| LPAREN
| MATCH
| METHOD
| MINUS
| MINUSDOT
| MINUSGREATER
| MODULE
| MUTABLE
| NATIVEINT of nativeint overflow
| NEW
| OBJECT
| OF
| OPEN
| OPTLABEL of string
| OR
| PLUS
| PLUSDOT
| PREFIXOP of string
| PRIVATE
| QUESTION
| QUESTIONQUESTION
| QUOTE
| RBRACE
| RBRACKET
| REC
| RPAREN
| SEMI
| SEMISEMI
| SHARP
| SIG
| STAR
| STRUCT
| THEN
| TILDE
| TO
| TRUE
| TRY
| TYPE
| TYPEVAR
| UIDENT of string
| UNDERSCORE
| VAL
| VIRTUAL
| WHEN
| WHILE
| WITH
| ESCAPED_EOL
| EOL
| SPACES
| ILLEGAL_CHAR of char
| COMMA
| COMMENT_OPEN_EOL
| COMMENT_OPEN
| COMMENT_OPEN_CLOSE
| COMMENT_VERB_OPEN
| COMMENT_CODE_OPEN
| COMMENT_CONTENT
| COMMENT_CLOSE
| COMMENT_VERB_CLOSE
| COMMENT_CODE_CLOSE
| STRING_OPEN
| STRING_CONTENT
| STRING_CLOSE
| PPX_QUOTATION_OPEN
| PPX_QUOTATION_CONTENT
| PPX_QUOTATION_CLOSE
| P4_QUOTATION_OPEN
| P4_QUOTATION_CONTENT
| P4_QUOTATION_CLOSE

val string_of_tok : token -> string

type state =

| Newline
| String
| Quotation_p4
| Quotation_ppx of string
| Comment
| Code
| Verbatim

val print_state : Format.formatter -> state -> unit

type context = {

lines_starts : (int * int) list;
stack : state list;
eof_closing : bool;
comment_closing : bool;

}

val print_context : Format.formatter -> context -> unit

val keywords : (string * token) list

val keyword_table : (string, token) Hashtbl.t

val lexer_extensions : (Lexing.lexbuf -> Approx_tokens.token) list ref

val enable_extension : string -> unit

val disable_extensions : unit -> unit

val eof : context -> context * token

val initial_state : context

val rewind : Lexing.lexbuf -> int -> unit

val char_for_backslash : char -> char

val can_overflow : (string -> 'a) -> Lexing.lexbuf -> 'a overflow

val char_for_decimal_code : int -> string -> char

val char_for_hexadecimal_code : Lexing.lexbuf -> int -> char

val cvt_int_literal : string -> int

val cvt_int32_literal : string -> int32

val cvt_int64_literal : string -> int64

val cvt_nativeint_literal : string -> nativeint

val remove_underscores : string -> string

val update_loc : context -> Lexing.lexbuf -> int -> int -> context

val __ocaml_lex_tables : Stdlib.Lexing.lex_tables

val code_newline : context -> Lexing.lexbuf -> context * token

val __ocaml_lex_code_newline_rec : 
  context ->
  Lexing.lexbuf ->
  int ->
  context * token

val code : context -> Lexing.lexbuf -> context * token

val __ocaml_lex_code_rec : context -> Lexing.lexbuf -> int -> context * token

val p4_quotation : context -> Lexing.lexbuf -> context * token

val __ocaml_lex_p4_quotation_rec : 
  context ->
  Lexing.lexbuf ->
  int ->
  context * token

val ppx_quotation : context -> Lexing.lexbuf -> context * token

val __ocaml_lex_ppx_quotation_rec : 
  context ->
  Lexing.lexbuf ->
  int ->
  context * token

val comment : context -> Lexing.lexbuf -> context * token

val __ocaml_lex_comment_rec : 
  context ->
  Lexing.lexbuf ->
  int ->
  context * token

val string : context -> Lexing.lexbuf -> context * token

val __ocaml_lex_string_rec : context -> Lexing.lexbuf -> int -> context * token

val token : context -> Lexing.lexbuf -> context * token

val tokens : context -> Lexing.lexbuf -> (token * string * state list) list

val tokens_of_string : 
  ?st:context ->
  string ->
  (token * string * state list) list

val tokens_of_file : 
  ?st:context ->
  string ->
  (token * string * state list) list

module Simple : sig ... end

package ocp-indent-nlfork