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: |
4ac72a422f8d0af714a9d06822bf3d68 |
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 |
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 292 |
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"
|