relit-reason 0.0.1 · OCaml Package

exception Ellipsis

val cautious : 
  (Format.formatter -> 'a -> unit) ->
  Format.formatter ->
  'a ->
  unit

val print_ident : Format.formatter -> Ast_404.Outcometree.out_ident -> unit

val parenthesized_ident : string -> bool

val value_ident : Format.formatter -> string -> unit

val valid_float_lexeme : string -> string

val float_repres : float -> string

val parenthesize_if_neg : 
  Format.formatter ->
  ('a -> 'b, Format.formatter, unit) Pervasives.format ->
  'a ->
  bool ->
  unit

val print_out_value : Format.formatter -> Ast_404.Outcometree.out_value -> unit

val print_list_init : ('a -> 'b -> 'c) -> ('a -> 'd) -> 'a -> 'b list -> unit

val print_list : ('a -> 'b -> unit) -> ('a -> 'c) -> 'a -> 'b list -> unit

val pr_present : Format.formatter -> string list -> unit

val pr_vars : Format.formatter -> string list -> unit

type label =

| Nonlabeled
| Labeled of string
| Optional of string

val get_label : string -> label

val print_out_type : Format.formatter -> Ast_404.Outcometree.out_type -> unit

val print_arg : 
  Format.formatter ->
  (string * Ast_404.Outcometree.out_type) ->
  unit

val print_out_type_1 : 
  uncurried:bool ->
  Format.formatter ->
  Ast_404.Outcometree.out_type ->
  unit

val print_out_type_2 : Format.formatter -> Ast_404.Outcometree.out_type -> unit

val print_simple_out_type : 
  Format.formatter ->
  Ast_404.Outcometree.out_type ->
  unit

val print_object_fields : 
  quote_fields:bool ->
  Format.formatter ->
  (string * Ast_404.Outcometree.out_type) list ->
  unit

val print_row_field : 
  Format.formatter ->
  (string * bool * Ast_404.Outcometree.out_type list) ->
  unit

val print_typlist : 
  (Format.formatter -> Ast_404.Outcometree.out_type -> unit) ->
  string ->
  Format.formatter ->
  Ast_404.Outcometree.out_type list ->
  unit

val print_out_wrap_type : 
  Format.formatter ->
  Ast_404.Outcometree.out_type ->
  unit

val print_typargs : 
  Format.formatter ->
  Ast_404.Outcometree.out_type list ->
  unit

val out_type : 
  (Format.formatter -> Ast_404.Outcometree.out_type -> unit) Pervasives.ref

val type_parameter : Format.formatter -> (string * (bool * bool)) -> unit

val print_out_class_params : 
  Format.formatter ->
  (string * (bool * bool)) list ->
  unit

val print_out_class_type : 
  Format.formatter ->
  Ast_404.Outcometree.out_class_type ->
  unit

val print_out_class_sig_item : 
  Format.formatter ->
  Ast_404.Outcometree.out_class_sig_item ->
  unit

val is_rec_next : Ast_404.Outcometree.out_sig_item list -> bool

val print_out_functor : 
  Format.formatter ->
  Ast_404.Outcometree.out_module_type ->
  unit

val print_out_module_type : 
  Format.formatter ->
  Ast_404.Outcometree.out_module_type ->
  unit

val print_out_signature : 
  Format.formatter ->
  Ast_404.Outcometree.out_sig_item list ->
  unit

val print_out_sig_item : 
  Format.formatter ->
  Ast_404.Outcometree.out_sig_item ->
  unit

val print_out_type_decl : 
  string ->
  Format.formatter ->
  Ast_404.Outcometree.out_type_decl ->
  unit

val print_out_constr : 
  Format.formatter ->
  (string
   * Ast_404.Outcometree.out_type list
   * Ast_404.Outcometree.out_type option) ->
  unit

val print_out_label : 
  Format.formatter ->
  (string * bool * Ast_404.Outcometree.out_type) ->
  unit

val print_out_extension_constructor : 
  Format.formatter ->
  Ast_404.Outcometree.out_extension_constructor ->
  unit

val print_out_type_extension : 
  Format.formatter ->
  Ast_404.Outcometree.out_type_extension ->
  unit

val print_out_exception : 
  Format.formatter ->
  exn ->
  Ast_404.Outcometree.out_value ->
  unit

val print_items : 
  Format.formatter ->
  (Ast_404.Outcometree.out_sig_item * Ast_404.Outcometree.out_value option)
    list ->
  unit

val print_out_phrase : 
  Format.formatter ->
  Ast_404.Outcometree.out_phrase ->
  unit

package relit-reason