diff options
author | cvs2fossil <cvs2fossil> | 2011-01-25 19:02:56 (GMT) |
---|---|---|
committer | cvs2fossil <cvs2fossil> | 2011-01-25 19:02:56 (GMT) |
commit | 352fce86be9d102b2284de839b7f7ff94ed971f2 (patch) | |
tree | e454e0d4460f15029e4ed5ae3f3131a992445426 /mac/tclMacInt.h | |
parent | 75f084f6970d2344bb5a82fdff6a73825bc6e64e (diff) | |
download | tcl-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.h | 77 |
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 */ |