Source file portmidi_c_generated_functions.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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
module CI = Cstubs_internals

external portmidi_stub_1_Pm_Initialize : unit -> int
  = "portmidi_stub_1_Pm_Initialize" 

external portmidi_stub_2_Pm_Terminate : unit -> unit
  = "portmidi_stub_2_Pm_Terminate" 

external portmidi_stub_3_Pm_CountDevices : unit -> int
  = "portmidi_stub_3_Pm_CountDevices" 

external portmidi_stub_4_Pm_GetDeviceInfo : int -> CI.voidp
  = "portmidi_stub_4_Pm_GetDeviceInfo" 

external portmidi_stub_5_Pm_GetErrorText : int -> CI.voidp
  = "portmidi_stub_5_Pm_GetErrorText" 

external portmidi_stub_6_Pm_OpenInput
  : _ CI.fatptr -> int -> _ CI.fatptr -> int32 -> _ CI.fatptr ->
    _ CI.fatptr -> int
  = "portmidi_stub_6_Pm_OpenInput_byte6" "portmidi_stub_6_Pm_OpenInput" 

external portmidi_stub_7_Pm_OpenOutput
  : _ CI.fatptr -> int -> _ CI.fatptr -> int32 -> _ CI.fatptr ->
    _ CI.fatptr -> int32 -> int
  = "portmidi_stub_7_Pm_OpenOutput_byte7" "portmidi_stub_7_Pm_OpenOutput" 

external portmidi_stub_8_Pm_Abort : _ CI.fatptr -> int
  = "portmidi_stub_8_Pm_Abort" 

external portmidi_stub_9_Pm_Close : _ CI.fatptr -> int
  = "portmidi_stub_9_Pm_Close" 

external portmidi_stub_10_Pm_Read
  : _ CI.fatptr -> _ CI.fatptr -> int32 -> int = "portmidi_stub_10_Pm_Read" 

external portmidi_stub_11_Pm_Write
  : _ CI.fatptr -> _ CI.fatptr -> int32 -> int = "portmidi_stub_11_Pm_Write" 

external portmidi_stub_12_Pm_WriteSysEx
  : _ CI.fatptr -> int32 -> _ CI.fatptr -> int
  = "portmidi_stub_12_Pm_WriteSysEx" 

external portmidi_stub_13_Pm_Poll : _ CI.fatptr -> int
  = "portmidi_stub_13_Pm_Poll" 

external portmidi_stub_14_Pt_Time : unit -> int32
  = "portmidi_stub_14_Pt_Time" 

type 'a result = 'a
type 'a return = 'a
type 'a fn =
 | Returns  : 'a CI.typ   -> 'a return fn
 | Function : 'a CI.typ * 'b fn  -> ('a -> 'b) fn
let map_result f x = f x
let returning t = Returns t
let (@->) f p = Function (f, p)
let foreign : type a b. string -> (a -> b) fn -> (a -> b) =
  fun name t -> match t, name with
| Function (CI.Void, Returns (CI.Primitive CI.Int32_t)), "Pt_Time" ->
  portmidi_stub_14_Pt_Time
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "Pm_Poll" ->
  (fun x2 -> let CI.CPointer x3 = x2 in portmidi_stub_13_Pm_Poll x3)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Int32_t,
        Function (CI.Pointer _, Returns (CI.Primitive CI.Int)))),
  "Pm_WriteSysEx" ->
  (fun x4 x6 x7 ->
    let CI.CPointer x8 = x7 in
    let CI.CPointer x5 = x4 in portmidi_stub_12_Pm_WriteSysEx x5 x6 x8)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function (CI.Primitive CI.Int32_t, Returns (CI.Primitive CI.Int)))),
  "Pm_Write" ->
  (fun x9 x11 x13 ->
    let CI.CPointer x12 = x11 in
    let CI.CPointer x10 = x9 in portmidi_stub_11_Pm_Write x10 x12 x13)
| Function
    (CI.Pointer _,
     Function
       (CI.Pointer _,
        Function (CI.Primitive CI.Int32_t, Returns (CI.Primitive CI.Int)))),
  "Pm_Read" ->
  (fun x14 x16 x18 ->
    let CI.CPointer x17 = x16 in
    let CI.CPointer x15 = x14 in portmidi_stub_10_Pm_Read x15 x17 x18)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "Pm_Close" ->
  (fun x19 -> let CI.CPointer x20 = x19 in portmidi_stub_9_Pm_Close x20)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "Pm_Abort" ->
  (fun x21 -> let CI.CPointer x22 = x21 in portmidi_stub_8_Pm_Abort x22)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Int,
        Function
          (CI.Pointer _,
           Function
             (CI.Primitive CI.Int32_t,
              Function
                (CI.Pointer _,
                 Function
                   (CI.Pointer _,
                    Function
                      (CI.Primitive CI.Int32_t,
                       Returns (CI.Primitive CI.Int)))))))),
  "Pm_OpenOutput" ->
  (fun x23 x25 x26 x28 x29 x31 x33 ->
    let CI.CPointer x32 = x31 in
    let CI.CPointer x30 = x29 in
    let CI.CPointer x27 = x26 in
    let CI.CPointer x24 = x23 in
    portmidi_stub_7_Pm_OpenOutput x24 x25 x27 x28 x30 x32 x33)
| Function
    (CI.Pointer _,
     Function
       (CI.Primitive CI.Int,
        Function
          (CI.Pointer _,
           Function
             (CI.Primitive CI.Int32_t,
              Function
                (CI.Pointer _,
                 Function (CI.Pointer _, Returns (CI.Primitive CI.Int))))))),
  "Pm_OpenInput" ->
  (fun x34 x36 x37 x39 x40 x42 ->
    let CI.CPointer x43 = x42 in
    let CI.CPointer x41 = x40 in
    let CI.CPointer x38 = x37 in
    let CI.CPointer x35 = x34 in
    portmidi_stub_6_Pm_OpenInput x35 x36 x38 x39 x41 x43)
| Function
    (CI.Primitive CI.Int,
     Returns (CI.View {CI.ty = CI.Pointer x45; read = x46; _})),
  "Pm_GetErrorText" ->
  (fun x44 -> x46 (CI.make_ptr x45 (portmidi_stub_5_Pm_GetErrorText x44)))
| Function (CI.Primitive CI.Int, Returns (CI.Pointer x48)),
  "Pm_GetDeviceInfo" ->
  (fun x47 -> CI.make_ptr x48 (portmidi_stub_4_Pm_GetDeviceInfo x47))
| Function (CI.Void, Returns (CI.Primitive CI.Int)), "Pm_CountDevices" ->
  portmidi_stub_3_Pm_CountDevices
| Function (CI.Void, Returns CI.Void), "Pm_Terminate" ->
  portmidi_stub_2_Pm_Terminate
| Function (CI.Void, Returns (CI.Primitive CI.Int)), "Pm_Initialize" ->
  portmidi_stub_1_Pm_Initialize
| _, s ->  Printf.ksprintf failwith "No match for %s" s


let foreign_value : type a. string -> a Ctypes.typ -> a Ctypes.ptr =
  fun name t -> match t, name with
| _, s ->  Printf.ksprintf failwith "No match for %s" s