void Itcl_PreserveVar( Tcl_Var var) { Var *varPtr = (Var *)var; VarHashRefCount(varPtr)++; }
void Itcl_ReleaseVar( Tcl_Var var) { Var *varPtr = (Var *)var; VarHashRefCount(varPtr)--; TclCleanupVar(varPtr, NULL); }
Tcl_Var Tcl_NewNamespaceVar( Tcl_Interp *interp, Tcl_Namespace *nsPtr, const char *varName) { Var *varPtr = NULL; int new; if ((nsPtr == NULL) || (varName == NULL)) { return NULL; } varPtr = TclVarHashCreateVar(&((Namespace *)nsPtr)->varTable, varName, &new); TclSetVarNamespaceVar(varPtr); VarHashRefCount(varPtr)++; return (Tcl_Var)varPtr; }