module Inout_type: sig
.. end
Pretty-print the fields over_inputs_if_termination
, over_inputs
and
under_outputs_if_termination
type
tt = {
|
over_inputs : Locations.Zone.t ; |
|
over_inputs_if_termination : Locations.Zone.t ; |
|
under_outputs_if_termination : Locations.Zone.t ; |
|
over_outputs : Locations.Zone.t ; |
|
over_outputs_if_termination : Locations.Zone.t ; |
}
val pretty_operational_inputs_aux : Format.formatter -> tt -> unit
val pretty_outputs_aux : Format.formatter -> tt -> unit
val wrap_vbox : (Format.formatter -> 'a -> 'b) -> Format.formatter -> 'a -> unit
val pretty_operational_inputs : Format.formatter -> tt -> unit
Pretty-print the fields over_inputs_if_termination
, over_inputs
and
under_outputs_if_termination
val pretty_outputs : Format.formatter -> tt -> unit
Pretty-print the fields over_outputs
and over_outputs_if_termination
.
include struct ... end
val map : (Locations.Zone.t -> Locations.Zone.t) -> tt -> tt
val bottom : tt
val join : tt -> tt -> tt