Tcl Source Code

Artifact [5d634793c5]
Login

Artifact 5d634793c57194e80fe9ade86675f13debc76d2a:

Attachment "1068088-HEAD.diff" to ticket [1068088fff] added by das 2004-11-19 13:34:24.
Index: macosx/Makefile
===================================================================
RCS file: /cvsroot/tcl/tcl/macosx/Makefile,v
retrieving revision 1.17
diff -u -p -r1.17 Makefile
--- macosx/Makefile	11 Nov 2004 01:16:41 -0000	1.17
+++ macosx/Makefile	19 Nov 2004 06:17:22 -0000
@@ -101,7 +101,6 @@ TCL_EXE			?= ${SYMROOT}/${TCLSH}
 
 DYLIB_INSTALL_PATH	?= ${INSTALL_PATH}
 
-TCL_LIBRARY		:= @TCL_IN_FRAMEWORK@
 LIBDIR			:= ${INSTALL_PATH}/${PRODUCT_NAME}.framework/Versions/${PRODUCT_VERSION}
 DYLIB_INSTALL_DIR	:= ${DYLIB_INSTALL_PATH}/${PRODUCT_NAME}.framework/Versions/${PRODUCT_VERSION}
 INCLUDEDIR		:= ${LIBDIR}/Headers
@@ -115,7 +114,7 @@ OBJ_DIR			= ${OBJROOT}/${BUILD_STYLE}
 
 ${PROJECT}:		override INSTALL_ROOT = ${OBJ_DIR}/
 
-MAKE_VARS		:= INSTALL_ROOT TCL_PACKAGE_PATH TCL_MODULE_PATH TCL_LIBRARY DYLIB_INSTALL_DIR
+MAKE_VARS		:= INSTALL_ROOT TCL_PACKAGE_PATH TCL_MODULE_PATH DYLIB_INSTALL_DIR
 MAKE_ARGS_V		= $(foreach v,${MAKE_VARS},$v=${$v})
 export CPPROG		:= cp -p
 
Index: unix/configure
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/configure,v
retrieving revision 1.124
diff -u -p -r1.124 configure
--- unix/configure	18 Nov 2004 13:00:20 -0000	1.124
+++ unix/configure	19 Nov 2004 06:17:22 -0000
@@ -13453,6 +13453,11 @@ if test "$FRAMEWORK_BUILD" = "1" ; then
     TCL_BUILD_LIB_SPEC="-F`pwd` -framework Tcl"
     TCL_LIB_SPEC="-framework Tcl"
     TCL_LIB_FILE="Tcl"
+
+cat >>confdefs.h <<\_ACEOF
+#define TCL_FRAMEWORK 1
+_ACEOF
+)
 elif test "$SHARED_BUILD" = "0" || test "$TCL_NEEDS_EXP_FILE" = "0"; then
     if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
         TCL_LIB_FLAG="-ltcl${TCL_VERSION}\${TCL_DBGX}"
Index: unix/configure.in
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/configure.in,v
retrieving revision 1.120
diff -u -p -r1.120 configure.in
--- unix/configure.in	18 Nov 2004 00:45:03 -0000	1.120
+++ unix/configure.in	19 Nov 2004 06:17:22 -0000
@@ -497,6 +497,7 @@ if test "$FRAMEWORK_BUILD" = "1" ; then
     TCL_BUILD_LIB_SPEC="-F`pwd` -framework Tcl"
     TCL_LIB_SPEC="-framework Tcl"
     TCL_LIB_FILE="Tcl"
+    AC_DEFINE(TCL_FRAMEWORK, 1, [Is Tcl built as a framework?]))
 elif test "$SHARED_BUILD" = "0" || test "$TCL_NEEDS_EXP_FILE" = "0"; then
     if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
         TCL_LIB_FLAG="-ltcl${TCL_VERSION}\${TCL_DBGX}"
Index: unix/tclConfig.h.in
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclConfig.h.in,v
retrieving revision 1.1
diff -u -p -r1.1 tclConfig.h.in
--- unix/tclConfig.h.in	12 Nov 2004 18:07:55 -0000	1.1
+++ unix/tclConfig.h.in	19 Nov 2004 06:17:22 -0000
@@ -270,6 +270,9 @@
 /* Are we to override what our default encoding is? */
 #undef TCL_DEFAULT_ENCODING
 
+/* Is Tcl built as a framework? */
+#undef TCL_FRAMEWORK
+
 /* Is memory debugging enabled? */
 #undef TCL_MEM_DEBUG
 
Index: unix/tclUnixInit.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixInit.c,v
retrieving revision 1.50
diff -u -p -r1.50 tclUnixInit.c
--- unix/tclUnixInit.c	12 Nov 2004 19:08:10 -0000	1.50
+++ unix/tclUnixInit.c	19 Nov 2004 06:17:22 -0000
@@ -1218,10 +1218,10 @@ static int
 MacOSXGetLibraryPath(Tcl_Interp *interp, int maxPathLen, char *tclLibPath)
 {
     int foundInFramework = TCL_ERROR;
-    if (strcmp(defaultLibraryDir, "@TCL_IN_FRAMEWORK@") == 0) {
-	foundInFramework = Tcl_MacOSXOpenVersionedBundleResources(interp,
-	    "com.tcltk.tcllibrary", TCL_VERSION, 0, maxPathLen, tclLibPath);
-    }
+#ifdef TCL_FRAMEWORK
+    foundInFramework = Tcl_MacOSXOpenVersionedBundleResources(interp, 
+	"com.tcltk.tcllibrary", TCL_VERSION, 0, maxPathLen, tclLibPath);
+#endif
     return foundInFramework;
 }
 #endif /* HAVE_CFBUNDLE */