X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/interpretor/preprocess_stubs.cpp diff --git a/interpretor/preprocess_stubs.cpp b/interpretor/preprocess_stubs.cpp deleted file mode 100644 index baa5094..0000000 --- a/interpretor/preprocess_stubs.cpp +++ /dev/null @@ -1,32 +0,0 @@ -#include -#include -#include "preprocess.hh" - -extern "C" { -#include -#include -#include -} - -using namespace std; - -/* -extern "C" value preProcess_cpp (value v_str){ - CAMLparam1 (v_str); - CAMLlocal1 (ml_s); - char* s; - s = preProcess(String_val(v_str)); - ml_s = caml_copy_string(s); - CAMLreturn (ml_s); -} -*/ - -extern "C" value preProcess_cpp (value v_str){ - CAMLparam1 (v_str); - CAMLlocal1 (ml_s); - string dsp_file = string(String_val(v_str)); - char* dsp_file_c = (char*)dsp_file.c_str(); - char* s = preProcess(dsp_file_c); - ml_s = caml_copy_string(s); - CAMLreturn (ml_s); -}