From 18dc5e90a9df29a5c9d78a0fe766ab586ea10163 Mon Sep 17 00:00:00 2001 From: stanton Date: Thu, 4 Mar 1999 00:59:55 +0000 Subject: * win/tclWinPort.h: * mac/tclMacPort.h: * mac/tclMacInt.h: * mac/tclMac.h: Added Mac specific declarations. --- mac/tclMac.h | 67 ++------------------------------------------------------ mac/tclMacInt.h | 30 ++----------------------- mac/tclMacPort.h | 28 +---------------------- win/tclWinPort.h | 22 +++---------------- 4 files changed, 8 insertions(+), 139 deletions(-) diff --git a/mac/tclMac.h b/mac/tclMac.h index 593232b..1d8e5fd 100644 --- a/mac/tclMac.h +++ b/mac/tclMac.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMac.h,v 1.3 1998/11/10 06:49:22 jingham Exp $ + * RCS: @(#) $Id: tclMac.h,v 1.3.4.1 1999/03/04 00:59:55 stanton Exp $ */ #ifndef _TCLMAC @@ -31,70 +31,7 @@ typedef int (*Tcl_MacConvertEventPtr) _ANSI_ARGS_((EventRecord *eventPtr)); -/* - * This is needed by the shells to handle Macintosh events. - */ - -EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr)); - -/* - * These routines are useful for handling using scripts from resources - * in the application shell - */ - -EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_((Handle resource)); -EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp *interp, - char *resourceName, int resourceNumber, char *fileName)); -EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp *interp, - long resourceType, char *resourceName, - int resourceNumber, char *resFileRef, int * releaseIt)); - -/* These routines support the new OSType object type (i.e. the packed 4 - * character type and creator codes). - */ - -EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_((Tcl_Interp *interp, - Tcl_Obj *objPtr, OSType *osTypePtr)); -EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj *objPtr, - OSType osType)); -EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType)); - - - -/* - * The following routines are utility functions in Tcl. They are exported - * here because they are needed in Tk. They are not officially supported, - * however. The first set are from the MoreFiles package. - */ - -EXTERN pascal OSErr FSpGetDirectoryID(const FSSpec *spec, - long *theDirID, Boolean *isDirectory); -EXTERN pascal short FSpOpenResFileCompat(const FSSpec *spec, - SignedByte permission); -EXTERN pascal void FSpCreateResFileCompat(const FSSpec *spec, - OSType creator, OSType fileType, - ScriptCode scriptTag); -/* - * Like the MoreFiles routines these fix problems in the standard - * Mac calls. These routines is from tclMacUtils.h. - */ - -EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, CONST char *path, - FSSpecPtr theSpec)); -EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec, - int *length, Handle *fullPath)); - -/* - * These are not in MSL 2.1.2, so we need to export them from the - * Tcl shared library. They are found in the compat directory - * except the panic routine which is found in tclMacPanic.h. - */ - -EXTERN int strncasecmp _ANSI_ARGS_((CONST char *s1, - CONST char *s2, size_t n)); -EXTERN int strcasecmp _ANSI_ARGS_((CONST char *s1, - CONST char *s2)); -EXTERN void panic _ANSI_ARGS_(TCL_VARARGS(char *,format)); +#include "tclPlatDecls.h" #pragma export reset diff --git a/mac/tclMacInt.h b/mac/tclMacInt.h index a6ceda0..ba1411e 100644 --- a/mac/tclMacInt.h +++ b/mac/tclMacInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacInt.h,v 1.2 1998/09/14 18:40:05 stanton Exp $ + * RCS: @(#) $Id: tclMacInt.h,v 1.2.4.1 1999/03/04 00:59:55 stanton Exp $ */ #ifndef _TCLMACINT @@ -46,34 +46,8 @@ */ typedef pascal void (*ExitToShellProcPtr)(void); -/* - * Prototypes for functions found in the tclMacUtil.c compatability library. - */ - -EXTERN int FSpGetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); -EXTERN int FSpSetDefaultDir _ANSI_ARGS_((FSSpecPtr theSpec)); -EXTERN OSErr FSpFindFolder _ANSI_ARGS_((short vRefNum, OSType folderType, - Boolean createFolder, FSSpec *spec)); -EXTERN void GetGlobalMouse _ANSI_ARGS_((Point *mouse)); - -/* - * Prototypes of Mac only internal functions. - */ +#include "tclIntPlatDecls.h" -EXTERN void TclCreateMacEventSource _ANSI_ARGS_((void)); -EXTERN int TclMacConsoleInit _ANSI_ARGS_((void)); -EXTERN void TclMacExitHandler _ANSI_ARGS_((void)); -EXTERN void TclMacInitExitToShell _ANSI_ARGS_((int usePatch)); -EXTERN OSErr TclMacInstallExitToShellPatch _ANSI_ARGS_(( - ExitToShellProcPtr newProc)); -EXTERN int TclMacOSErrorToPosixError _ANSI_ARGS_((int error)); -EXTERN void TclMacRemoveTimer _ANSI_ARGS_((void *timerToken)); -EXTERN void * TclMacStartTimer _ANSI_ARGS_((long ms)); -EXTERN int TclMacTimerExpired _ANSI_ARGS_((void *timerToken)); -EXTERN int TclMacRegisterResourceFork _ANSI_ARGS_((short fileRef, Tcl_Obj *tokenPtr, - int insert)); -EXTERN short TclMacUnRegisterResourceFork _ANSI_ARGS_((char *tokenPtr, Tcl_Obj *resultPtr)); - #pragma export reset #endif /* _TCLMACINT */ diff --git a/mac/tclMacPort.h b/mac/tclMacPort.h index abf1d6c..f0dcae5 100644 --- a/mac/tclMacPort.h +++ b/mac/tclMacPort.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacPort.h,v 1.5 1998/09/14 18:40:06 stanton Exp $ + * RCS: @(#) $Id: tclMacPort.h,v 1.5.4.1 1999/03/04 00:59:55 stanton Exp $ */ #ifndef _MACPORT @@ -182,20 +182,9 @@ extern char **environ; * Prototypes needed for compatability */ -EXTERN int TclMacCreateEnv _ANSI_ARGS_((void)); EXTERN int strncasecmp _ANSI_ARGS_((CONST char *s1, CONST char *s2, size_t n)); -/* - * The following declarations belong in tclInt.h, but depend on platform - * specific types (e.g. struct tm). - */ - -EXTERN struct tm * TclpGetDate _ANSI_ARGS_((const time_t *tp, - int useGMT)); -EXTERN size_t TclStrftime _ANSI_ARGS_((char *s, size_t maxsize, - const char *format, const struct tm *t)); - #define tzset() #define TclpGetPid(pid) ((unsigned long) (pid)) @@ -206,14 +195,10 @@ EXTERN size_t TclStrftime _ANSI_ARGS_((char *s, size_t maxsize, */ #define lstat(path, bufPtr) TclStat(path, bufPtr) -EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((const char *path, - const char *mode)); #define fopen(path, mode) TclMacFOpenHack(path, mode) -EXTERN int TclMacReadlink _ANSI_ARGS_((char *path, char *buf, int size)); #define readlink(fileName, buffer, size) TclMacReadlink(fileName, buffer, size) #ifdef TCL_TEST #define chmod(path, mode) TclMacChmod(path, mode) -EXTERN int TclMacChmod(char *path, int mode); #endif /* @@ -254,15 +239,4 @@ void TclUnsetEnv(CONST char *name); #define TclpFinalize() -/* - * The following define should really be in tclInt.h, but tclInt.h does - * not include tclPort.h, which includes the "struct stat" definition. - */ - -EXTERN int TclpSameFile _ANSI_ARGS_((char *file1, char *file2, - struct stat *sourceStatBufPtr, - struct stat *destStatBufPtr)) ; -EXTERN int TclpStat _ANSI_ARGS_ ((CONST char *path, struct stat *buf)); -EXTERN int TclpAccess _ANSI_ARGS_ ((CONST char *path, int mode)); - #endif /* _MACPORT */ diff --git a/win/tclWinPort.h b/win/tclWinPort.h index b6334b6..a8a9128 100644 --- a/win/tclWinPort.h +++ b/win/tclWinPort.h @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPort.h,v 1.6.4.1 1999/03/03 00:38:47 stanton Exp $ + * RCS: @(#) $Id: tclWinPort.h,v 1.6.4.2 1999/03/04 00:59:55 stanton Exp $ */ #ifndef _TCLWINPORT @@ -348,35 +348,19 @@ /* * The following implements the Windows method for exiting the process. */ -#define TclPlatformExit(status) exit(status) +#define TclPlatformExit(status) exit(status) #include "tclPlatDecls.h" /* - * The following declarations belong in tclInt.h, but depend on platform - * specific types (e.g. struct tm). - */ - -EXTERN struct tm * TclpGetDate _ANSI_ARGS_((const time_t *tp, - int useGMT)); -EXTERN unsigned long TclpGetPid _ANSI_ARGS_((Tcl_Pid pid)); -EXTERN size_t TclStrftime _ANSI_ARGS_((char *s, size_t maxsize, - const char *format, const struct tm *t)); - -/* * The following prototypes and defines replace the Windows versions - * of POSIX function that various compilier vendors didn't implement + * of POSIX function that various compiler vendors didn't implement * well or consistantly. */ #define lstat TclStat -EXTERN int TclpStat _ANSI_ARGS_((CONST char *path, - struct stat *buf)); -EXTERN int TclpAccess _ANSI_ARGS_((CONST char *path, - int mode)); - #define TclpReleaseFile(file) ckfree((char *) file) #include "tclIntPlatDecls.h" -- cgit v0.12