Check-in [4ac72a422f]
Overview
Comment:Updated to call Tcl_InitStubs() with the current version of Tcl
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4ac72a422f8d0af714a9d06822bf3d682680194c
User & Date: rkeene on 2014-06-21 15:47:25
Other Links: manifest | tags
Context
2014-06-21
15:51
Updated to produce an error if we are unable to load tcc4tcl shared object check-in: 31cdd14393 user: rkeene tags: trunk
15:47
Updated to call Tcl_InitStubs() with the current version of Tcl check-in: 4ac72a422f user: rkeene tags: trunk
15:43
Updated to name Test TCL script something other than "test" so it does not conflict with the "test" target in Make check-in: ecb01f7ca0 user: rkeene tags: trunk
Changes

Modified tcc4tcl.c from [927889c501] to [1d0ef6f107].

277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
	Tcl_SetObjResult(interp, objv[objc-1]);

	return TCL_OK;
}

int Tcc4tcl_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
	if (Tcl_InitStubs(interp, "8.4" , 0) == 0L) {
		return TCL_ERROR;
	}
#endif

	Tcl_CreateObjCommand(interp, "tcc4tcl", Tcc4tclCreateCmd, NULL, NULL);

	return TCL_OK;







|







277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
	Tcl_SetObjResult(interp, objv[objc-1]);

	return TCL_OK;
}

int Tcc4tcl_Init(Tcl_Interp *interp) {
#ifdef USE_TCL_STUBS
	if (Tcl_InitStubs(interp, TCL_VERSION , 0) == 0L) {
		return TCL_ERROR;
	}
#endif

	Tcl_CreateObjCommand(interp, "tcc4tcl", Tcc4tclCreateCmd, NULL, NULL);

	return TCL_OK;

Modified tcc4tcl.tcl from [f0b650b1d1] to [c6ec4386d1].

117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
				set packageVersion [lindex $state(package) 1]
				if {$packageVersion == ""} {
					set packageVersion "0"
				}

				append code "int [string totitle $packageName]_Init(Tcl_Interp *interp) \{\n"
				append code "#ifdef USE_TCL_STUBS\n"
				append code "  if (Tcl_InitStubs(interp, \"8.4\" , 0) == 0L) \{\n"
				append code "    return TCL_ERROR;\n"
				append code "  \}\n"
				append code "#endif\n"

				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
					foreach {procname cname} $state(procs) {
						append code "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);\n"







|







117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
				set packageVersion [lindex $state(package) 1]
				if {$packageVersion == ""} {
					set packageVersion "0"
				}

				append code "int [string totitle $packageName]_Init(Tcl_Interp *interp) \{\n"
				append code "#ifdef USE_TCL_STUBS\n"
				append code "  if (Tcl_InitStubs(interp, TCL_VERSION, 0) == 0L) \{\n"
				append code "    return TCL_ERROR;\n"
				append code "  \}\n"
				append code "#endif\n"

				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
					foreach {procname cname} $state(procs) {
						append code "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);\n"