7
val set_drawinstr : unit -> unit
9
val transp_values : unit -> bool
10
val set_transp_values : bool -> unit
14
(* Les valeurs ***********)
26
| Aiddef of id_key * values
33
| Zfix of vfix*arguments (* Peut-etre vide *)
36
type stack = zipper list
44
| Vfix of vfix * arguments option
45
| Vcofix of vcofix * to_up * arguments option
46
| Vconstr_const of int
47
| Vconstr_block of vblock
48
| Vatom_stk of atom * stack
51
val val_of_str_const : structured_constant -> values
53
val val_of_rel : int -> values
54
val val_of_rel_def : int -> values -> values
56
val val_of_named : identifier -> values
57
val val_of_named_def : identifier -> values -> values
59
val val_of_constant : constant -> values
60
val val_of_constant_def : int -> constant -> values -> values
63
val whd_val : values -> whd
66
val nargs : arguments -> int
67
val arg : arguments -> int -> values
70
val dom : vprod -> values
71
val codom : vprod -> vfun
74
val body_of_vfun : int -> vfun -> values
75
val decompose_vfun2 : int -> vfun -> vfun -> int * values * values
78
val current_fix : vfix -> int
79
val check_fix : vfix -> vfix -> bool
80
val rec_args : vfix -> int array
81
val reduce_fix : int -> vfix -> vfun array * values array
85
val current_cofix : vcofix -> int
86
val check_cofix : vcofix -> vcofix -> bool
87
val reduce_cofix : int -> vcofix -> values array * values array
90
val btag : vblock -> int
91
val bsize : vblock -> int
92
val bfield : vblock -> int -> values
95
val check_switch : vswitch -> vswitch -> bool
96
val case_info : vswitch -> case_info
97
val type_of_switch : vswitch -> values
98
val branch_of_switch : int -> vswitch -> (int * values) array
101
val whd_stack : values -> stack -> whd
102
val force_whd : values -> stack -> whd