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.
 *
 *===----------------------------------------------------------------------===*)


exception Error of string

external register_exns : exn -> unit = "llvm_register_bitreader_exns"
let _ = register_exns (Error "")

external get_module_provider : Llvm.llmemorybuffer -> Llvm.llmoduleprovider
                             = "llvm_get_module_provider"
external parse_bitcode : Llvm.llmemorybuffer -> Llvm.llmodule
                       = "llvm_parse_bitcode"
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.`
			`*`
			`===----------------------------------------------------------------------===)`


Adding bindings for memory buffers and module providers. Switching to exceptions rather than variants for error handling in Ocaml. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45226 91177308-0d34-0410-b5e6-96231b3b80d8 2007-12-19 22:30:40 +00:00			`exception Error of string`
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
Adding bindings for memory buffers and module providers. Switching to exceptions rather than variants for error handling in Ocaml. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45226 91177308-0d34-0410-b5e6-96231b3b80d8 2007-12-19 22:30:40 +00:00			`external register_exns : exn -> unit = "llvm_register_bitreader_exns"`
			`let _ = register_exns (Error "")`
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
Adding bindings for memory buffers and module providers. Switching to exceptions rather than variants for error handling in Ocaml. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45226 91177308-0d34-0410-b5e6-96231b3b80d8 2007-12-19 22:30:40 +00:00			`external get_module_provider : Llvm.llmemorybuffer -> Llvm.llmoduleprovider`
			`= "llvm_get_module_provider"`
			`external parse_bitcode : Llvm.llmemorybuffer -> Llvm.llmodule`
			`= "llvm_parse_bitcode"`