Add SWIG bindings for the guile interpreter

[frida/frida.git] / src / bindings / guile / frida.i

diff --git a/src/bindings/guile/frida.i b/src/bindings/guile/frida.i
new file mode 100644 (file)
index 0000000..03069b9
--- /dev/null
+++ b/src/bindings/guile/frida.i
@@ -0,0 +1,34 @@
+%module frida
+
+%rename("%(utitle)s") "";
+
+%include <cpointer.i>
+%include <stdint.i>
+%include <std_string.i>
+%include <std_map.i>
+
+%{
+#include "core/Function.hxx"
+#include "core/BasicBlock.hxx"
+#include "core/InformationManager.hxx"
+#include "disassembler/Disassembler.hxx"
+
+       extern InformationManager* current_information_manager;
+%}
+
+namespace std {
+       %template(map_uint64t_BasicBlock) map<unsigned long long, BasicBlock*>;
+}
+
+%inline %{
+       BasicBlock* deref(BasicBlock** x) {
+       return *x;
+    }
+%}
+
+%include "core/Function.hxx"
+%include "core/BasicBlock.hxx"
+%include "core/InformationManager.hxx"
+%include "disassembler/Disassembler.hxx"
+
+extern InformationManager* current_information_manager;