Module Reason_layout

module Easy_format = Vendored_easy_format
type break_criterion =
  1. | Never
  2. | IfNeed
  3. | Always
  4. | Always_rec
type separator =
  1. | NoSep
  2. | Sep of string
  3. | SepFinal of string * string
module WhitespaceRegion : sig ... end

* Module concerning info to correctly interleave whitespace above a layout node.

type t =
  1. | SourceMap of Location.t * t
  2. | Sequence of config * t list
  3. | Label of Easy_format.t -> Easy_format.t -> Easy_format.t * t * t
  4. | Easy of Easy_format.t
  5. | Whitespace of WhitespaceRegion.t * t

* These represent "intent to format" the AST, with some parts being annotated * with original source location. The benefit of tracking this in an * intermediate structure, is that we can then interleave comments throughout * the tree before generating the final representation. That prevents the * formatting code from having to thread comments everywhere. * * The final representation is rendered using Easy_format.

and config = {
  1. break : break_criterion;
  2. wrap : string * string;
  3. inline : bool * bool;
  4. sep : separator;
  5. indent : int;
  6. sepLeft : bool;
  7. preSpace : bool;
  8. postSpace : bool;
  9. pad : bool * bool;
  10. listConfigIfCommentsInterleaved : (config -> config) option;
  11. listConfigIfEolCommentsInterleaved : (config -> config) option;
}
val string_of_easy : Easy_format.t -> string
val indent_more : string -> string
val dump_easy : Format.formatter -> Easy_format.t -> unit
val dump : Format.formatter -> t -> unit
val source_map : ?loc:Location.t -> t -> t
val default_list_settings : Easy_format.list_param
val easy_settings_from_config : config -> string * string * string * Easy_format.list_param
val to_easy_format : t -> Easy_format.t
val get_location : t -> Location.t option

getLocFromLayout recursively takes the unioned location of its children, * and returns the max one

val is_before : location:Ppxlib.Location.t -> t -> bool
val contains_location : t -> location:Ppxlib.Location.t -> bool