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

(*===-- llvm_bitreader.ml - LLVM Ocaml Interface ----------------*- C++ -*-===*
 *
 *                     The LLVM Compiler Infrastructure
 *
 * This file 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.llcontext -> Llvm.llmemorybuffer ->
                               Llvm.llmoduleprovider
                             = "llvm_get_module_provider"

external parse_bitcode : Llvm.llcontext -> 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`
			`*`
remove attribution from a variety of miscellaneous files. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45425 91177308-0d34-0410-b5e6-96231b3b80d8 2007-12-29 22:59:10 +00:00			`* This file is distributed under the University of Illinois Open Source`
			`* License. See LICENSE.TXT for details.`
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			`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
Allow passing around LLVMContext in ocaml. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@79410 91177308-0d34-0410-b5e6-96231b3b80d8 2009-08-19 06:40:29 +00:00			`external get_module_provider : Llvm.llcontext -> Llvm.llmemorybuffer ->`
			`Llvm.llmoduleprovider`
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			`= "llvm_get_module_provider"`
Allow passing around LLVMContext in ocaml. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@79410 91177308-0d34-0410-b5e6-96231b3b80d8 2009-08-19 06:40:29 +00:00
			`external parse_bitcode : Llvm.llcontext -> Llvm.llmemorybuffer -> Llvm.llmodule`
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			`= "llvm_parse_bitcode"`