1 files changed, 77 insertions, 0 deletions
diff --git a/mac/tclMacInt.h b/mac/tclMacInt.h
new file mode 100644
index 0000000..ab7bc7f
--- /dev/null
+++ b/mac/tclMacInt.h
@@ -0,0 +1,77 @@
+/*
+ * tclMacInt.h --
+ *
+ *	Declarations of Macintosh specific shared variables and procedures.
+ *
+ * Copyright (c) 1996-1998 Sun Microsystems, Inc.
+ *
+ * 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.7 2001/11/23 01:27:36 das Exp $
+ */
+
+#ifndef _TCLMACINT
+#define _TCLMACINT
+
+#ifndef _TCLINT
+#include "tclInt.h"
+#endif
+#ifndef _TCLPORT
+#include "tclPort.h"
+#endif
+
+#include <Events.h>
+#include <Files.h>
+
+/*
+ * Defines to control stack behavior.
+ *
+ * The Tcl8.2 regexp code is highly recursive for patterns with many
+ * subexpressions.  So we have to increase the stack space to accomodate.
+ * 512 K is good enough for ordinary work, but you need 768 to pass the Tcl
+ * regexp testsuite.
+ *
+ * For the PPC, you need to set the stack space in the Project file.
+ *
+ */
+
+#ifdef TCL_TEST
+#	define TCL_MAC_68K_STACK_GROWTH (768*1024)
+#else
+#	define TCL_MAC_68K_STACK_GROWTH (512*1024)
+#endif
+
+#define TCL_MAC_STACK_THRESHOLD 16384
+
+#ifdef BUILD_tcl
+# undef TCL_STORAGE_CLASS
+# define TCL_STORAGE_CLASS DLLEXPORT
+#endif
+
+/*
+ * 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.
+ */
+
+/*
+ * Prototypes of Mac only internal functions.
+ */
+
+EXTERN char *	TclMacGetFontEncoding _ANSI_ARGS_((int fontId));
+EXTERN int		TclMacHaveThreads _ANSI_ARGS_((void));
+EXTERN long		TclpGetGMTOffset _ANSI_ARGS_((void));
+
+# undef TCL_STORAGE_CLASS
+# define TCL_STORAGE_CLASS DLLIMPORT
+
+#include "tclIntPlatDecls.h"
+    
+#endif /* _TCLMACINT */