libsail 0.15 · OCaml Package

val skip_lines : in_channel -> int -> unit

val read_lines : in_channel -> int -> string list

type formatter = {

indent : string;
endline : string -> unit;
loc_color : string -> string;

}

val err_formatter : formatter

val buffer_formatter : Buffer.t -> formatter

val format_endline : string -> formatter -> unit

val underline_single : (string -> string) -> int -> int -> string

val format_hint : ('a -> string) -> 'a option -> string

val format_code_single' : 
  string ->
  string option ->
  string ->
  in_channel ->
  int ->
  int ->
  int ->
  (formatter -> 'a) ->
  formatter ->
  'a

val underline_double_from : (string -> string) -> int -> int -> string

val underline_double_to : (string -> string) -> int -> string

val format_code_double' : 
  string ->
  string ->
  in_channel ->
  int ->
  int ->
  int ->
  int ->
  (formatter -> 'a) ->
  formatter ->
  'a

val format_code_single_fallback : 
  string ->
  string ->
  int ->
  int ->
  int ->
  (formatter -> 'a) ->
  formatter ->
  'a

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 ->
  'a

val format_code_double : 
  string ->
  string ->
  int ->
  int ->
  int ->
  int ->
  (formatter -> unit) ->
  formatter ->
  unit

val format_pos : 
  string ->
  string option ->
  Lexing.position ->
  Lexing.position ->
  (formatter -> unit) ->
  formatter ->
  unit

val format_loc : 
  string ->
  string option ->
  Parse_ast.l ->
  (formatter -> unit) ->
  formatter ->
  unit

type message =

| Location of string * string option * Parse_ast.l * message
| Line of string
| List of (string * message) list
| Seq of message list
| With of formatter -> formatter * message

val bullet : string

val format_message : message -> formatter -> unit

package libsail