Exemplo n.º 1
0
	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");
	}
Exemplo n.º 2
0
value caml_getNumVars(value e)
{
  CAMLparam1(e);
  CAMLreturn(alloc_Expr(getNumVars(Expr_val(e))));
}