1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
/*
* tclMacPkgConfig.c --
*
* This file contains the Mac configuration information to
* embed into the tcl binary library.
*
* Copyright (c) 2002 Daniel Steffen <das@users.sourceforge.net>
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclMacPkgConfig.c,v 1.2 2003/06/09 22:49:29 andreas_kupries Exp $
*/
#include "tclInt.h"
#ifdef __MWERKS__
/* define DEBUG/OPTIMIZED macros depending on the value of
* Metrowerks specific precompiler functions.
* (traceback is for PPC, macsbug for 68k) */
# if __option(traceback) || __option(macsbug)
# define TCL_CFG_DEBUG
# else
# define TCL_CFG_OPTIMIZED
# endif
/* define PROFILED macros depending depending on the value of
* Metrowerks specific precompiler functions. */
# if __option(profile)
# define TCL_CFG_PROFILED
# endif
#else
# ifdef TCL_DEBUG
# define TCL_CFG_DEBUG
# else
# define TCL_CFG_OPTIMIZED
# endif
#endif
/* the CFG_*DIR values need to be built up dynamically at runtime
* because the name of the Macintosh Extension directory on a user's
* system is not known at build time */
#define CFG_RUNTIME_PREFIX "${::env(EXT_FOLDER)}Tool Command Language"
#define CFG_RUNTIME_LIBDIR CFG_RUNTIME_PREFIX
#define CFG_RUNTIME_BINDIR CFG_RUNTIME_PREFIX
#define CFG_RUNTIME_SCRDIR CFG_RUNTIME_PREFIX":tcl"TCL_VERSION
#define CFG_RUNTIME_INCDIR CFG_RUNTIME_PREFIX
#define CFG_RUNTIME_DOCDIR CFG_RUNTIME_PREFIX
#define CFG_INSTALL_LIBDIR CFG_RUNTIME_LIBDIR
#define CFG_INSTALL_BINDIR CFG_RUNTIME_BINDIR
#define CFG_INSTALL_SCRDIR CFG_RUNTIME_SCRDIR
#define CFG_INSTALL_INCDIR CFG_RUNTIME_INCDIR
#define CFG_INSTALL_DOCDIR CFG_RUNTIME_DOCDIR
/* use system encoding */
#define TCL_CFGVAL_ENCODING NULL
/* We want to include tclPkgConfig.c to get the remaining CFG_* macros
* and the cfg array declaration, but need our own definition of
* TclInitEmbeddedConfigurationInformation, so we rename this routine
* for the duration of the inclusion and declare it static */
static void TclUnusedInitEmbeddedConfigurationInformation
_ANSI_ARGS_((Tcl_Interp *interp));
#define TclInitEmbeddedConfigurationInformation \
TclUnusedInitEmbeddedConfigurationInformation
#include "tclPkgConfig.c"
#undef TclInitEmbeddedConfigurationInformation
void
TclInitEmbeddedConfigurationInformation (interp)
Tcl_Interp* interp; /* Interpreter the configuration
* command is registered in. */
{
Tcl_Config *cfgp;
Tcl_Obj *valObj, *substObj;
char *subst;
int len;
valObj = Tcl_NewObj();
/* Call Tcl_SubstObj on all values in the cfg array and replace
* the existing value by the result if any substitution has
* occurred. This is needed because on the Mac the CFG_*DIR
* macros contain variables that are not known until runtime */
for (cfgp = cfg;
(cfgp->key != (CONST char*) NULL) && (cfgp->key [0] != '\0') ;
cfgp++)
{
Tcl_SetStringObj(valObj, cfgp->value, -1);
substObj = Tcl_SubstObj(interp, valObj, TCL_SUBST_VARIABLES);
if( substObj ) {
subst = Tcl_GetStringFromObj(substObj, &len);
if ( strcmp(cfgp->value, subst) )
cfgp->value = strcpy(ckalloc((unsigned)len+1), subst);
Tcl_DecrRefCount(substObj);
}
}
Tcl_DecrRefCount(valObj);
Tcl_RegisterConfig (interp, "tcl", cfg, TCL_CFGVAL_ENCODING);
}
|
