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. */