From 5c83f4e1b489689ab2a85a8d2388318869869021 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Th=C3=A9ophile=20Bastian?= <contact@tobast.fr>
Date: Fri, 27 Sep 2019 16:45:08 +0200
Subject: [PATCH] Add main function `acquire_asm` in Asm_acquire

---
 src/asm_acquire.ml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/asm_acquire.ml b/src/asm_acquire.ml
index ac0fa24..1b236c2 100644
--- a/src/asm_acquire.ml
+++ b/src/asm_acquire.ml
@@ -272,3 +272,9 @@ let interpret_objdump objdump_out : asm_info_t =
   (match result with
    | ObjdumpAccu(result, _, None, []) -> result
    | _ -> raise (ParseError "Invalid end state"))
+
+
+(** Extract asm infos from an ELF file path *)
+let acquire_asm elf_path =
+  get_objdump elf_path
+  |> interpret_objdump