* 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, 146 insertions, 0 deletions

diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c
new file mode 100644
index 0000000..1a10ac5
--- /dev/null
+++ b/generic/tclIntPlatStubs.c
@@ -0,0 +1,146 @@
+/* 
+ * tclIntPlatStubs.c --
+ *
+ *	This file contains the wrapper functions for the platform dependent
+ *	unsupported Tcl API.
+ *
+ * Copyright (c) 1998-1999 by Scriptics Corporation.
+ * All rights reserved.
+ *
+ * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.1 1999/03/03 00:38:41 stanton Exp $
+ */
+
+#include "tclInt.h"
+#include "tclPort.h"
+
+/*
+ * 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 stub functions:
+ */
+
+#ifdef __WIN32__
+/* Slot 0 */
+void
+TclWinConvertError(errCode)
+    DWORD errCode;
+{
+    (tclIntPlatStubsPtr->tclWinConvertError)(errCode);
+}
+
+/* Slot 1 */
+void
+TclWinConvertWSAError(errCode)
+    DWORD errCode;
+{
+    (tclIntPlatStubsPtr->tclWinConvertWSAError)(errCode);
+}
+
+/* Slot 2 */
+struct servent *
+TclWinGetServByName(nm, proto)
+    const char * nm;
+    const char * proto;
+{
+    return (tclIntPlatStubsPtr->tclWinGetServByName)(nm, proto);
+}
+
+/* Slot 3 */
+int
+TclWinGetSockOpt(s, level, optname, optval, optlen)
+    SOCKET s;
+    int level;
+    int optname;
+    char FAR * optval;
+    int FAR * optlen;
+{
+    return (tclIntPlatStubsPtr->tclWinGetSockOpt)(s, level, optname, optval, optlen);
+}
+
+/* Slot 4 */
+HINSTANCE
+TclWinGetTclInstance()
+{
+    return (tclIntPlatStubsPtr->tclWinGetTclInstance)();
+}
+
+/* Slot 5 */
+HINSTANCE
+TclWinLoadLibrary(name)
+    char * name;
+{
+    return (tclIntPlatStubsPtr->tclWinLoadLibrary)(name);
+}
+
+/* Slot 6 */
+u_short
+TclWinNToHS(ns)
+    u_short ns;
+{
+    return (tclIntPlatStubsPtr->tclWinNToHS)(ns);
+}
+
+/* Slot 7 */
+int
+TclWinSetSockOpt(s, level, optname, optval, optlen)
+    SOCKET s;
+    int level;
+    int optname;
+    const char FAR * optval;
+    int optlen;
+{
+    return (tclIntPlatStubsPtr->tclWinSetSockOpt)(s, level, optname, optval, optlen);
+}
+
+#endif /* __WIN32__ */
+#ifdef MAC_TCL
+/* Slot 0 */
+int
+TclpCheckStackSpace()
+{
+    return (tclIntPlatStubsPtr->tclpCheckStackSpace)();
+}
+
+/* Slot 1 */
+VOID *
+TclpSysAlloc(size, isBin)
+    long size;
+    int isBin;
+{
+    return (tclIntPlatStubsPtr->tclpSysAlloc)(size, isBin);
+}
+
+/* Slot 2 */
+void
+TclpSysFree(ptr)
+    VOID * ptr;
+{
+    (tclIntPlatStubsPtr->tclpSysFree)(ptr);
+}
+
+/* Slot 3 */
+VOID *
+TclpSysRealloc(cp, size)
+    VOID * cp;
+    unsigned int size;
+{
+    return (tclIntPlatStubsPtr->tclpSysRealloc)(cp, size);
+}
+
+/* Slot 4 */
+void
+TclPlatformExit(status)
+    int status;
+{
+    (tclIntPlatStubsPtr->tclPlatformExit)(status);
+}
+
+#endif /* MAC_TCL */
+
+/* !END!: Do not edit above this line. */