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
292
277
278
279
280
281
282
283

284
285
286
287
288
289
290
291
292







-
+








	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) {
	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
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 "  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"