Overview
| Comment: | Updated to not error out about not being able to load the library until we actually need to use it |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0e71626442d6cb428804f7ec5be770d8 |
| User & Date: | rkeene on 2014-06-23 01:51:33 |
| Other Links: | manifest | tags |
Context
|
2014-06-23
| ||
| 02:20 | Updated to default to building and linking shared check-in: b9a7430007 user: rkeene tags: trunk | |
| 01:51 | Updated to not error out about not being able to load the library until we actually need to use it check-in: 0e71626442 user: rkeene tags: trunk | |
| 01:47 | Used more appropriate return value check-in: 08ca5c9084 user: rkeene tags: trunk | |
Changes
Modified tcc4tcl.tcl from [f0b6dd4e2e] to [30ebc63823].
1 2 3 4 5 6 7 8 9 10 11 12 13 |
# 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
}
| > < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
# 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
}
set count 0
proc new {{output ""} {pkgName ""}} {
variable dir
variable count
|
| ︙ | ︙ | |||
187 188 189 190 191 192 193 |
set tcc_type "dll"
}
default {
set tcc_type $state(type)
}
}
| > > > > | | 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 |
set tcc_type "dll"
}
default {
set tcc_type $state(type)
}
}
if {[info command ::tcc4tcl] == ""} {
return -code error "Unable to load tcc4tcl library"
}
::tcc4tcl $dir $tcc_type tcc
foreach path $state(add_inc_path) {
tcc add_include_path $path
}
foreach path $state(add_lib_path) {
tcc add_library_path $path
|
| ︙ | ︙ |