| (*===-- llvm_bitwriter.ml - LLVM OCaml Interface --------------*- OCaml -*-===* |
| * |
| * The LLVM Compiler Infrastructure |
| * |
| * This file is distributed under the University of Illinois Open Source |
| * License. See LICENSE.TXT for details. |
| * |
| *===----------------------------------------------------------------------=== |
| * |
| * This interface provides an OCaml API for the LLVM intermediate |
| * representation, the classes in the VMCore library. |
| * |
| *===----------------------------------------------------------------------===*) |
| |
| external write_bitcode_file |
| : Llvm.llmodule -> string -> bool |
| = "llvm_write_bitcode_file" |
| |
| external write_bitcode_to_fd |
| : ?unbuffered:bool -> Llvm.llmodule -> Unix.file_descr -> bool |
| = "llvm_write_bitcode_to_fd" |
| |
| external write_bitcode_to_memory_buffer |
| : Llvm.llmodule -> Llvm.llmemorybuffer |
| = "llvm_write_bitcode_to_memory_buffer" |
| |
| let output_bitcode ?unbuffered channel m = |
| write_bitcode_to_fd ?unbuffered m (Unix.descr_of_out_channel channel) |