Posted to tcl by miguel at Wed Mar 05 14:45:40 GMT 2008view raw

  1. TclNRInterpProc(
  2. ClientData clientData, /* Record describing procedure to be
  3. * interpreted. */
  4. register Tcl_Interp *interp,/* Interpreter in which procedure was
  5. * invoked. */
  6. int objc, /* Count of number of arguments to this
  7. * procedure. */
  8. Tcl_Obj *CONST objv[]) /* Argument value objects. */
  9. {
  10. int result;
  11.  
  12. result = PushProcCallFrame(clientData, interp, objc, objv, /*isLambda*/ 0);
  13. if (result == TCL_OK) {
  14. return TclNRInterpProcCore(interp, objv[0], 1, &MakeProcError);
  15. } else {
  16. return TCL_ERROR;
  17. }
  18. }