diff options
author | das <das@noemail.net> | 2002-08-31 06:09:45 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2002-08-31 06:09:45 (GMT) |
commit | d50c1eda5fc1d5e85db3f3a7903ef5d8a17dc477 (patch) | |
tree | a04dce9b4970c608d3bd9a81f627bd20b9081064 /generic/tclPlatDecls.h | |
parent | 006f057117e46efad80611958a7ba5671adcfb0b (diff) | |
download | tcl-d50c1eda5fc1d5e85db3f3a7903ef5d8a17dc477.zip tcl-d50c1eda5fc1d5e85db3f3a7903ef5d8a17dc477.tar.gz tcl-d50c1eda5fc1d5e85db3f3a7903ef5d8a17dc477.tar.bz2 |
*** macosx-8-4-branch merged into the mainline [tcl patch #602770] ***macosx-8-4-merge-2002-08-31-trunk
* generic/tcl.decls: added new macosx specific entry to stubs table.
* tools/genStubs.tcl: added generation of platform guards for
macosx. This is a little more complex than it seems, because MacOS
X IS "unix" plus a little bit, for the purposes of Tcl. BUT
unfortunately, Tk uses "unix" to mean X11. So added platform keys
for macosx (the little added to "unix"), "aqua" and "x11" to
distinguish these for Tk.
* generic/tcl.h: added a #ifnded RESOURCE_INCLUDED so that tcl.h
can be passed to the resource compiler.
* generic/tcl.h:
* generic/tclNotify.c: added a few Notifier procs, to be able to
modify more bits of the Tcl notifier dynamically. Required to get
Mac OS X Tk to live on top of the Tcl Unix threaded notifier.
Changes the size of the Tcl_NotifierProcs structure, but doesn't
move any elements around.
* unix/tclUnixNotfy.c: moved the call to Tcl_ConditionNotify till
AFTER we are done mucking with the pointer swap. Fixes cases where
the thread waiting on the condition wakes & accesses the
waitingListPtr before it gets reset, causing a hang.
* library/auto.tcl (tcl_findLibrary): added checking the
directories in the tcl_pkgPath for library files on macosx to
enable support of the standard Mac OSX library locations
* unix/Makefile.in:
* unix/configure.in:
* unix/tcl.m4: added MAC_OSX_DIR. Added PLAT_OBJS to the OBJS:
there are some MacOS X specific files now for Tcl, and when I get
he resource & applescript stuff ported over, and restore support
for FindFiles, etc, there will be a few more.
Added LD_LIBRARY_PATH_VAR configure variable to avoid having to set
all possible LD_LIBRARY_PATH analogues on all platforms.
LD_LIBRARY_PATH_VAR is "LD_LIBRARY_PATH" by default, "LIBPATH" on
AIX, "SHLIB_PATH" on HPUX and "DYLD_LIBRARY_PATH" on Mac OSX.
Added configure option to package Tcl as a framework on Mac OSX.
* macosx/tclMacOSXBundle.c (new): support for finding Tcl extension
packaged as 'bundles' in the standard Mac OSX library locations.
* unix/tclUnixInit.c: added support for findig the tcl script
library inside Tcl packaged as a framework on Mac OSX.
* macosx/Tcl.pbproj/jingham.pbxuser (new):
* macosx/Tcl.pbproj/project.pbxproj (new): project for Apple's
ProjectBuilder IDE.
* macosx/Makefile (new): simple makefile for building the project
from the command line via the ProjectBuilder tool 'pbxbuild'.
* unix/configure:
* generic/tclStubInit.c:
* generic/tclPlatDecls.h: regen
FossilOrigin-Name: ac07f034c74f71777e9da22338ccbace40e9984a
Diffstat (limited to 'generic/tclPlatDecls.h')
-rw-r--r-- | generic/tclPlatDecls.h | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index c499d29..e0fed76 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -6,7 +6,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclPlatDecls.h,v 1.16 2002/02/08 02:52:54 dgp Exp $ + * RCS: @(#) $Id: tclPlatDecls.h,v 1.17 2002/08/31 06:09:45 das Exp $ */ #ifndef _TCLPLATDECLS @@ -74,6 +74,13 @@ EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1, EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1, CONST char * s2)); #endif /* MAC_TCL */ +#ifdef MAC_OSX_TCL +/* 0 */ +EXTERN int Tcl_MacOSXOpenBundleResources _ANSI_ARGS_(( + Tcl_Interp * interp, CONST char * bundleName, + int hasResourceFile, int maxPathLen, + char * libraryPath)); +#endif /* MAC_OSX_TCL */ typedef struct TclPlatStubs { int magic; @@ -94,6 +101,9 @@ typedef struct TclPlatStubs { int (*strncasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 7 */ int (*strcasecmp) _ANSI_ARGS_((CONST char * s1, CONST char * s2)); /* 8 */ #endif /* MAC_TCL */ +#ifdef MAC_OSX_TCL + int (*tcl_MacOSXOpenBundleResources) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * bundleName, int hasResourceFile, int maxPathLen, char * libraryPath)); /* 0 */ +#endif /* MAC_OSX_TCL */ } TclPlatStubs; #ifdef __cplusplus @@ -158,6 +168,12 @@ extern TclPlatStubs *tclPlatStubsPtr; (tclPlatStubsPtr->strcasecmp) /* 8 */ #endif #endif /* MAC_TCL */ +#ifdef MAC_OSX_TCL +#ifndef Tcl_MacOSXOpenBundleResources +#define Tcl_MacOSXOpenBundleResources \ + (tclPlatStubsPtr->tcl_MacOSXOpenBundleResources) /* 0 */ +#endif +#endif /* MAC_OSX_TCL */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |