|
/* $Header: /cvsroot/esrg/sfesrg/esrgpcpj/shared/tcl_base/tclintplatdecls.h,v 1.1.1.1 2001/06/13 04:40:42 dtashley Exp $ */ |
|
|
|
|
|
/* |
|
|
* 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.1.1 2001/06/13 04:40:42 dtashley 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: |
|
|
*/ |
|
|
|
|
|
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |
|
|
/* 0 */ |
|
|
EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, |
|
|
Tcl_Channel chan)); |
|
|
/* 1 */ |
|
|
EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); |
|
|
/* 2 */ |
|
|
EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( |
|
|
TclFile readFile, TclFile writeFile, |
|
|
TclFile errorFile, int numPids, |
|
|
Tcl_Pid * pidPtr)); |
|
|
/* 3 */ |
|
|
EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, |
|
|
TclFile * writePipe)); |
|
|
/* 4 */ |
|
|
EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, |
|
|
int argc, char ** argv, TclFile inputFile, |
|
|
TclFile outputFile, TclFile errorFile, |
|
|
Tcl_Pid * pidPtr)); |
|
|
/* Slot 5 is reserved */ |
|
|
/* 6 */ |
|
|
EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, |
|
|
int direction)); |
|
|
/* 7 */ |
|
|
EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, |
|
|
int mode)); |
|
|
/* 8 */ |
|
|
EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, |
|
|
int timeout)); |
|
|
/* 9 */ |
|
|
EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( |
|
|
CONST char * contents)); |
|
|
#endif /* UNIX */ |
|
|
#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)); |
|
|
/* Slot 5 is reserved */ |
|
|
/* 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)); |
|
|
/* 8 */ |
|
|
EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); |
|
|
/* 9 */ |
|
|
EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); |
|
|
/* Slot 10 is reserved */ |
|
|
/* 11 */ |
|
|
EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, |
|
|
Tcl_Channel chan)); |
|
|
/* 12 */ |
|
|
EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); |
|
|
/* 13 */ |
|
|
EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( |
|
|
TclFile readFile, TclFile writeFile, |
|
|
TclFile errorFile, int numPids, |
|
|
Tcl_Pid * pidPtr)); |
|
|
/* 14 */ |
|
|
EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, |
|
|
TclFile * writePipe)); |
|
|
/* 15 */ |
|
|
EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, |
|
|
int argc, char ** argv, TclFile inputFile, |
|
|
TclFile outputFile, TclFile errorFile, |
|
|
Tcl_Pid * pidPtr)); |
|
|
/* Slot 16 is reserved */ |
|
|
/* Slot 17 is reserved */ |
|
|
/* 18 */ |
|
|
EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, |
|
|
int direction)); |
|
|
/* 19 */ |
|
|
EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, |
|
|
int mode)); |
|
|
/* 20 */ |
|
|
EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, |
|
|
DWORD id)); |
|
|
/* 21 */ |
|
|
EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); |
|
|
/* 22 */ |
|
|
EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( |
|
|
CONST char * contents)); |
|
|
/* 23 */ |
|
|
EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); |
|
|
/* 24 */ |
|
|
EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); |
|
|
/* 25 */ |
|
|
EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void)); |
|
|
/* 26 */ |
|
|
EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide)); |
|
|
#endif /* __WIN32__ */ |
|
|
#ifdef MAC_TCL |
|
|
/* 0 */ |
|
|
EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); |
|
|
/* 1 */ |
|
|
EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); |
|
|
/* 2 */ |
|
|
EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, |
|
|
unsigned int size)); |
|
|
/* 3 */ |
|
|
EXTERN void TclpExit _ANSI_ARGS_((int status)); |
|
|
/* 4 */ |
|
|
EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); |
|
|
/* 5 */ |
|
|
EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); |
|
|
/* 6 */ |
|
|
EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, |
|
|
OSType folderType, Boolean createFolder, |
|
|
FSSpec * spec)); |
|
|
/* 7 */ |
|
|
EXTERN void GetGlobalMouse _ANSI_ARGS_((Point * mouse)); |
|
|
/* 8 */ |
|
|
EXTERN pascal OSErr FSpGetDirectoryID _ANSI_ARGS_((CONST FSSpec * spec, |
|
|
long * theDirID, Boolean * isDirectory)); |
|
|
/* 9 */ |
|
|
EXTERN pascal short FSpOpenResFileCompat _ANSI_ARGS_(( |
|
|
CONST FSSpec * spec, SignedByte permission)); |
|
|
/* 10 */ |
|
|
EXTERN pascal void FSpCreateResFileCompat _ANSI_ARGS_(( |
|
|
CONST FSSpec * spec, OSType creator, |
|
|
OSType fileType, ScriptCode scriptTag)); |
|
|
/* 11 */ |
|
|
EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, |
|
|
CONST char * path, FSSpecPtr theSpec)); |
|
|
/* 12 */ |
|
|
EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, |
|
|
int * length, Handle * fullPath)); |
|
|
/* 13 */ |
|
|
EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); |
|
|
/* 14 */ |
|
|
EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); |
|
|
/* 15 */ |
|
|
EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( |
|
|
ExitToShellProcPtr newProc)); |
|
|
/* 16 */ |
|
|
EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); |
|
|
/* 17 */ |
|
|
EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken)); |
|
|
/* 18 */ |
|
|
EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); |
|
|
/* 19 */ |
|
|
EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken)); |
|
|
/* 20 */ |
|
|
EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_(( |
|
|
short fileRef, Tcl_Obj * tokenPtr, |
|
|
int insert)); |
|
|
/* 21 */ |
|
|
EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_(( |
|
|
char * tokenPtr, Tcl_Obj * resultPtr)); |
|
|
/* 22 */ |
|
|
EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); |
|
|
/* 23 */ |
|
|
EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, |
|
|
CONST char * mode)); |
|
|
/* Slot 24 is reserved */ |
|
|
/* 25 */ |
|
|
EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); |
|
|
#endif /* MAC_TCL */ |
|
|
|
|
|
typedef struct TclIntPlatStubs { |
|
|
int magic; |
|
|
struct TclIntPlatStubHooks *hooks; |
|
|
|
|
|
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |
|
|
void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ |
|
|
int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ |
|
|
Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ |
|
|
int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ |
|
|
int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ |
|
|
void *reserved5; |
|
|
TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ |
|
|
TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ |
|
|
int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ |
|
|
TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ |
|
|
#endif /* UNIX */ |
|
|
#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 */ |
|
|
void *reserved5; |
|
|
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 */ |
|
|
unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ |
|
|
int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ |
|
|
void *reserved10; |
|
|
void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ |
|
|
int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ |
|
|
Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ |
|
|
int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ |
|
|
int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ |
|
|
void *reserved16; |
|
|
void *reserved17; |
|
|
TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ |
|
|
TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ |
|
|
void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */ |
|
|
void (*tclpAsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 21 */ |
|
|
TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */ |
|
|
char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */ |
|
|
char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ |
|
|
TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */ |
|
|
void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */ |
|
|
#endif /* __WIN32__ */ |
|
|
#ifdef MAC_TCL |
|
|
VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ |
|
|
void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ |
|
|
VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ |
|
|
void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */ |
|
|
int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */ |
|
|
int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */ |
|
|
OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */ |
|
|
void (*getGlobalMouse) _ANSI_ARGS_((Point * mouse)); /* 7 */ |
|
|
pascal OSErr (*fSpGetDirectoryID) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */ |
|
|
pascal short (*fSpOpenResFileCompat) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */ |
|
|
pascal void (*fSpCreateResFileCompat) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */ |
|
|
int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */ |
|
|
OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */ |
|
|
void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */ |
|
|
void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */ |
|
|
OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */ |
|
|
int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */ |
|
|
void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */ |
|
|
void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */ |
|
|
int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */ |
|
|
int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */ |
|
|
short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */ |
|
|
int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ |
|
|
FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */ |
|
|
void *reserved24; |
|
|
int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ |
|
|
#endif /* MAC_TCL */ |
|
|
} TclIntPlatStubs; |
|
|
|
|
|
#ifdef __cplusplus |
|
|
extern "C" { |
|
|
#endif |
|
|
extern TclIntPlatStubs *tclIntPlatStubsPtr; |
|
|
#ifdef __cplusplus |
|
|
} |
|
|
#endif |
|
|
|
|
|
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) |
|
|
|
|
|
/* |
|
|
* Inline function declarations: |
|
|
*/ |
|
|
|
|
|
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |
|
|
#ifndef TclGetAndDetachPids |
|
|
#define TclGetAndDetachPids \ |
|
|
(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ |
|
|
#endif |
|
|
#ifndef TclpCloseFile |
|
|
#define TclpCloseFile \ |
|
|
(tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ |
|
|
#endif |
|
|
#ifndef TclpCreateCommandChannel |
|
|
#define TclpCreateCommandChannel \ |
|
|
(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ |
|
|
#endif |
|
|
#ifndef TclpCreatePipe |
|
|
#define TclpCreatePipe \ |
|
|
(tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ |
|
|
#endif |
|
|
#ifndef TclpCreateProcess |
|
|
#define TclpCreateProcess \ |
|
|
(tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ |
|
|
#endif |
|
|
/* Slot 5 is reserved */ |
|
|
#ifndef TclpMakeFile |
|
|
#define TclpMakeFile \ |
|
|
(tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ |
|
|
#endif |
|
|
#ifndef TclpOpenFile |
|
|
#define TclpOpenFile \ |
|
|
(tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ |
|
|
#endif |
|
|
#ifndef TclUnixWaitForFile |
|
|
#define TclUnixWaitForFile \ |
|
|
(tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ |
|
|
#endif |
|
|
#ifndef TclpCreateTempFile |
|
|
#define TclpCreateTempFile \ |
|
|
(tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ |
|
|
#endif |
|
|
#endif /* UNIX */ |
|
|
#ifdef __WIN32__ |
|
|
#ifndef TclWinConvertError |
|
|
#define TclWinConvertError \ |
|
|
(tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ |
|
|
#endif |
|
|
#ifndef TclWinConvertWSAError |
|
|
#define TclWinConvertWSAError \ |
|
|
(tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ |
|
|
#endif |
|
|
#ifndef TclWinGetServByName |
|
|
#define TclWinGetServByName \ |
|
|
(tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ |
|
|
#endif |
|
|
#ifndef TclWinGetSockOpt |
|
|
#define TclWinGetSockOpt \ |
|
|
(tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ |
|
|
#endif |
|
|
#ifndef TclWinGetTclInstance |
|
|
#define TclWinGetTclInstance \ |
|
|
(tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ |
|
|
#endif |
|
|
/* Slot 5 is reserved */ |
|
|
#ifndef TclWinNToHS |
|
|
#define TclWinNToHS \ |
|
|
(tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ |
|
|
#endif |
|
|
#ifndef TclWinSetSockOpt |
|
|
#define TclWinSetSockOpt \ |
|
|
(tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ |
|
|
#endif |
|
|
#ifndef TclpGetPid |
|
|
#define TclpGetPid \ |
|
|
(tclIntPlatStubsPtr->tclpGetPid) /* 8 */ |
|
|
#endif |
|
|
#ifndef TclWinGetPlatformId |
|
|
#define TclWinGetPlatformId \ |
|
|
(tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ |
|
|
#endif |
|
|
/* Slot 10 is reserved */ |
|
|
#ifndef TclGetAndDetachPids |
|
|
#define TclGetAndDetachPids \ |
|
|
(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ |
|
|
#endif |
|
|
#ifndef TclpCloseFile |
|
|
#define TclpCloseFile \ |
|
|
(tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ |
|
|
#endif |
|
|
#ifndef TclpCreateCommandChannel |
|
|
#define TclpCreateCommandChannel \ |
|
|
(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ |
|
|
#endif |
|
|
#ifndef TclpCreatePipe |
|
|
#define TclpCreatePipe \ |
|
|
(tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ |
|
|
#endif |
|
|
#ifndef TclpCreateProcess |
|
|
#define TclpCreateProcess \ |
|
|
(tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ |
|
|
#endif |
|
|
/* Slot 16 is reserved */ |
|
|
/* Slot 17 is reserved */ |
|
|
#ifndef TclpMakeFile |
|
|
#define TclpMakeFile \ |
|
|
(tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ |
|
|
#endif |
|
|
#ifndef TclpOpenFile |
|
|
#define TclpOpenFile \ |
|
|
(tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ |
|
|
#endif |
|
|
#ifndef TclWinAddProcess |
|
|
#define TclWinAddProcess \ |
|
|
(tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ |
|
|
#endif |
|
|
#ifndef TclpAsyncMark |
|
|
#define TclpAsyncMark \ |
|
|
(tclIntPlatStubsPtr->tclpAsyncMark) /* 21 */ |
|
|
#endif |
|
|
#ifndef TclpCreateTempFile |
|
|
#define TclpCreateTempFile \ |
|
|
(tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ |
|
|
#endif |
|
|
#ifndef TclpGetTZName |
|
|
#define TclpGetTZName \ |
|
|
(tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ |
|
|
#endif |
|
|
#ifndef TclWinNoBackslash |
|
|
#define TclWinNoBackslash \ |
|
|
(tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ |
|
|
#endif |
|
|
#ifndef TclWinGetPlatform |
|
|
#define TclWinGetPlatform \ |
|
|
(tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */ |
|
|
#endif |
|
|
#ifndef TclWinSetInterfaces |
|
|
#define TclWinSetInterfaces \ |
|
|
(tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ |
|
|
#endif |
|
|
#endif /* __WIN32__ */ |
|
|
#ifdef MAC_TCL |
|
|
#ifndef TclpSysAlloc |
|
|
#define TclpSysAlloc \ |
|
|
(tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */ |
|
|
#endif |
|
|
#ifndef TclpSysFree |
|
|
#define TclpSysFree \ |
|
|
(tclIntPlatStubsPtr->tclpSysFree) /* 1 */ |
|
|
#endif |
|
|
#ifndef TclpSysRealloc |
|
|
#define TclpSysRealloc \ |
|
|
(tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */ |
|
|
#endif |
|
|
#ifndef TclpExit |
|
|
#define TclpExit \ |
|
|
(tclIntPlatStubsPtr->tclpExit) /* 3 */ |
|
|
#endif |
|
|
#ifndef FSpGetDefaultDir |
|
|
#define FSpGetDefaultDir \ |
|
|
(tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */ |
|
|
#endif |
|
|
#ifndef FSpSetDefaultDir |
|
|
#define FSpSetDefaultDir \ |
|
|
(tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */ |
|
|
#endif |
|
|
#ifndef FSpFindFolder |
|
|
#define FSpFindFolder \ |
|
|
(tclIntPlatStubsPtr->fSpFindFolder) /* 6 */ |
|
|
#endif |
|
|
#ifndef GetGlobalMouse |
|
|
#define GetGlobalMouse \ |
|
|
(tclIntPlatStubsPtr->getGlobalMouse) /* 7 */ |
|
|
#endif |
|
|
#ifndef FSpGetDirectoryID |
|
|
#define FSpGetDirectoryID \ |
|
|
(tclIntPlatStubsPtr->fSpGetDirectoryID) /* 8 */ |
|
|
#endif |
|
|
#ifndef FSpOpenResFileCompat |
|
|
#define FSpOpenResFileCompat \ |
|
|
(tclIntPlatStubsPtr->fSpOpenResFileCompat) /* 9 */ |
|
|
#endif |
|
|
#ifndef FSpCreateResFileCompat |
|
|
#define FSpCreateResFileCompat \ |
|
|
(tclIntPlatStubsPtr->fSpCreateResFileCompat) /* 10 */ |
|
|
#endif |
|
|
#ifndef FSpLocationFromPath |
|
|
#define FSpLocationFromPath \ |
|
|
(tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */ |
|
|
#endif |
|
|
#ifndef FSpPathFromLocation |
|
|
#define FSpPathFromLocation \ |
|
|
(tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */ |
|
|
#endif |
|
|
#ifndef TclMacExitHandler |
|
|
#define TclMacExitHandler \ |
|
|
(tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */ |
|
|
#endif |
|
|
#ifndef TclMacInitExitToShell |
|
|
#define TclMacInitExitToShell \ |
|
|
(tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */ |
|
|
#endif |
|
|
#ifndef TclMacInstallExitToShellPatch |
|
|
#define TclMacInstallExitToShellPatch \ |
|
|
(tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */ |
|
|
#endif |
|
|
#ifndef TclMacOSErrorToPosixError |
|
|
#define TclMacOSErrorToPosixError \ |
|
|
(tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */ |
|
|
#endif |
|
|
#ifndef TclMacRemoveTimer |
|
|
#define TclMacRemoveTimer \ |
|
|
(tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */ |
|
|
#endif |
|
|
#ifndef TclMacStartTimer |
|
|
#define TclMacStartTimer \ |
|
|
(tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */ |
|
|
#endif |
|
|
#ifndef TclMacTimerExpired |
|
|
#define TclMacTimerExpired \ |
|
|
(tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */ |
|
|
#endif |
|
|
#ifndef TclMacRegisterResourceFork |
|
|
#define TclMacRegisterResourceFork \ |
|
|
(tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */ |
|
|
#endif |
|
|
#ifndef TclMacUnRegisterResourceFork |
|
|
#define TclMacUnRegisterResourceFork \ |
|
|
(tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */ |
|
|
#endif |
|
|
#ifndef TclMacCreateEnv |
|
|
#define TclMacCreateEnv \ |
|
|
(tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */ |
|
|
#endif |
|
|
#ifndef TclMacFOpenHack |
|
|
#define TclMacFOpenHack \ |
|
|
(tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */ |
|
|
#endif |
|
|
/* Slot 24 is reserved */ |
|
|
#ifndef TclMacChmod |
|
|
#define TclMacChmod \ |
|
|
(tclIntPlatStubsPtr->tclMacChmod) /* 25 */ |
|
|
#endif |
|
|
#endif /* MAC_TCL */ |
|
|
|
|
|
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |
|
|
|
|
|
/* !END!: Do not edit above this line. */ |
|
|
|
|
|
#endif /* _TCLINTPLATDECLS */ |
|
|
|
|
|
|
|
|
/* $History: tclintplatdecls.h $ |
|
|
* |
|
|
* ***************** Version 1 ***************** |
|
|
* User: Dtashley Date: 1/02/01 Time: 1:29a |
|
|
* Created in $/IjuScripter, IjuConsole/Source/Tcl Base |
|
|
* Initial check-in. |
|
|
*/ |
|
|
|
|
|
/* End of TCLINTPLATDECLS.H */ |
|
1 |
|
/* $Header$ */ |
2 |
|
/* |
3 |
|
* tclIntPlatDecls.h -- |
4 |
|
* |
5 |
|
* This file contains the declarations for all platform dependent |
6 |
|
* unsupported functions that are exported by the Tcl library. These |
7 |
|
* interfaces are not guaranteed to remain the same between |
8 |
|
* versions. Use at your own risk. |
9 |
|
* |
10 |
|
* Copyright (c) 1998-1999 by Scriptics Corporation. |
11 |
|
* All rights reserved. |
12 |
|
* |
13 |
|
* RCS: @(#) $Id: tclintplatdecls.h,v 1.1.1.1 2001/06/13 04:40:42 dtashley Exp $ |
14 |
|
*/ |
15 |
|
|
16 |
|
#ifndef _TCLINTPLATDECLS |
17 |
|
#define _TCLINTPLATDECLS |
18 |
|
|
19 |
|
/* |
20 |
|
* WARNING: This file is automatically generated by the tools/genStubs.tcl |
21 |
|
* script. Any modifications to the function declarations below should be made |
22 |
|
* in the generic/tclInt.decls script. |
23 |
|
*/ |
24 |
|
|
25 |
|
/* !BEGIN!: Do not edit below this line. */ |
26 |
|
|
27 |
|
/* |
28 |
|
* Exported function declarations: |
29 |
|
*/ |
30 |
|
|
31 |
|
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |
32 |
|
/* 0 */ |
33 |
|
EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, |
34 |
|
Tcl_Channel chan)); |
35 |
|
/* 1 */ |
36 |
|
EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); |
37 |
|
/* 2 */ |
38 |
|
EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( |
39 |
|
TclFile readFile, TclFile writeFile, |
40 |
|
TclFile errorFile, int numPids, |
41 |
|
Tcl_Pid * pidPtr)); |
42 |
|
/* 3 */ |
43 |
|
EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, |
44 |
|
TclFile * writePipe)); |
45 |
|
/* 4 */ |
46 |
|
EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, |
47 |
|
int argc, char ** argv, TclFile inputFile, |
48 |
|
TclFile outputFile, TclFile errorFile, |
49 |
|
Tcl_Pid * pidPtr)); |
50 |
|
/* Slot 5 is reserved */ |
51 |
|
/* 6 */ |
52 |
|
EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, |
53 |
|
int direction)); |
54 |
|
/* 7 */ |
55 |
|
EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, |
56 |
|
int mode)); |
57 |
|
/* 8 */ |
58 |
|
EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, |
59 |
|
int timeout)); |
60 |
|
/* 9 */ |
61 |
|
EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( |
62 |
|
CONST char * contents)); |
63 |
|
#endif /* UNIX */ |
64 |
|
#ifdef __WIN32__ |
65 |
|
/* 0 */ |
66 |
|
EXTERN void TclWinConvertError _ANSI_ARGS_((DWORD errCode)); |
67 |
|
/* 1 */ |
68 |
|
EXTERN void TclWinConvertWSAError _ANSI_ARGS_((DWORD errCode)); |
69 |
|
/* 2 */ |
70 |
|
EXTERN struct servent * TclWinGetServByName _ANSI_ARGS_((CONST char * nm, |
71 |
|
CONST char * proto)); |
72 |
|
/* 3 */ |
73 |
|
EXTERN int TclWinGetSockOpt _ANSI_ARGS_((SOCKET s, int level, |
74 |
|
int optname, char FAR * optval, |
75 |
|
int FAR * optlen)); |
76 |
|
/* 4 */ |
77 |
|
EXTERN HINSTANCE TclWinGetTclInstance _ANSI_ARGS_((void)); |
78 |
|
/* Slot 5 is reserved */ |
79 |
|
/* 6 */ |
80 |
|
EXTERN u_short TclWinNToHS _ANSI_ARGS_((u_short ns)); |
81 |
|
/* 7 */ |
82 |
|
EXTERN int TclWinSetSockOpt _ANSI_ARGS_((SOCKET s, int level, |
83 |
|
int optname, CONST char FAR * optval, |
84 |
|
int optlen)); |
85 |
|
/* 8 */ |
86 |
|
EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); |
87 |
|
/* 9 */ |
88 |
|
EXTERN int TclWinGetPlatformId _ANSI_ARGS_((void)); |
89 |
|
/* Slot 10 is reserved */ |
90 |
|
/* 11 */ |
91 |
|
EXTERN void TclGetAndDetachPids _ANSI_ARGS_((Tcl_Interp * interp, |
92 |
|
Tcl_Channel chan)); |
93 |
|
/* 12 */ |
94 |
|
EXTERN int TclpCloseFile _ANSI_ARGS_((TclFile file)); |
95 |
|
/* 13 */ |
96 |
|
EXTERN Tcl_Channel TclpCreateCommandChannel _ANSI_ARGS_(( |
97 |
|
TclFile readFile, TclFile writeFile, |
98 |
|
TclFile errorFile, int numPids, |
99 |
|
Tcl_Pid * pidPtr)); |
100 |
|
/* 14 */ |
101 |
|
EXTERN int TclpCreatePipe _ANSI_ARGS_((TclFile * readPipe, |
102 |
|
TclFile * writePipe)); |
103 |
|
/* 15 */ |
104 |
|
EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp * interp, |
105 |
|
int argc, char ** argv, TclFile inputFile, |
106 |
|
TclFile outputFile, TclFile errorFile, |
107 |
|
Tcl_Pid * pidPtr)); |
108 |
|
/* Slot 16 is reserved */ |
109 |
|
/* Slot 17 is reserved */ |
110 |
|
/* 18 */ |
111 |
|
EXTERN TclFile TclpMakeFile _ANSI_ARGS_((Tcl_Channel channel, |
112 |
|
int direction)); |
113 |
|
/* 19 */ |
114 |
|
EXTERN TclFile TclpOpenFile _ANSI_ARGS_((CONST char * fname, |
115 |
|
int mode)); |
116 |
|
/* 20 */ |
117 |
|
EXTERN void TclWinAddProcess _ANSI_ARGS_((HANDLE hProcess, |
118 |
|
DWORD id)); |
119 |
|
/* 21 */ |
120 |
|
EXTERN void TclpAsyncMark _ANSI_ARGS_((Tcl_AsyncHandler async)); |
121 |
|
/* 22 */ |
122 |
|
EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( |
123 |
|
CONST char * contents)); |
124 |
|
/* 23 */ |
125 |
|
EXTERN char * TclpGetTZName _ANSI_ARGS_((int isdst)); |
126 |
|
/* 24 */ |
127 |
|
EXTERN char * TclWinNoBackslash _ANSI_ARGS_((char * path)); |
128 |
|
/* 25 */ |
129 |
|
EXTERN TclPlatformType * TclWinGetPlatform _ANSI_ARGS_((void)); |
130 |
|
/* 26 */ |
131 |
|
EXTERN void TclWinSetInterfaces _ANSI_ARGS_((int wide)); |
132 |
|
#endif /* __WIN32__ */ |
133 |
|
#ifdef MAC_TCL |
134 |
|
/* 0 */ |
135 |
|
EXTERN VOID * TclpSysAlloc _ANSI_ARGS_((long size, int isBin)); |
136 |
|
/* 1 */ |
137 |
|
EXTERN void TclpSysFree _ANSI_ARGS_((VOID * ptr)); |
138 |
|
/* 2 */ |
139 |
|
EXTERN VOID * TclpSysRealloc _ANSI_ARGS_((VOID * cp, |
140 |
|
unsigned int size)); |
141 |
|
/* 3 */ |
142 |
|
EXTERN void TclpExit _ANSI_ARGS_((int status)); |
143 |
|
/* 4 */ |
144 |
|
EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); |
145 |
|
/* 5 */ |
146 |
|
EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); |
147 |
|
/* 6 */ |
148 |
|
EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, |
149 |
|
OSType folderType, Boolean createFolder, |
150 |
|
FSSpec * spec)); |
151 |
|
/* 7 */ |
152 |
|
EXTERN void GetGlobalMouse _ANSI_ARGS_((Point * mouse)); |
153 |
|
/* 8 */ |
154 |
|
EXTERN pascal OSErr FSpGetDirectoryID _ANSI_ARGS_((CONST FSSpec * spec, |
155 |
|
long * theDirID, Boolean * isDirectory)); |
156 |
|
/* 9 */ |
157 |
|
EXTERN pascal short FSpOpenResFileCompat _ANSI_ARGS_(( |
158 |
|
CONST FSSpec * spec, SignedByte permission)); |
159 |
|
/* 10 */ |
160 |
|
EXTERN pascal void FSpCreateResFileCompat _ANSI_ARGS_(( |
161 |
|
CONST FSSpec * spec, OSType creator, |
162 |
|
OSType fileType, ScriptCode scriptTag)); |
163 |
|
/* 11 */ |
164 |
|
EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, |
165 |
|
CONST char * path, FSSpecPtr theSpec)); |
166 |
|
/* 12 */ |
167 |
|
EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, |
168 |
|
int * length, Handle * fullPath)); |
169 |
|
/* 13 */ |
170 |
|
EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); |
171 |
|
/* 14 */ |
172 |
|
EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); |
173 |
|
/* 15 */ |
174 |
|
EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( |
175 |
|
ExitToShellProcPtr newProc)); |
176 |
|
/* 16 */ |
177 |
|
EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); |
178 |
|
/* 17 */ |
179 |
|
EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void * timerToken)); |
180 |
|
/* 18 */ |
181 |
|
EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); |
182 |
|
/* 19 */ |
183 |
|
EXTERN int TclMacTimerExpired _ANSI_ARGS_((void * timerToken)); |
184 |
|
/* 20 */ |
185 |
|
EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_(( |
186 |
|
short fileRef, Tcl_Obj * tokenPtr, |
187 |
|
int insert)); |
188 |
|
/* 21 */ |
189 |
|
EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_(( |
190 |
|
char * tokenPtr, Tcl_Obj * resultPtr)); |
191 |
|
/* 22 */ |
192 |
|
EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); |
193 |
|
/* 23 */ |
194 |
|
EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, |
195 |
|
CONST char * mode)); |
196 |
|
/* Slot 24 is reserved */ |
197 |
|
/* 25 */ |
198 |
|
EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); |
199 |
|
#endif /* MAC_TCL */ |
200 |
|
|
201 |
|
typedef struct TclIntPlatStubs { |
202 |
|
int magic; |
203 |
|
struct TclIntPlatStubHooks *hooks; |
204 |
|
|
205 |
|
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |
206 |
|
void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 0 */ |
207 |
|
int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 1 */ |
208 |
|
Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 2 */ |
209 |
|
int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 3 */ |
210 |
|
int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 4 */ |
211 |
|
void *reserved5; |
212 |
|
TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 6 */ |
213 |
|
TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 7 */ |
214 |
|
int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ |
215 |
|
TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ |
216 |
|
#endif /* UNIX */ |
217 |
|
#ifdef __WIN32__ |
218 |
|
void (*tclWinConvertError) _ANSI_ARGS_((DWORD errCode)); /* 0 */ |
219 |
|
void (*tclWinConvertWSAError) _ANSI_ARGS_((DWORD errCode)); /* 1 */ |
220 |
|
struct servent * (*tclWinGetServByName) _ANSI_ARGS_((CONST char * nm, CONST char * proto)); /* 2 */ |
221 |
|
int (*tclWinGetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, char FAR * optval, int FAR * optlen)); /* 3 */ |
222 |
|
HINSTANCE (*tclWinGetTclInstance) _ANSI_ARGS_((void)); /* 4 */ |
223 |
|
void *reserved5; |
224 |
|
u_short (*tclWinNToHS) _ANSI_ARGS_((u_short ns)); /* 6 */ |
225 |
|
int (*tclWinSetSockOpt) _ANSI_ARGS_((SOCKET s, int level, int optname, CONST char FAR * optval, int optlen)); /* 7 */ |
226 |
|
unsigned long (*tclpGetPid) _ANSI_ARGS_((Tcl_Pid pid)); /* 8 */ |
227 |
|
int (*tclWinGetPlatformId) _ANSI_ARGS_((void)); /* 9 */ |
228 |
|
void *reserved10; |
229 |
|
void (*tclGetAndDetachPids) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Channel chan)); /* 11 */ |
230 |
|
int (*tclpCloseFile) _ANSI_ARGS_((TclFile file)); /* 12 */ |
231 |
|
Tcl_Channel (*tclpCreateCommandChannel) _ANSI_ARGS_((TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid * pidPtr)); /* 13 */ |
232 |
|
int (*tclpCreatePipe) _ANSI_ARGS_((TclFile * readPipe, TclFile * writePipe)); /* 14 */ |
233 |
|
int (*tclpCreateProcess) _ANSI_ARGS_((Tcl_Interp * interp, int argc, char ** argv, TclFile inputFile, TclFile outputFile, TclFile errorFile, Tcl_Pid * pidPtr)); /* 15 */ |
234 |
|
void *reserved16; |
235 |
|
void *reserved17; |
236 |
|
TclFile (*tclpMakeFile) _ANSI_ARGS_((Tcl_Channel channel, int direction)); /* 18 */ |
237 |
|
TclFile (*tclpOpenFile) _ANSI_ARGS_((CONST char * fname, int mode)); /* 19 */ |
238 |
|
void (*tclWinAddProcess) _ANSI_ARGS_((HANDLE hProcess, DWORD id)); /* 20 */ |
239 |
|
void (*tclpAsyncMark) _ANSI_ARGS_((Tcl_AsyncHandler async)); /* 21 */ |
240 |
|
TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 22 */ |
241 |
|
char * (*tclpGetTZName) _ANSI_ARGS_((int isdst)); /* 23 */ |
242 |
|
char * (*tclWinNoBackslash) _ANSI_ARGS_((char * path)); /* 24 */ |
243 |
|
TclPlatformType * (*tclWinGetPlatform) _ANSI_ARGS_((void)); /* 25 */ |
244 |
|
void (*tclWinSetInterfaces) _ANSI_ARGS_((int wide)); /* 26 */ |
245 |
|
#endif /* __WIN32__ */ |
246 |
|
#ifdef MAC_TCL |
247 |
|
VOID * (*tclpSysAlloc) _ANSI_ARGS_((long size, int isBin)); /* 0 */ |
248 |
|
void (*tclpSysFree) _ANSI_ARGS_((VOID * ptr)); /* 1 */ |
249 |
|
VOID * (*tclpSysRealloc) _ANSI_ARGS_((VOID * cp, unsigned int size)); /* 2 */ |
250 |
|
void (*tclpExit) _ANSI_ARGS_((int status)); /* 3 */ |
251 |
|
int (*fSpGetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 4 */ |
252 |
|
int (*fSpSetDefaultDir) _ANSI_ARGS_((FSSpecPtr theSpec)); /* 5 */ |
253 |
|
OSErr (*fSpFindFolder) _ANSI_ARGS_((short vRefNum, OSType folderType, Boolean createFolder, FSSpec * spec)); /* 6 */ |
254 |
|
void (*getGlobalMouse) _ANSI_ARGS_((Point * mouse)); /* 7 */ |
255 |
|
pascal OSErr (*fSpGetDirectoryID) _ANSI_ARGS_((CONST FSSpec * spec, long * theDirID, Boolean * isDirectory)); /* 8 */ |
256 |
|
pascal short (*fSpOpenResFileCompat) _ANSI_ARGS_((CONST FSSpec * spec, SignedByte permission)); /* 9 */ |
257 |
|
pascal void (*fSpCreateResFileCompat) _ANSI_ARGS_((CONST FSSpec * spec, OSType creator, OSType fileType, ScriptCode scriptTag)); /* 10 */ |
258 |
|
int (*fSpLocationFromPath) _ANSI_ARGS_((int length, CONST char * path, FSSpecPtr theSpec)); /* 11 */ |
259 |
|
OSErr (*fSpPathFromLocation) _ANSI_ARGS_((FSSpecPtr theSpec, int * length, Handle * fullPath)); /* 12 */ |
260 |
|
void (*tclMacExitHandler) _ANSI_ARGS_((void)); /* 13 */ |
261 |
|
void (*tclMacInitExitToShell) _ANSI_ARGS_((int usePatch)); /* 14 */ |
262 |
|
OSErr (*tclMacInstallExitToShellPatch) _ANSI_ARGS_((ExitToShellProcPtr newProc)); /* 15 */ |
263 |
|
int (*tclMacOSErrorToPosixError) _ANSI_ARGS_((int error)); /* 16 */ |
264 |
|
void (*tclMacRemoveTimer) _ANSI_ARGS_((void * timerToken)); /* 17 */ |
265 |
|
void * (*tclMacStartTimer) _ANSI_ARGS_((long ms)); /* 18 */ |
266 |
|
int (*tclMacTimerExpired) _ANSI_ARGS_((void * timerToken)); /* 19 */ |
267 |
|
int (*tclMacRegisterResourceFork) _ANSI_ARGS_((short fileRef, Tcl_Obj * tokenPtr, int insert)); /* 20 */ |
268 |
|
short (*tclMacUnRegisterResourceFork) _ANSI_ARGS_((char * tokenPtr, Tcl_Obj * resultPtr)); /* 21 */ |
269 |
|
int (*tclMacCreateEnv) _ANSI_ARGS_((void)); /* 22 */ |
270 |
|
FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */ |
271 |
|
void *reserved24; |
272 |
|
int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ |
273 |
|
#endif /* MAC_TCL */ |
274 |
|
} TclIntPlatStubs; |
275 |
|
|
276 |
|
#ifdef __cplusplus |
277 |
|
extern "C" { |
278 |
|
#endif |
279 |
|
extern TclIntPlatStubs *tclIntPlatStubsPtr; |
280 |
|
#ifdef __cplusplus |
281 |
|
} |
282 |
|
#endif |
283 |
|
|
284 |
|
#if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) |
285 |
|
|
286 |
|
/* |
287 |
|
* Inline function declarations: |
288 |
|
*/ |
289 |
|
|
290 |
|
#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |
291 |
|
#ifndef TclGetAndDetachPids |
292 |
|
#define TclGetAndDetachPids \ |
293 |
|
(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 0 */ |
294 |
|
#endif |
295 |
|
#ifndef TclpCloseFile |
296 |
|
#define TclpCloseFile \ |
297 |
|
(tclIntPlatStubsPtr->tclpCloseFile) /* 1 */ |
298 |
|
#endif |
299 |
|
#ifndef TclpCreateCommandChannel |
300 |
|
#define TclpCreateCommandChannel \ |
301 |
|
(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 2 */ |
302 |
|
#endif |
303 |
|
#ifndef TclpCreatePipe |
304 |
|
#define TclpCreatePipe \ |
305 |
|
(tclIntPlatStubsPtr->tclpCreatePipe) /* 3 */ |
306 |
|
#endif |
307 |
|
#ifndef TclpCreateProcess |
308 |
|
#define TclpCreateProcess \ |
309 |
|
(tclIntPlatStubsPtr->tclpCreateProcess) /* 4 */ |
310 |
|
#endif |
311 |
|
/* Slot 5 is reserved */ |
312 |
|
#ifndef TclpMakeFile |
313 |
|
#define TclpMakeFile \ |
314 |
|
(tclIntPlatStubsPtr->tclpMakeFile) /* 6 */ |
315 |
|
#endif |
316 |
|
#ifndef TclpOpenFile |
317 |
|
#define TclpOpenFile \ |
318 |
|
(tclIntPlatStubsPtr->tclpOpenFile) /* 7 */ |
319 |
|
#endif |
320 |
|
#ifndef TclUnixWaitForFile |
321 |
|
#define TclUnixWaitForFile \ |
322 |
|
(tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */ |
323 |
|
#endif |
324 |
|
#ifndef TclpCreateTempFile |
325 |
|
#define TclpCreateTempFile \ |
326 |
|
(tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */ |
327 |
|
#endif |
328 |
|
#endif /* UNIX */ |
329 |
|
#ifdef __WIN32__ |
330 |
|
#ifndef TclWinConvertError |
331 |
|
#define TclWinConvertError \ |
332 |
|
(tclIntPlatStubsPtr->tclWinConvertError) /* 0 */ |
333 |
|
#endif |
334 |
|
#ifndef TclWinConvertWSAError |
335 |
|
#define TclWinConvertWSAError \ |
336 |
|
(tclIntPlatStubsPtr->tclWinConvertWSAError) /* 1 */ |
337 |
|
#endif |
338 |
|
#ifndef TclWinGetServByName |
339 |
|
#define TclWinGetServByName \ |
340 |
|
(tclIntPlatStubsPtr->tclWinGetServByName) /* 2 */ |
341 |
|
#endif |
342 |
|
#ifndef TclWinGetSockOpt |
343 |
|
#define TclWinGetSockOpt \ |
344 |
|
(tclIntPlatStubsPtr->tclWinGetSockOpt) /* 3 */ |
345 |
|
#endif |
346 |
|
#ifndef TclWinGetTclInstance |
347 |
|
#define TclWinGetTclInstance \ |
348 |
|
(tclIntPlatStubsPtr->tclWinGetTclInstance) /* 4 */ |
349 |
|
#endif |
350 |
|
/* Slot 5 is reserved */ |
351 |
|
#ifndef TclWinNToHS |
352 |
|
#define TclWinNToHS \ |
353 |
|
(tclIntPlatStubsPtr->tclWinNToHS) /* 6 */ |
354 |
|
#endif |
355 |
|
#ifndef TclWinSetSockOpt |
356 |
|
#define TclWinSetSockOpt \ |
357 |
|
(tclIntPlatStubsPtr->tclWinSetSockOpt) /* 7 */ |
358 |
|
#endif |
359 |
|
#ifndef TclpGetPid |
360 |
|
#define TclpGetPid \ |
361 |
|
(tclIntPlatStubsPtr->tclpGetPid) /* 8 */ |
362 |
|
#endif |
363 |
|
#ifndef TclWinGetPlatformId |
364 |
|
#define TclWinGetPlatformId \ |
365 |
|
(tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */ |
366 |
|
#endif |
367 |
|
/* Slot 10 is reserved */ |
368 |
|
#ifndef TclGetAndDetachPids |
369 |
|
#define TclGetAndDetachPids \ |
370 |
|
(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */ |
371 |
|
#endif |
372 |
|
#ifndef TclpCloseFile |
373 |
|
#define TclpCloseFile \ |
374 |
|
(tclIntPlatStubsPtr->tclpCloseFile) /* 12 */ |
375 |
|
#endif |
376 |
|
#ifndef TclpCreateCommandChannel |
377 |
|
#define TclpCreateCommandChannel \ |
378 |
|
(tclIntPlatStubsPtr->tclpCreateCommandChannel) /* 13 */ |
379 |
|
#endif |
380 |
|
#ifndef TclpCreatePipe |
381 |
|
#define TclpCreatePipe \ |
382 |
|
(tclIntPlatStubsPtr->tclpCreatePipe) /* 14 */ |
383 |
|
#endif |
384 |
|
#ifndef TclpCreateProcess |
385 |
|
#define TclpCreateProcess \ |
386 |
|
(tclIntPlatStubsPtr->tclpCreateProcess) /* 15 */ |
387 |
|
#endif |
388 |
|
/* Slot 16 is reserved */ |
389 |
|
/* Slot 17 is reserved */ |
390 |
|
#ifndef TclpMakeFile |
391 |
|
#define TclpMakeFile \ |
392 |
|
(tclIntPlatStubsPtr->tclpMakeFile) /* 18 */ |
393 |
|
#endif |
394 |
|
#ifndef TclpOpenFile |
395 |
|
#define TclpOpenFile \ |
396 |
|
(tclIntPlatStubsPtr->tclpOpenFile) /* 19 */ |
397 |
|
#endif |
398 |
|
#ifndef TclWinAddProcess |
399 |
|
#define TclWinAddProcess \ |
400 |
|
(tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */ |
401 |
|
#endif |
402 |
|
#ifndef TclpAsyncMark |
403 |
|
#define TclpAsyncMark \ |
404 |
|
(tclIntPlatStubsPtr->tclpAsyncMark) /* 21 */ |
405 |
|
#endif |
406 |
|
#ifndef TclpCreateTempFile |
407 |
|
#define TclpCreateTempFile \ |
408 |
|
(tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */ |
409 |
|
#endif |
410 |
|
#ifndef TclpGetTZName |
411 |
|
#define TclpGetTZName \ |
412 |
|
(tclIntPlatStubsPtr->tclpGetTZName) /* 23 */ |
413 |
|
#endif |
414 |
|
#ifndef TclWinNoBackslash |
415 |
|
#define TclWinNoBackslash \ |
416 |
|
(tclIntPlatStubsPtr->tclWinNoBackslash) /* 24 */ |
417 |
|
#endif |
418 |
|
#ifndef TclWinGetPlatform |
419 |
|
#define TclWinGetPlatform \ |
420 |
|
(tclIntPlatStubsPtr->tclWinGetPlatform) /* 25 */ |
421 |
|
#endif |
422 |
|
#ifndef TclWinSetInterfaces |
423 |
|
#define TclWinSetInterfaces \ |
424 |
|
(tclIntPlatStubsPtr->tclWinSetInterfaces) /* 26 */ |
425 |
|
#endif |
426 |
|
#endif /* __WIN32__ */ |
427 |
|
#ifdef MAC_TCL |
428 |
|
#ifndef TclpSysAlloc |
429 |
|
#define TclpSysAlloc \ |
430 |
|
(tclIntPlatStubsPtr->tclpSysAlloc) /* 0 */ |
431 |
|
#endif |
432 |
|
#ifndef TclpSysFree |
433 |
|
#define TclpSysFree \ |
434 |
|
(tclIntPlatStubsPtr->tclpSysFree) /* 1 */ |
435 |
|
#endif |
436 |
|
#ifndef TclpSysRealloc |
437 |
|
#define TclpSysRealloc \ |
438 |
|
(tclIntPlatStubsPtr->tclpSysRealloc) /* 2 */ |
439 |
|
#endif |
440 |
|
#ifndef TclpExit |
441 |
|
#define TclpExit \ |
442 |
|
(tclIntPlatStubsPtr->tclpExit) /* 3 */ |
443 |
|
#endif |
444 |
|
#ifndef FSpGetDefaultDir |
445 |
|
#define FSpGetDefaultDir \ |
446 |
|
(tclIntPlatStubsPtr->fSpGetDefaultDir) /* 4 */ |
447 |
|
#endif |
448 |
|
#ifndef FSpSetDefaultDir |
449 |
|
#define FSpSetDefaultDir \ |
450 |
|
(tclIntPlatStubsPtr->fSpSetDefaultDir) /* 5 */ |
451 |
|
#endif |
452 |
|
#ifndef FSpFindFolder |
453 |
|
#define FSpFindFolder \ |
454 |
|
(tclIntPlatStubsPtr->fSpFindFolder) /* 6 */ |
455 |
|
#endif |
456 |
|
#ifndef GetGlobalMouse |
457 |
|
#define GetGlobalMouse \ |
458 |
|
(tclIntPlatStubsPtr->getGlobalMouse) /* 7 */ |
459 |
|
#endif |
460 |
|
#ifndef FSpGetDirectoryID |
461 |
|
#define FSpGetDirectoryID \ |
462 |
|
(tclIntPlatStubsPtr->fSpGetDirectoryID) /* 8 */ |
463 |
|
#endif |
464 |
|
#ifndef FSpOpenResFileCompat |
465 |
|
#define FSpOpenResFileCompat \ |
466 |
|
(tclIntPlatStubsPtr->fSpOpenResFileCompat) /* 9 */ |
467 |
|
#endif |
468 |
|
#ifndef FSpCreateResFileCompat |
469 |
|
#define FSpCreateResFileCompat \ |
470 |
|
(tclIntPlatStubsPtr->fSpCreateResFileCompat) /* 10 */ |
471 |
|
#endif |
472 |
|
#ifndef FSpLocationFromPath |
473 |
|
#define FSpLocationFromPath \ |
474 |
|
(tclIntPlatStubsPtr->fSpLocationFromPath) /* 11 */ |
475 |
|
#endif |
476 |
|
#ifndef FSpPathFromLocation |
477 |
|
#define FSpPathFromLocation \ |
478 |
|
(tclIntPlatStubsPtr->fSpPathFromLocation) /* 12 */ |
479 |
|
#endif |
480 |
|
#ifndef TclMacExitHandler |
481 |
|
#define TclMacExitHandler \ |
482 |
|
(tclIntPlatStubsPtr->tclMacExitHandler) /* 13 */ |
483 |
|
#endif |
484 |
|
#ifndef TclMacInitExitToShell |
485 |
|
#define TclMacInitExitToShell \ |
486 |
|
(tclIntPlatStubsPtr->tclMacInitExitToShell) /* 14 */ |
487 |
|
#endif |
488 |
|
#ifndef TclMacInstallExitToShellPatch |
489 |
|
#define TclMacInstallExitToShellPatch \ |
490 |
|
(tclIntPlatStubsPtr->tclMacInstallExitToShellPatch) /* 15 */ |
491 |
|
#endif |
492 |
|
#ifndef TclMacOSErrorToPosixError |
493 |
|
#define TclMacOSErrorToPosixError \ |
494 |
|
(tclIntPlatStubsPtr->tclMacOSErrorToPosixError) /* 16 */ |
495 |
|
#endif |
496 |
|
#ifndef TclMacRemoveTimer |
497 |
|
#define TclMacRemoveTimer \ |
498 |
|
(tclIntPlatStubsPtr->tclMacRemoveTimer) /* 17 */ |
499 |
|
#endif |
500 |
|
#ifndef TclMacStartTimer |
501 |
|
#define TclMacStartTimer \ |
502 |
|
(tclIntPlatStubsPtr->tclMacStartTimer) /* 18 */ |
503 |
|
#endif |
504 |
|
#ifndef TclMacTimerExpired |
505 |
|
#define TclMacTimerExpired \ |
506 |
|
(tclIntPlatStubsPtr->tclMacTimerExpired) /* 19 */ |
507 |
|
#endif |
508 |
|
#ifndef TclMacRegisterResourceFork |
509 |
|
#define TclMacRegisterResourceFork \ |
510 |
|
(tclIntPlatStubsPtr->tclMacRegisterResourceFork) /* 20 */ |
511 |
|
#endif |
512 |
|
#ifndef TclMacUnRegisterResourceFork |
513 |
|
#define TclMacUnRegisterResourceFork \ |
514 |
|
(tclIntPlatStubsPtr->tclMacUnRegisterResourceFork) /* 21 */ |
515 |
|
#endif |
516 |
|
#ifndef TclMacCreateEnv |
517 |
|
#define TclMacCreateEnv \ |
518 |
|
(tclIntPlatStubsPtr->tclMacCreateEnv) /* 22 */ |
519 |
|
#endif |
520 |
|
#ifndef TclMacFOpenHack |
521 |
|
#define TclMacFOpenHack \ |
522 |
|
(tclIntPlatStubsPtr->tclMacFOpenHack) /* 23 */ |
523 |
|
#endif |
524 |
|
/* Slot 24 is reserved */ |
525 |
|
#ifndef TclMacChmod |
526 |
|
#define TclMacChmod \ |
527 |
|
(tclIntPlatStubsPtr->tclMacChmod) /* 25 */ |
528 |
|
#endif |
529 |
|
#endif /* MAC_TCL */ |
530 |
|
|
531 |
|
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |
532 |
|
|
533 |
|
/* !END!: Do not edit above this line. */ |
534 |
|
|
535 |
|
#endif /* _TCLINTPLATDECLS */ |
536 |
|
|
537 |
|
/* End of tclintplatdecls.h */ |