← Back to branch summary

~npalix/coccinelle/upstream

« back to all changes in this revision

Viewing changes to bundles/stdcompat/stdcompat-8/stdcompat__pervasives_s.mli.in

  • Committer: Thierry Martinez
  • Date: 2019-08-20 13:37:04 UTC
  • Revision ID: git-v1:0214afad4a32c95349c2c5a38e37cea407c455d0
Update bundles

Show diffs side-by-side

added added

removed removed

Lines of Context:
bundles/stdcompat/stdcompat-8/stdcompat__pervasives_s.mli.in
1
 
module type S = sig
2
 
  exception Exit
3
 
 
4
 
  type fpclass = Pervasives.fpclass =
5
 
    | FP_normal 
6
 
    | FP_subnormal 
7
 
    | FP_zero 
8
 
    | FP_infinite 
9
 
    | FP_nan 
10
 
 
11
 
  type in_channel = Stdcompat__init.in_channel
12
 
 
13
 
  type out_channel = Stdcompat__init.out_channel
14
 
 
15
 
  type open_flag = Pervasives.open_flag =
16
 
    | Open_rdonly 
17
 
    | Open_wronly 
18
 
    | Open_append 
19
 
    | Open_creat 
20
 
    | Open_trunc 
21
 
    | Open_excl 
22
 
    | Open_binary 
23
 
    | Open_text
24
 
    | Open_nonblock 
25
 
 
26
 
  @BEGIN_FROM_4_02_0@
27
 
  module LargeFile = Pervasives.LargeFile
28
 
  @END_FROM_4_02_0@
29
 
  @BEGIN_BEFORE_4_02_0@
30
 
  module LargeFile : sig
31
 
      val seek_out : out_channel -> int64 -> unit
32
 
      val pos_out : out_channel -> int64
33
 
      val out_channel_length : out_channel -> int64
34
 
      val seek_in : in_channel -> int64 -> unit
35
 
      val pos_in : in_channel -> int64
36
 
      val in_channel_length : in_channel -> int64
37
 
  end
38
 
  @END_BEFORE_4_02_0@
39
 
  
40
 
  type 'a ref = 'a Pervasives.ref = {
41
 
    mutable contents: 'a }
42
 
  
43
 
  type ('a, 'b) result =
44
 
    ('a, 'b) Stdcompat__init.result =
45
 
    | Ok of 'a 
46
 
    | Error of 'b
47
 
  
48
 
  type ('a, 'b, 'c, 'd, 'e, 'f) format6 =
49
 
    ('a, 'b, 'c, 'd, 'e, 'f) Stdcompat__init.format6
50
 
  
51
 
  type ('a, 'b, 'c, 'd) format4 = ('a, 'b, 'c, 'c, 'c, 'd) format6
52
 
  
53
 
  type ('a, 'b, 'c) format = ('a, 'b, 'c, 'c) format4
54
 
 
55
 
  val protect : finally:(unit -> unit) -> (unit -> 'a) -> 'a
56
 
  
57
 
  val stdin : in_channel
58
 
  
59
 
  val stdout : out_channel
60
 
  
61
 
  val stderr : out_channel
62
 
  
63
 
  val open_out : string -> out_channel
64
 
  
65
 
  val open_out_bin : string -> out_channel
66
 
  
67
 
  val open_out_gen : open_flag list -> int -> string -> out_channel
68
 
  
69
 
  val flush : out_channel -> unit
70
 
  
71
 
  val output_char : out_channel -> char -> unit
72
 
  
73
 
  val output_string : out_channel -> string -> unit
74
 
  
75
 
  val output_bytes : out_channel -> Stdcompat__init.bytes -> unit
76
 
  
77
 
  val output : out_channel -> Stdcompat__init.bytes -> int -> int -> unit
78
 
  
79
 
  val output_substring : out_channel -> string -> int -> int -> unit
80
 
  
81
 
  val output_byte : out_channel -> int -> unit
82
 
  
83
 
  val output_binary_int : out_channel -> int -> unit
84
 
  
85
 
  val output_value : out_channel -> 'a -> unit
86
 
  
87
 
  val seek_out : out_channel -> int -> unit
88
 
  
89
 
  val pos_out : out_channel -> int
90
 
  
91
 
  val out_channel_length : out_channel -> int
92
 
  
93
 
  val close_out : out_channel -> unit
94
 
  
95
 
  val close_out_noerr : out_channel -> unit
96
 
  
97
 
  val set_binary_mode_out : out_channel -> bool -> unit
98
 
  
99
 
  val open_in : string -> in_channel
100
 
  
101
 
  val open_in_bin : string -> in_channel
102
 
  
103
 
  val open_in_gen : open_flag list -> int -> string -> in_channel
104
 
  
105
 
  val input_char : in_channel -> char
106
 
  
107
 
  val input_line : in_channel -> string
108
 
  
109
 
  val input : in_channel -> Stdcompat__init.bytes -> int -> int -> int
110
 
  
111
 
  val really_input : in_channel -> Stdcompat__init.bytes -> int -> int -> unit
112
 
  
113
 
  val really_input_string : in_channel -> int -> string
114
 
  
115
 
  val input_byte : in_channel -> int
116
 
  
117
 
  val input_binary_int : in_channel -> int
118
 
  
119
 
  val input_value : in_channel -> 'a
120
 
  
121
 
  val seek_in : in_channel -> int -> unit
122
 
  
123
 
  val pos_in : in_channel -> int
124
 
  
125
 
  val in_channel_length : in_channel -> int
126
 
  
127
 
  val close_in : in_channel -> unit
128
 
  
129
 
  val close_in_noerr : in_channel -> unit
130
 
  
131
 
  val set_binary_mode_in : in_channel -> bool -> unit
132
 
  
133
 
  val string_of_format : ('a, 'b, 'c, 'd, 'e, 'f) format6 -> string
134
 
  
135
 
  val (^^) :
136
 
    ('a, 'b, 'c, 'd, 'e, 'f) format6 ->
137
 
      ('f, 'b, 'c, 'e, 'g, 'h) format6 ->
138
 
        ('a, 'b, 'c, 'd, 'g, 'h) format6
139
 
  
140
 
  val bool_of_string_opt : string -> bool option
141
 
  
142
 
  val int_of_string_opt : string -> int option
143
 
  
144
 
  val float_of_string_opt : string -> float option
145
 
  
146
 
  val read_int_opt : unit -> int option
147
 
  
148
 
  val read_float_opt : unit -> float option
149
 
  
150
 
  @BEGIN_FROM_4_02_0@
151
 
  external raise_notrace : exn -> 'a = "%raise_notrace"
152
 
  @END_FROM_4_02_0@
153
 
  @BEGIN_BEFORE_4_02_0@
154
 
  external raise_notrace : exn -> 'a = "%raise"
155
 
  @END_BEFORE_4_02_0@
156
 
  (** @since 4.02.0: external raise_notrace : exn -> 'a = "%raise_notrace"
157
 
   *)
158
 
  
159
 
  @BEGIN_FROM_4_02_0@
160
 
  external __LOC__ : string = "%loc_LOC"
161
 
  @END_FROM_4_02_0@
162
 
  @BEGIN_BEFORE_4_02_0@
163
 
  val __LOC__ : string
164
 
  @END_BEFORE_4_02_0@
165
 
  (** @since 4.02.0: external __LOC__ : string = "%loc_LOC"
166
 
   *)
167
 
  
168
 
  @BEGIN_FROM_4_02_0@
169
 
  external __FILE__ : string = "%loc_FILE"
170
 
  @END_FROM_4_02_0@
171
 
  @BEGIN_BEFORE_4_02_0@
172
 
  val __FILE__ : string
173
 
  @END_BEFORE_4_02_0@
174
 
  (** @since 4.02.0: external __FILE__ : string = "%loc_FILE"
175
 
   *)
176
 
  
177
 
  @BEGIN_FROM_4_02_0@
178
 
  external __LINE__ : int = "%loc_LINE"
179
 
  @END_FROM_4_02_0@
180
 
  @BEGIN_BEFORE_4_02_0@
181
 
  val __LINE__ : int
182
 
  @END_BEFORE_4_02_0@
183
 
  (** @since 4.02.0: external __LINE__ : int = "%loc_LINE"
184
 
   *)
185
 
  
186
 
  @BEGIN_FROM_4_02_0@
187
 
  external __MODULE__ : string = "%loc_MODULE"
188
 
  @END_FROM_4_02_0@
189
 
  @BEGIN_BEFORE_4_02_0@
190
 
  val __MODULE__ : string
191
 
  @END_BEFORE_4_02_0@
192
 
  (** @since 4.02.0: external __MODULE__ : string = "%loc_MODULE"
193
 
   *)
194
 
  
195
 
  @BEGIN_FROM_4_02_0@
196
 
  external __POS__ : (string * int * int * int) = "%loc_POS"
197
 
  @END_FROM_4_02_0@
198
 
  @BEGIN_BEFORE_4_02_0@
199
 
  val __POS__ : (string * int * int * int)
200
 
  @END_BEFORE_4_02_0@
201
 
  (** @since 4.02.0: external __POS__ : (string * int * int * int) = "%loc_POS"
202
 
   *)
203
 
  
204
 
  @BEGIN_FROM_4_02_0@
205
 
  external __LOC_OF__ : 'a -> (string * 'a) = "%loc_LOC"
206
 
  @END_FROM_4_02_0@
207
 
  @BEGIN_BEFORE_4_02_0@
208
 
  val __LOC_OF__ : 'a -> (string * 'a)
209
 
  @END_BEFORE_4_02_0@
210
 
  (** @since 4.02.0: external __LOC_OF__ : 'a -> (string * 'a) = "%loc_LOC"
211
 
   *)
212
 
  
213
 
  @BEGIN_FROM_4_02_0@
214
 
  external __LINE_OF__ : 'a -> (int * 'a) = "%loc_LINE"
215
 
  @END_FROM_4_02_0@
216
 
  @BEGIN_BEFORE_4_02_0@
217
 
  val __LINE_OF__ : 'a -> (int * 'a)
218
 
  @END_BEFORE_4_02_0@
219
 
  (** @since 4.02.0: external __LINE_OF__ : 'a -> (int * 'a) = "%loc_LINE"
220
 
   *)
221
 
  
222
 
  @BEGIN_FROM_4_02_0@
223
 
  external __POS_OF__ : 'a -> ((string * int * int * int) * 'a) = "%loc_POS"
224
 
  @END_FROM_4_02_0@
225
 
  @BEGIN_BEFORE_4_02_0@
226
 
  val __POS_OF__ : 'a -> ((string * int * int * int) * 'a)
227
 
  @END_BEFORE_4_02_0@
228
 
  (** @since 4.02.0:
229
 
      external __POS_OF__ :
230
 
        'a -> ((string * int * int * int) * 'a) = "%loc_POS"
231
 
   *)
232
 
  
233
 
  @BEGIN_FROM_4_02_0@
234
 
  val print_bytes : bytes -> unit
235
 
  @END_FROM_4_02_0@
236
 
  @BEGIN_BEFORE_4_02_0@
237
 
  val print_bytes : Stdcompat__init.bytes -> unit
238
 
  @END_BEFORE_4_02_0@
239
 
  (** @since 4.02.0: val print_bytes : bytes -> unit
240
 
   *)
241
 
  
242
 
  @BEGIN_FROM_4_02_0@
243
 
  val prerr_bytes : bytes -> unit
244
 
  @END_FROM_4_02_0@
245
 
  @BEGIN_BEFORE_4_02_0@
246
 
  val prerr_bytes : Stdcompat__init.bytes -> unit
247
 
  @END_BEFORE_4_02_0@
248
 
  (** @since 4.02.0: val prerr_bytes : bytes -> unit
249
 
   *)
250
 
  
251
 
  @BEGIN_FROM_4_01_0@
252
 
  external (|>) : 'a -> ('a -> 'b) -> 'b = "%revapply"
253
 
  @END_FROM_4_01_0@
254
 
  @BEGIN_BEFORE_4_01_0@
255
 
  val (|>) : 'a -> ('a -> 'b) -> 'b
256
 
  @END_BEFORE_4_01_0@
257
 
  (** @since 4.01.0: external (|>) : 'a -> ('a -> 'b) -> 'b = "%revapply"
258
 
   *)
259
 
  
260
 
  @BEGIN_FROM_4_01_0@
261
 
  external (@@) : ('a -> 'b) -> 'a -> 'b = "%apply"
262
 
  @END_FROM_4_01_0@
263
 
  @BEGIN_BEFORE_4_01_0@
264
 
  val (@@) : ('a -> 'b) -> 'a -> 'b
265
 
  @END_BEFORE_4_01_0@
266
 
  (** @since 4.01.0: external (@@) : ('a -> 'b) -> 'a -> 'b = "%apply"
267
 
   *)
268
 
  
269
 
  @BEGIN_FROM_4_03_0@
270
 
  external hypot : float -> float -> float = "caml_hypot_float" "caml_hypot"
271
 
  [@@unboxed ][@@noalloc ]
272
 
  @END_FROM_4_03_0@
273
 
  @BEGIN_BEFORE_4_03_0@
274
 
  @BEGIN_FROM_4_00_0@
275
 
  external hypot :
276
 
    float -> float -> float = "caml_hypot_float" "caml_hypot" "float"
277
 
  @END_FROM_4_00_0@
278
 
  @BEGIN_BEFORE_4_00_0@
279
 
  val hypot : float -> float -> float
280
 
  @END_BEFORE_4_00_0@
281
 
  
282
 
  @END_BEFORE_4_03_0@
283
 
  (** @since 4.03.0:
284
 
      external hypot :
285
 
        float -> float -> float = "caml_hypot_float" "caml_hypot"[@@unboxed ]
286
 
      [@@noalloc ]
287
 
  @since 4.00.0:
288
 
  external hypot :
289
 
    float -> float -> float = "caml_hypot_float" "caml_hypot" "float"
290
 
   *)
291
 
  
292
 
  @BEGIN_FROM_4_03_0@
293
 
  external copysign :
294
 
    float -> float -> float = "caml_copysign_float" "caml_copysign"[@@unboxed ]
295
 
  [@@noalloc ]
296
 
  @END_FROM_4_03_0@
297
 
  @BEGIN_BEFORE_4_03_0@
298
 
  @BEGIN_FROM_4_00_0@
299
 
  external copysign :
300
 
    float -> float -> float = "caml_copysign_float" "caml_copysign" "float"
301
 
  @END_FROM_4_00_0@
302
 
  @BEGIN_BEFORE_4_00_0@
303
 
  val copysign : float -> float -> float
304
 
  @END_BEFORE_4_00_0@
305
 
  
306
 
  @END_BEFORE_4_03_0@
307
 
  (** @since 4.03.0:
308
 
      external copysign :
309
 
        float -> float -> float = "caml_copysign_float" "caml_copysign"
310
 
      [@@unboxed ][@@noalloc ]
311
 
  @since 4.00.0:
312
 
  external copysign :
313
 
    float -> float -> float = "caml_copysign_float" "caml_copysign" "float"
314
 
   *)
315
 
  
316
 
  external (~+) : int -> int = "%identity"
317
 
  (** @since 3.12.0: external (~+) : int -> int = "%identity" *)
318
 
  
319
 
  external (~+.) : float -> float = "%identity"
320
 
  (** @since 3.12.0: external (~+.) : float -> float = "%identity" *)
321
 
  
322
 
  @BEGIN_FROM_4_03_0@
323
 
  external expm1 : float -> float = "caml_expm1_float" "caml_expm1"[@@unboxed ]
324
 
  [@@noalloc ]
325
 
  @END_FROM_4_03_0@
326
 
  @BEGIN_BEFORE_4_03_0@
327
 
  @BEGIN_FROM_3_12_0@
328
 
  external expm1 : float -> float = "caml_expm1_float" "caml_expm1" "float"
329
 
  @END_FROM_3_12_0@
330
 
  @BEGIN_BEFORE_3_12_0@
331
 
  val expm1 : float -> float
332
 
  @END_BEFORE_3_12_0@
333
 
  
334
 
  @END_BEFORE_4_03_0@
335
 
  (** @since 4.03.0:
336
 
      external expm1 : float -> float = "caml_expm1_float" "caml_expm1"
337
 
      [@@unboxed ][@@noalloc ]
338
 
  @since 3.12.0:
339
 
  external expm1 : float -> float = "caml_expm1_float" "caml_expm1" "float"
340
 
   *)
341
 
  
342
 
  @BEGIN_FROM_4_03_0@
343
 
  external log1p : float -> float = "caml_log1p_float" "caml_log1p"[@@unboxed ]
344
 
  [@@noalloc ]
345
 
  @END_FROM_4_03_0@
346
 
  @BEGIN_BEFORE_4_03_0@
347
 
  @BEGIN_FROM_3_12_0@
348
 
  external log1p : float -> float = "caml_log1p_float" "caml_log1p" "float"
349
 
  @END_FROM_3_12_0@
350
 
  @BEGIN_BEFORE_3_12_0@
351
 
  val log1p : float -> float
352
 
  @END_BEFORE_3_12_0@
353
 
  
354
 
  @END_BEFORE_4_03_0@
355
 
  (** @since 4.03.0:
356
 
      external log1p : float -> float = "caml_log1p_float" "caml_log1p"
357
 
      [@@unboxed ][@@noalloc ]
358
 
  @since 3.12.0:
359
 
  external log1p : float -> float = "caml_log1p_float" "caml_log1p" "float"
360
 
   *)
361
 
  
362
 
  external raise : exn -> 'a = "%raise"
363
 
  (** Alias for {!Pervasives.raise} *)
364
 
  
365
 
  val invalid_arg : string -> 'a
366
 
  (** Alias for {!Pervasives.invalid_arg} *)
367
 
  
368
 
  val failwith : string -> 'a
369
 
  (** Alias for {!Pervasives.failwith} *)
370
 
  
371
 
  external (=) : 'a -> 'a -> bool = "%equal"
372
 
  (** Alias for {!Pervasives.=} *)
373
 
  
374
 
  external (<>) : 'a -> 'a -> bool = "%notequal"
375
 
  (** Alias for {!Pervasives.<>} *)
376
 
  
377
 
  external (<) : 'a -> 'a -> bool = "%lessthan"
378
 
  (** Alias for {!Pervasives.<} *)
379
 
  
380
 
  external (>) : 'a -> 'a -> bool = "%greaterthan"
381
 
  (** Alias for {!Pervasives.>} *)
382
 
  
383
 
  external (<=) : 'a -> 'a -> bool = "%lessequal"
384
 
  (** Alias for {!Pervasives.<=} *)
385
 
  
386
 
  external (>=) : 'a -> 'a -> bool = "%greaterequal"
387
 
  (** Alias for {!Pervasives.>=} *)
388
 
  
389
 
  external compare : 'a -> 'a -> int = "%compare"
390
 
  (** Alias for {!Pervasives.compare} *)
391
 
  
392
 
  val min : 'a -> 'a -> 'a
393
 
  (** Alias for {!Pervasives.min} *)
394
 
  
395
 
  val max : 'a -> 'a -> 'a
396
 
  (** Alias for {!Pervasives.max} *)
397
 
  
398
 
  external (==) : 'a -> 'a -> bool = "%eq"
399
 
  (** Alias for {!Pervasives.==} *)
400
 
  
401
 
  external (!=) : 'a -> 'a -> bool = "%noteq"
402
 
  (** Alias for {!Pervasives.!=} *)
403
 
  
404
 
  external not : bool -> bool = "%boolnot"
405
 
  (** Alias for {!Pervasives.not} *)
406
 
  
407
 
  external (&&) : bool -> bool -> bool = "%sequand"
408
 
  (** Alias for {!Pervasives.&&} *)
409
 
  @BEGIN_FROM_4_02_0@
410
 
  external (&) : bool -> bool -> bool = "%sequand"[@@ocaml.deprecated
411
 
                                                    "Use (&&) instead."]
412
 
  @END_FROM_4_02_0@
413
 
  @BEGIN_BEFORE_4_02_0@
414
 
  external (&) : bool -> bool -> bool = "%sequand"
415
 
  @END_BEFORE_4_02_0@
416
 
  
417
 
  (** 
418
 
  @since 4.02.0:
419
 
  external (&) : bool -> bool -> bool = "%sequand"[@@ocaml.deprecated
420
 
                                                    "Use (&&) instead."]
421
 
  @since 3.07.0: external (&) : bool -> bool -> bool = "%sequand"
422
 
   *)
423
 
  
424
 
  external (||) : bool -> bool -> bool = "%sequor"
425
 
  (** Alias for {!Pervasives.||} *)
426
 
  
427
 
  @BEGIN_FROM_4_02_0@
428
 
  external (or) : bool -> bool -> bool = "%sequor"[@@ocaml.deprecated
429
 
                                                    "Use (||) instead."]
430
 
  @END_FROM_4_02_0@
431
 
  @BEGIN_BEFORE_4_02_0@
432
 
  external (or) : bool -> bool -> bool = "%sequor"
433
 
  @END_BEFORE_4_02_0@
434
 
  
435
 
  (**
436
 
  @since 4.02.0:
437
 
  external (or) : bool -> bool -> bool = "%sequor"[@@ocaml.deprecated
438
 
                                                    "Use (||) instead."]
439
 
  @since 3.07.0: external (or) : bool -> bool -> bool = "%sequor"
440
 
   *)
441
 
  
442
 
  external (~-) : int -> int = "%negint"
443
 
  (** Alias for {!Pervasives.~-} *)
444
 
  
445
 
  external succ : int -> int = "%succint"
446
 
  (** Alias for {!Pervasives.succ} *)
447
 
  
448
 
  external pred : int -> int = "%predint"
449
 
  (** Alias for {!Pervasives.pred} *)
450
 
  
451
 
  external (+) : int -> int -> int = "%addint"
452
 
  (** Alias for {!Pervasives.+} *)
453
 
  
454
 
  external (-) : int -> int -> int = "%subint"
455
 
  (** Alias for {!Pervasives.-} *)
456
 
  
457
 
  external ( * ) : int -> int -> int = "%mulint"
458
 
  (** Alias for {!Pervasives.*} *)
459
 
  
460
 
  external (/) : int -> int -> int = "%divint"
461
 
  (** Alias for {!Pervasives./} *)
462
 
  
463
 
  external (mod) : int -> int -> int = "%modint"
464
 
  (** Alias for {!Pervasives.mod} *)
465
 
  
466
 
  val abs : int -> int
467
 
  (** Alias for {!Pervasives.abs} *)
468
 
  
469
 
  val max_int : int
470
 
  (** Alias for {!Pervasives.max_int} *)
471
 
  
472
 
  val min_int : int
473
 
  (** Alias for {!Pervasives.min_int} *)
474
 
  
475
 
  external (land) : int -> int -> int = "%andint"
476
 
  (** Alias for {!Pervasives.land} *)
477
 
  
478
 
  external (lor) : int -> int -> int = "%orint"
479
 
  (** Alias for {!Pervasives.lor} *)
480
 
  
481
 
  external (lxor) : int -> int -> int = "%xorint"
482
 
  (** Alias for {!Pervasives.lxor} *)
483
 
  
484
 
  val lnot : int -> int
485
 
  (** Alias for {!Pervasives.lnot} *)
486
 
  
487
 
  external (lsl) : int -> int -> int = "%lslint"
488
 
  (** Alias for {!Pervasives.lsl} *)
489
 
  
490
 
  external (lsr) : int -> int -> int = "%lsrint"
491
 
  (** Alias for {!Pervasives.lsr} *)
492
 
  
493
 
  external (asr) : int -> int -> int = "%asrint"
494
 
  (** Alias for {!Pervasives.asr} *)
495
 
  
496
 
  external (~-.) : float -> float = "%negfloat"
497
 
  (** Alias for {!Pervasives.~-.} *)
498
 
  
499
 
  external (+.) : float -> float -> float = "%addfloat"
500
 
  (** Alias for {!Pervasives.+.} *)
501
 
  
502
 
  external (-.) : float -> float -> float = "%subfloat"
503
 
  (** Alias for {!Pervasives.-.} *)
504
 
  
505
 
  external ( *. ) : float -> float -> float = "%mulfloat"
506
 
  (** Alias for {!Pervasives.*.} *)
507
 
  
508
 
  external (/.) : float -> float -> float = "%divfloat"
509
 
  (** Alias for {!Pervasives./.} *)
510
 
  
511
 
  @BEGIN_FROM_4_03_0@
512
 
  external ( ** ) : float -> float -> float = "caml_power_float" "pow"[@@unboxed
513
 
                                                                      ]
514
 
  [@@noalloc ]
515
 
  @END_FROM_4_03_0@
516
 
  @BEGIN_BEFORE_4_03_0@
517
 
  @BEGIN_FROM_3_08_0@
518
 
  external ( ** ) : float -> float -> float = "caml_power_float" "pow" "float"
519
 
  @END_FROM_3_08_0@
520
 
  @BEGIN_BEFORE_3_08_0@
521
 
  external ( ** ) : float -> float -> float = "power_float" "pow" "float"
522
 
  @END_BEFORE_3_08_0@
523
 
  
524
 
  @END_BEFORE_4_03_0@
525
 
  (** @since 4.03.0:
526
 
      external ( ** ) : float -> float -> float = "caml_power_float" "pow"
527
 
      [@@unboxed ][@@noalloc ]
528
 
  @since 3.08.0:
529
 
  external ( ** ) : float -> float -> float = "caml_power_float" "pow" "float"
530
 
  @since 3.07.0:
531
 
  external ( ** ) : float -> float -> float = "power_float" "pow" "float"
532
 
   *)
533
 
  
534
 
  @BEGIN_FROM_4_03_0@
535
 
  external sqrt : float -> float = "caml_sqrt_float" "sqrt"[@@unboxed ]
536
 
  [@@noalloc ]
537
 
  @END_FROM_4_03_0@
538
 
  @BEGIN_BEFORE_4_03_0@
539
 
  @BEGIN_FROM_3_08_0@
540
 
  external sqrt : float -> float = "caml_sqrt_float" "sqrt" "float"
541
 
  @END_FROM_3_08_0@
542
 
  @BEGIN_BEFORE_3_08_0@
543
 
  external sqrt : float -> float = "sqrt_float" "sqrt" "float"
544
 
  @END_BEFORE_3_08_0@
545
 
  
546
 
  @END_BEFORE_4_03_0@
547
 
  (** @since 4.03.0:
548
 
      external sqrt : float -> float = "caml_sqrt_float" "sqrt"[@@unboxed ]
549
 
      [@@noalloc ]
550
 
  @since 3.08.0:
551
 
  external sqrt : float -> float = "caml_sqrt_float" "sqrt" "float"
552
 
  @since 3.07.0: external sqrt : float -> float = "sqrt_float" "sqrt" "float"
553
 
   *)
554
 
  
555
 
  @BEGIN_FROM_4_03_0@
556
 
  external exp : float -> float = "caml_exp_float" "exp"[@@unboxed ][@@noalloc
557
 
                                                                      ]
558
 
  @END_FROM_4_03_0@
559
 
  @BEGIN_BEFORE_4_03_0@
560
 
  @BEGIN_FROM_3_08_0@
561
 
  external exp : float -> float = "caml_exp_float" "exp" "float"
562
 
  @END_FROM_3_08_0@
563
 
  @BEGIN_BEFORE_3_08_0@
564
 
  external exp : float -> float = "exp_float" "exp" "float"
565
 
  @END_BEFORE_3_08_0@
566
 
  
567
 
  @END_BEFORE_4_03_0@
568
 
  (** @since 4.03.0:
569
 
      external exp : float -> float = "caml_exp_float" "exp"[@@unboxed ]
570
 
      [@@noalloc ]
571
 
  @since 3.08.0: external exp : float -> float = "caml_exp_float" "exp" "float"
572
 
  @since 3.07.0: external exp : float -> float = "exp_float" "exp" "float"
573
 
   *)
574
 
  
575
 
  @BEGIN_FROM_4_03_0@
576
 
  external log : float -> float = "caml_log_float" "log"[@@unboxed ][@@noalloc
577
 
                                                                      ]
578
 
  @END_FROM_4_03_0@
579
 
  @BEGIN_BEFORE_4_03_0@
580
 
  @BEGIN_FROM_3_08_0@
581
 
  external log : float -> float = "caml_log_float" "log" "float"
582
 
  @END_FROM_3_08_0@
583
 
  @BEGIN_BEFORE_3_08_0@
584
 
  external log : float -> float = "log_float" "log" "float"
585
 
  @END_BEFORE_3_08_0@
586
 
  
587
 
  @END_BEFORE_4_03_0@
588
 
  (** @since 4.03.0:
589
 
      external log : float -> float = "caml_log_float" "log"[@@unboxed ]
590
 
      [@@noalloc ]
591
 
  @since 3.08.0: external log : float -> float = "caml_log_float" "log" "float"
592
 
  @since 3.07.0: external log : float -> float = "log_float" "log" "float"
593
 
   *)
594
 
  
595
 
  @BEGIN_FROM_4_03_0@
596
 
  external log10 : float -> float = "caml_log10_float" "log10"[@@unboxed ]
597
 
  [@@noalloc ]
598
 
  @END_FROM_4_03_0@
599
 
  @BEGIN_BEFORE_4_03_0@
600
 
  @BEGIN_FROM_3_08_0@
601
 
  external log10 : float -> float = "caml_log10_float" "log10" "float"
602
 
  @END_FROM_3_08_0@
603
 
  @BEGIN_BEFORE_3_08_0@
604
 
  external log10 : float -> float = "log10_float" "log10" "float"
605
 
  @END_BEFORE_3_08_0@
606
 
  
607
 
  @END_BEFORE_4_03_0@
608
 
  (** @since 4.03.0:
609
 
      external log10 : float -> float = "caml_log10_float" "log10"[@@unboxed ]
610
 
      [@@noalloc ]
611
 
  @since 3.08.0:
612
 
  external log10 : float -> float = "caml_log10_float" "log10" "float"
613
 
  @since 3.07.0:
614
 
  external log10 : float -> float = "log10_float" "log10" "float"
615
 
   *)
616
 
  
617
 
  @BEGIN_FROM_4_03_0@
618
 
  external cos : float -> float = "caml_cos_float" "cos"[@@unboxed ][@@noalloc
619
 
                                                                      ]
620
 
  @END_FROM_4_03_0@
621
 
  @BEGIN_BEFORE_4_03_0@
622
 
  @BEGIN_FROM_3_08_0@
623
 
  external cos : float -> float = "caml_cos_float" "cos" "float"
624
 
  @END_FROM_3_08_0@
625
 
  @BEGIN_BEFORE_3_08_0@
626
 
  external cos : float -> float = "cos_float" "cos" "float"
627
 
  @END_BEFORE_3_08_0@
628
 
  
629
 
  @END_BEFORE_4_03_0@
630
 
  (** @since 4.03.0:
631
 
      external cos : float -> float = "caml_cos_float" "cos"[@@unboxed ]
632
 
      [@@noalloc ]
633
 
  @since 3.08.0: external cos : float -> float = "caml_cos_float" "cos" "float"
634
 
  @since 3.07.0: external cos : float -> float = "cos_float" "cos" "float"
635
 
   *)
636
 
  
637
 
  @BEGIN_FROM_4_03_0@
638
 
  external sin : float -> float = "caml_sin_float" "sin"[@@unboxed ][@@noalloc
639
 
                                                                      ]
640
 
  @END_FROM_4_03_0@
641
 
  @BEGIN_BEFORE_4_03_0@
642
 
  @BEGIN_FROM_3_08_0@
643
 
  external sin : float -> float = "caml_sin_float" "sin" "float"
644
 
  @END_FROM_3_08_0@
645
 
  @BEGIN_BEFORE_3_08_0@
646
 
  external sin : float -> float = "sin_float" "sin" "float"
647
 
  @END_BEFORE_3_08_0@
648
 
  
649
 
  @END_BEFORE_4_03_0@
650
 
  (** @since 4.03.0:
651
 
      external sin : float -> float = "caml_sin_float" "sin"[@@unboxed ]
652
 
      [@@noalloc ]
653
 
  @since 3.08.0: external sin : float -> float = "caml_sin_float" "sin" "float"
654
 
  @since 3.07.0: external sin : float -> float = "sin_float" "sin" "float"
655
 
   *)
656
 
  
657
 
  @BEGIN_FROM_4_03_0@
658
 
  external tan : float -> float = "caml_tan_float" "tan"[@@unboxed ][@@noalloc
659
 
                                                                      ]
660
 
  @END_FROM_4_03_0@
661
 
  @BEGIN_BEFORE_4_03_0@
662
 
  @BEGIN_FROM_3_08_0@
663
 
  external tan : float -> float = "caml_tan_float" "tan" "float"
664
 
  @END_FROM_3_08_0@
665
 
  @BEGIN_BEFORE_3_08_0@
666
 
  external tan : float -> float = "tan_float" "tan" "float"
667
 
  @END_BEFORE_3_08_0@
668
 
  
669
 
  @END_BEFORE_4_03_0@
670
 
  (** @since 4.03.0:
671
 
      external tan : float -> float = "caml_tan_float" "tan"[@@unboxed ]
672
 
      [@@noalloc ]
673
 
  @since 3.08.0: external tan : float -> float = "caml_tan_float" "tan" "float"
674
 
  @since 3.07.0: external tan : float -> float = "tan_float" "tan" "float"
675
 
   *)
676
 
  
677
 
  @BEGIN_FROM_4_03_0@
678
 
  external acos : float -> float = "caml_acos_float" "acos"[@@unboxed ]
679
 
  [@@noalloc ]
680
 
  @END_FROM_4_03_0@
681
 
  @BEGIN_BEFORE_4_03_0@
682
 
  @BEGIN_FROM_3_08_0@
683
 
  external acos : float -> float = "caml_acos_float" "acos" "float"
684
 
  @END_FROM_3_08_0@
685
 
  @BEGIN_BEFORE_3_08_0@
686
 
  external acos : float -> float = "acos_float" "acos" "float"
687
 
  @END_BEFORE_3_08_0@
688
 
  
689
 
  @END_BEFORE_4_03_0@
690
 
  (** @since 4.03.0:
691
 
      external acos : float -> float = "caml_acos_float" "acos"[@@unboxed ]
692
 
      [@@noalloc ]
693
 
  @since 3.08.0:
694
 
  external acos : float -> float = "caml_acos_float" "acos" "float"
695
 
  @since 3.07.0: external acos : float -> float = "acos_float" "acos" "float"
696
 
   *)
697
 
  
698
 
  @BEGIN_FROM_4_03_0@
699
 
  external asin : float -> float = "caml_asin_float" "asin"[@@unboxed ]
700
 
  [@@noalloc ]
701
 
  @END_FROM_4_03_0@
702
 
  @BEGIN_BEFORE_4_03_0@
703
 
  @BEGIN_FROM_3_08_0@
704
 
  external asin : float -> float = "caml_asin_float" "asin" "float"
705
 
  @END_FROM_3_08_0@
706
 
  @BEGIN_BEFORE_3_08_0@
707
 
  external asin : float -> float = "asin_float" "asin" "float"
708
 
  @END_BEFORE_3_08_0@
709
 
  
710
 
  @END_BEFORE_4_03_0@
711
 
  (** @since 4.03.0:
712
 
      external asin : float -> float = "caml_asin_float" "asin"[@@unboxed ]
713
 
      [@@noalloc ]
714
 
  @since 3.08.0:
715
 
  external asin : float -> float = "caml_asin_float" "asin" "float"
716
 
  @since 3.07.0: external asin : float -> float = "asin_float" "asin" "float"
717
 
   *)
718
 
  
719
 
  @BEGIN_FROM_4_03_0@
720
 
  external atan : float -> float = "caml_atan_float" "atan"[@@unboxed ]
721
 
  [@@noalloc ]
722
 
  @END_FROM_4_03_0@
723
 
  @BEGIN_BEFORE_4_03_0@
724
 
  @BEGIN_FROM_3_08_0@
725
 
  external atan : float -> float = "caml_atan_float" "atan" "float"
726
 
  @END_FROM_3_08_0@
727
 
  @BEGIN_BEFORE_3_08_0@
728
 
  external atan : float -> float = "atan_float" "atan" "float"
729
 
  @END_BEFORE_3_08_0@
730
 
  
731
 
  @END_BEFORE_4_03_0@
732
 
  (** @since 4.03.0:
733
 
      external atan : float -> float = "caml_atan_float" "atan"[@@unboxed ]
734
 
      [@@noalloc ]
735
 
  @since 3.08.0:
736
 
  external atan : float -> float = "caml_atan_float" "atan" "float"
737
 
  @since 3.07.0: external atan : float -> float = "atan_float" "atan" "float"
738
 
   *)
739
 
  
740
 
  @BEGIN_FROM_4_03_0@
741
 
  external atan2 : float -> float -> float = "caml_atan2_float" "atan2"
742
 
  [@@unboxed ][@@noalloc ]
743
 
  @END_FROM_4_03_0@
744
 
  @BEGIN_BEFORE_4_03_0@
745
 
  @BEGIN_FROM_3_08_0@
746
 
  external atan2 : float -> float -> float = "caml_atan2_float" "atan2" "float"
747
 
  @END_FROM_3_08_0@
748
 
  @BEGIN_BEFORE_3_08_0@
749
 
  external atan2 : float -> float -> float = "atan2_float" "atan2" "float"
750
 
  @END_BEFORE_3_08_0@
751
 
  
752
 
  @END_BEFORE_4_03_0@
753
 
  (** @since 4.03.0:
754
 
      external atan2 : float -> float -> float = "caml_atan2_float" "atan2"
755
 
      [@@unboxed ][@@noalloc ]
756
 
  @since 3.08.0:
757
 
  external atan2 : float -> float -> float = "caml_atan2_float" "atan2" "float"
758
 
  @since 3.07.0:
759
 
  external atan2 : float -> float -> float = "atan2_float" "atan2" "float"
760
 
   *)
761
 
  
762
 
  @BEGIN_FROM_4_03_0@
763
 
  external cosh : float -> float = "caml_cosh_float" "cosh"[@@unboxed ]
764
 
  [@@noalloc ]
765
 
  @END_FROM_4_03_0@
766
 
  @BEGIN_BEFORE_4_03_0@
767
 
  @BEGIN_FROM_3_08_0@
768
 
  external cosh : float -> float = "caml_cosh_float" "cosh" "float"
769
 
  @END_FROM_3_08_0@
770
 
  @BEGIN_BEFORE_3_08_0@
771
 
  external cosh : float -> float = "cosh_float" "cosh" "float"
772
 
  @END_BEFORE_3_08_0@
773
 
  
774
 
  @END_BEFORE_4_03_0@
775
 
  (** @since 4.03.0:
776
 
      external cosh : float -> float = "caml_cosh_float" "cosh"[@@unboxed ]
777
 
      [@@noalloc ]
778
 
  @since 3.08.0:
779
 
  external cosh : float -> float = "caml_cosh_float" "cosh" "float"
780
 
  @since 3.07.0: external cosh : float -> float = "cosh_float" "cosh" "float"
781
 
   *)
782
 
  
783
 
  @BEGIN_FROM_4_03_0@
784
 
  external sinh : float -> float = "caml_sinh_float" "sinh"[@@unboxed ]
785
 
  [@@noalloc ]
786
 
  @END_FROM_4_03_0@
787
 
  @BEGIN_BEFORE_4_03_0@
788
 
  @BEGIN_FROM_3_08_0@
789
 
  external sinh : float -> float = "caml_sinh_float" "sinh" "float"
790
 
  @END_FROM_3_08_0@
791
 
  @BEGIN_BEFORE_3_08_0@
792
 
  external sinh : float -> float = "sinh_float" "sinh" "float"
793
 
  @END_BEFORE_3_08_0@
794
 
  
795
 
  @END_BEFORE_4_03_0@
796
 
  (** @since 4.03.0:
797
 
      external sinh : float -> float = "caml_sinh_float" "sinh"[@@unboxed ]
798
 
      [@@noalloc ]
799
 
  @since 3.08.0:
800
 
  external sinh : float -> float = "caml_sinh_float" "sinh" "float"
801
 
  @since 3.07.0: external sinh : float -> float = "sinh_float" "sinh" "float"
802
 
   *)
803
 
  
804
 
  @BEGIN_FROM_4_03_0@
805
 
  external tanh : float -> float = "caml_tanh_float" "tanh"[@@unboxed ]
806
 
  [@@noalloc ]
807
 
  @END_FROM_4_03_0@
808
 
  @BEGIN_BEFORE_4_03_0@
809
 
  @BEGIN_FROM_3_08_0@
810
 
  external tanh : float -> float = "caml_tanh_float" "tanh" "float"
811
 
  @END_FROM_3_08_0@
812
 
  @BEGIN_BEFORE_3_08_0@
813
 
  external tanh : float -> float = "tanh_float" "tanh" "float"
814
 
  @END_BEFORE_3_08_0@
815
 
  
816
 
  @END_BEFORE_4_03_0@
817
 
  (** @since 4.03.0:
818
 
      external tanh : float -> float = "caml_tanh_float" "tanh"[@@unboxed ]
819
 
      [@@noalloc ]
820
 
  @since 3.08.0:
821
 
  external tanh : float -> float = "caml_tanh_float" "tanh" "float"
822
 
  @since 3.07.0: external tanh : float -> float = "tanh_float" "tanh" "float"
823
 
   *)
824
 
  
825
 
  @BEGIN_FROM_4_03_0@
826
 
  external ceil : float -> float = "caml_ceil_float" "ceil"[@@unboxed ]
827
 
  [@@noalloc ]
828
 
  @END_FROM_4_03_0@
829
 
  @BEGIN_BEFORE_4_03_0@
830
 
  @BEGIN_FROM_3_08_0@
831
 
  external ceil : float -> float = "caml_ceil_float" "ceil" "float"
832
 
  @END_FROM_3_08_0@
833
 
  @BEGIN_BEFORE_3_08_0@
834
 
  external ceil : float -> float = "ceil_float" "ceil" "float"
835
 
  @END_BEFORE_3_08_0@
836
 
  
837
 
  @END_BEFORE_4_03_0@
838
 
  (** @since 4.03.0:
839
 
      external ceil : float -> float = "caml_ceil_float" "ceil"[@@unboxed ]
840
 
      [@@noalloc ]
841
 
  @since 3.08.0:
842
 
  external ceil : float -> float = "caml_ceil_float" "ceil" "float"
843
 
  @since 3.07.0: external ceil : float -> float = "ceil_float" "ceil" "float"
844
 
   *)
845
 
  
846
 
  @BEGIN_FROM_4_03_0@
847
 
  external floor : float -> float = "caml_floor_float" "floor"[@@unboxed ]
848
 
  [@@noalloc ]
849
 
  @END_FROM_4_03_0@
850
 
  @BEGIN_BEFORE_4_03_0@
851
 
  @BEGIN_FROM_3_08_0@
852
 
  external floor : float -> float = "caml_floor_float" "floor" "float"
853
 
  @END_FROM_3_08_0@
854
 
  @BEGIN_BEFORE_3_08_0@
855
 
  external floor : float -> float = "floor_float" "floor" "float"
856
 
  @END_BEFORE_3_08_0@
857
 
  
858
 
  @END_BEFORE_4_03_0@
859
 
  (** @since 4.03.0:
860
 
      external floor : float -> float = "caml_floor_float" "floor"[@@unboxed ]
861
 
      [@@noalloc ]
862
 
  @since 3.08.0:
863
 
  external floor : float -> float = "caml_floor_float" "floor" "float"
864
 
  @since 3.07.0:
865
 
  external floor : float -> float = "floor_float" "floor" "float"
866
 
   *)
867
 
  
868
 
  external abs_float : float -> float = "%absfloat"
869
 
  (** Alias for {!Pervasives.abs_float} *)
870
 
  
871
 
  @BEGIN_FROM_4_03_0@
872
 
  external mod_float : float -> float -> float = "caml_fmod_float" "fmod"
873
 
  [@@unboxed ][@@noalloc ]
874
 
  @END_FROM_4_03_0@
875
 
  @BEGIN_BEFORE_4_03_0@
876
 
  @BEGIN_FROM_3_08_0@
877
 
  external mod_float :
878
 
    float -> float -> float = "caml_fmod_float" "fmod" "float"
879
 
  @END_FROM_3_08_0@
880
 
  @BEGIN_BEFORE_3_08_0@
881
 
  external mod_float : float -> float -> float = "fmod_float" "fmod" "float"
882
 
  @END_BEFORE_3_08_0@
883
 
  
884
 
  @END_BEFORE_4_03_0@
885
 
  (** @since 4.03.0:
886
 
      external mod_float : float -> float -> float = "caml_fmod_float" "fmod"
887
 
      [@@unboxed ][@@noalloc ]
888
 
  @since 3.08.0:
889
 
  external mod_float :
890
 
    float -> float -> float = "caml_fmod_float" "fmod" "float"
891
 
  @since 3.07.0:
892
 
  external mod_float : float -> float -> float = "fmod_float" "fmod" "float"
893
 
   *)
894
 
  
895
 
  @BEGIN_FROM_3_08_0@
896
 
  external frexp : float -> (float * int) = "caml_frexp_float"
897
 
  @END_FROM_3_08_0@
898
 
  @BEGIN_BEFORE_3_08_0@
899
 
  external frexp : float -> (float * int) = "frexp_float"
900
 
  @END_BEFORE_3_08_0@
901
 
  (** @since 3.08.0:
902
 
      external frexp : float -> (float * int) = "caml_frexp_float"
903
 
  @since 3.07.0: external frexp : float -> (float * int) = "frexp_float"
904
 
   *)
905
 
  
906
 
  @BEGIN_FROM_4_03_0@
907
 
  external ldexp :
908
 
    ((float)[@unboxed ]) -> ((int)[@untagged ]) -> ((float)[@unboxed ]) =
909
 
      "caml_ldexp_float" "caml_ldexp_float_unboxed"[@@noalloc ]
910
 
  @END_FROM_4_03_0@
911
 
  @BEGIN_BEFORE_4_03_0@
912
 
  @BEGIN_FROM_3_08_0@
913
 
  external ldexp : float -> int -> float = "caml_ldexp_float"
914
 
  @END_FROM_3_08_0@
915
 
  @BEGIN_BEFORE_3_08_0@
916
 
  external ldexp : float -> int -> float = "ldexp_float"
917
 
  @END_BEFORE_3_08_0@
918
 
  
919
 
  @END_BEFORE_4_03_0@
920
 
  (** @since 4.03.0:
921
 
      external ldexp :
922
 
        ((float)[@unboxed ]) -> ((int)[@untagged ]) -> ((float)[@unboxed ]) =
923
 
          "caml_ldexp_float" "caml_ldexp_float_unboxed"[@@noalloc ]
924
 
  @since 3.08.0: external ldexp : float -> int -> float = "caml_ldexp_float"
925
 
  @since 3.07.0: external ldexp : float -> int -> float = "ldexp_float"
926
 
   *)
927
 
  
928
 
  @BEGIN_FROM_3_08_0@
929
 
  external modf : float -> (float * float) = "caml_modf_float"
930
 
  @END_FROM_3_08_0@
931
 
  @BEGIN_BEFORE_3_08_0@
932
 
  external modf : float -> (float * float) = "modf_float"
933
 
  @END_BEFORE_3_08_0@
934
 
  (** @since 3.08.0:
935
 
      external modf : float -> (float * float) = "caml_modf_float"
936
 
  @since 3.07.0: external modf : float -> (float * float) = "modf_float"
937
 
   *)
938
 
  
939
 
  external float : int -> float = "%floatofint"
940
 
  (** Alias for {!Pervasives.float} *)
941
 
  
942
 
  external float_of_int : int -> float = "%floatofint"
943
 
  (** Alias for {!Pervasives.float_of_int} *)
944
 
  
945
 
  external truncate : float -> int = "%intoffloat"
946
 
  (** Alias for {!Pervasives.truncate} *)
947
 
  
948
 
  external int_of_float : float -> int = "%intoffloat"
949
 
  (** Alias for {!Pervasives.int_of_float} *)
950
 
  
951
 
  val infinity : float
952
 
  (** Alias for {!Pervasives.infinity} *)
953
 
  
954
 
  val neg_infinity : float
955
 
  (** Alias for {!Pervasives.neg_infinity} *)
956
 
  
957
 
  val nan : float
958
 
  (** Alias for {!Pervasives.nan} *)
959
 
  
960
 
  val max_float : float
961
 
  (** Alias for {!Pervasives.max_float} *)
962
 
  
963
 
  val min_float : float
964
 
  (** Alias for {!Pervasives.min_float} *)
965
 
  
966
 
  val epsilon_float : float
967
 
  (** Alias for {!Pervasives.epsilon_float} *)
968
 
  
969
 
  @BEGIN_FROM_4_03_0@
970
 
  external classify_float :
971
 
    ((float)[@unboxed ]) -> fpclass = "caml_classify_float"
972
 
      "caml_classify_float_unboxed"[@@noalloc ]
973
 
  @END_FROM_4_03_0@
974
 
  @BEGIN_BEFORE_4_03_0@
975
 
  @BEGIN_FROM_3_08_0@
976
 
  external classify_float : float -> fpclass = "caml_classify_float"
977
 
  @END_FROM_3_08_0@
978
 
  @BEGIN_BEFORE_3_08_0@
979
 
  external classify_float : float -> fpclass = "classify_float"
980
 
  @END_BEFORE_3_08_0@
981
 
  
982
 
  @END_BEFORE_4_03_0@
983
 
  (** @since 4.03.0:
984
 
      external classify_float :
985
 
        ((float)[@unboxed ]) -> fpclass = "caml_classify_float"
986
 
          "caml_classify_float_unboxed"[@@noalloc ]
987
 
  @since 3.08.0:
988
 
  external classify_float : float -> fpclass = "caml_classify_float"
989
 
  @since 3.07.0: external classify_float : float -> fpclass = "classify_float"
990
 
   *)
991
 
  
992
 
  val (^) : string -> string -> string
993
 
  (** Alias for {!Pervasives.^} *)
994
 
  
995
 
  external int_of_char : char -> int = "%identity"
996
 
  (** Alias for {!Pervasives.int_of_char} *)
997
 
  
998
 
  val char_of_int : int -> char
999
 
  (** Alias for {!Pervasives.char_of_int} *)
1000
 
  
1001
 
  external ignore : 'a -> unit = "%ignore"
1002
 
  (** Alias for {!Pervasives.ignore} *)
1003
 
  
1004
 
  val string_of_bool : bool -> string
1005
 
  (** Alias for {!Pervasives.string_of_bool} *)
1006
 
  
1007
 
  val bool_of_string : string -> bool
1008
 
  (** Alias for {!Pervasives.bool_of_string} *)
1009
 
  
1010
 
  val string_of_int : int -> string
1011
 
  (** Alias for {!Pervasives.string_of_int} *)
1012
 
  
1013
 
  @BEGIN_FROM_3_08_0@
1014
 
  external int_of_string : string -> int = "caml_int_of_string"
1015
 
  @END_FROM_3_08_0@
1016
 
  @BEGIN_BEFORE_3_08_0@
1017
 
  external int_of_string : string -> int = "int_of_string"
1018
 
  @END_BEFORE_3_08_0@
1019
 
  (** @since 3.08.0:
1020
 
      external int_of_string : string -> int = "caml_int_of_string"
1021
 
  @since 3.07.0: external int_of_string : string -> int = "int_of_string"
1022
 
   *)
1023
 
  
1024
 
  val string_of_float : float -> string
1025
 
  (** Alias for {!Pervasives.string_of_float} *)
1026
 
  
1027
 
  @BEGIN_FROM_3_08_0@
1028
 
  external float_of_string : string -> float = "caml_float_of_string"
1029
 
  @END_FROM_3_08_0@
1030
 
  @BEGIN_BEFORE_3_08_0@
1031
 
  external float_of_string : string -> float = "float_of_string"
1032
 
  @END_BEFORE_3_08_0@
1033
 
  (** @since 3.08.0:
1034
 
      external float_of_string : string -> float = "caml_float_of_string"
1035
 
  @since 3.07.0: external float_of_string : string -> float = "float_of_string"
1036
 
   *)
1037
 
  
1038
 
  external fst : ('a * 'b) -> 'a = "%field0"
1039
 
  (** Alias for {!Pervasives.fst} *)
1040
 
  
1041
 
  external snd : ('a * 'b) -> 'b = "%field1"
1042
 
  (** Alias for {!Pervasives.snd} *)
1043
 
  
1044
 
  val (@) : 'a list -> 'a list -> 'a list
1045
 
  (** Alias for {!Pervasives.@} *)
1046
 
  
1047
 
  val print_char : char -> unit
1048
 
  (** Alias for {!Pervasives.print_char} *)
1049
 
  
1050
 
  val print_string : string -> unit
1051
 
  (** Alias for {!Pervasives.print_string} *)
1052
 
  
1053
 
  val print_int : int -> unit
1054
 
  (** Alias for {!Pervasives.print_int} *)
1055
 
  
1056
 
  val print_float : float -> unit
1057
 
  (** Alias for {!Pervasives.print_float} *)
1058
 
  
1059
 
  val print_endline : string -> unit
1060
 
  (** Alias for {!Pervasives.print_endline} *)
1061
 
  
1062
 
  val print_newline : unit -> unit
1063
 
  (** Alias for {!Pervasives.print_newline} *)
1064
 
  
1065
 
  val prerr_char : char -> unit
1066
 
  (** Alias for {!Pervasives.prerr_char} *)
1067
 
  
1068
 
  val prerr_string : string -> unit
1069
 
  (** Alias for {!Pervasives.prerr_string} *)
1070
 
  
1071
 
  val prerr_int : int -> unit
1072
 
  (** Alias for {!Pervasives.prerr_int} *)
1073
 
  
1074
 
  val prerr_float : float -> unit
1075
 
  (** Alias for {!Pervasives.prerr_float} *)
1076
 
  
1077
 
  val prerr_endline : string -> unit
1078
 
  (** Alias for {!Pervasives.prerr_endline} *)
1079
 
  
1080
 
  val prerr_newline : unit -> unit
1081
 
  (** Alias for {!Pervasives.prerr_newline} *)
1082
 
  
1083
 
  val read_line : unit -> string
1084
 
  (** Alias for {!Pervasives.read_line} *)
1085
 
  
1086
 
  val read_int : unit -> int
1087
 
  (** Alias for {!Pervasives.read_int} *)
1088
 
  
1089
 
  val read_float : unit -> float
1090
 
  (** Alias for {!Pervasives.read_float} *)
1091
 
  
1092
 
  val flush_all : unit -> unit
1093
 
  (** Alias for {!Pervasives.flush_all} *)
1094
 
  
1095
 
  external ref : 'a -> 'a ref = "%makemutable"
1096
 
  (** Alias for {!Pervasives.ref} *)
1097
 
  
1098
 
  external (!) : 'a ref -> 'a = "%field0"
1099
 
  (** Alias for {!Pervasives.!} *)
1100
 
  
1101
 
  external (:=) : 'a ref -> 'a -> unit = "%setfield0"
1102
 
  (** Alias for {!Pervasives.:=} *)
1103
 
  
1104
 
  external incr : int ref -> unit = "%incr"
1105
 
  (** Alias for {!Pervasives.incr} *)
1106
 
  
1107
 
  external decr : int ref -> unit = "%decr"
1108
 
  (** Alias for {!Pervasives.decr} *)
1109
 
  
1110
 
  @BEGIN_FROM_3_10_0@
1111
 
  external format_of_string :
1112
 
    ('a, 'b, 'c, 'd, 'e, 'f) format6 -> ('a, 'b, 'c, 'd, 'e, 'f) format6 =
1113
 
      "%identity"
1114
 
  @END_FROM_3_10_0@
1115
 
  @BEGIN_BEFORE_3_10_0@
1116
 
  external format_of_string :
1117
 
    ('a, 'b, 'c, 'd) format4 -> ('a, 'b, 'c, 'd) format4 = "%identity"
1118
 
  @END_BEFORE_3_10_0@
1119
 
  (** @since 3.10.0:
1120
 
      external format_of_string :
1121
 
        ('a, 'b, 'c, 'd, 'e, 'f) format6 -> ('a, 'b, 'c, 'd, 'e, 'f) format6 =
1122
 
          "%identity"
1123
 
  @since 3.07.0:
1124
 
  external format_of_string :
1125
 
    ('a, 'b, 'c, 'd) format4 -> ('a, 'b, 'c, 'd) format4 = "%identity"
1126
 
   *)
1127
 
  
1128
 
  val exit : int -> 'a
1129
 
  (** Alias for {!Pervasives.exit} *)
1130
 
  
1131
 
  val at_exit : (unit -> unit) -> unit
1132
 
  (** Alias for {!Pervasives.at_exit} *)
1133
 
  
1134
 
  val valid_float_lexem : string -> string
1135
 
  (** Alias for {!Pervasives.valid_float_lexem} *)
1136
 
  
1137
 
  val do_at_exit : unit -> unit
1138
 
  (** Alias for {!Pervasives.do_at_exit} *)
1139
 
end