diff options
author | rjohnson <rjohnson> | 1998-03-26 14:45:59 (GMT) |
---|---|---|
committer | rjohnson <rjohnson> | 1998-03-26 14:45:59 (GMT) |
commit | 2b5738da524e944cda39e24c0a87b745a43bd8c3 (patch) | |
tree | 6e8c9473978f6dab66c601e911721a7bd9d70b1b /mac/tclMacInt.h | |
parent | c6a259aeeca4814a97cf6694814c63e74e4e18fa (diff) | |
download | tcl-2b5738da524e944cda39e24c0a87b745a43bd8c3.zip tcl-2b5738da524e944cda39e24c0a87b745a43bd8c3.tar.gz tcl-2b5738da524e944cda39e24c0a87b745a43bd8c3.tar.bz2 |
Initial revision
Diffstat (limited to 'mac/tclMacInt.h')
-rw-r--r-- | mac/tclMacInt.h | 79 |
1 files changed, 79 insertions, 0 deletions
diff --git a/mac/tclMacInt.h b/mac/tclMacInt.h new file mode 100644 index 0000000..d4d43b4 --- /dev/null +++ b/mac/tclMacInt.h @@ -0,0 +1,79 @@ +/* + * tclMacInt.h -- + * + * Declarations of Macintosh specific shared variables and procedures. + * + * Copyright (c) 1996-1997 Sun Microsystems, Inc. + * + * See the file "license.terms" for information on usage and redistribution + * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * + * SCCS: @(#) tclMacInt.h 1.24 97/09/09 16:22:01 + */ + +#ifndef _TCLMACINT +#define _TCLMACINT + +#ifndef _TCL +# include "tcl.h" +#endif +#ifndef _TCLMAC +# include "tclMac.h" +#endif + +#include <Events.h> +#include <Files.h> + +#pragma export on + +/* + * Defines to control stack behavior + */ + +#define TCL_MAC_68K_STACK_GROWTH (256*1024) +#define TCL_MAC_STACK_THRESHOLD 16384 + +/* + * This flag is passed to TclMacRegisterResourceFork + * by a file (usually a library) whose resource fork + * should not be closed by the resource command. + */ + +#define TCL_RESOURCE_DONT_CLOSE 2 + +/* + * Typedefs used by Macintosh parts of Tcl. + */ +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. + */ + +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 */ |