-
Notifications
You must be signed in to change notification settings - Fork 0
/
info.tcl
43 lines (36 loc) · 1.07 KB
/
info.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
parray tcl_platform
# tcl_platform(byteOrder) = littleEndian
# tcl_platform(engine) = Tcl
# tcl_platform(machine) = x86_64
# tcl_platform(os) = Linux
# tcl_platform(osVersion) = 6.2.0-35-generic
# tcl_platform(pathSeparator) = :
# tcl_platform(platform) = unix
# tcl_platform(pointerSize) = 8
# tcl_platform(threaded) = 1
# tcl_platform(user) = gilbert
# tcl_platform(wordSize) = 8
puts [string cat "tcl_version " $tcl_version]
# tcl_version 8.6
puts [string cat "tcl_patchLevel " $tcl_patchLevel]
# tcl_version 8.6.12
puts [string cat "tcl_library " $tcl_library]
# /usr/share/tcltk/tcl8.6
set paths [split $auto_path " "]
foreach path $paths {
puts $path
}
# /usr/share/tcltk/tcl8.6
# /usr/share/tcltk
# /usr/lib
# /usr/local/lib/tcltk
# /usr/local/share/tcltk
# /usr/lib/tcltk/x86_64-linux-gnu
# /usr/lib/tcltk
# /usr/lib/tcltk/tcl8.6
puts $[package ifneeded Tk [package require Tk]]
#$load /usr/lib/x86_64-linux-gnu/libtk8.6.so
package require Tk
# 8.6.12
puts [info loaded]
# {/usr/lib/x86_64-linux-gnu/libtk8.6.so Tk}