X-Git-Url: https://scm.cri.minesparis.psl.eu/git/Faustine.git/blobdiff_plain/043c676f59520b93dfacfa0d8d7e1fdd448cd7dc..1878a8448a5a73cbf289306beb5e88ab48561129:/backup/preprocess_stubs.cpp?ds=inline diff --git a/backup/preprocess_stubs.cpp b/backup/preprocess_stubs.cpp deleted file mode 100644 index 8f04b12..0000000 --- a/backup/preprocess_stubs.cpp +++ /dev/null @@ -1,33 +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)); - cout << "Faust program: " << dsp_file << endl; - char* dsp_file_c = (char*)dsp_file.c_str(); - char* s = preProcess(dsp_file_c); - ml_s = caml_copy_string(s); - CAMLreturn (ml_s); -}