$(use "env19.ml") $(if_equal ocaml_version "4.02"\ "OK" "KO") $(if_not_equal ocaml_version "4.02" "OK" "KO") $(if_lower ocaml_version "4.02.0" \ "\ type bytes = string;;\ \nmodule Bytes = String;;\ \nlet string_init n f =\ \n if n = 0 then \"\" else\ \n let buf = Buffer.create n in\ \n for i = 0 to pred n do\ \n Buffer.add_char buf (f i);\ \n done;\ \n Buffer.contents buf\ \n;;\ \nlet string_copy s = string_init (String.length s) (String.get s);;\ \nlet of_string = string_copy\ \nand to_string = string_copy\ \n;;\ \nlet buffer_to_bytes = Buffer.contents;;\ \nlet bytes_unsafe_blit_string = Bytes.unsafe_blit;;" \ \ "\ let buffer_to_bytes = Buffer.to_bytes;;\ \nlet bytes_unsafe_blit_string = Bytes.unsafe_blit_string;;") $(if_greater_or_equal ocaml_version "4.02.0" \ "\ type bytes = string;;\ \nmodule Bytes = String;;\ \nlet string_init n f =\ \n if n = 0 then \"\" else\ \n let buf = Buffer.create n in\ \n for i = 0 to pred n do\ \n Buffer.add_char buf (f i);\ \n done;\ \n Buffer.contents buf\ \n;;\ \nlet string_copy s = string_init (String.length s) (String.get s);;\ \nlet of_string = string_copy\ \nand to_string = string_copy\ \n;;\ \nlet buffer_to_bytes = Buffer.contents;;\ \nlet bytes_unsafe_blit_string = Bytes.unsafe_blit;;" \ \ "\ let buffer_to_bytes = Buffer.to_bytes;;\ \nlet bytes_unsafe_blit_string = Bytes.unsafe_blit_string;;")