diff options
| author | davygrvy <davygrvy@pobox.com> | 2002-11-04 05:50:19 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2002-11-04 05:50:19 (GMT) |
| commit | d9952d775abb77c056da36551547a42f7694ddef (patch) | |
| tree | 6de01badde20b6019a1be9a838ccc4bdeb8bfad6 /win/tclAppInit.c | |
| parent | 0687dfb03c01b6ab1c1ec9c2978bbe5cb0c4e815 (diff) | |
| download | tcl-d9952d775abb77c056da36551547a42f7694ddef.zip tcl-d9952d775abb77c056da36551547a42f7694ddef.tar.gz tcl-d9952d775abb77c056da36551547a42f7694ddef.tar.bz2 | |
* win/tclAppInit.c: Calls Registry_Init() and Dde_Init() when
STATIC_BUILD and TCL_USE_STATIC_PACKAGES macros are set.
* win/makefile.vc:
* win/rules.vc: linkexten option now sets the TCL_USE_STATIC_PACKAGES
macro which also adds the registry and dde object files to the link
of the shell. [Patch 479697] Also factored some additional macros
that will be helpful for extension authors. Version grepping of tcl.h
will need to be added to complete this.
* win/buildall.vc.bat: Added more descriptive commentary.
Diffstat (limited to 'win/tclAppInit.c')
| -rw-r--r-- | win/tclAppInit.c | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index 414e4d8..b589027 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.9 2002/09/30 00:08:01 davygrvy Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.10 2002/11/04 05:50:19 davygrvy Exp $ */ #include "tcl.h" @@ -167,6 +167,23 @@ Tcl_AppInit(interp) Procbodytest_SafeInit); #endif /* TCL_TEST */ +#if defined(STATIC_BUILD) && defined(TCL_USE_STATIC_PACKAGES) + { + extern Tcl_PackageInitProc Registry_Init; + extern Tcl_PackageInitProc Dde_Init; + + if (Registry_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } + Tcl_StaticPackage(interp, "registry", Registry_Init, NULL); + + if (Dde_Init(interp) == TCL_ERROR) { + return TCL_ERROR; + } + Tcl_StaticPackage(interp, "dde", Dde_Init, NULL); + } +#endif + /* * Call the init procedures for included packages. Each call should * look like this: |