Module ArgTools.Stack

Parameters

module Arg : BiArg

Signature

include MyARG.S with module Edge = MyARG.InlineEdge with module Node = MyARG.StackNode(Arg.Node)
module Edge = MyARG.InlineEdge
val main_entry : Node.t
val next : Node.t -> (Edge.t * Node.t) list
val prev : Node.t -> (Edge.t * Node.t) list
val iter_nodes : (Node.t -> unit) -> unit
val query : Node.t -> 'a Queries.t -> 'a Queries.result