summaryrefslogtreecommitdiffstats
path: root/mac/tclMac.h
diff options
context:
space:
mode:
Diffstat (limited to 'mac/tclMac.h')
-rw-r--r--mac/tclMac.h67
1 files changed, 2 insertions, 65 deletions
diff --git a/mac/tclMac.h b/mac/tclMac.h
index 593232b..a051cc8 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.4 1999/03/10 05:52:51 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