Module Cst.LineSource

Sourcetype 'a not_blank = {
  1. trailing_blanks : Base.string;
    (*

    regexp: " \t*"

    *)
  2. orig : Base.string;
    (*

    Original contents of the line without the trailing blanks or indentation. regexp: "^\n*^ \t\n"

    *)
  3. data : 'a;
    (*

    Data associated to the line.

    *)
}
Sourceval sexp_of_not_blank : ('a -> Base.Sexp.t) -> 'a not_blank -> Base.Sexp.t
Sourceval compare_not_blank : ('a -> 'a -> Base.int) -> 'a not_blank -> 'a not_blank -> Base.int
Sourceval equal_not_blank : ('a -> 'a -> Base.bool) -> 'a not_blank -> 'a not_blank -> Base.bool
Sourcetype 'a t =
  1. | Blank of Base.string
    (*

    regexp: " \t*"

    *)
  2. | Not_blank of 'a not_blank
Sourceval sexp_of_t : ('a -> Base.Sexp.t) -> 'a t -> Base.Sexp.t
Sourceval compare : ('a -> 'a -> Base.int) -> 'a t -> 'a t -> Base.int
Sourceval equal : ('a -> 'a -> Base.bool) -> 'a t -> 'a t -> Base.bool
Sourceval invariant : ('a -> Base.unit) -> 'a t -> Base.unit
Sourceval map : 'a t -> f:(Base.string -> 'a -> 'b) -> 'b t

The callback receive the orig and data fields

Sourceval strip : 'a t -> 'a t

Delete trailing blanks (everything for blank lines)

Sourceval data : 'a t -> blank:'a -> 'a