9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
variable commands
set dir [file dirname [info script]]
if {[info command ::tcc] == ""} {
catch { load {} tcc }
}
if {[info command ::tcc] == ""} {
switch -exact -- $::tcl_platform(platform) {
windows { load $dir/tcc04.dll tcc }
unix { load $dir/libtcc0.4.so tcc }
default {error "unsupport platform"}
}
|
<
|
<
<
<
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
variable commands
set dir [file dirname [info script]]
if {[info command ::tcc] == ""} {
catch { load {} tcc }
}
if {[info command ::tcc] == ""} {
load [file join $dir tcctcl[info sharedlibextension]] tcc
}
set libs $dir/lib
set includes $dir/include
set count 0
set command_count 0
array set commands {}
proc new {} {
|