Change 2216419 by bgriffin@bgriffin-devmain on 2010/08/24 10:49:34

        Make TclInitSubsystems a public interface.
        This change needs to be submitted to Tcl TIP.

Affected files ...

... //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclDecls.h#3 edit
... //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclEvent.c#2 edit
... //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclStubInit.c#2 edit

Differences ...

==== //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclDecls.h#3 (text) ====

***************
*** 3501,3506 ****
--- 3501,3511 ----
  EXTERN void           Tcl_AppendPrintfToObj (Tcl_Obj * objPtr, 
                                CONST char * format, ...);
  #endif
+ #ifndef Tcl_InitSubsystems_TCL_DECLARED
+ #define Tcl_InitSubsystems_TCL_DECLARED
+ /* 580 */
+ EXTERN void           Tcl_InitSubsystems (void);
+ #endif
  
  typedef struct TclStubHooks {
      struct TclPlatStubs *tclPlatStubs;
***************
*** 4140,4145 ****
--- 4145,4151 ----
      int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST char * format, int objc, Tcl_Obj * CONST objv[]); /* 577 */
      Tcl_Obj * (*tcl_ObjPrintf) (CONST char * format, ...); /* 578 */
      void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, CONST char * format, ...); /* 579 */
+     void (*tcl_InitSubsystems) (void); /* 580 */
  } TclStubs;
  
  #ifdef __cplusplus
***************
*** 6536,6541 ****
--- 6542,6551 ----
  #define Tcl_AppendPrintfToObj \
        (tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
  #endif
+ #ifndef Tcl_InitSubsystems
+ #define Tcl_InitSubsystems \
+       (tclStubsPtr->tcl_InitSubsystems) /* 580 */
+ #endif
  
  #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
  

==== //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclEvent.c#2 (text) ====

***************
*** 915,920 ****
--- 915,936 ----
   *
   * TclInitSubsystems --
   *
+  *  Public interface to internal subsystem initialization.
+  *
+  *-------------------------------------------------------------------------
+  */
+ void
+ Tcl_InitSubsystems(void)
+ {
+       TclInitSubsystems();
+ }
+ 
+ 

+ /*
+  *-------------------------------------------------------------------------
+  *
+  * TclInitSubsystems --
+  *
   *    Initialize various subsytems in Tcl. This should be called the first
   *    time an interp is created, or before any of the subsystems are used.
   *    This function ensures an order for the initialization of subsystems:

==== //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclStubInit.c#2 (text) ====

***************
*** 1136,1141 ****
--- 1136,1142 ----
      Tcl_AppendFormatToObj, /* 577 */
      Tcl_ObjPrintf, /* 578 */
      Tcl_AppendPrintfToObj, /* 579 */
+       Tcl_InitSubsystems, /* 580 */
  };
  
  /* !END!: Do not edit above this line. */
