#ifndef _TCLMAC
#define _TCLMAC
#ifndef _TCL
# include "tcl.h"
#endif
#include <Types.h>
#include <Files.h>
#include <Events.h>
#pragma export on
typedef int (*Tcl_MacConvertEventPtr) _ANSI_ARGS_((EventRecord *eventPtr));
EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_((Tcl_MacConvertEventPtr procPtr));
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));
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));
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);
EXTERN int FSpLocationFromPath _ANSI_ARGS_((int length, CONST char *path,
FSSpecPtr theSpec));
EXTERN OSErr FSpPathFromLocation _ANSI_ARGS_((FSSpecPtr theSpec,
int *length, Handle *fullPath));
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));
#pragma export reset
#endif