* unix/Makefile.in:

* unix/configure.in:
* unix/ldAix: Enhanced AIX shared library support.

* win/tclWinSock.c: Removed a bunch of extraneous PASCAL FAR
attributes from internal functions.

* win/tclWinReg.c: Changed registry package to use stubs mechanism
so it no longer depends on the specific version of Tcl.

* doc/AddErrInfo.3:
* doc/Eval.3:
* doc/PkgRequire.3:
* doc/SetResult.3:
* doc/StringObj.3:
* generic/tcl.h:
* generic/tclBasic.c:
* generic/tclPanic.c:
* generic/tclStringObj.c:
* generic/tclUtil.c:
* unix/mkLinks: Added va_list versions of all VARARGS
functions so they can be invoked from the stub functions.

* doc/package.n:
* doc/PkgRequire.3:
* generic/tclPkg.c: Added Tcl_PkgProvideEx, Tcl_RequireEx,
Tcl_PresentEx, and Tcl_PkgPresent.  Added "package present"
command.

* generic/tclFileName.c:
* mac/tclMacFile.c:
* mac/tclMacShLib.exp:
* unix/tclUnixFile.c:
* win/tclWinFile.c: Changed so TclGetUserHome is defined on
all platforms, even though it is currently a noop on mac and
windows, and renamed it to TclpGetUserHome.

* generic/tclCkalloc.c: Added stub versions of memory checking
functions when compiling without TCL_MEM_DEBUG.

* doc/ByteArrObj.3:
* generic/tcl.h:
* generic/tclBinary.c:
* generic/tclObj.c: Ported the 8.1 ByteArray type back to 8.0.

* generic/tcl.decls:
* generic/tcl.h:
* generic/tclBasic.c:
* generic/tclDecls.h:
* generic/tclInt.decls:
* generic/tclInt.h:
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclIntPlatStubs.c:
* generic/tclIntStubs.c:
* generic/tclPlatDecls.h:
* generic/tclPlatStubs.c:
* generic/tclStubInit.c:
* generic/tclStubLib.c:
* generic/tclStubs.c:
* tools/genStubs.tcl:
* unix/configure.in:
* unix/Makefile.in:
* unix/tclConfig.sh.in:
* win/makefile.vc:
* win/tclWinPort.h: Added Tcl stubs implementation.  There are
now two new macros USE_TCL_STUBS and USE_TCL_STUB_PROCS that
enable use of stubs and disable stub macros respectively.  All of
the public and private function declarations from tcl.h and
tclInt.h have moved into the *.decls files and the *Stubs.c and
*Decls.h files are generated using the genStubs.tcl script.

* generic/tclPanic.c:
* generic/panic.c: renamed panic to Tcl_Panic, added macro for
backwards compatibility, renamed file to tclPanic.c

1 files changed, 159 insertions, 0 deletions

diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h
new file mode 100644
index 0000000..35d5b95
--- /dev/null
+++ b/generic/tclIntPlatDecls.h
@@ -0,0 +1,159 @@
+/*
+ * tclIntPlatDecls.h --
+ *
+ *	This file contains the declarations for all platform dependent
+ *	unsupported functions that are exported by the Tcl library.  These
+ *	interfaces are not guaranteed to remain the same between
+ *	versions.  Use at your own risk.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.1 1999/03/03 00:38:41 stanton Exp $
+ */
+
+#ifndef _TCLINTPLATDECLS
+#define _TCLINTPLATDECLS
+
+/*
+ * WARNING: This file is automatically generated by the tools/genStubs.tcl
+ * script.  Any modifications to the function declarations below should be made
+ * in the generic/tclInt.decls script.
+ */
+
+/* !BEGIN!: Do not edit below this line. */
+
+/*
+ * Exported function declarations:
+ */
+
+#ifdef __WIN32__
+/* 0 */
+EXTERN void		TclWinConvertError _ANSI_ARGS_((DWORD errCode));
+/* 1 */
+EXTERN void		TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode));
+/* 2 */
+EXTERN struct servent *	 TclWinGetServByName _ANSI_ARGS_((const char * nm, 
+				const char * proto));
+/* 3 */
+EXTERN int		TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
+				int optname, char FAR * optval, 
+				int FAR * optlen));
+/* 4 */
+EXTERN HINSTANCE	TclWinGetTclInstance _ANSI_ARGS_((void));
+/* 5 */
+EXTERN HINSTANCE	TclWinLoadLibrary _ANSI_ARGS_((char * name));
+/* 6 */
+EXTERN u_short		TclWinNToHS _ANSI_ARGS_((u_short ns));
+/* 7 */
+EXTERN int		TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, 
+				int optname, const char FAR * optval, 
+				int optlen));
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+/* 0 */
+EXTERN int		TclpCheckStackSpace _ANSI_ARGS_((void));
+/* 1 */
+EXTERN VOID *		TclpSysAlloc _ANSI_ARGS_((long size, int isBin));
+/* 2 */
+EXTERN void		TclpSysFree _ANSI_ARGS_((VOID * ptr));
+/* 3 */
+EXTERN VOID *		TclpSysRealloc _ANSI_ARGS_((VOID * cp, 
+				unsigned int size));
+/* 4 */
+EXTERN void		TclPlatformExit _ANSI_ARGS_((int status));
+#endif /* MAC_TCL */
+
+typedef struct TclIntPlatStubs {
+    int magic;
+    struct TclIntPlatStubHooks *hooks;
+
+#ifdef __WIN32__
+    void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */
+    void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */
+    struct servent * (*tclWinGetServByName) _ANSI_ARGS_((const char * nm, const char * proto)); /* 2 */
+    int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */
+    HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */
+    HINSTANCE (*tclWinLoadLibrary) _ANSI_ARGS_((char * name)); /* 5 */
+    u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */
+    int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, const char FAR * optval, int optlen)); /* 7 */
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+    int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 0 */
+    VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 1 */
+    void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 2 */
+    VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 3 */
+    void (*tclPlatformExit) _ANSI_ARGS_((int status)); /* 4 */
+#endif /* MAC_TCL */
+} TclIntPlatStubs;
+
+extern TclIntPlatStubs *tclIntPlatStubsPtr;
+
+#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS)
+
+/*
+ * Inline function declarations:
+ */
+
+#ifdef __WIN32__
+#ifndef TclWinConvertError
+#define TclWinConvertError(errCode) \
+	(tclIntPlatStubsPtr->tclWinConvertError)(errCode) /* 0 */
+#endif
+#ifndef TclWinConvertWSAError
+#define TclWinConvertWSAError(errCode) \
+	(tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode) /* 1 */
+#endif
+#ifndef TclWinGetServByName
+#define TclWinGetServByName(nm, proto) \
+	(tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto) /* 2 */
+#endif
+#ifndef TclWinGetSockOpt
+#define TclWinGetSockOpt(s, level, optname, optval, optlen) \
+	(tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen) /* 3 */
+#endif
+#ifndef TclWinGetTclInstance
+#define TclWinGetTclInstance() \
+	(tclIntPlatStubsPtr->tclWinGetTclInstance)() /* 4 */
+#endif
+#ifndef TclWinLoadLibrary
+#define TclWinLoadLibrary(name) \
+	(tclIntPlatStubsPtr->tclWinLoadLibrary)(name) /* 5 */
+#endif
+#ifndef TclWinNToHS
+#define TclWinNToHS(ns) \
+	(tclIntPlatStubsPtr->tclWinNToHS)(ns) /* 6 */
+#endif
+#ifndef TclWinSetSockOpt
+#define TclWinSetSockOpt(s, level, optname, optval, optlen) \
+	(tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen) /* 7 */
+#endif
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+#ifndef TclpCheckStackSpace
+#define TclpCheckStackSpace() \
+	(tclIntPlatStubsPtr->tclpCheckStackSpace)() /* 0 */
+#endif
+#ifndef TclpSysAlloc
+#define TclpSysAlloc(size, isBin) \
+	(tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin) /* 1 */
+#endif
+#ifndef TclpSysFree
+#define TclpSysFree(ptr) \
+	(tclIntPlatStubsPtr->tclpSysFree)(ptr) /* 2 */
+#endif
+#ifndef TclpSysRealloc
+#define TclpSysRealloc(cp, size) \
+	(tclIntPlatStubsPtr->tclpSysRealloc)(cp, size) /* 3 */
+#endif
+#ifndef TclPlatformExit
+#define TclPlatformExit(status) \
+	(tclIntPlatStubsPtr->tclPlatformExit)(status) /* 4 */
+#endif
+#endif /* MAC_TCL */
+
+#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
+
+/* !END!: Do not edit above this line. */
+
+#endif /* _TCLINTPLATDECLS */