//static void init_all(Tcl_Interp );
static int init_all_cmd(
ClientData cd,
Tcl_Interp interp,
int objc,
Tcl_Obj[] objv
)
{
Tcl_Interp slave;
if (objc != 2)
{
TCL.Tcl_WrongNumArgs(interp, 1, objv, "SLAVE");
return(TCL.TCL_ERROR);
}
slave = TCL.Tcl_GetSlave(interp, TCL.Tcl_GetString(objv[1]));
if (slave == null)
{
return(TCL.TCL_ERROR);
}
init_all(slave);
return(TCL.TCL_OK);
}