X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=base%2Fchiark-tcl.h;h=875b23911402d6e6e72edf8b50b83190764971d2;hb=b92528a0a95714d8b738e619de5a1d80f2fbd413;hp=b49301f02a935950b0c9a17c725ce395dde0671e;hpb=9b2c18cc9d122b45f9e737864921d32baa599f0c;p=chiark-tcl.git diff --git a/base/chiark-tcl.h b/base/chiark-tcl.h index b49301f..875b239 100644 --- a/base/chiark-tcl.h +++ b/base/chiark-tcl.h @@ -202,11 +202,13 @@ void sockaddr_free(const SockAddr_Value*); typedef struct { /* semi-opaque - read only, and then only where commented */ Tcl_Interp *ip; /* valid, non-0 and useable if set */ Tcl_Obj *obj; /* non-0 iff set (but only test for 0/non-0) */ + Tcl_Obj *xargs; int llength; } ScriptToInvoke; void scriptinv_init(ScriptToInvoke *si); -int scriptinv_set(ScriptToInvoke *si, Tcl_Interp *ip, Tcl_Obj *newscript); +int scriptinv_set(ScriptToInvoke *si, Tcl_Interp *ip, + Tcl_Obj *newscript, Tcl_Obj *xargs); void scriptinv_cancel(ScriptToInvoke *si); /* then don't invoke */ /* no separate free function - just cancel */