diff options
author | stanton <stanton@noemail.net> | 1999-02-02 22:25:41 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-02-02 22:25:41 (GMT) |
commit | 7bcb4cc5a75f1e736699e55cfc9ad9513b8a3d47 (patch) | |
tree | bbbe67f5c0164ea9ded3dea96830834ba9fc6a9c /generic/tclIOCmd.c | |
parent | 5eb26441d01103b90edc5e0253388cb90512c4b6 (diff) | |
download | tcl-7bcb4cc5a75f1e736699e55cfc9ad9513b8a3d47.zip tcl-7bcb4cc5a75f1e736699e55cfc9ad9513b8a3d47.tar.gz tcl-7bcb4cc5a75f1e736699e55cfc9ad9513b8a3d47.tar.bz2 |
* generic/tclIOCmd.c:
* generic/tclBasic.c: Objectified the "open" command. [Bug: 1113]
FossilOrigin-Name: e780812f2447401a6f0789195bed3a14798499ed
Diffstat (limited to 'generic/tclIOCmd.c')
-rw-r--r-- | generic/tclIOCmd.c | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 1c08d40..b1ed0c8 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOCmd.c,v 1.3 1998/09/14 18:39:59 stanton Exp $ + * RCS: @(#) $Id: tclIOCmd.c,v 1.4 1999/02/02 22:25:42 stanton Exp $ */ #include "tclInt.h" @@ -949,7 +949,7 @@ Tcl_FblockedObjCmd(unused, interp, objc, objv) /* *---------------------------------------------------------------------- * - * Tcl_OpenCmd -- + * Tcl_OpenObjCmd -- * * This procedure is invoked to process the "open" Tcl command. * See the user documentation for details on what it does. @@ -965,35 +965,35 @@ Tcl_FblockedObjCmd(unused, interp, objc, objv) /* ARGSUSED */ int -Tcl_OpenCmd(notUsed, interp, argc, argv) +Tcl_OpenObjCmd(notUsed, interp, argc, objv) ClientData notUsed; /* Not used. */ Tcl_Interp *interp; /* Current interpreter. */ int argc; /* Number of arguments. */ - char **argv; /* Argument strings. */ + Tcl_Obj * CONST objv[]; /* Argument objects. */ { int pipeline, prot; - char *modeString; + char *modeString, *arg1; Tcl_Channel chan; if ((argc < 2) || (argc > 4)) { - Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], - " fileName ?access? ?permissions?\"", (char *) NULL); + Tcl_WrongNumArgs(interp, 1, objv, "fileName ?access? ?permissions?"); return TCL_ERROR; } prot = 0666; if (argc == 2) { modeString = "r"; } else { - modeString = argv[2]; + modeString = Tcl_GetStringFromObj(objv[2], NULL); if (argc == 4) { - if (Tcl_GetInt(interp, argv[3], &prot) != TCL_OK) { + if (Tcl_GetIntFromObj(interp, objv[3], &prot) != TCL_OK) { return TCL_ERROR; } } } + arg1 = Tcl_GetStringFromObj(objv[1], NULL); pipeline = 0; - if (argv[1][0] == '|') { + if (arg1[0] == '|') { pipeline = 1; } @@ -1002,10 +1002,10 @@ Tcl_OpenCmd(notUsed, interp, argc, argv) */ if (!pipeline) { - chan = Tcl_OpenFileChannel(interp, argv[1], modeString, prot); + chan = Tcl_OpenFileChannel(interp, arg1, modeString, prot); } else { #ifdef MAC_TCL - Tcl_AppendResult(interp, + Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "command pipelines not supported on Macintosh OS", (char *)NULL); return TCL_ERROR; @@ -1013,7 +1013,7 @@ Tcl_OpenCmd(notUsed, interp, argc, argv) int mode, seekFlag, cmdArgc; char **cmdArgv; - if (Tcl_SplitList(interp, argv[1]+1, &cmdArgc, &cmdArgv) != TCL_OK) { + if (Tcl_SplitList(interp, arg1+1, &cmdArgc, &cmdArgv) != TCL_OK) { return TCL_ERROR; } @@ -1045,7 +1045,8 @@ Tcl_OpenCmd(notUsed, interp, argc, argv) return TCL_ERROR; } Tcl_RegisterChannel(interp, chan); - Tcl_AppendResult(interp, Tcl_GetChannelName(chan), (char *) NULL); + Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), + Tcl_GetChannelName(chan), (char *) NULL); return TCL_OK; } |