package libsail

  1. Overview
  2. Docs
type 'a visit_action =
  1. | SkipChildren
    (*

    Do not visit the children. Return the node as it is.

    *)
  2. | DoChildren
    (*

    Continue with the children of this node. Rebuild the node on return if any of the children changes (use == test)

    *)
  3. | ChangeTo of 'a
    (*

    Replace the expression with the given one

    *)
  4. | ChangeDoChildrenPost of 'a * 'a -> 'a
    (*

    First consider that the entire exp is replaced by the first parameter. Then continue with the children. On return rebuild the node if any of the children has changed and then apply the function on the node

    *)

Different visiting actions. 'a will be instantiated with various AST types.

val do_visit : 'v -> 'a visit_action -> ('v0 -> 'a0 -> 'a0) -> 'a1 -> 'a2
val change_do_children : 'a -> 'b visit_action
val map_no_copy : ('a -> 'a) -> 'a0 list -> 'a1 list
val map_no_copy_list : ('a -> 'a list) -> 'a0 list -> 'a1 list
val map_no_copy_opt : ('a -> 'a) -> 'a0 option -> 'a0 option
val do_visit_list : 'v -> 'a list visit_action -> ('v0 -> 'a0 -> 'a0) -> 'a1 -> 'a2 list