unsigned int getVarIndex(const char *varName) { for(unsigned int i=0;i<getNumVars();i++) { if(strcmp(getVarName(i), varName)==0) { return i; } } cout << "Var name: " << varName << " not found" << endl; throw std::runtime_error("Var name does not exist"); }
value caml_getNumVars(value e) { CAMLparam1(e); CAMLreturn(alloc_Expr(getNumVars(Expr_val(e)))); }