/*
*/
-#include "hbytes.h"
+#include "chiark-tcl-base.h"
-void scriptinv_init(ScriptToInvoke *si) {
+void cht_scriptinv_init(ScriptToInvoke *si) {
si->obj= 0;
si->xargs= 0;
}
-void scriptinv_cancel(ScriptToInvoke *si) {
+void cht_scriptinv_cancel(ScriptToInvoke *si) {
if (si->obj) { Tcl_DecrRefCount(si->obj); si->obj= 0; }
if (si->xargs) { Tcl_DecrRefCount(si->xargs); si->xargs= 0; }
}
-int scriptinv_set(ScriptToInvoke *si, Tcl_Interp *ip,
+int cht_scriptinv_set(ScriptToInvoke *si, Tcl_Interp *ip,
Tcl_Obj *newscript, Tcl_Obj *xargs) {
int rc, xlength;
- scriptinv_cancel(si);
+ cht_scriptinv_cancel(si);
rc= Tcl_ListObjLength(ip, newscript, &si->llength); if (rc) return rc;
Tcl_IncrRefCount(newscript);
return 0;
}
-void scriptinv_invoke(ScriptToInvoke *si, int argc, Tcl_Obj *const *argv) {
+void cht_scriptinv_invoke(ScriptToInvoke *si, int argc, Tcl_Obj *const *argv) {
Tcl_Obj *invoke=0;
int i, rc;