+++ /dev/null
-#include <iostream>
-#include <string>
-#include "preprocess.hh"
-
-extern "C" {
-#include <caml/memory.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-}
-
-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);
-}