205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
"}\n"
#ifdef TCLKIT_DLL
"set ::TCLKIT_TYPE \"kitdll\"\n"
#else
"set ::TCLKIT_TYPE \"tclkit\"\n"
#endif /* TCLKIT_DLL */
"set ::TCLKIT_MOUNTPOINT " TCLKIT_MOUNTPOINT "\n"
"set ::TCLKIT_VFSSOURCE " TCLKIT_VFSSOURCE "\n"
"set ::TCLKIT_MOUNTPOINT_VAR {" TCLKIT_MOUNTPOINT "}\n"
"set ::TCLKIT_VFSSOURCE_VAR {" TCLKIT_VFSSOURCE "}\n"
"uplevel #0 $s\n"
#if defined(KIT_INCLUDES_TK) && defined(KIT_TK_VERSION)
"package ifneeded Tk " KIT_TK_VERSION " {\n"
"load {} Tk\n"
"}\n"
|
|
|
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
"}\n"
#ifdef TCLKIT_DLL
"set ::TCLKIT_TYPE \"kitdll\"\n"
#else
"set ::TCLKIT_TYPE \"tclkit\"\n"
#endif /* TCLKIT_DLL */
"set ::TCLKIT_MOUNTPOINT " TCLKIT_MOUNTPOINT "\n"
"catch { set ::TCLKIT_VFSSOURCE " TCLKIT_VFSSOURCE " }\n"
"set ::TCLKIT_MOUNTPOINT_VAR {" TCLKIT_MOUNTPOINT "}\n"
"set ::TCLKIT_VFSSOURCE_VAR {" TCLKIT_VFSSOURCE "}\n"
"uplevel #0 $s\n"
#if defined(KIT_INCLUDES_TK) && defined(KIT_TK_VERSION)
"package ifneeded Tk " KIT_TK_VERSION " {\n"
"load {} Tk\n"
"}\n"
|
567
568
569
570
571
572
573
574
575
576
577
578
579
|
* are ready to be used when invoked.
*/
#ifdef TCLKIT_DLL
void __attribute__((constructor)) _Tclkit_Init(void) {
#else
static void _Tclkit_Init(void) {
#endif
Tcl_StaticPackage(0, "tclkit::init", Tclkit_init_Init, NULL);
_Tclkit_Generic_Init();
return;
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
|
* are ready to be used when invoked.
*/
#ifdef TCLKIT_DLL
void __attribute__((constructor)) _Tclkit_Init(void) {
#else
static void _Tclkit_Init(void) {
#endif
static int called = 0;
if (called) {
return;
}
called = 1;
Tcl_StaticPackage(0, "tclkit::init", Tclkit_init_Init, NULL);
_Tclkit_Generic_Init();
return;
}
#if defined(TCLKIT_DLL) && defined(TCLKIT_DLL_STATIC)
int Tcl_InitReal(Tcl_Interp *interp);
int Tcl_Init(Tcl_Interp *interp) {
_Tclkit_Init();
return(Tcl_InitReal(interp));
}
#endif
|