* generic/tcl.decls: Added Mac specific declarations.

* generic/tclStubs.c:
* generic/tclStubInit.c: Added undefs for all of the TCL_MEM_DEBUG
macros to avoid conflicts with the stub names.

* generic/tclStubInit.c:
* generic/tclInt.h:
* generic/tclInt.decls: Moved some declarations out of the generic
and into the platform specific sections.  Added missing
declarations and Mac specific declarations.

* generic/tclInt.h:
* generic/tclDate.c:
* generic/tclClock.c: Created a new opaque TclpTime_t type so
generic functions that depend on the format of time_t can appear
in the generic header files.

* generic/tclStubInit.c:
* generic/tclPanic.c:
* generic/tcl.h:
* generic/tcl.decls: renamed Tcl_Panic back to panic to avoid
incompatibilities in a patch release.

1 files changed, 204 insertions, 134 deletions

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 2737f9c..4bef701 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -8,13 +8,31 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubInit.c,v 1.1 1999/03/03 00:38:43 stanton Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.2 1999/03/04 01:01:59 stanton Exp $
  */
 
 #include "tclInt.h"
 #include "tclPort.h"
 
 /*
+ * Remove macros that will interfere with the definitions below.
+ */
+
+#undef Tcl_Alloc
+#undef Tcl_Free
+#undef Tcl_Realloc
+#undef Tcl_NewBooleanObj
+#undef Tcl_NewByteArrayObj
+#undef Tcl_NewDoubleObj
+#undef Tcl_NewIntObj
+#undef Tcl_NewListObj
+#undef Tcl_NewLongObj
+#undef Tcl_NewObj
+#undef Tcl_NewStringObj
+#undef Tcl_DumpActiveMemory
+#undef Tcl_ValidateAllMemory
+
+/*
  * WARNING: The contents of this file is automatically generated by the
  * tools/genStubs.tcl script. Any modifications to the function declarations
  * below should be made in the generic/tcl.decls script.
@@ -212,8 +230,8 @@ TclStubs tclStubs = {
     Tcl_OpenFileChannel, /* 182 */
     Tcl_OpenTcpClient, /* 183 */
     Tcl_OpenTcpServer, /* 184 */
-    Tcl_Panic, /* 185 */
-    Tcl_PanicVA, /* 186 */
+    panic, /* 185 */
+    panicVA, /* 186 */
     Tcl_ParseVar, /* 187 */
     Tcl_PkgPresent, /* 188 */
     Tcl_PkgPresentEx, /* 189 */
@@ -338,132 +356,127 @@ TclIntStubs tclIntStubs = {
     TclFindProc, /* 26 */
     TclFormatInt, /* 27 */
     TclFreePackageInfo, /* 28 */
-    TclGetAndDetachPids, /* 29 */
-    TclGetCwd, /* 30 */
-    TclGetDate, /* 31 */
-    TclGetDefaultStdChannel, /* 32 */
-    TclGetElementOfIndexedArray, /* 33 */
-    TclGetEnv, /* 34 */
-    TclGetExtension, /* 35 */
-    TclGetFrame, /* 36 */
-    TclGetInterpProc, /* 37 */
-    TclGetIntForIndex, /* 38 */
-    TclGetIndexedScalar, /* 39 */
-    TclGetLong, /* 40 */
-    TclGetLoadedPackages, /* 41 */
-    TclGetNamespaceForQualName, /* 42 */
-    TclGetObjInterpProc, /* 43 */
-    TclGetOpenMode, /* 44 */
-    TclGetOriginalCommand, /* 45 */
-    TclpGetUserHome, /* 46 */
-    TclGlobalInvoke, /* 47 */
-    TclGuessPackageName, /* 48 */
-    TclHasSockets, /* 49 */
-    TclHideUnsafeCommands, /* 50 */
-    TclInExit, /* 51 */
-    TclIncrElementOfIndexedArray, /* 52 */
-    TclIncrIndexedScalar, /* 53 */
-    TclIncrVar2, /* 54 */
-    TclInitCompiledLocals, /* 55 */
-    TclInitNamespaces, /* 56 */
-    TclInterpInit, /* 57 */
-    TclInvoke, /* 58 */
-    TclInvokeObjectCommand, /* 59 */
-    TclInvokeStringCommand, /* 60 */
-    TclIsProc, /* 61 */
-    TclLoadFile, /* 62 */
-    TclLooksLikeInt, /* 63 */
-    TclLookupVar, /* 64 */
-    TclMatchFiles, /* 65 */
-    TclNeedSpace, /* 66 */
-    TclNewProcBodyObj, /* 67 */
-    TclObjCommandComplete, /* 68 */
-    TclObjInterpProc, /* 69 */
-    TclObjInvoke, /* 70 */
-    TclObjInvokeGlobal, /* 71 */
-    TclOpenFileChannelDeleteProc, /* 72 */
-    TclOpenFileChannelInsertProc, /* 73 */
-    TclpAlloc, /* 74 */
-    TclpCloseFile, /* 75 */
-    TclpCopyFile, /* 76 */
-    TclpCopyDirectory, /* 77 */
-    TclpCreateCommandChannel, /* 78 */
-    TclpCreateDirectory, /* 79 */
-    TclpCreatePipe, /* 80 */
-    TclpCreateProcess, /* 81 */
-    TclpCreateTempFile, /* 82 */
-    TclpDeleteFile, /* 83 */
-    TclpFinalize, /* 84 */
-    TclpFree, /* 85 */
-    TclpGetClicks, /* 86 */
-    TclpGetSeconds, /* 87 */
-    TclpGetTime, /* 88 */
-    TclpGetTimeZone, /* 89 */
-    TclpGetTZName, /* 90 */
-    TclpListVolumes, /* 91 */
-    TclpMakeFile, /* 92 */
-    TclpOpenFile, /* 93 */
-    TclpOpenFileChannel, /* 94 */
-    TclpRealloc, /* 95 */
-    TclpRemoveDirectory, /* 96 */
-    TclpRenameFile, /* 97 */
-    TclParseBraces, /* 98 */
-    TclParseNestedCmd, /* 99 */
-    TclParseQuotes, /* 100 */
-    TclPlatformInit, /* 101 */
-    TclPrecTraceProc, /* 102 */
-    TclPreventAliasLoop, /* 103 */
-    TclPrintByteCodeObj, /* 104 */
-    TclProcCleanupProc, /* 105 */
-    TclProcCompileProc, /* 106 */
-    TclProcDeleteProc, /* 107 */
-    TclProcInterpProc, /* 108 */
-    TclRenameCommand, /* 109 */
-    TclResetShadowedCmdRefs, /* 110 */
-    TclServiceIdle, /* 111 */
-    TclSetElementOfIndexedArray, /* 112 */
-    TclSetIndexedScalar, /* 113 */
-    TclSetPreInitScript, /* 114 */
-    TclSetupEnv, /* 115 */
-    TclSockGetPort, /* 116 */
-    TclSockMinimumBuffers, /* 117 */
-    TclStat, /* 118 */
-    TclStatDeleteProc, /* 119 */
-    TclStatInsertProc, /* 120 */
-    TclTeardownNamespace, /* 121 */
-    TclUpdateReturnInfo, /* 122 */
-    TclWordEnd, /* 123 */
-    Tcl_AddInterpResolvers, /* 124 */
-    Tcl_AppendExportList, /* 125 */
-    Tcl_CreateNamespace, /* 126 */
-    Tcl_DeleteNamespace, /* 127 */
-    Tcl_Export, /* 128 */
-    Tcl_FindCommand, /* 129 */
-    Tcl_FindNamespace, /* 130 */
-    Tcl_GetInterpResolvers, /* 131 */
-    Tcl_GetNamespaceResolvers, /* 132 */
-    Tcl_FindNamespaceVar, /* 133 */
-    Tcl_ForgetImport, /* 134 */
-    Tcl_GetCommandFromObj, /* 135 */
-    Tcl_GetCommandFullName, /* 136 */
-    Tcl_GetCurrentNamespace, /* 137 */
-    Tcl_GetGlobalNamespace, /* 138 */
-    Tcl_GetVariableFullName, /* 139 */
-    Tcl_Import, /* 140 */
-    Tcl_PopCallFrame, /* 141 */
-    Tcl_PushCallFrame, /* 142 */
-    Tcl_RemoveInterpResolvers, /* 143 */
-    Tcl_SetNamespaceResolvers, /* 144 */
-    TclCompileBreakCmd, /* 145 */
-    TclCompileCatchCmd, /* 146 */
-    TclCompileContinueCmd, /* 147 */
-    TclCompileExprCmd, /* 148 */
-    TclCompileForCmd, /* 149 */
-    TclCompileForeachCmd, /* 150 */
-    TclCompileIfCmd, /* 151 */
-    TclCompileIncrCmd, /* 152 */
-    TclCompileSetCmd, /* 153 */
-    TclCompileWhileCmd, /* 154 */
+    TclGetCwd, /* 29 */
+    TclGetDate, /* 30 */
+    TclGetDefaultStdChannel, /* 31 */
+    TclGetElementOfIndexedArray, /* 32 */
+    TclGetEnv, /* 33 */
+    TclGetExtension, /* 34 */
+    TclGetFrame, /* 35 */
+    TclGetInterpProc, /* 36 */
+    TclGetIntForIndex, /* 37 */
+    TclGetIndexedScalar, /* 38 */
+    TclGetLong, /* 39 */
+    TclGetLoadedPackages, /* 40 */
+    TclGetNamespaceForQualName, /* 41 */
+    TclGetObjInterpProc, /* 42 */
+    TclGetOpenMode, /* 43 */
+    TclGetOriginalCommand, /* 44 */
+    TclGetUserHome, /* 45 */
+    TclGlobalInvoke, /* 46 */
+    TclGuessPackageName, /* 47 */
+    TclHideUnsafeCommands, /* 48 */
+    TclInExit, /* 49 */
+    TclIncrElementOfIndexedArray, /* 50 */
+    TclIncrIndexedScalar, /* 51 */
+    TclIncrVar2, /* 52 */
+    TclInitCompiledLocals, /* 53 */
+    TclInitNamespaces, /* 54 */
+    TclInterpInit, /* 55 */
+    TclInvoke, /* 56 */
+    TclInvokeObjectCommand, /* 57 */
+    TclInvokeStringCommand, /* 58 */
+    TclIsProc, /* 59 */
+    TclLoadFile, /* 60 */
+    TclLooksLikeInt, /* 61 */
+    TclLookupVar, /* 62 */
+    TclMatchFiles, /* 63 */
+    TclNeedSpace, /* 64 */
+    TclNewProcBodyObj, /* 65 */
+    TclObjCommandComplete, /* 66 */
+    TclObjInterpProc, /* 67 */
+    TclObjInvoke, /* 68 */
+    TclObjInvokeGlobal, /* 69 */
+    TclOpenFileChannelDeleteProc, /* 70 */
+    TclOpenFileChannelInsertProc, /* 71 */
+    TclpAccess, /* 72 */
+    TclpAlloc, /* 73 */
+    TclpCopyFile, /* 74 */
+    TclpCopyDirectory, /* 75 */
+    TclpCreateDirectory, /* 76 */
+    TclpDeleteFile, /* 77 */
+    TclpFree, /* 78 */
+    TclpGetClicks, /* 79 */
+    TclpGetSeconds, /* 80 */
+    TclpGetTime, /* 81 */
+    TclpGetTimeZone, /* 82 */
+    TclpListVolumes, /* 83 */
+    TclpOpenFileChannel, /* 84 */
+    TclpRealloc, /* 85 */
+    TclpRemoveDirectory, /* 86 */
+    TclpRenameFile, /* 87 */
+    TclParseBraces, /* 88 */
+    TclParseNestedCmd, /* 89 */
+    TclParseQuotes, /* 90 */
+    TclPlatformInit, /* 91 */
+    TclPrecTraceProc, /* 92 */
+    TclPreventAliasLoop, /* 93 */
+    TclPrintByteCodeObj, /* 94 */
+    TclProcCleanupProc, /* 95 */
+    TclProcCompileProc, /* 96 */
+    TclProcDeleteProc, /* 97 */
+    TclProcInterpProc, /* 98 */
+    TclpStat, /* 99 */
+    TclRenameCommand, /* 100 */
+    TclResetShadowedCmdRefs, /* 101 */
+    TclServiceIdle, /* 102 */
+    TclSetElementOfIndexedArray, /* 103 */
+    TclSetIndexedScalar, /* 104 */
+    TclSetPreInitScript, /* 105 */
+    TclSetupEnv, /* 106 */
+    TclSockGetPort, /* 107 */
+    TclSockMinimumBuffers, /* 108 */
+    TclStat, /* 109 */
+    TclStatDeleteProc, /* 110 */
+    TclStatInsertProc, /* 111 */
+    TclTeardownNamespace, /* 112 */
+    TclUpdateReturnInfo, /* 113 */
+    TclWordEnd, /* 114 */
+    Tcl_AddInterpResolvers, /* 115 */
+    Tcl_AppendExportList, /* 116 */
+    Tcl_CreateNamespace, /* 117 */
+    Tcl_DeleteNamespace, /* 118 */
+    Tcl_Export, /* 119 */
+    Tcl_FindCommand, /* 120 */
+    Tcl_FindNamespace, /* 121 */
+    Tcl_GetInterpResolvers, /* 122 */
+    Tcl_GetNamespaceResolvers, /* 123 */
+    Tcl_FindNamespaceVar, /* 124 */
+    Tcl_ForgetImport, /* 125 */
+    Tcl_GetCommandFromObj, /* 126 */
+    Tcl_GetCommandFullName, /* 127 */
+    Tcl_GetCurrentNamespace, /* 128 */
+    Tcl_GetGlobalNamespace, /* 129 */
+    Tcl_GetVariableFullName, /* 130 */
+    Tcl_Import, /* 131 */
+    Tcl_PopCallFrame, /* 132 */
+    Tcl_PushCallFrame, /* 133 */
+    Tcl_RemoveInterpResolvers, /* 134 */
+    Tcl_SetNamespaceResolvers, /* 135 */
+    TclCompileBreakCmd, /* 136 */
+    TclCompileCatchCmd, /* 137 */
+    TclCompileContinueCmd, /* 138 */
+    TclCompileExprCmd, /* 139 */
+    TclCompileForCmd, /* 140 */
+    TclCompileForeachCmd, /* 141 */
+    TclCompileIfCmd, /* 142 */
+    TclCompileIncrCmd, /* 143 */
+    TclCompileSetCmd, /* 144 */
+    TclCompileWhileCmd, /* 145 */
+    TclHasSockets, /* 146 */
+    TclpGetDate, /* 147 */
+    TclStrftime, /* 148 */
+    TclpCheckStackSpace, /* 149 */
 };
 
 extern TclIntStubs *tclIntStubsPtr = &tclIntStubs;
@@ -480,13 +493,59 @@ TclIntPlatStubs tclIntPlatStubs = {
     TclWinLoadLibrary, /* 5 */
     TclWinNToHS, /* 6 */
     TclWinSetSockOpt, /* 7 */
+    TclpGetPid, /* 8 */
+    TclpFinalize, /* 9 */
+    TclWinGetPlatformId, /* 10 */
+    TclWinInit, /* 11 */
+    TclWinSynchSpawn, /* 12 */
+    TclGetAndDetachPids, /* 13 */
+    TclpCloseFile, /* 14 */
+    TclpCreateCommandChannel, /* 15 */
+    TclpCreatePipe, /* 16 */
+    TclpCreateProcess, /* 17 */
+    TclpCreateTempFile, /* 18 */
+    TclpGetTZName, /* 19 */
+    TclpMakeFile, /* 20 */
+    TclpOpenFile, /* 21 */
 #endif /* __WIN32__ */
+#if !defined(__WIN32__) && !defined(MAC_TCL)
+    TclGetAndDetachPids, /* 0 */
+    TclpCloseFile, /* 1 */
+    TclpCreateCommandChannel, /* 2 */
+    TclpCreatePipe, /* 3 */
+    TclpCreateProcess, /* 4 */
+    TclpCreateTempFile, /* 5 */
+    TclpMakeFile, /* 6 */
+    TclpOpenFile, /* 7 */
+    TclUnixWaitForFile, /* 8 */
+#endif /* UNIX */
 #ifdef MAC_TCL
-    TclpCheckStackSpace, /* 0 */
-    TclpSysAlloc, /* 1 */
-    TclpSysFree, /* 2 */
-    TclpSysRealloc, /* 3 */
-    TclPlatformExit, /* 4 */
+    TclpSysAlloc, /* 0 */
+    TclpSysFree, /* 1 */
+    TclpSysRealloc, /* 2 */
+    TclPlatformExit, /* 3 */
+    FSpGetDefaultDir, /* 4 */
+    FSpSetDefaultDir, /* 5 */
+    FSpFindFolder, /* 6 */
+    GetGlobalMouse, /* 7 */
+    FSpGetDirectoryID, /* 8 */
+    FSpOpenResFileCompat, /* 9 */
+    FSpCreateResFileCompat, /* 10 */
+    FSpLocationFromPath, /* 11 */
+    FSpPathFromLocation, /* 12 */
+    TclMacExitHandler, /* 13 */
+    TclMacInitExitToShell, /* 14 */
+    TclMacInstallExitToShellPatch, /* 15 */
+    TclMacOSErrorToPosixError, /* 16 */
+    TclMacRemoveTimer, /* 17 */
+    TclMacStartTimer, /* 18 */
+    TclMacTimerExpired, /* 19 */
+    TclMacRegisterResourceFork, /* 20 */
+    TclMacUnRegisterResourceFork, /* 21 */
+    TclMacCreateEnv, /* 22 */
+    TclMacFOpenHack, /* 23 */
+    TclMacReadlink, /* 24 */
+    TclMacChmod, /* 25 */
 #endif /* MAC_TCL */
 };
 
@@ -500,6 +559,17 @@ TclPlatStubs tclPlatStubs = {
     Tcl_DeleteFileHandler, /* 1 */
     Tcl_GetOpenFile, /* 2 */
 #endif /* UNIX */
+#ifdef MAC_TCL
+    Tcl_MacSetEventProc, /* 0 */
+    Tcl_MacConvertTextResource, /* 1 */
+    Tcl_MacEvalResource, /* 2 */
+    Tcl_MacFindResource, /* 3 */
+    Tcl_GetOSTypeFromObj, /* 4 */
+    Tcl_SetOSTypeObj, /* 5 */
+    Tcl_NewOSTypeObj, /* 6 */
+    strncasecmp, /* 7 */
+    strcasecmp, /* 8 */
+#endif /* MAC_TCL */
 };
 
 extern TclPlatStubs *tclPlatStubsPtr = &tclPlatStubs;