package libsail

  1. Overview
  2. Docs
val skip_lines : Stdlib.in_channel -> int -> unit
val read_lines : Stdlib.in_channel -> int -> string list
type formatter = {
  1. indent : string;
  2. endline : string -> unit;
  3. loc_color : string -> string;
}
val err_formatter : formatter
val buffer_formatter : Stdlib.Buffer.t -> formatter
val format_endline : string -> formatter -> unit
val underline_single : (string -> string) -> int -> int -> string
val format_hint : ('a -> string) -> 'b option -> string
val format_code_single' : string -> string option -> string -> Stdlib.in_channel -> int -> int -> int -> (formatter -> 'a) -> formatter -> 'b
val underline_double_from : (string -> string) -> int -> int -> string
val underline_double_to : (string -> string) -> int -> string
val format_code_double' : string -> string -> Stdlib.in_channel -> int -> int -> int -> int -> (formatter -> 'a) -> formatter -> 'b
val format_code_single_fallback : string -> string -> int -> int -> int -> (formatter -> 'a) -> formatter -> 'b
val format_code_single : string -> string option -> string -> int -> int -> int -> (formatter -> unit) -> formatter -> unit
val format_code_double_fallback : string -> string -> int -> int -> int -> int -> (formatter -> 'a) -> formatter -> 'b
val format_code_double : string -> string -> int -> int -> int -> int -> (formatter -> unit) -> formatter -> unit
val format_pos : string -> string option -> Stdlib.Lexing.position -> Stdlib.Lexing.position -> (formatter -> unit) -> formatter -> unit
val format_loc : string -> string option -> Parse_ast.l -> (formatter -> unit) -> formatter -> unit
type message =
  1. | Location of string * string option * Parse_ast.l * message
  2. | Line of string
  3. | List of (string * message) list
  4. | Seq of message list
  5. | With of formatter -> formatter * message
val bullet : string
val format_message : message -> formatter -> unit