Overview
| Comment: | Updated not produce an error if we cannot load the tcc4tcl shared object since it is possible to use the Tcl-only portion |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d1b6ddb9a14c0a3fdb0b5974aec20c42 |
| User & Date: | rkeene on 2017-10-13 17:59:23.690 |
| Other Links: | manifest | tags |
Context
|
2017-10-13
| ||
| 19:56 | Updated to support very basic processing of the command-line check-in: dbb450841d user: rkeene tags: trunk | |
| 17:59 | Updated not produce an error if we cannot load the tcc4tcl shared object since it is possible to use the Tcl-only portion check-in: d1b6ddb9a1 user: rkeene tags: trunk | |
|
2017-01-08
| ||
| 06:14 | tcc4tcl 0.29 check-in: 8c41429bfc user: rkeene tags: trunk, 0.29 | |
Changes
Modified tcc4tcl.tcl
from [991d4e1c6b]
to [a5b9327e8f].
1 2 3 4 5 6 7 8 9 10 11 12 |
# 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] == ""} {
| > | > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
# 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] == ""} {
catch {
load [file join $dir tcc4tcl[info sharedlibextension]] tcc4tcl
}
}
set count 0
proc lookupNamespace {name} {
if {![string match "::*" $name]} {
set nsfrom [uplevel 2 {namespace current}]
|
| ︙ | ︙ |