Adding Ocaml bindings for the bitreader as requested by Sarah
[oota-llvm.git] / bindings / ocaml / bitreader / llvm_bitreader.ml
1 (*===-- llvm_bitreader.ml - LLVM Ocaml Interface ----------------*- C++ -*-===*
2  *
3  *                     The LLVM Compiler Infrastructure
4  *
5  * This file was developed by Gordon Henriksen and is distributed under the
6  * University of Illinois Open Source License. See LICENSE.TXT for details.
7  *
8  *===----------------------------------------------------------------------===*)
9
10
11 type bitreader_result =
12 | Bitreader_success of Llvm.llmodule
13 | Bitreader_failure of string
14
15
16 external read_bitcode_file : string -> bitreader_result
17                            = "llvm_read_bitcode_file"