package core_kernel

  1. Overview
  2. Docs
package core_kernel
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file tuple_type.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
51
open! Core_kernel
open! Import
include Tuple_type_intf

module Slots = struct
  type u_ = { slots_per_tuple : int } [@@deriving sexp_of]
  type ('tuple, 'variant) u = u_ [@@deriving sexp_of]
  type t_ = [ `Slots of u_ ] [@@deriving sexp_of]
  type ('tuple, 'variant) t = t_ [@@deriving sexp_of]

  let slots_per_tuple (`Slots { slots_per_tuple = n }) = n

  type 'a0 t1 = t_ [@@deriving sexp_of]
  type ('a0, 'a1) t2 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2) t3 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3) t4 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3, 'a4) t5 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5) t6 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6) t7 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7) t8 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7, 'a8) t9 = t_ [@@deriving sexp_of]
  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7, 'a8, 'a9) t10 = t_ [@@deriving sexp_of]

  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7, 'a8, 'a9, 'a10) t11 = t_
  [@@deriving sexp_of]

  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7, 'a8, 'a9, 'a10, 'a11) t12 = t_
  [@@deriving sexp_of]

  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7, 'a8, 'a9, 'a10, 'a11, 'a12) t13 = t_
  [@@deriving sexp_of]

  type ('a0, 'a1, 'a2, 'a3, 'a4, 'a5, 'a6, 'a7, 'a8, 'a9, 'a10, 'a11, 'a12, 'a13) t14 =
    t_
  [@@deriving sexp_of]

  let t1 = `Slots { slots_per_tuple = 1 }
  let t2 = `Slots { slots_per_tuple = 2 }
  let t3 = `Slots { slots_per_tuple = 3 }
  let t4 = `Slots { slots_per_tuple = 4 }
  let t5 = `Slots { slots_per_tuple = 5 }
  let t6 = `Slots { slots_per_tuple = 6 }
  let t7 = `Slots { slots_per_tuple = 7 }
  let t8 = `Slots { slots_per_tuple = 8 }
  let t9 = `Slots { slots_per_tuple = 9 }
  let t10 = `Slots { slots_per_tuple = 10 }
  let t11 = `Slots { slots_per_tuple = 11 }
  let t12 = `Slots { slots_per_tuple = 12 }
  let t13 = `Slots { slots_per_tuple = 13 }
  let t14 = `Slots { slots_per_tuple = 14 }
end