Posted to tcl by miguel at Wed Oct 03 19:15:48 GMT 2007view raw
- 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;
- rc = Tcl_GetIntFromObj(interp, var, &i);
- Tcl_SetVar2Ex(interp, varname, NULL, Tcl_NewIntObj(rc+1), 0);
- return i+1;
- }