flexdll/Compat402.ml at master · pylabdev/flexdll · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(************************************************************************)
(*   FlexDLL                                                            *)
(*   Alain Frisch                                                       *)
(*                                                                      *)
(*   Copyright 2007 Institut National de Recherche en Informatique et   *)
(*   en Automatique.                                                    *)
(************************************************************************)

(* Back-port required functionality from Bytes in 4.02.0 *)
type bytes = string
module Bytes = struct
  include String

  let blit_string = blit
  let sub_string = sub
  let of_string x = x
  let to_string x = x
  let cat = (^)
end
let output_bytes = output_string