static void call(Symbol* s, Node* nd, Prop* p) { Section* sec = nd->sec; Object* ob = p->ob; double x = nrn_arc_position(sec, nd); nrn_pushsec(sec); hoc_pushx(x); //printf("hoc_call_objfunc %s ob=%s\n", s->name, hoc_object_name(ob)); hoc_call_objfunc(s, 1, ob); nrn_popsec(); }
double* NrnSection::var_pointer(const char* var) { nrn_pushsec(nsi_->sec_); double* pval = hoc_val_pointer(var); nrn_popsec(); return pval; }