Posted to tcl by gps at Sun Apr 19 04:46:29 GMT 2009view raw
- static int
- invoke_traces (Tcl_Interp *interp, struct objstructure_element *elem) {
- struct objstructure *s = elem->parent;
- struct objstructure_trace *traces;
- int r = TCL_OK;
- s->rc += 1;
- elem->rc += 1;
- traces = elem->traces;
- while (traces) {
- r = Tcl_EvalObjEx (interp, traces->callback, TCL_EVAL_GLOBAL);
- if (TCL_ERROR == r)
- break;
- traces = traces->next;
- }
- elem->rc -= 1;
- s->rc -= 1;
- return r;
- }