diff options
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 182fd75..1ca3a1b 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -13,7 +13,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.121.2.3 2010/01/31 23:51:36 nijtmans Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.121.2.4 2010/02/07 22:16:54 nijtmans Exp $ library tcl @@ -43,7 +43,7 @@ declare 3 generic { # declare 4 generic { # int TclChdir(Tcl_Interp *interp, char *dirName) # } -declare 5 {unix win} { +declare 5 generic { int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, Tcl_Channel errorChan) } @@ -60,7 +60,7 @@ declare 8 generic { # TclCreatePipeline unofficially exported for use by BLT. -declare 9 {unix win} { +declare 9 generic { int TclCreatePipeline(Tcl_Interp *interp, int argc, CONST char **argv, Tcl_Pid **pidArrayPtr, TclFile *inPipePtr, TclFile *outPipePtr, TclFile *errFilePtr) @@ -420,7 +420,7 @@ declare 103 generic { int TclSockGetPort(Tcl_Interp *interp, CONST char *str, CONST char *proto, int *portPtr) } -declare 104 {unix win} { +declare 104 generic { int TclSockMinimumBuffers(int sock, int size) } # Replaced by Tcl_FSStat in 8.4: @@ -801,7 +801,7 @@ declare 183 generic { # #declare 197 generic { # int TclCompEvalObj(Tcl_Interp *interp, Tcl_Obj *objPtr, -# CONST CmdFrame* invoker, int word) +# CONST CmdFrame *invoker, int word) #} declare 198 generic { int TclObjGetFrame(Tcl_Interp *interp, Tcl_Obj *objPtr, @@ -845,25 +845,25 @@ declare 208 generic { } # Made public by TIP 258 #declare 209 generic { -# Tcl_Obj * TclGetEncodingSearchPath(void) +# Tcl_Obj *TclGetEncodingSearchPath(void) #} #declare 210 generic { # int TclSetEncodingSearchPath(Tcl_Obj *searchPath) #} #declare 211 generic { -# CONST char * TclpGetEncodingNameFromEnvironment(Tcl_DString *bufPtr) +# CONST char *TclpGetEncodingNameFromEnvironment(Tcl_DString *bufPtr) #} declare 212 generic { void TclpFindExecutable(CONST char *argv0) } declare 213 generic { - Tcl_Obj * TclGetObjNameOfExecutable(void) + Tcl_Obj *TclGetObjNameOfExecutable(void) } declare 214 generic { void TclSetObjNameOfExecutable(Tcl_Obj *name, Tcl_Encoding encoding) } declare 215 generic { - void * TclStackAlloc(Tcl_Interp *interp, int numBytes) + void *TclStackAlloc(Tcl_Interp *interp, int numBytes) } declare 216 generic { void TclStackFree(Tcl_Interp *interp, void *freePtr) @@ -914,7 +914,7 @@ declare 231 generic { # Bits and pieces of TIP#280's guts declare 232 generic { int TclEvalObjEx(Tcl_Interp *interp, Tcl_Obj *objPtr, int flags, - const CmdFrame *invoker, int word) + CONST CmdFrame *invoker, int word) } declare 233 generic { void TclGetSrcInfoForPc(CmdFrame *contextPtr) @@ -922,7 +922,7 @@ declare 233 generic { # Exports for VarReform compat: Itcl, XOTcl like to peek into our varTables :( declare 234 generic { - Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, const char *key, + Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, CONST char *key, int *newPtr) } declare 235 generic { @@ -940,6 +940,7 @@ declare 243 generic { void TclDbDumpActiveObjects(FILE *outFile) } + ############################################################################## # Define the platform specific internal Tcl interface. These functions are |