diff options
author | stanton <stanton@noemail.net> | 1999-03-03 00:38:35 (GMT) |
---|---|---|
committer | stanton <stanton@noemail.net> | 1999-03-03 00:38:35 (GMT) |
commit | 9ff43d813a06e86d4dcdcec2b8fbf2e1e18c8b16 (patch) | |
tree | 76e694a9fbdd6ed515de6186a840d8cd40cee06e /generic/tclIntPlatDecls.h | |
parent | 20d4b0d919138790703b96b9ea40cfec0df55751 (diff) | |
download | tcl-9ff43d813a06e86d4dcdcec2b8fbf2e1e18c8b16.zip tcl-9ff43d813a06e86d4dcdcec2b8fbf2e1e18c8b16.tar.gz tcl-9ff43d813a06e86d4dcdcec2b8fbf2e1e18c8b16.tar.bz2 |
* 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
FossilOrigin-Name: 51058ad13d13a198e2dce9b2afdd43a81b72b9d5
Diffstat (limited to 'generic/tclIntPlatDecls.h')
-rw-r--r-- | generic/tclIntPlatDecls.h | 159 |
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 */ |