bindings/ocaml/bitwriter/llvm_bitwriter.ml

   1 (*===-- llvm_bitwriter.ml - LLVM OCaml Interface ----------------*- C++ -*-===*
   2  *
   3  *                     The LLVM Compiler Infrastructure
   4  *
   5  * This file is distributed under the University of Illinois Open Source
   6  * License. See LICENSE.TXT for details.
   7  *
   8  *===----------------------------------------------------------------------===
   9  *
  10  * This interface provides an OCaml API for the LLVM intermediate
  11  * representation, the classes in the VMCore library.
  12  *
  13  *===----------------------------------------------------------------------===*)
  14
  15
  16 (* Writes the bitcode for module the given path. Returns true if successful. *)
  17 external write_bitcode_file : Llvm.llmodule -> string -> bool
  18                             = "llvm_write_bitcode_file"
  19
  20 external write_bitcode_to_fd : ?unbuffered:bool -> Llvm.llmodule
  21                                -> Unix.file_descr -> bool
  22                              = "llvm_write_bitcode_to_fd"
  23
  24 let output_bitcode ?unbuffered channel m =
  25   write_bitcode_to_fd ?unbuffered m (Unix.descr_of_out_channel channel)