Posted to tcl by lmcvoy at Mon Nov 05 21:34:33 GMT 2007view raw
- if (i++ < 1000000) {
- Tcl_Obj *objPtr = Tcl_NewObj();
- Tcl_SetStringObj(objPtr, "123456789012345678901234567", 27);
- Tcl_ObjSetVar2(interp, objv[2], NULL, objPtr, 0);
- Tcl_SetObjResult(interp, Tcl_NewIntObj(27));
- } else {
- Tcl_SetObjResult(interp, Tcl_NewIntObj(-1));
- }