llvm-6502/bindings/ocaml/bitreader/llvm_bitreader.ml

(*===-- llvm_bitreader.ml - LLVM Ocaml Interface ----------------*- C++ -*-===*
 *
 *                     The LLVM Compiler Infrastructure
 *
 * This file was developed by Gordon Henriksen and is distributed under the
 * University of Illinois Open Source License. See LICENSE.TXT for details.
 *
 *===----------------------------------------------------------------------===*)


type bitreader_result =
| Bitreader_success of Llvm.llmodule
| Bitreader_failure of string


external read_bitcode_file : string -> bitreader_result
                           = "llvm_read_bitcode_file"
Adding Ocaml bindings for the bitreader as requested by Sarah Thompson. Usage should be something like this: open Llvm open Llvm_bitreader match read_bitcode_file fn with \| Bitreader_failure msg -> prerr_endline msg \| Bitreader_success m -> ...; dispose_module m Compile with: ocamlc llvm.cma llvm_bitreader.cma ocamlopt llvm.cmxa llvm_bitreader.cmxa git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@44824 91177308-0d34-0410-b5e6-96231b3b80d8 2007-12-11 00:20:48 +00:00			`(===-- llvm_bitreader.ml - LLVM Ocaml Interface ----------------- C++ --===`
			`*`
			`* The LLVM Compiler Infrastructure`
			`*`
			`* This file was developed by Gordon Henriksen and is distributed under the`
			`* University of Illinois Open Source License. See LICENSE.TXT for details.`
			`*`
			`===----------------------------------------------------------------------===)`


			`type bitreader_result =`
			`\| Bitreader_success of Llvm.llmodule`
			`\| Bitreader_failure of string`


			`external read_bitcode_file : string -> bitreader_result`
			`= "llvm_read_bitcode_file"`