2020-12-28 01:08:55 +01:00
|
|
|
(* Types *)
|
2018-03-09 00:08:12 +01:00
|
|
|
|
2018-03-03 21:19:50 +01:00
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
(* [[file:../zkey.org::*Types][Types:1]] *)
|
2018-03-03 21:19:50 +01:00
|
|
|
type t
|
|
|
|
|
|
|
|
type kind =
|
|
|
|
| Three of Powers.t
|
2018-06-29 16:04:40 +02:00
|
|
|
| Four of (int * int * int * int)
|
2018-03-03 21:19:50 +01:00
|
|
|
| Six of (Powers.t * Powers.t)
|
|
|
|
| Nine of (Powers.t * Powers.t * Powers.t)
|
|
|
|
| Twelve of (Powers.t * Powers.t * Powers.t * Powers.t)
|
2020-12-28 01:08:55 +01:00
|
|
|
(* Types:1 ends here *)
|
2018-03-03 21:19:50 +01:00
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
(* Conversions *)
|
2018-06-29 16:04:40 +02:00
|
|
|
|
2018-03-03 21:19:50 +01:00
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
(* [[file:../zkey.org::*Conversions][Conversions:1]] *)
|
|
|
|
val of_powers_three : Powers.t -> t
|
|
|
|
val of_powers_six : Powers.t -> Powers.t -> t
|
|
|
|
val of_powers_nine : Powers.t -> Powers.t -> Powers.t -> t
|
|
|
|
val of_powers_twelve : Powers.t -> Powers.t -> Powers.t -> Powers.t -> t
|
|
|
|
val of_powers : kind -> t
|
|
|
|
val of_int_array : int array -> t
|
|
|
|
val of_int_four : int -> int -> int -> int -> t
|
|
|
|
val to_int_array : t -> int array
|
|
|
|
val to_powers : t -> kind
|
|
|
|
val to_string : t -> string
|
|
|
|
(* Conversions:1 ends here *)
|
2018-03-03 21:19:50 +01:00
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
(* Functions for hash tables *)
|
2018-03-03 21:19:50 +01:00
|
|
|
|
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
(* [[file:../zkey.org::*Functions for hash tables][Functions for hash tables:1]] *)
|
|
|
|
val hash : t -> int
|
|
|
|
val equal : t -> t -> bool
|
2018-03-03 21:19:50 +01:00
|
|
|
val compare : t -> t -> int
|
2020-12-28 01:08:55 +01:00
|
|
|
(* Functions for hash tables:1 ends here *)
|
|
|
|
|
|
|
|
(* Printers *)
|
2018-03-03 21:19:50 +01:00
|
|
|
|
2018-03-13 18:24:00 +01:00
|
|
|
|
2020-12-28 01:08:55 +01:00
|
|
|
(* [[file:../zkey.org::*Printers][Printers:1]] *)
|
|
|
|
val pp : Format.formatter -> t -> unit
|
|
|
|
(* Printers:1 ends here *)
|