summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.decls
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInt.decls')
-rw-r--r--generic/tclInt.decls238
1 files changed, 145 insertions, 93 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 29f755e..b2d1b44 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -10,7 +10,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.4 1999/03/11 00:19:23 stanton Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.5 1999/04/16 00:46:47 stanton Exp $
library tcl
@@ -35,9 +35,10 @@ declare 2 generic {
declare 3 generic {
void TclAllocateFreeObjects(void)
}
-declare 4 generic {
- int TclChdir(Tcl_Interp *interp, char *dirName)
-}
+# Replaced by TclpChdir in 8.1:
+# declare 4 generic {
+# int TclChdir(Tcl_Interp *interp, char *dirName)
+# }
declare 5 generic {
int TclCleanupChildren(Tcl_Interp *interp, int numPids, Tcl_Pid *pidPtr, \
Tcl_Channel errorChan)
@@ -46,7 +47,7 @@ declare 6 generic {
void TclCleanupCommand(Command *cmdPtr)
}
declare 7 generic {
- int TclCopyAndCollapse(int count, char *src, char *dst)
+ int TclCopyAndCollapse(int count, CONST char *src, char *dst)
}
declare 8 generic {
int TclCopyChannel(Tcl_Interp *interp, Tcl_Channel inChan, \
@@ -77,9 +78,10 @@ declare 13 generic {
declare 14 generic {
void TclDumpMemoryInfo(FILE *outFile)
}
-declare 15 generic {
- void TclExpandParseValue(ParseValue *pvPtr, int needed)
-}
+# Removed in 8.1:
+# declare 15 generic {
+# void TclExpandParseValue(ParseValue *pvPtr, int needed)
+# }
declare 16 generic {
void TclExprFloatError(Tcl_Interp *interp, double value)
}
@@ -99,8 +101,9 @@ declare 21 generic {
int TclFileRenameCmd(Tcl_Interp *interp, int argc, char **argv)
}
declare 22 generic {
- int TclFindElement(Tcl_Interp *interp, char *list, int listLength, \
- char **elementPtr, char **nextPtr, int *sizePtr, int *bracePtr)
+ int TclFindElement(Tcl_Interp *interp, CONST char *listStr, \
+ int listLength, CONST char **elementPtr, CONST char **nextPtr, \
+ int *sizePtr, int *bracePtr)
}
declare 23 generic {
Proc * TclFindProc(Interp *iPtr, char *procName)
@@ -111,28 +114,30 @@ declare 24 generic {
declare 25 generic {
void TclFreePackageInfo(Interp *iPtr)
}
-declare 26 generic {
- char * TclGetCwd(Tcl_Interp *interp)
-}
+# Removed in 8.1:
+# declare 26 generic {
+# char * TclGetCwd(Tcl_Interp *interp)
+# }
declare 27 generic {
int TclGetDate(char *p, unsigned long now, long zone, \
unsigned long *timePtr)
}
declare 28 generic {
- Tcl_Channel TclGetDefaultStdChannel(int type)
+ Tcl_Channel TclpGetDefaultStdChannel(int type)
}
declare 29 generic {
Tcl_Obj * TclGetElementOfIndexedArray(Tcl_Interp *interp, \
int localIndex, Tcl_Obj *elemPtr, int leaveErrorMsg)
}
-declare 30 generic {
- char * TclGetEnv(CONST char *name)
-}
+# Replaced by char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr) in 8.1:
+# declare 30 generic {
+# char * TclGetEnv(CONST char *name)
+# }
declare 31 generic {
char * TclGetExtension(char *name)
}
declare 32 generic {
- int TclGetFrame(Tcl_Interp *interp, char *string, CallFrame **framePtrPtr)
+ int TclGetFrame(Tcl_Interp *interp, char *str, CallFrame **framePtrPtr)
}
declare 33 generic {
TclCmdProcType TclGetInterpProc(void)
@@ -146,7 +151,7 @@ declare 35 generic {
int leaveErrorMsg)
}
declare 36 generic {
- int TclGetLong(Tcl_Interp *interp, char *string, long *longPtr)
+ int TclGetLong(Tcl_Interp *interp, char *str, long *longPtr)
}
declare 37 generic {
int TclGetLoadedPackages(Tcl_Interp *interp, char *targetName)
@@ -161,13 +166,13 @@ declare 39 generic {
TclObjCmdProcType TclGetObjInterpProc(void)
}
declare 40 generic {
- int TclGetOpenMode(Tcl_Interp *interp, char *string, int *seekFlagPtr)
+ int TclGetOpenMode(Tcl_Interp *interp, char *str, int *seekFlagPtr)
}
declare 41 generic {
Tcl_Command TclGetOriginalCommand(Tcl_Command command)
}
declare 42 generic {
- char * TclGetUserHome(char *name, Tcl_DString *bufferPtr)
+ char * TclpGetUserHome(CONST char *name, Tcl_DString *bufferPtr)
}
declare 43 generic {
int TclGlobalInvoke(Tcl_Interp *interp, int argc, char **argv, int flags)
@@ -214,21 +219,23 @@ declare 54 generic {
declare 55 generic {
Proc * TclIsProc(Command *cmdPtr)
}
-declare 56 generic {
- int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \
- char *sym2, Tcl_PackageInitProc **proc1Ptr, \
- Tcl_PackageInitProc **proc2Ptr)
-}
-declare 57 generic {
- int TclLooksLikeInt(char *p)
-}
+# Replaced with TclpLoadFile in 8.1:
+# declare 56 generic {
+# int TclLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \
+# char *sym2, Tcl_PackageInitProc **proc1Ptr, \
+# Tcl_PackageInitProc **proc2Ptr)
+# }
+# Signature changed to take a length in 8.1:
+# declare 57 generic {
+# int TclLooksLikeInt(char *p)
+# }
declare 58 generic {
Var * TclLookupVar(Tcl_Interp *interp, char *part1, char *part2, \
int flags, char *msg, int createPart1, int createPart2, \
Var **arrayPtrPtr)
}
declare 59 generic {
- int TclMatchFiles(Tcl_Interp *interp, char *separators, \
+ int TclpMatchFiles(Tcl_Interp *interp, char *separators, \
Tcl_DString *dirPtr, char *pattern, char *tail)
}
declare 60 generic {
@@ -265,16 +272,17 @@ declare 69 generic {
char * TclpAlloc(unsigned int size)
}
declare 70 generic {
- int TclpCopyFile(char *source, char *dest)
+ int TclpCopyFile(CONST char *source, CONST char *dest)
}
declare 71 generic {
- int TclpCopyDirectory(char *source, char *dest, Tcl_DString *errorPtr)
+ int TclpCopyDirectory(CONST char *source, CONST char *dest, \
+ Tcl_DString *errorPtr)
}
declare 72 generic {
- int TclpCreateDirectory(char *path)
+ int TclpCreateDirectory(CONST char *path)
}
declare 73 generic {
- int TclpDeleteFile(char *path)
+ int TclpDeleteFile(CONST char *path)
}
declare 74 generic {
void TclpFree(char *ptr)
@@ -302,26 +310,28 @@ declare 81 generic {
char * TclpRealloc(char *ptr, unsigned int size)
}
declare 82 generic {
- int TclpRemoveDirectory(char *path, int recursive, Tcl_DString *errorPtr)
+ int TclpRemoveDirectory(CONST char *path, int recursive, \
+ Tcl_DString *errorPtr)
}
declare 83 generic {
- int TclpRenameFile(char *source, char *dest)
-}
-declare 84 generic {
- int TclParseBraces(Tcl_Interp *interp, char *string, char **termPtr, \
- ParseValue *pvPtr)
-}
-declare 85 generic {
- int TclParseNestedCmd(Tcl_Interp *interp, char *string, int flags, \
- char **termPtr, ParseValue *pvPtr)
-}
-declare 86 generic {
- int TclParseQuotes(Tcl_Interp *interp, char *string, int termChar, \
- int flags, char **termPtr, ParseValue *pvPtr)
-}
-declare 87 generic {
- void TclPlatformInit(Tcl_Interp *interp)
-}
+ int TclpRenameFile(CONST char *source, CONST char *dest)
+}
+# Removed in 8.1:
+# declare 84 generic {
+# int TclParseBraces(Tcl_Interp *interp, char *str, char **termPtr, \
+# ParseValue *pvPtr)
+# }
+# declare 85 generic {
+# int TclParseNestedCmd(Tcl_Interp *interp, char *str, int flags, \
+# char **termPtr, ParseValue *pvPtr)
+# }
+# declare 86 generic {
+# int TclParseQuotes(Tcl_Interp *interp, char *str, int termChar, \
+# int flags, char **termPtr, ParseValue *pvPtr)
+# }
+# declare 87 generic {
+# void TclPlatformInit(Tcl_Interp *interp)
+# }
declare 88 generic {
char * TclPrecTraceProc(ClientData clientData, Tcl_Interp *interp, \
char *name1, char *name2, int flags)
@@ -330,9 +340,10 @@ declare 89 generic {
int TclPreventAliasLoop(Tcl_Interp *interp, Tcl_Interp *cmdInterp, \
Tcl_Command cmd)
}
-declare 90 generic {
- void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
-}
+# Removed in 8.1 (only available if compiled with TCL_COMPILE_DEBUG):
+# declare 90 generic {
+# void TclPrintByteCodeObj(Tcl_Interp *interp, Tcl_Obj *objPtr)
+# }
declare 91 generic {
void TclProcCleanupProc(Proc *procPtr)
}
@@ -368,14 +379,15 @@ declare 100 generic {
Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, \
Tcl_Obj *objPtr, int leaveErrorMsg)
}
-declare 101 generic {
- char * TclSetPreInitScript(char *string)
-}
+# TODO: needs to be implemented
+# declare 101 generic {
+# char * TclSetPreInitScript(char *string)
+# }
declare 102 generic {
void TclSetupEnv(Tcl_Interp *interp)
}
declare 103 generic {
- int TclSockGetPort(Tcl_Interp *interp, char *string, char *proto, \
+ int TclSockGetPort(Tcl_Interp *interp, char *str, char *proto, \
int *portPtr)
}
declare 104 generic {
@@ -396,9 +408,10 @@ declare 108 generic {
declare 109 generic {
int TclUpdateReturnInfo(Interp *iPtr)
}
-declare 110 generic {
- char * TclWordEnd(char *start, char *lastChar, int nested, int *semiPtr)
-}
+# Removed in 8.1:
+# declare 110 generic {
+# char * TclWordEnd(char *start, char *lastChar, int nested, int *semiPtr)
+# }
# Procedures used in conjunction with Tcl namespaces. They are
# defined here instead of in tcl.decls since they are not stable yet.
@@ -484,19 +497,39 @@ declare 131 generic {
Tcl_ResolveCompiledVarProc *compiledVarProc)
}
declare 132 generic {
- int TclHasSockets(Tcl_Interp *interp)
+ int TclpHasSockets(Tcl_Interp *interp)
}
declare 133 generic {
struct tm * TclpGetDate(TclpTime_t time, int useGMT)
}
declare 134 generic {
- size_t TclStrftime(char *s, size_t maxsize, const char *format, \
- const struct tm *t)
+ size_t TclpStrftime(char *s, size_t maxsize, CONST char *format, \
+ CONST struct tm *t)
}
declare 135 generic {
int TclpCheckStackSpace(void)
}
+# Added in 8.1:
+
+declare 137 generic {
+ int TclpChdir(CONST char *dirName)
+}
+declare 138 generic {
+ char * TclGetEnv(CONST char *name, Tcl_DString *valuePtr)
+}
+declare 139 generic {
+ int TclpLoadFile(Tcl_Interp *interp, char *fileName, char *sym1, \
+ char *sym2, Tcl_PackageInitProc **proc1Ptr, \
+ Tcl_PackageInitProc **proc2Ptr, ClientData *clientDataPtr)
+}
+declare 140 generic {
+ int TclLooksLikeInt(char *bytes, int length)
+}
+
+declare 141 generic {
+ char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr)
+}
##############################################################################
# Define the platform specific internal Tcl interface. These functions are
@@ -517,7 +550,7 @@ declare 2 mac {
VOID * TclpSysRealloc(VOID *cp, unsigned int size)
}
declare 3 mac {
- void TclPlatformExit(int status)
+ void TclpExit(int status)
}
# Prototypes for functions found in the tclMacUtil.c compatability library.
@@ -541,15 +574,15 @@ declare 7 mac {
# however. The first set are from the MoreFiles package.
declare 8 mac {
- pascal OSErr FSpGetDirectoryID(const FSSpec *spec, long *theDirID, \
+ pascal OSErr FSpGetDirectoryID(CONST FSSpec *spec, long *theDirID, \
Boolean *isDirectory)
}
declare 9 mac {
- pascal short FSpOpenResFileCompat(const FSSpec *spec, \
+ pascal short FSpOpenResFileCompat(CONST FSSpec *spec, \
SignedByte permission)
}
declare 10 mac {
- pascal void FSpCreateResFileCompat(const FSSpec *spec, OSType creator, \
+ pascal void FSpCreateResFileCompat(CONST FSSpec *spec, OSType creator, \
OSType fileType, ScriptCode scriptTag)
}
@@ -598,16 +631,16 @@ declare 22 mac {
int TclMacCreateEnv(void)
}
declare 23 mac {
- FILE * TclMacFOpenHack(const char *path, const char *mode)
-}
-declare 24 mac {
- int TclMacReadlink(char *path, char *buf, int size)
+ FILE * TclMacFOpenHack(CONST char *path, CONST char *mode)
}
+# Replaced in 8.1 by TclpReadLink:
+# declare 24 mac {
+# int TclMacReadlink(char *path, char *buf, int size)
+# }
declare 25 mac {
int TclMacChmod(char *path, int mode)
}
-
############################
# Windows specific internals
@@ -618,8 +651,8 @@ declare 1 win {
void TclWinConvertWSAError(DWORD errCode)
}
declare 2 win {
- struct servent * TclWinGetServByName(const char *nm, \
- const char *proto)
+ struct servent * TclWinGetServByName(CONST char *nm, \
+ CONST char *proto)
}
declare 3 win {
int TclWinGetSockOpt(SOCKET s, int level, int optname, \
@@ -628,15 +661,16 @@ declare 3 win {
declare 4 win {
HINSTANCE TclWinGetTclInstance(void)
}
-declare 5 win {
- HINSTANCE TclWinLoadLibrary(char *name)
-}
+# Removed in 8.1:
+# declare 5 win {
+# HINSTANCE TclWinLoadLibrary(char *name)
+# }
declare 6 win {
u_short TclWinNToHS(u_short ns)
}
declare 7 win {
int TclWinSetSockOpt(SOCKET s, int level, int optname, \
- const char FAR * optval, int optlen)
+ CONST char FAR * optval, int optlen)
}
declare 8 win {
unsigned long TclpGetPid(Tcl_Pid pid)
@@ -668,18 +702,18 @@ declare 15 win {
TclFile inputFile, TclFile outputFile, TclFile errorFile, \
Tcl_Pid *pidPtr)
}
-declare 16 win {
- TclFile TclpCreateTempFile(char *contents,
- Tcl_DString *namePtr)
-}
-declare 17 win {
- char * TclpGetTZName(void)
-}
+# Signature changed in 8.1:
+# declare 16 win {
+# TclFile TclpCreateTempFile(char *contents, Tcl_DString *namePtr)
+# }
+# declare 17 win {
+# char * TclpGetTZName(void)
+# }
declare 18 win {
TclFile TclpMakeFile(Tcl_Channel channel, int direction)
}
declare 19 win {
- TclFile TclpOpenFile(char *fname, int mode)
+ TclFile TclpOpenFile(CONST char *fname, int mode)
}
declare 20 win {
void TclWinAddProcess(HANDLE hProcess, DWORD id)
@@ -688,6 +722,17 @@ declare 21 win {
void TclpAsyncMark(Tcl_AsyncHandler async)
}
+# Added in 8.1:
+declare 22 win {
+ TclFile TclpCreateTempFile(CONST char *contents)
+}
+declare 23 win {
+ char * TclpGetTZName(int isdst)
+}
+declare 24 win {
+ char * TclWinNoBackslash(char *path)
+}
+
#########################
# Unix specific internals
@@ -711,16 +756,23 @@ declare 4 unix {
TclFile inputFile, TclFile outputFile, TclFile errorFile, \
Tcl_Pid *pidPtr)
}
-declare 5 unix {
- TclFile TclpCreateTempFile(char *contents,
- Tcl_DString *namePtr)
-}
+# Signature changed in 8.1:
+# declare 5 unix {
+# TclFile TclpCreateTempFile(char *contents,
+# Tcl_DString *namePtr)
+# }
declare 6 unix {
TclFile TclpMakeFile(Tcl_Channel channel, int direction)
}
declare 7 unix {
- TclFile TclpOpenFile(char *fname, int mode)
+ TclFile TclpOpenFile(CONST char *fname, int mode)
}
declare 8 unix {
int TclUnixWaitForFile(int fd, int mask, int timeout)
}
+
+# Added in 8.1:
+
+declare 9 unix {
+ TclFile TclpCreateTempFile(CONST char *contents)
+}