diff options
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 2b3e805..df732dd 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -531,7 +531,7 @@ Tcl_SeekObjCmd( mode = modeArray[optionIndex]; } - result = Tcl_Seek(chan, offset, mode); + result = Tcl_SeekOld(chan, offset, mode); if (result == Tcl_LongAsWide(-1)) { /* * TIP #219. @@ -592,7 +592,7 @@ Tcl_TellObjCmd( return TCL_ERROR; } - newLoc = Tcl_Tell(chan); + newLoc = Tcl_TellOld(chan); /* * TIP #219. @@ -957,7 +957,7 @@ Tcl_ExecObjCmd( resultPtr = Tcl_NewObj(); if (Tcl_GetChannelHandle(chan, TCL_READABLE, NULL) == TCL_OK) { - if (Tcl_ReadChars(chan, resultPtr, -1, 0) < 0) { + if (Tcl_ReadChars(chan, resultPtr, TCL_NOSIZE, 0) < 0) { /* * TIP #219. * Capture error messages put by the driver into the bypass area @@ -1101,7 +1101,7 @@ Tcl_OpenObjCmd( Tcl_Obj *permObj; TclNewLiteralStringObj(permObj, "0o"); - Tcl_AppendToObj(permObj, permString+scanned+1, -1); + Tcl_AppendToObj(permObj, permString+scanned+1, TCL_NOSIZE); code = TclGetIntFromObj(NULL, permObj, &prot); Tcl_DecrRefCount(permObj); } @@ -1164,7 +1164,7 @@ Tcl_OpenObjCmd( return TCL_ERROR; } Tcl_RegisterChannel(interp, chan); - Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetChannelName(chan), -1)); + Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetChannelName(chan), TCL_NOSIZE)); return TCL_OK; } @@ -1470,7 +1470,7 @@ Tcl_SocketObjCmd( case SKT_ASYNC: if (server == 1) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "cannot set -async option for server sockets", -1)); + "cannot set -async option for server sockets", TCL_NOSIZE)); return TCL_ERROR; } async = 1; @@ -1479,7 +1479,7 @@ Tcl_SocketObjCmd( a++; if (a >= objc) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "no argument given for -myaddr option", -1)); + "no argument given for -myaddr option", TCL_NOSIZE)); return TCL_ERROR; } myaddr = TclGetString(objv[a]); @@ -1490,7 +1490,7 @@ Tcl_SocketObjCmd( a++; if (a >= objc) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "no argument given for -myport option", -1)); + "no argument given for -myport option", TCL_NOSIZE)); return TCL_ERROR; } myPortName = TclGetString(objv[a]); @@ -1502,14 +1502,14 @@ Tcl_SocketObjCmd( case SKT_SERVER: if (async == 1) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "cannot set -async option for server sockets", -1)); + "cannot set -async option for server sockets", TCL_NOSIZE)); return TCL_ERROR; } server = 1; a++; if (a >= objc) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "no argument given for -server option", -1)); + "no argument given for -server option", TCL_NOSIZE)); return TCL_ERROR; } script = TclGetString(objv[a]); @@ -1522,7 +1522,7 @@ Tcl_SocketObjCmd( host = myaddr; /* NULL implies INADDR_ANY */ if (myport != 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "option -myport is not valid for servers", -1)); + "option -myport is not valid for servers", TCL_NOSIZE)); return TCL_ERROR; } } else if (a < objc) { @@ -1591,7 +1591,7 @@ Tcl_SocketObjCmd( } Tcl_RegisterChannel(interp, chan); - Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetChannelName(chan), -1)); + Tcl_SetObjResult(interp, Tcl_NewStringObj(Tcl_GetChannelName(chan), TCL_NOSIZE)); return TCL_OK; } @@ -1686,7 +1686,7 @@ Tcl_FcopyObjCmd( } } - return TclCopyChannel(interp, inChan, outChan, toRead, cmdPtr); + return TclCopyChannelOld(interp, inChan, outChan, toRead, cmdPtr); } /* @@ -1799,7 +1799,7 @@ ChanTruncateObjCmd( } if (length < 0) { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "cannot truncate to negative length of file", -1)); + "cannot truncate to negative length of file", TCL_NOSIZE)); return TCL_ERROR; } } else { @@ -1807,7 +1807,7 @@ ChanTruncateObjCmd( * User wants to truncate to the current file position. */ - length = Tcl_Tell(chan); + length = Tcl_TellOld(chan); if (length == Tcl_WideAsLong(-1)) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "could not determine current location in \"%s\": %s", @@ -1869,9 +1869,9 @@ ChanPipeObjCmd( resultPtr = Tcl_NewObj(); Tcl_ListObjAppendElement(NULL, resultPtr, - Tcl_NewStringObj(channelNames[0], -1)); + Tcl_NewStringObj(channelNames[0], TCL_NOSIZE)); Tcl_ListObjAppendElement(NULL, resultPtr, - Tcl_NewStringObj(channelNames[1], -1)); + Tcl_NewStringObj(channelNames[1], TCL_NOSIZE)); Tcl_SetObjResult(interp, resultPtr); return TCL_OK; @@ -1975,8 +1975,8 @@ TclInitChanCmd( * Can assume that reference counts are all incremented. */ - Tcl_DictObjPut(NULL, mapObj, Tcl_NewStringObj(extras[i], -1), - Tcl_NewStringObj(extras[i+1], -1)); + Tcl_DictObjPut(NULL, mapObj, Tcl_NewStringObj(extras[i], TCL_NOSIZE), + Tcl_NewStringObj(extras[i+1], TCL_NOSIZE)); } Tcl_SetEnsembleMappingDict(interp, ensemble, mapObj); return ensemble; |