module Signature:sig
..end
Signature
a mapping between keys that represent either a
function input or output, and some information.type 'a
t
'a
is the type of the information that we *
want to store for each input/output.type
in_key = private
| |
InCtrl |
(* |
input control point
| *) |
| |
InNum of |
(* |
parameters numbered from 1
| *) |
| |
InImpl of |
(* |
key for implicit inputs.
Used in function signatures only
| *) |
type
out_key = private
| |
OutRet |
(* |
key for the output corresponding to the
return | *) |
| |
OutLoc of |
(* |
key for output locations.
used in call signatures only
| *) |
type
key = private
| |
In of |
| |
Out of |
val empty : 'a t
val mk_undef_in_key : Locations.Zone.t -> in_key
val cmp_in_key : in_key -> in_key -> int
val cmp_out_key : out_key -> out_key -> int
val equal_out_key : out_key -> out_key -> bool
val find_info : 'a t -> key -> 'a
val find_input : 'a t -> int -> 'a
val find_in_ctrl : 'info t -> 'info
val find_in_top : 'info t -> 'info
val find_in_info : 'info t -> in_key -> 'info
val find_out_ret : 'a t -> 'a
val find_out_info : 'info t -> out_key -> 'info
val fold : ('a -> key * 'b -> 'a) ->
'a -> 'b t -> 'a
val fold_num_inputs : ('a -> int * 'b -> 'a) -> 'a -> 'b t -> 'a
val fold_impl_inputs : ('a -> Locations.Zone.t * 'b -> 'a) -> 'a -> 'b t -> 'a
val fold_matching_impl_inputs : Locations.Zone.t ->
('a -> Locations.Zone.t * 'b -> 'a) -> 'a -> 'b t -> 'a
val fold_all_inputs : ('a -> in_key * 'b -> 'a) ->
'a -> 'b t -> 'a
val fold_all_outputs : ('a -> out_key * 'b -> 'a) ->
'a -> 'b t -> 'a
val pretty : (Format.formatter -> 'a -> unit) ->
Format.formatter -> 'a t -> unit
val pretty_key : Format.formatter -> key -> unit
val pretty_in_key : Format.formatter -> in_key -> unit
val pretty_out_key : Format.formatter -> out_key -> unit