Posted to tcl by suchenwi at Wed Oct 03 19:04:11 GMT 2007view pretty
critcl::cproc myincr {Tcl_Interp* interp char* varname} int { Tcl_Obj* var = Tcl_GetVar2Ex(interp,varname, NULL, 0); int i, rc; if(var == NULL) return -1; if(Tcl_IsShared(var)) { var = Tcl_DuplicateObj(var); } rc = Tcl_GetIntFromObj(interp, var, &i); Tcl_SetIntObj(var, i+1); Tcl_SetVar2Ex(interp, varname, NULL, var, 0); return i+1; }