summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorstanton <stanton>1999-03-04 00:59:55 (GMT)
committerstanton <stanton>1999-03-04 00:59:55 (GMT)
commit18dc5e90a9df29a5c9d78a0fe766ab586ea10163 (patch)
treee13d19f52ec157ebdbc0f234d543a116c2d14875
parent8f454748c96a81bfa1d37e8d7623fa5aeee9e22a (diff)
downloadtcl-18dc5e90a9df29a5c9d78a0fe766ab586ea10163.zip
tcl-18dc5e90a9df29a5c9d78a0fe766ab586ea10163.tar.gz
tcl-18dc5e90a9df29a5c9d78a0fe766ab586ea10163.tar.bz2
* win/tclWinPort.h:
* mac/tclMacPort.h: * mac/tclMacInt.h: * mac/tclMac.h: Added Mac specific declarations.
-rw-r--r--mac/tclMac.h67
-rw-r--r--mac/tclMacInt.h30
-rw-r--r--mac/tclMacPort.h28
-rw-r--r--win/tclWinPort.h22
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"