Posted to tcl by miguel at Wed Mar 05 14:44:10 GMT 2008view raw
- int
- TclObjInterpProcCore(
- register Tcl_Interp *interp,/* Interpreter in which procedure was
- * invoked. */
- Tcl_Obj *procNameObj, /* Procedure name for error reporting. */
- int skip, /* Number of initial arguments to be skipped,
- * i.e., words in the "command name". */
- ProcErrorProc errorProc) /* How to convert results from the script into
- * results of the overall procedure. */
- {
- /*
- * Only provided for old-style extensions that hook in here!
- */
- Interp *iPtr = (Interp *) interp;
- TEOV_record *recordPtr;
- int result;
- PUSH_RECORD(iPtr, recordPtr);
- fprintf(stderr, "*** recordPtr=%p\n", recordPtr);
- result = TclNRInterpProcCore(interp, procNameObj, skip, errorProc);
- if (result == TCL_OK) {
- result = TclExecuteByteCode(interp, recordPtr->data.codePtr);
- }
- result = TclEvalObjv_NR2(interp, result, recordPtr->nextPtr);
- return result;
- }