diff options
author | dgp <dgp@noemail.net> | 2002-01-25 20:40:54 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-01-25 20:40:54 (GMT) |
commit | 153a2262c8103be50550bcebaa3e905212e69f76 (patch) | |
tree | 90cd60706107518bc582921a1eb262224b8dac22 /generic/tclInt.decls | |
parent | 4a6a6ae527bb309fc36d5f478e89f0c5d14480dc (diff) | |
download | tcl-153a2262c8103be50550bcebaa3e905212e69f76.zip tcl-153a2262c8103be50550bcebaa3e905212e69f76.tar.gz tcl-153a2262c8103be50550bcebaa3e905212e69f76.tar.bz2 |
* Updated interfaces of generic/tclEncoding, generic/tclFilename.c,
generic/tclIOUtil.c, generic/tclPipe.c, generic/tclResult.c,
generic/tclUtil.c, generic/tclVar.c and mac/tclMacResource.c according
to TIP 27. Tcl_TranslateFileName rewritten as wrapper around
VFS-aware version. Updated callers.
***POTENTIAL INCOMPATIBILITY***
Includes source incompatibilities: argv arguments of Tcl_Concat,
Tcl_JoinPath, Tcl_OpenCommandChannel, Tcl_Merge; argvPtr arguments of
Tcl_SplitList and Tcl_SplitPath.
FossilOrigin-Name: fceed15544ad472b748cdf463c3b4005e83b5e8f
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index f3cb1d9..e8613f2 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.42 2002/01/17 03:03:12 dgp Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.43 2002/01/25 20:40:55 dgp Exp $ library tcl @@ -60,7 +60,7 @@ declare 8 generic { # TclCreatePipeline unofficially exported for use by BLT. declare 9 {unix win} { - int TclCreatePipeline(Tcl_Interp *interp, int argc, char **argv, \ + int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv, \ Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, \ TclFile *errFilePtr) } @@ -530,7 +530,7 @@ declare 135 generic { # int TclpChdir(CONST char *dirName) #} declare 138 generic { - char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) + CONST char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) } #declare 139 generic { # int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \ @@ -542,7 +542,7 @@ declare 140 generic { } # This is used by TclX, but should otherwise be considered private declare 141 generic { - char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr) + CONST char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr) } declare 142 generic { int TclSetByteCodeFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr, \ @@ -841,7 +841,7 @@ declare 14 win { int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) } declare 15 win { - int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ + int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv, \ TclFile inputFile, TclFile outputFile, TclFile errorFile, \ Tcl_Pid *pidPtr) } @@ -909,7 +909,7 @@ declare 3 unix { int TclpCreatePipe(TclFile *readPipe, TclFile *writePipe) } declare 4 unix { - int TclpCreateProcess(Tcl_Interp *interp, int argc, char **argv, \ + int TclpCreateProcess(Tcl_Interp *interp, int argc, CONST char **argv, \ TclFile inputFile, TclFile outputFile, TclFile errorFile, \ Tcl_Pid *pidPtr) } |