1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
-
+
|
/*
* tclUnixInit.c --
*
* Contains the Unix-specific interpreter initialization functions.
*
* Copyright (c) 1995-1997 Sun Microsystems, Inc.
* Copyright (c) 1999 by Scriptics Corporation.
* All rights reserved.
*
* RCS: @(#) $Id: tclUnixInit.c,v 1.24.8.6 2002/08/21 12:23:52 das Exp $
* RCS: @(#) $Id: tclUnixInit.c,v 1.24.8.7 2002/08/30 18:11:36 das Exp $
*/
#if defined(HAVE_CFBUNDLE)
#include <CoreFoundation/CoreFoundation.h>
#endif
#include "tclInt.h"
#include "tclPort.h"
|
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
|
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
|
-
+
|
* TCL_OK if we have found the tcl library; TCL_ERROR otherwise.
*
* Side effects:
* Same as for Tcl_MacOSXOpenBundleResources.
*
*----------------------------------------------------------------------
*/
int Tcl_MacOSXGetLibraryPath(Tcl_Interp *interp, int maxPathLen, char *tclLibPath)
static int Tcl_MacOSXGetLibraryPath(Tcl_Interp *interp, int maxPathLen, char *tclLibPath)
{
int foundInFramework = TCL_ERROR;
#ifdef HAVE_CFBUNDLE
if (strcmp(defaultLibraryDir, "@TCL_IN_FRAMEWORK@") == 0) {
foundInFramework = Tcl_MacOSXOpenBundleResources(interp,
"com.tcltk.tcllibrary", 0, maxPathLen, tclLibPath);
}
#endif /* HAVE_CFBUNDLE */
return foundInFramework;
}
|