: $Id: pointer.inc,v 1.2 2003/02/12 22:29:39 billl Exp $
TITLE provide pointer to an object
COMMENT
use with strobj.obj(PP.ptr) to get object access
ENDCOMMENT
NEURON {
RANGE p
}
ASSIGNED {
p
}
PROCEDURE setptr() {
VERBATIM
{ extern Object** hoc_objgetarg();
p = (double)(unsigned long)*hoc_objgetarg(1);
}
ENDVERBATIM
}
|