base/scriptinv.c

   1 /*
   2  */
   3
   4 #include "hbytes.h"
   5
   6 void scriptinv_init(ScriptToInvoke *si) {
   7   si->obj= 0;
   8 }
   9
  10 void scriptinv_cancel(ScriptToInvoke *si) {
  11   if (si->obj) {
  12     Tcl_DecrRefCount(si->obj);
  13     si->obj= 0;
  14   }
  15 }
  16
  17 int scriptinv_set(ScriptToInvoke *si, Tcl_Interp *ip,
  18                   Tcl_Obj *newscript, Tcl_Obj *xargs) {
  19   int rc;
  20
  21   scriptinv_cancel(si);
  22
  23   rc= Tcl_ListObjLength(ip, newscript, &si->llength);  if (rc) return rc;
  24   Tcl_IncrRefCount(newscript);
  25
  26   if (xargs) {
  27     rc= Tcl_ListObjLength(ip, xargs, &si->llength);  if (rc) return rc;
  28     Tcl_IncrRefCount(xargs);
  29   }
  30
  31   si->obj= newscript;
  32   si->xargs= xargs;
  33   si->ip= ip;
  34   return 0;
  35 }
  36
  37 void scriptinv_invoke(ScriptToInvoke *si, int argc, Tcl_Obj **argv) {
  38   Tcl_Obj *invoke=0;
  39   int i, rc;
  40
  41   assert(si->obj);
  42
  43   for (i=0; i<argc; i++) Tcl_IncrRefCount(argv[i]);
  44   invoke= Tcl_DuplicateObj(si->obj);
  45   Tcl_IncrRefCount(invoke);
  46
  47   if (si->xargs) {
  48     rc= Tcl_ListObjAppendList(si->ip, invoke, si->xargs);
  49     if (rc) goto x_rc;
  50   }
  51
  52   rc= Tcl_ListObjReplace(si->ip, invoke,si->llength,0, argc,argv);
  53   for (i=0; i<argc; i++) { Tcl_DecrRefCount(argv[i]); argv[i]= 0; }
  54   if (rc) goto x_rc;
  55
  56   rc= Tcl_EvalObjEx(si->ip,invoke,TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT);
  57   if (rc) goto x_rc;
  58
  59   rc= 0;
  60
  61 x_rc:
  62   if (invoke) Tcl_DecrRefCount(invoke);
  63   if (rc) Tcl_BackgroundError(si->ip);
  64 }