diff options
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 */ |