Check-in [e6ab988ad4]
Overview
SHA1:e6ab988ad474cefc424de39ff4de1ea63c9376ff
Date: 2016-02-24 20:41:54
User: rkeene
Comment:Create a Tcl_Init() symbol if we are creating a static libtclkit
Timelines: family | ancestors | feature-kitdll-static
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2016-02-24
20:52
[3fc6a2107a] Merged in support for creating a static KitDLL (user: rkeene, tags: trunk)
20:41
[e6ab988ad4] Closed-Leaf: Create a Tcl_Init() symbol if we are creating a static libtclkit (user: rkeene, tags: feature-kitdll-static)
20:26
[eb5004bca0] Created a mechanism for specifying which KitDLL to build (user: rkeene, tags: feature-kitdll-static)
Changes

Modified kitsh/buildsrc/kitsh-0.0/kitInit.c from [3cb384a768] to [f888dda2c4].

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