forked from OCamlPro/operf-micro
-
Notifications
You must be signed in to change notification settings - Fork 0
/
micro_bench_types.ml
50 lines (41 loc) · 1.5 KB
/
micro_bench_types.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
type result =
| Ok
| Error of string
type cost =
| Short
| Long
| Longer
type range =
| Any
| Range of int * int
| List of int list
type 'result unit_function =
( unit -> 'result ) (* benchmarked function *)
* ( 'result -> result ) (* test function *)
* cost (* estimated run time *)
type 'result unit_group =
( string * ( unit -> 'result ) ) list
(* benchmarked functions *)
* ( 'result -> result ) (* test function *)
* cost (* estimated run time *)
type ('result, 'arg) int_function =
( 'arg -> 'result ) (* benchmarked function *)
* ( int -> 'arg ) (* argument generation *)
* ( int -> 'result -> result ) (* test function *)
* (range * cost) list (* estimated run time for parameter range *)
type ('result, 'arg) int_group =
( string * ( 'arg -> 'result ) ) list
(* benchmarked functions *)
* ( int -> 'arg ) (* argument generation *)
* ( int -> 'result -> result ) (* test function *)
* (range * cost) list (* estimated run time for parameter range *)
type function_kind =
| Unit : 'result unit_function -> function_kind
| Int : ('result, 'arg) int_function -> function_kind
| Unit_group : 'result unit_group -> function_kind
| Int_group : ('result, 'arg) int_group -> function_kind
type benchmark = string (* function name *)
* function_kind
let r : benchmark list ref = ref []
let add l = r := !r @ l
let functions () = !r