Posted to tcl by suchenwi at Wed Oct 03 18:09:11 GMT 2007view raw
- critcl::cproc myincr {Tcl_Interp* interp char* varname} int {
- Tcl_Obj* var = Tcl_GetVar(interp,varname, 0);
- int i, rc;
- if(var == NULL) return -1;
- if(Tcl_IsShared(var)) {
- var = Tcl_DuplicateObj(var);
- Tcl_IncrRefCount(var);
- }
- rc = Tcl_GetIntFromObj(interp, var, &i);
- Tcl_SetIntObj(var, i+1);
- return i+1;
- }
- set foo 42
- #myincr foo
- puts foo:$foo