Source file mariadb_or_mysql_client__c_generated_functions__Ffi_bindings__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
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
module CI = Cstubs_internals
external mariadb_or_mysql_client_stubs_1_mysql_server_init
: int -> _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_1_mysql_server_init"
external mariadb_or_mysql_client_stubs_2_mysql_server_end : unit -> unit
= "mariadb_or_mysql_client_stubs_2_mysql_server_end"
external mariadb_or_mysql_client_stubs_3_mysql_init : _ CI.fatptr -> CI.voidp
= "mariadb_or_mysql_client_stubs_3_mysql_init"
external mariadb_or_mysql_client_stubs_4_mysql_close : _ CI.fatptr -> unit
= "mariadb_or_mysql_client_stubs_4_mysql_close"
external mariadb_or_mysql_client_stubs_5_mysql_options
: _ CI.fatptr -> int -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_5_mysql_options"
external mariadb_or_mysql_client_stubs_6_mysql_options4
: _ CI.fatptr -> int -> _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_6_mysql_options4"
external mariadb_or_mysql_client_stubs_7_mysql_num_fields
: _ CI.fatptr -> int = "mariadb_or_mysql_client_stubs_7_mysql_num_fields"
external mariadb_or_mysql_client_stubs_8_mysql_errno : _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_8_mysql_errno"
external mariadb_or_mysql_client_stubs_9_mysql_error
: _ CI.fatptr -> CI.voidp = "mariadb_or_mysql_client_stubs_9_mysql_error"
external mariadb_or_mysql_client_stubs_10_mysql_stmt_init
: _ CI.fatptr -> CI.voidp
= "mariadb_or_mysql_client_stubs_10_mysql_stmt_init"
external mariadb_or_mysql_client_stubs_11_mysql_stmt_errno
: _ CI.fatptr -> int = "mariadb_or_mysql_client_stubs_11_mysql_stmt_errno"
external mariadb_or_mysql_client_stubs_12_mysql_stmt_error
: _ CI.fatptr -> CI.voidp
= "mariadb_or_mysql_client_stubs_12_mysql_stmt_error"
external mariadb_or_mysql_client_stubs_13_mysql_stmt_attr_set
: _ CI.fatptr -> int -> _ CI.fatptr -> char
= "mariadb_or_mysql_client_stubs_13_mysql_stmt_attr_set"
external mariadb_or_mysql_client_stubs_14_mysql_stmt_bind_param
: _ CI.fatptr -> _ CI.fatptr -> char
= "mariadb_or_mysql_client_stubs_14_mysql_stmt_bind_param"
external mariadb_or_mysql_client_stubs_15_mysql_stmt_param_count
: _ CI.fatptr -> Unsigned.ulong
= "mariadb_or_mysql_client_stubs_15_mysql_stmt_param_count"
external mariadb_or_mysql_client_stubs_16_mysql_stmt_result_metadata
: _ CI.fatptr -> CI.voidp
= "mariadb_or_mysql_client_stubs_16_mysql_stmt_result_metadata"
external mariadb_or_mysql_client_stubs_17_mysql_fetch_field_direct
: _ CI.fatptr -> Unsigned.uint -> CI.voidp
= "mariadb_or_mysql_client_stubs_17_mysql_fetch_field_direct"
external mariadb_or_mysql_client_stubs_18_mysql_stmt_bind_result
: _ CI.fatptr -> _ CI.fatptr -> char
= "mariadb_or_mysql_client_stubs_18_mysql_stmt_bind_result"
external mariadb_or_mysql_client_stubs_19_mysql_stmt_num_rows
: _ CI.fatptr -> Unsigned.ullong
= "mariadb_or_mysql_client_stubs_19_mysql_stmt_num_rows"
external mariadb_or_mysql_client_stubs_20_mysql_stmt_affected_rows
: _ CI.fatptr -> Unsigned.ullong
= "mariadb_or_mysql_client_stubs_20_mysql_stmt_affected_rows"
external mariadb_or_mysql_client_stubs_21_mysql_stmt_insert_id
: _ CI.fatptr -> Unsigned.ullong
= "mariadb_or_mysql_client_stubs_21_mysql_stmt_insert_id"
external mariadb_or_mysql_client_stubs_22_mysql_free_result
: _ CI.fatptr -> unit
= "mariadb_or_mysql_client_stubs_22_mysql_free_result"
external mariadb_or_mysql_client_stubs_23_mysql_real_connect
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr ->
_ CI.fatptr -> Unsigned.uint -> _ CI.fatptr -> Unsigned.ulong -> CI.voidp
=
"mariadb_or_mysql_client_stubs_23_mysql_real_connect_byte8" "mariadb_or_mysql_client_stubs_23_mysql_real_connect"
external mariadb_or_mysql_client_stubs_24_mysql_commit : _ CI.fatptr -> char
= "mariadb_or_mysql_client_stubs_24_mysql_commit"
external mariadb_or_mysql_client_stubs_25_mysql_rollback
: _ CI.fatptr -> char = "mariadb_or_mysql_client_stubs_25_mysql_rollback"
external mariadb_or_mysql_client_stubs_26_mysql_autocommit
: _ CI.fatptr -> char -> char
= "mariadb_or_mysql_client_stubs_26_mysql_autocommit"
external mariadb_or_mysql_client_stubs_27_mysql_set_character_set
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_27_mysql_set_character_set"
external mariadb_or_mysql_client_stubs_28_mysql_select_db
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_28_mysql_select_db"
external mariadb_or_mysql_client_stubs_29_mysql_change_user
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> char
= "mariadb_or_mysql_client_stubs_29_mysql_change_user"
external mariadb_or_mysql_client_stubs_30_mysql_set_server_option
: _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_30_mysql_set_server_option"
external mariadb_or_mysql_client_stubs_31_mysql_ping : _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_31_mysql_ping"
external mariadb_or_mysql_client_stubs_32_mysql_stmt_prepare
: _ CI.fatptr -> _ CI.fatptr -> Unsigned.ulong -> int
= "mariadb_or_mysql_client_stubs_32_mysql_stmt_prepare"
external mariadb_or_mysql_client_stubs_33_mysql_stmt_reset
: _ CI.fatptr -> char = "mariadb_or_mysql_client_stubs_33_mysql_stmt_reset"
external mariadb_or_mysql_client_stubs_34_mysql_stmt_execute
: _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_34_mysql_stmt_execute"
external mariadb_or_mysql_client_stubs_35_mysql_stmt_fetch
: _ CI.fatptr -> int = "mariadb_or_mysql_client_stubs_35_mysql_stmt_fetch"
external mariadb_or_mysql_client_stubs_36_mysql_stmt_close
: _ CI.fatptr -> char = "mariadb_or_mysql_client_stubs_36_mysql_stmt_close"
external mariadb_or_mysql_client_stubs_37_mysql_stmt_store_result
: _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_37_mysql_stmt_store_result"
external mariadb_or_mysql_client_stubs_38_mysql_stmt_free_result
: _ CI.fatptr -> char
= "mariadb_or_mysql_client_stubs_38_mysql_stmt_free_result"
external mariadb_or_mysql_client_stubs_39_mysql_real_query
: _ CI.fatptr -> _ CI.fatptr -> Unsigned.ulong -> int
= "mariadb_or_mysql_client_stubs_39_mysql_real_query"
external mariadb_or_mysql_client_stubs_40_mysql_close_start
: _ CI.fatptr -> int = "mariadb_or_mysql_client_stubs_40_mysql_close_start"
external mariadb_or_mysql_client_stubs_41_mysql_close_cont
: _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_41_mysql_close_cont"
external mariadb_or_mysql_client_stubs_42_mysql_real_connect_start
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr ->
_ CI.fatptr -> _ CI.fatptr -> Unsigned.uint -> _ CI.fatptr ->
Unsigned.ulong -> int
=
"mariadb_or_mysql_client_stubs_42_mysql_real_connect_start_byte9" "mariadb_or_mysql_client_stubs_42_mysql_real_connect_start"
external mariadb_or_mysql_client_stubs_43_mysql_real_connect_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_43_mysql_real_connect_cont"
external mariadb_or_mysql_client_stubs_44_mysql_get_socket
: _ CI.fatptr -> int = "mariadb_or_mysql_client_stubs_44_mysql_get_socket"
external mariadb_or_mysql_client_stubs_45_mysql_get_timeout_value
: _ CI.fatptr -> Unsigned.uint
= "mariadb_or_mysql_client_stubs_45_mysql_get_timeout_value"
external mariadb_or_mysql_client_stubs_46_mysql_get_timeout_value_ms
: _ CI.fatptr -> Unsigned.uint
= "mariadb_or_mysql_client_stubs_46_mysql_get_timeout_value_ms"
external mariadb_or_mysql_client_stubs_47_mysql_set_character_set_start
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_47_mysql_set_character_set_start"
external mariadb_or_mysql_client_stubs_48_mysql_set_character_set_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_48_mysql_set_character_set_cont"
external mariadb_or_mysql_client_stubs_49_mysql_select_db_start
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_49_mysql_select_db_start"
external mariadb_or_mysql_client_stubs_50_mysql_select_db_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_50_mysql_select_db_cont"
external mariadb_or_mysql_client_stubs_51_mysql_change_user_start
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr ->
_ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_51_mysql_change_user_start"
external mariadb_or_mysql_client_stubs_52_mysql_change_user_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_52_mysql_change_user_cont"
external mariadb_or_mysql_client_stubs_53_mysql_set_server_option_start
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_53_mysql_set_server_option_start"
external mariadb_or_mysql_client_stubs_54_mysql_set_server_option_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_54_mysql_set_server_option_cont"
external mariadb_or_mysql_client_stubs_55_mysql_ping_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_55_mysql_ping_start"
external mariadb_or_mysql_client_stubs_56_mysql_ping_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_56_mysql_ping_cont"
external mariadb_or_mysql_client_stubs_57_mysql_stmt_prepare_start
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> Unsigned.ulong -> int
= "mariadb_or_mysql_client_stubs_57_mysql_stmt_prepare_start"
external mariadb_or_mysql_client_stubs_58_mysql_stmt_prepare_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_58_mysql_stmt_prepare_cont"
external mariadb_or_mysql_client_stubs_59_mysql_stmt_reset_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_59_mysql_stmt_reset_start"
external mariadb_or_mysql_client_stubs_60_mysql_stmt_reset_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_60_mysql_stmt_reset_cont"
external mariadb_or_mysql_client_stubs_61_mysql_stmt_execute_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_61_mysql_stmt_execute_start"
external mariadb_or_mysql_client_stubs_62_mysql_stmt_execute_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_62_mysql_stmt_execute_cont"
external mariadb_or_mysql_client_stubs_63_mysql_stmt_fetch_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_63_mysql_stmt_fetch_start"
external mariadb_or_mysql_client_stubs_64_mysql_stmt_fetch_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_64_mysql_stmt_fetch_cont"
external mariadb_or_mysql_client_stubs_65_mysql_stmt_store_result_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_65_mysql_stmt_store_result_start"
external mariadb_or_mysql_client_stubs_66_mysql_stmt_store_result_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_66_mysql_stmt_store_result_cont"
external mariadb_or_mysql_client_stubs_67_mysql_stmt_close_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_67_mysql_stmt_close_start"
external mariadb_or_mysql_client_stubs_68_mysql_stmt_close_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_68_mysql_stmt_close_cont"
external mariadb_or_mysql_client_stubs_69_mysql_stmt_free_result_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_69_mysql_stmt_free_result_start"
external mariadb_or_mysql_client_stubs_70_mysql_stmt_free_result_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_70_mysql_stmt_free_result_cont"
external mariadb_or_mysql_client_stubs_71_mysql_commit_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_71_mysql_commit_start"
external mariadb_or_mysql_client_stubs_72_mysql_commit_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_72_mysql_commit_cont"
external mariadb_or_mysql_client_stubs_73_mysql_rollback_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_73_mysql_rollback_start"
external mariadb_or_mysql_client_stubs_74_mysql_rollback_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_74_mysql_rollback_cont"
external mariadb_or_mysql_client_stubs_75_mysql_autocommit_start
: _ CI.fatptr -> _ CI.fatptr -> char -> int
= "mariadb_or_mysql_client_stubs_75_mysql_autocommit_start"
external mariadb_or_mysql_client_stubs_76_mysql_autocommit_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_76_mysql_autocommit_cont"
external mariadb_or_mysql_client_stubs_77_mysql_stmt_next_result_start
: _ CI.fatptr -> _ CI.fatptr -> int
= "mariadb_or_mysql_client_stubs_77_mysql_stmt_next_result_start"
external mariadb_or_mysql_client_stubs_78_mysql_stmt_next_result_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_78_mysql_stmt_next_result_cont"
external mariadb_or_mysql_client_stubs_79_mysql_real_query_start
: _ CI.fatptr -> _ CI.fatptr -> _ CI.fatptr -> Unsigned.ulong -> int
= "mariadb_or_mysql_client_stubs_79_mysql_real_query_start"
external mariadb_or_mysql_client_stubs_80_mysql_real_query_cont
: _ CI.fatptr -> _ CI.fatptr -> int -> int
= "mariadb_or_mysql_client_stubs_80_mysql_real_query_cont"
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.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_real_query_cont" ->
(fun x1 x3 x5 ->
let CI.CPointer x4 = x3 in
let CI.CPointer x2 = x1 in
mariadb_or_mysql_client_stubs_80_mysql_real_query_cont x2 x4 x5)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Ulong, Returns (CI.Primitive CI.Int))))),
"mysql_real_query_start" ->
(fun x6 x8 x10 x12 ->
let CI.CPointer x11 = x10 in
let CI.CPointer x9 = x8 in
let CI.CPointer x7 = x6 in
mariadb_or_mysql_client_stubs_79_mysql_real_query_start x7 x9 x11 x12)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_next_result_cont" ->
(fun x13 x15 x17 ->
let CI.CPointer x16 = x15 in
let CI.CPointer x14 = x13 in
mariadb_or_mysql_client_stubs_78_mysql_stmt_next_result_cont x14 x16 x17)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_next_result_start" ->
(fun x18 x20 ->
let CI.CPointer x21 = x20 in
let CI.CPointer x19 = x18 in
mariadb_or_mysql_client_stubs_77_mysql_stmt_next_result_start x19 x21)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_autocommit_cont" ->
(fun x22 x24 x26 ->
let CI.CPointer x25 = x24 in
let CI.CPointer x23 = x22 in
mariadb_or_mysql_client_stubs_76_mysql_autocommit_cont x23 x25 x26)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Char, Returns (CI.Primitive CI.Int)))),
"mysql_autocommit_start" ->
(fun x27 x29 x31 ->
let CI.CPointer x30 = x29 in
let CI.CPointer x28 = x27 in
mariadb_or_mysql_client_stubs_75_mysql_autocommit_start x28 x30 x31)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_rollback_cont" ->
(fun x32 x34 x36 ->
let CI.CPointer x35 = x34 in
let CI.CPointer x33 = x32 in
mariadb_or_mysql_client_stubs_74_mysql_rollback_cont x33 x35 x36)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_rollback_start" ->
(fun x37 x39 ->
let CI.CPointer x40 = x39 in
let CI.CPointer x38 = x37 in
mariadb_or_mysql_client_stubs_73_mysql_rollback_start x38 x40)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_commit_cont" ->
(fun x41 x43 x45 ->
let CI.CPointer x44 = x43 in
let CI.CPointer x42 = x41 in
mariadb_or_mysql_client_stubs_72_mysql_commit_cont x42 x44 x45)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_commit_start" ->
(fun x46 x48 ->
let CI.CPointer x49 = x48 in
let CI.CPointer x47 = x46 in
mariadb_or_mysql_client_stubs_71_mysql_commit_start x47 x49)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_free_result_cont" ->
(fun x50 x52 x54 ->
let CI.CPointer x53 = x52 in
let CI.CPointer x51 = x50 in
mariadb_or_mysql_client_stubs_70_mysql_stmt_free_result_cont x51 x53 x54)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_free_result_start" ->
(fun x55 x57 ->
let CI.CPointer x58 = x57 in
let CI.CPointer x56 = x55 in
mariadb_or_mysql_client_stubs_69_mysql_stmt_free_result_start x56 x58)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_close_cont" ->
(fun x59 x61 x63 ->
let CI.CPointer x62 = x61 in
let CI.CPointer x60 = x59 in
mariadb_or_mysql_client_stubs_68_mysql_stmt_close_cont x60 x62 x63)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_close_start" ->
(fun x64 x66 ->
let CI.CPointer x67 = x66 in
let CI.CPointer x65 = x64 in
mariadb_or_mysql_client_stubs_67_mysql_stmt_close_start x65 x67)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_store_result_cont" ->
(fun x68 x70 x72 ->
let CI.CPointer x71 = x70 in
let CI.CPointer x69 = x68 in
mariadb_or_mysql_client_stubs_66_mysql_stmt_store_result_cont x69 x71 x72)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_store_result_start" ->
(fun x73 x75 ->
let CI.CPointer x76 = x75 in
let CI.CPointer x74 = x73 in
mariadb_or_mysql_client_stubs_65_mysql_stmt_store_result_start x74 x76)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_fetch_cont" ->
(fun x77 x79 x81 ->
let CI.CPointer x80 = x79 in
let CI.CPointer x78 = x77 in
mariadb_or_mysql_client_stubs_64_mysql_stmt_fetch_cont x78 x80 x81)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_fetch_start" ->
(fun x82 x84 ->
let CI.CPointer x85 = x84 in
let CI.CPointer x83 = x82 in
mariadb_or_mysql_client_stubs_63_mysql_stmt_fetch_start x83 x85)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_execute_cont" ->
(fun x86 x88 x90 ->
let CI.CPointer x89 = x88 in
let CI.CPointer x87 = x86 in
mariadb_or_mysql_client_stubs_62_mysql_stmt_execute_cont x87 x89 x90)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_execute_start" ->
(fun x91 x93 ->
let CI.CPointer x94 = x93 in
let CI.CPointer x92 = x91 in
mariadb_or_mysql_client_stubs_61_mysql_stmt_execute_start x92 x94)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_reset_cont" ->
(fun x95 x97 x99 ->
let CI.CPointer x98 = x97 in
let CI.CPointer x96 = x95 in
mariadb_or_mysql_client_stubs_60_mysql_stmt_reset_cont x96 x98 x99)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_stmt_reset_start" ->
(fun x100 x102 ->
let CI.CPointer x103 = x102 in
let CI.CPointer x101 = x100 in
mariadb_or_mysql_client_stubs_59_mysql_stmt_reset_start x101 x103)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_prepare_cont" ->
(fun x104 x106 x108 ->
let CI.CPointer x107 = x106 in
let CI.CPointer x105 = x104 in
mariadb_or_mysql_client_stubs_58_mysql_stmt_prepare_cont x105 x107 x108)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Ulong, Returns (CI.Primitive CI.Int))))),
"mysql_stmt_prepare_start" ->
(fun x109 x111 x113 x115 ->
let CI.CPointer x114 = x113 in
let CI.CPointer x112 = x111 in
let CI.CPointer x110 = x109 in
mariadb_or_mysql_client_stubs_57_mysql_stmt_prepare_start x110 x112 x114
x115)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_ping_cont" ->
(fun x116 x118 x120 ->
let CI.CPointer x119 = x118 in
let CI.CPointer x117 = x116 in
mariadb_or_mysql_client_stubs_56_mysql_ping_cont x117 x119 x120)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_ping_start" ->
(fun x121 x123 ->
let CI.CPointer x124 = x123 in
let CI.CPointer x122 = x121 in
mariadb_or_mysql_client_stubs_55_mysql_ping_start x122 x124)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_set_server_option_cont" ->
(fun x125 x127 x129 ->
let CI.CPointer x128 = x127 in
let CI.CPointer x126 = x125 in
mariadb_or_mysql_client_stubs_54_mysql_set_server_option_cont x126 x128
x129)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_set_server_option_start" ->
(fun x130 x132 x134 ->
let CI.CPointer x133 = x132 in
let CI.CPointer x131 = x130 in
mariadb_or_mysql_client_stubs_53_mysql_set_server_option_start x131 x133
x134)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_change_user_cont" ->
(fun x135 x137 x139 ->
let CI.CPointer x138 = x137 in
let CI.CPointer x136 = x135 in
mariadb_or_mysql_client_stubs_52_mysql_change_user_cont x136 x138 x139)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.View {CI.ty = CI.Pointer _; write = x149; _},
Returns (CI.Primitive CI.Int)))))),
"mysql_change_user_start" ->
(fun x140 x142 x144 x146 x148 ->
let CI.CPointer x151 = x149 x148 in
let CI.CPointer x147 = x146 in
let CI.CPointer x145 = x144 in
let CI.CPointer x143 = x142 in
let CI.CPointer x141 = x140 in
let x150 = x151 in
mariadb_or_mysql_client_stubs_51_mysql_change_user_start x141 x143 x145
x147 x150)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_select_db_cont" ->
(fun x152 x154 x156 ->
let CI.CPointer x155 = x154 in
let CI.CPointer x153 = x152 in
mariadb_or_mysql_client_stubs_50_mysql_select_db_cont x153 x155 x156)
| Function
(CI.Pointer _,
Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int)))),
"mysql_select_db_start" ->
(fun x157 x159 x161 ->
let CI.CPointer x162 = x161 in
let CI.CPointer x160 = x159 in
let CI.CPointer x158 = x157 in
mariadb_or_mysql_client_stubs_49_mysql_select_db_start x158 x160 x162)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_set_character_set_cont" ->
(fun x163 x165 x167 ->
let CI.CPointer x166 = x165 in
let CI.CPointer x164 = x163 in
mariadb_or_mysql_client_stubs_48_mysql_set_character_set_cont x164 x166
x167)
| Function
(CI.Pointer _,
Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int)))),
"mysql_set_character_set_start" ->
(fun x168 x170 x172 ->
let CI.CPointer x173 = x172 in
let CI.CPointer x171 = x170 in
let CI.CPointer x169 = x168 in
mariadb_or_mysql_client_stubs_47_mysql_set_character_set_start x169 x171
x173)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Uint)),
"mysql_get_timeout_value_ms" ->
(fun x174 ->
let CI.CPointer x175 = x174 in
mariadb_or_mysql_client_stubs_46_mysql_get_timeout_value_ms x175)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Uint)),
"mysql_get_timeout_value" ->
(fun x176 ->
let CI.CPointer x177 = x176 in
mariadb_or_mysql_client_stubs_45_mysql_get_timeout_value x177)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_get_socket" ->
(fun x178 ->
let CI.CPointer x179 = x178 in
mariadb_or_mysql_client_stubs_44_mysql_get_socket x179)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int)))),
"mysql_real_connect_cont" ->
(fun x180 x182 x184 ->
let CI.CPointer x183 = x182 in
let CI.CPointer x181 = x180 in
mariadb_or_mysql_client_stubs_43_mysql_real_connect_cont x181 x183 x184)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.View {CI.ty = CI.Pointer _; write = x190; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x194; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x198; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x202; _},
Function
(CI.Primitive CI.Uint,
Function
(CI.View {CI.ty = CI.Pointer _; write = x207; _},
Function
(CI.Primitive CI.Ulong,
Returns (CI.Primitive CI.Int)))))))))),
"mysql_real_connect_start" ->
(fun x185 x187 x189 x193 x197 x201 x205 x206 x210 ->
let CI.CPointer x209 = x207 x206 in
let CI.CPointer x204 = x202 x201 in
let CI.CPointer x200 = x198 x197 in
let CI.CPointer x196 = x194 x193 in
let CI.CPointer x192 = x190 x189 in
let CI.CPointer x188 = x187 in
let CI.CPointer x186 = x185 in
let x191 = x192 in
let x195 = x196 in
let x199 = x200 in
let x203 = x204 in
let x208 = x209 in
mariadb_or_mysql_client_stubs_42_mysql_real_connect_start x186 x188 x191
x195 x199 x203 x205 x208 x210)
| Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))),
"mysql_close_cont" ->
(fun x211 x213 ->
let CI.CPointer x212 = x211 in
mariadb_or_mysql_client_stubs_41_mysql_close_cont x212 x213)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_close_start" ->
(fun x214 ->
let CI.CPointer x215 = x214 in
mariadb_or_mysql_client_stubs_40_mysql_close_start x215)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Ulong, Returns (CI.Primitive CI.Int)))),
"mysql_real_query" ->
(fun x216 x218 x220 ->
let CI.CPointer x219 = x218 in
let CI.CPointer x217 = x216 in
mariadb_or_mysql_client_stubs_39_mysql_real_query x217 x219 x220)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Char)),
"mysql_stmt_free_result" ->
(fun x221 ->
let CI.CPointer x222 = x221 in
mariadb_or_mysql_client_stubs_38_mysql_stmt_free_result x222)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)),
"mysql_stmt_store_result" ->
(fun x223 ->
let CI.CPointer x224 = x223 in
mariadb_or_mysql_client_stubs_37_mysql_stmt_store_result x224)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Char)), "mysql_stmt_close" ->
(fun x225 ->
let CI.CPointer x226 = x225 in
mariadb_or_mysql_client_stubs_36_mysql_stmt_close x226)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_stmt_fetch" ->
(fun x227 ->
let CI.CPointer x228 = x227 in
mariadb_or_mysql_client_stubs_35_mysql_stmt_fetch x228)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)),
"mysql_stmt_execute" ->
(fun x229 ->
let CI.CPointer x230 = x229 in
mariadb_or_mysql_client_stubs_34_mysql_stmt_execute x230)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Char)), "mysql_stmt_reset" ->
(fun x231 ->
let CI.CPointer x232 = x231 in
mariadb_or_mysql_client_stubs_33_mysql_stmt_reset x232)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function (CI.Primitive CI.Ulong, Returns (CI.Primitive CI.Int)))),
"mysql_stmt_prepare" ->
(fun x233 x235 x237 ->
let CI.CPointer x236 = x235 in
let CI.CPointer x234 = x233 in
mariadb_or_mysql_client_stubs_32_mysql_stmt_prepare x234 x236 x237)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_ping" ->
(fun x238 ->
let CI.CPointer x239 = x238 in
mariadb_or_mysql_client_stubs_31_mysql_ping x239)
| Function
(CI.Pointer _,
Function (CI.Primitive CI.Int, Returns (CI.Primitive CI.Int))),
"mysql_set_server_option" ->
(fun x240 x242 ->
let CI.CPointer x241 = x240 in
mariadb_or_mysql_client_stubs_30_mysql_set_server_option x241 x242)
| Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.Pointer _,
Function
(CI.View {CI.ty = CI.Pointer _; write = x250; _},
Returns (CI.Primitive CI.Char))))),
"mysql_change_user" ->
(fun x243 x245 x247 x249 ->
let CI.CPointer x252 = x250 x249 in
let CI.CPointer x248 = x247 in
let CI.CPointer x246 = x245 in
let CI.CPointer x244 = x243 in
let x251 = x252 in
mariadb_or_mysql_client_stubs_29_mysql_change_user x244 x246 x248 x251)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_select_db" ->
(fun x253 x255 ->
let CI.CPointer x256 = x255 in
let CI.CPointer x254 = x253 in
mariadb_or_mysql_client_stubs_28_mysql_select_db x254 x256)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Int))),
"mysql_set_character_set" ->
(fun x257 x259 ->
let CI.CPointer x260 = x259 in
let CI.CPointer x258 = x257 in
mariadb_or_mysql_client_stubs_27_mysql_set_character_set x258 x260)
| Function
(CI.Pointer _,
Function (CI.Primitive CI.Char, Returns (CI.Primitive CI.Char))),
"mysql_autocommit" ->
(fun x261 x263 ->
let CI.CPointer x262 = x261 in
mariadb_or_mysql_client_stubs_26_mysql_autocommit x262 x263)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Char)), "mysql_rollback" ->
(fun x264 ->
let CI.CPointer x265 = x264 in
mariadb_or_mysql_client_stubs_25_mysql_rollback x265)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Char)), "mysql_commit" ->
(fun x266 ->
let CI.CPointer x267 = x266 in
mariadb_or_mysql_client_stubs_24_mysql_commit x267)
| Function
(CI.Pointer _,
Function
(CI.View {CI.ty = CI.Pointer _; write = x271; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x275; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x279; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x283; _},
Function
(CI.Primitive CI.Uint,
Function
(CI.View {CI.ty = CI.Pointer _; write = x288; _},
Function
(CI.Primitive CI.Ulong,
Returns
(CI.View
{CI.ty = CI.Pointer x292; read = x293; _}))))))))),
"mysql_real_connect" ->
(fun x268 x270 x274 x278 x282 x286 x287 x291 ->
let CI.CPointer x290 = x288 x287 in
let CI.CPointer x285 = x283 x282 in
let CI.CPointer x281 = x279 x278 in
let CI.CPointer x277 = x275 x274 in
let CI.CPointer x273 = x271 x270 in
let CI.CPointer x269 = x268 in
let x272 = x273 in
let x276 = x277 in
let x280 = x281 in
let x284 = x285 in
let x289 = x290 in
x293
(CI.make_ptr x292
(mariadb_or_mysql_client_stubs_23_mysql_real_connect x269 x272 x276
x280 x284 x286 x289 x291)))
| Function (CI.Pointer _, Returns CI.Void), "mysql_free_result" ->
(fun x294 ->
let CI.CPointer x295 = x294 in
mariadb_or_mysql_client_stubs_22_mysql_free_result x295)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Ullong)),
"mysql_stmt_insert_id" ->
(fun x296 ->
let CI.CPointer x297 = x296 in
mariadb_or_mysql_client_stubs_21_mysql_stmt_insert_id x297)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Ullong)),
"mysql_stmt_affected_rows" ->
(fun x298 ->
let CI.CPointer x299 = x298 in
mariadb_or_mysql_client_stubs_20_mysql_stmt_affected_rows x299)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Ullong)),
"mysql_stmt_num_rows" ->
(fun x300 ->
let CI.CPointer x301 = x300 in
mariadb_or_mysql_client_stubs_19_mysql_stmt_num_rows x301)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Char))),
"mysql_stmt_bind_result" ->
(fun x302 x304 ->
let CI.CPointer x305 = x304 in
let CI.CPointer x303 = x302 in
mariadb_or_mysql_client_stubs_18_mysql_stmt_bind_result x303 x305)
| Function
(CI.Pointer _,
Function (CI.Primitive CI.Uint, Returns (CI.Pointer x309))),
"mysql_fetch_field_direct" ->
(fun x306 x308 ->
let CI.CPointer x307 = x306 in
CI.make_ptr x309
(mariadb_or_mysql_client_stubs_17_mysql_fetch_field_direct x307 x308))
| Function
(CI.Pointer _,
Returns (CI.View {CI.ty = CI.Pointer x312; read = x313; _})),
"mysql_stmt_result_metadata" ->
(fun x310 ->
let CI.CPointer x311 = x310 in
x313
(CI.make_ptr x312
(mariadb_or_mysql_client_stubs_16_mysql_stmt_result_metadata x311)))
| Function (CI.Pointer _, Returns (CI.Primitive CI.Ulong)),
"mysql_stmt_param_count" ->
(fun x314 ->
let CI.CPointer x315 = x314 in
mariadb_or_mysql_client_stubs_15_mysql_stmt_param_count x315)
| Function
(CI.Pointer _, Function (CI.Pointer _, Returns (CI.Primitive CI.Char))),
"mysql_stmt_bind_param" ->
(fun x316 x318 ->
let CI.CPointer x319 = x318 in
let CI.CPointer x317 = x316 in
mariadb_or_mysql_client_stubs_14_mysql_stmt_bind_param x317 x319)
| Function
(CI.Pointer _,
Function
(CI.Primitive CI.Int,
Function (CI.Pointer _, Returns (CI.Primitive CI.Char)))),
"mysql_stmt_attr_set" ->
(fun x320 x322 x323 ->
let CI.CPointer x324 = x323 in
let CI.CPointer x321 = x320 in
mariadb_or_mysql_client_stubs_13_mysql_stmt_attr_set x321 x322 x324)
| Function
(CI.Pointer _,
Returns (CI.View {CI.ty = CI.Pointer x327; read = x328; _})),
"mysql_stmt_error" ->
(fun x325 ->
let CI.CPointer x326 = x325 in
x328
(CI.make_ptr x327
(mariadb_or_mysql_client_stubs_12_mysql_stmt_error x326)))
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_stmt_errno" ->
(fun x329 ->
let CI.CPointer x330 = x329 in
mariadb_or_mysql_client_stubs_11_mysql_stmt_errno x330)
| Function
(CI.Pointer _,
Returns (CI.View {CI.ty = CI.Pointer x333; read = x334; _})),
"mysql_stmt_init" ->
(fun x331 ->
let CI.CPointer x332 = x331 in
x334
(CI.make_ptr x333
(mariadb_or_mysql_client_stubs_10_mysql_stmt_init x332)))
| Function
(CI.Pointer _,
Returns (CI.View {CI.ty = CI.Pointer x337; read = x338; _})),
"mysql_error" ->
(fun x335 ->
let CI.CPointer x336 = x335 in
x338
(CI.make_ptr x337 (mariadb_or_mysql_client_stubs_9_mysql_error x336)))
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_errno" ->
(fun x339 ->
let CI.CPointer x340 = x339 in
mariadb_or_mysql_client_stubs_8_mysql_errno x340)
| Function (CI.Pointer _, Returns (CI.Primitive CI.Int)), "mysql_num_fields" ->
(fun x341 ->
let CI.CPointer x342 = x341 in
mariadb_or_mysql_client_stubs_7_mysql_num_fields x342)
| Function
(CI.Pointer _,
Function
(CI.Primitive CI.Int,
Function
(CI.Pointer _,
Function (CI.Pointer _, Returns (CI.Primitive CI.Int))))),
"mysql_options4" ->
(fun x343 x345 x346 x348 ->
let CI.CPointer x349 = x348 in
let CI.CPointer x347 = x346 in
let CI.CPointer x344 = x343 in
mariadb_or_mysql_client_stubs_6_mysql_options4 x344 x345 x347 x349)
| Function
(CI.Pointer _,
Function
(CI.Primitive CI.Int,
Function (CI.Pointer _, Returns (CI.Primitive CI.Int)))),
"mysql_options" ->
(fun x350 x352 x353 ->
let CI.CPointer x354 = x353 in
let CI.CPointer x351 = x350 in
mariadb_or_mysql_client_stubs_5_mysql_options x351 x352 x354)
| Function (CI.Pointer _, Returns CI.Void), "mysql_close" ->
(fun x355 ->
let CI.CPointer x356 = x355 in
mariadb_or_mysql_client_stubs_4_mysql_close x356)
| Function
(CI.View {CI.ty = CI.Pointer _; write = x358; _},
Returns (CI.View {CI.ty = CI.Pointer x361; read = x362; _})),
"mysql_init" ->
(fun x357 ->
let CI.CPointer x360 = x358 x357 in
let x359 = x360 in
x362 (CI.make_ptr x361 (mariadb_or_mysql_client_stubs_3_mysql_init x359)))
| Function (CI.Void, Returns CI.Void), "mysql_server_end" ->
mariadb_or_mysql_client_stubs_2_mysql_server_end
| Function
(CI.Primitive CI.Int,
Function
(CI.View {CI.ty = CI.Pointer _; write = x366; _},
Function
(CI.View {CI.ty = CI.Pointer _; write = x370; _},
Returns (CI.Primitive CI.Int)))),
"mysql_server_init" ->
(fun x364 x365 x369 ->
let CI.CPointer x372 = x370 x369 in
let CI.CPointer x368 = x366 x365 in
let x367 = x368 in
let x371 = x372 in
mariadb_or_mysql_client_stubs_1_mysql_server_init x364 x367 x371)
| _, 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