Posted to tcl by miguel at Wed Oct 03 19:15:48 GMT 2007view raw

  1. critcl::cproc myincr {Tcl_Interp* interp char* varname} int {
  2. Tcl_Obj* var = Tcl_GetVar2Ex(interp,varname, NULL, 0);
  3. int i, rc;
  4. if(var == NULL) return -1;
  5. rc = Tcl_GetIntFromObj(interp, var, &i);
  6. Tcl_SetVar2Ex(interp, varname, NULL, Tcl_NewIntObj(rc+1), 0);
  7. return i+1;
  8. }