Overview
| Comment: | Updated to produce an error if we are unable to load tcc4tcl shared object |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
31cdd1439331b8e4ab34a4caed24c61f |
| User & Date: | rkeene on 2014-06-21 15:51:03 |
| Other Links: | manifest | tags |
Context
|
2014-06-21
| ||
| 17:38 | Updated to use correct Tcl version when initializing stubs check-in: 0ca36ca558 user: rkeene tags: trunk | |
| 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 | |
Changes
Modified tcc4tcl.tcl from [c6ec4386d1] to [3622379b6b].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | + + + |
# tcc.tcl - library routines for the tcc wrapper (Mark Janssen)
namespace eval tcc4tcl {
variable dir
variable count
set dir [file dirname [info script]]
if {[info command ::tcc4tcl] == ""} {
catch { load {} tcc4tcl }
}
if {[info command ::tcc4tcl] == ""} {
load [file join $dir tcc4tcl[info sharedlibextension]] tcc4tcl
}
if {[info command ::tcc4tcl] == ""} {
error "Unable to load tcc4tcl shared library"
}
set count 0
proc new {{output ""} {pkgName ""}} {
variable dir
variable count
|
| ︙ |