11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
namespace eval tclreadline:: {
namespace export Init
}
proc ::tclreadline::Init {} {
uplevel #0 {
if ![info exists tclreadline::library] {
if [catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg] {
puts stderr $msg
exit 2
}
}
}
}
|
|
|
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
namespace eval tclreadline:: {
namespace export Init
}
proc ::tclreadline::Init {} {
uplevel #0 {
if {![info exists tclreadline::library]} {
if {[catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} msg]} {
puts stderr $msg
exit 2
}
}
}
}
|