summaryrefslogtreecommitdiffstats
path: root/mac/tclMacInt.h
diff options
context:
space:
mode:
authorcvs2fossil <cvs2fossil>2011-01-25 19:02:56 (GMT)
committercvs2fossil <cvs2fossil>2011-01-25 19:02:56 (GMT)
commit352fce86be9d102b2284de839b7f7ff94ed971f2 (patch)
treee454e0d4460f15029e4ed5ae3f3131a992445426 /mac/tclMacInt.h
parent75f084f6970d2344bb5a82fdff6a73825bc6e64e (diff)
downloadtcl-d17b46e6e2c06a5517e3628d8dd5d9710c745d33.zip
tcl-d17b46e6e2c06a5517e3628d8dd5d9710c745d33.tar.gz
tcl-d17b46e6e2c06a5517e3628d8dd5d9710c745d33.tar.bz2
Created branch dgp-refactor-merge-syntheticdgp_refactor_mergedgp_refactor_merge_synthetic
Diffstat (limited to 'mac/tclMacInt.h')
-rw-r--r--mac/tclMacInt.h77
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 */