Artifact 6dee5fa1e97ca6c245f0442b5b35bfadb28c141d:
- File
kitsh/buildsrc/kitsh-0.0/boot.tcl
— part of check-in
[77e40265de]
at
2010-09-26 04:49:35
on branch trunk
— Updated issue with opening directory
Updated to not panic if native encodings cannot be found (user: rkeene, size: 4087) [annotate] [blame] [check-ins using]
0000: 70 72 6f 63 20 74 63 6c 49 6e 69 74 20 7b 7d 20 proc tclInit {}
0010: 7b 0a 09 72 65 6e 61 6d 65 20 74 63 6c 49 6e 69 {..rename tclIni
0020: 74 20 7b 7d 0a 0a 09 67 6c 6f 62 61 6c 20 61 75 t {}...global au
0030: 74 6f 5f 70 61 74 68 20 74 63 6c 5f 6c 69 62 72 to_path tcl_libr
0040: 61 72 79 20 74 63 6c 5f 6c 69 62 50 61 74 68 0a ary tcl_libPath.
0050: 09 67 6c 6f 62 61 6c 20 74 63 6c 5f 76 65 72 73 .global tcl_vers
0060: 69 6f 6e 20 74 63 6c 5f 72 63 46 69 6c 65 4e 61 ion tcl_rcFileNa
0070: 6d 65 0a 20 20 0a 09 73 65 74 20 6e 6f 65 20 5b me. ..set noe [
0080: 69 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75 info nameofexecu
0090: 74 61 62 6c 65 5d 0a 0a 09 23 20 52 65 73 6f 6c table]...# Resol
00a0: 76 65 20 73 79 6d 6c 69 6e 6b 73 0a 09 73 65 74 ve symlinks..set
00b0: 20 6e 6f 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 noe [file dirna
00c0: 6d 65 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 me [file normali
00d0: 7a 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6e ze [file join $n
00e0: 6f 65 20 5f 5f 64 75 6d 6d 79 5f 5f 5d 5d 5d 0a oe __dummy__]]].
00f0: 0a 09 73 65 74 20 74 63 6c 5f 6c 69 62 72 61 72 ..set tcl_librar
0100: 79 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6e 6f y [file join $no
0110: 65 20 6c 69 62 20 74 63 6c 24 74 63 6c 5f 76 65 e lib tcl$tcl_ve
0120: 72 73 69 6f 6e 5d 0a 09 73 65 74 20 74 63 6c 5f rsion]..set tcl_
0130: 6c 69 62 50 61 74 68 20 5b 6c 69 73 74 20 24 74 libPath [list $t
0140: 63 6c 5f 6c 69 62 72 61 72 79 20 5b 66 69 6c 65 cl_library [file
0150: 20 6a 6f 69 6e 20 24 6e 6f 65 20 6c 69 62 5d 5d join $noe lib]]
0160: 0a 0a 09 23 20 67 65 74 20 72 69 64 20 6f 66 20 ...# get rid of
0170: 61 20 62 75 69 6c 64 20 72 65 73 69 64 75 65 0a a build residue.
0180: 09 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 .unset -nocompla
0190: 69 6e 20 3a 3a 74 63 6c 44 65 66 61 75 6c 74 4c in ::tclDefaultL
01a0: 69 62 72 61 72 79 0a 0a 09 23 20 74 68 65 20 66 ibrary...# the f
01b0: 6f 6c 6c 6f 77 69 6e 67 20 63 6f 64 65 20 6f 6e ollowing code on
01c0: 6c 79 20 67 65 74 73 20 65 78 65 63 75 74 65 64 ly gets executed
01d0: 20 6f 6e 63 65 20 6f 6e 20 73 74 61 72 74 75 70 once on startup
01e0: 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 ..if {[info exis
01f0: 74 73 20 74 63 6c 5f 72 63 46 69 6c 65 4e 61 6d ts tcl_rcFileNam
0200: 65 5d 7d 20 7b 0a 09 09 23 20 6c 6f 6f 6b 75 70 e]} {...# lookup
0210: 20 61 6e 64 20 65 6d 75 6c 61 74 65 20 22 73 6f and emulate "so
0220: 75 72 63 65 22 20 6f 66 20 6c 69 62 2f 76 66 73 urce" of lib/vfs
0230: 2f 7b 76 66 73 2a 2e 74 63 6c 2c 6d 6b 34 76 66 /{vfs*.tcl,mk4vf
0240: 73 2e 74 63 6c 7d 0a 09 09 73 77 69 74 63 68 20 s.tcl}...switch
0250: 2d 2d 20 24 3a 3a 74 63 6c 4b 69 74 53 74 6f 72 -- $::tclKitStor
0260: 61 67 65 20 7b 0a 09 09 09 22 6d 6b 34 22 20 7b age {...."mk4" {
0270: 0a 09 09 09 09 6c 6f 61 64 20 7b 7d 20 76 66 73 .....load {} vfs
0280: 0a 0a 09 09 09 09 23 20 6d 75 73 74 20 75 73 65 ......# must use
0290: 20 72 61 77 20 4d 65 74 61 4b 69 74 20 63 61 6c raw MetaKit cal
02a0: 6c 73 20 62 65 63 61 75 73 65 20 56 46 53 20 69 ls because VFS i
02b0: 73 20 6e 6f 74 20 79 65 74 20 69 6e 20 70 6c 61 s not yet in pla
02c0: 63 65 0a 09 09 09 09 73 65 74 20 64 20 5b 6d 6b ce.....set d [mk
02d0: 3a 3a 73 65 6c 65 63 74 20 65 78 65 2e 64 69 72 ::select exe.dir
02e0: 73 20 70 61 72 65 6e 74 20 30 20 6e 61 6d 65 20 s parent 0 name
02f0: 6c 69 62 5d 0a 09 09 09 09 73 65 74 20 64 20 5b lib].....set d [
0300: 6d 6b 3a 3a 73 65 6c 65 63 74 20 65 78 65 2e 64 mk::select exe.d
0310: 69 72 73 20 70 61 72 65 6e 74 20 24 64 20 6e 61 irs parent $d na
0320: 6d 65 20 76 66 73 5d 0a 20 20 20 20 0a 09 09 09 me vfs]. ....
0330: 09 66 6f 72 65 61 63 68 20 78 20 7b 76 66 73 55 .foreach x {vfsU
0340: 74 69 6c 73 20 76 66 73 6c 69 62 20 6d 6b 34 76 tils vfslib mk4v
0350: 66 73 7d 20 7b 0a 09 09 09 09 09 73 65 74 20 6e fs} {......set n
0360: 20 5b 6d 6b 3a 3a 73 65 6c 65 63 74 20 65 78 65 [mk::select exe
0370: 2e 64 69 72 73 21 24 64 2e 66 69 6c 65 73 20 6e .dirs!$d.files n
0380: 61 6d 65 20 24 78 2e 74 63 6c 5d 0a 09 09 09 09 ame $x.tcl].....
0390: 09 73 65 74 20 73 20 5b 6d 6b 3a 3a 67 65 74 20 .set s [mk::get
03a0: 65 78 65 2e 64 69 72 73 21 24 64 2e 66 69 6c 65 exe.dirs!$d.file
03b0: 73 21 24 6e 20 63 6f 6e 74 65 6e 74 73 5d 0a 09 s!$n contents]..
03c0: 09 09 09 09 63 61 74 63 68 20 7b 73 65 74 20 73 ....catch {set s
03d0: 20 5b 7a 6c 69 62 20 64 65 63 6f 6d 70 72 65 73 [zlib decompres
03e0: 73 20 24 73 5d 7d 0a 09 09 09 09 09 75 70 6c 65 s $s]}......uple
03f0: 76 65 6c 20 23 30 20 24 73 0a 09 09 09 09 7d 0a vel #0 $s.....}.
0400: 0a 09 09 09 09 23 20 75 73 65 20 6f 6e 2d 74 68 .....# use on-th
0410: 65 2d 66 6c 79 20 64 65 63 6f 6d 70 72 65 73 73 e-fly decompress
0420: 69 6f 6e 2c 20 69 66 20 6d 6b 34 76 66 73 20 75 ion, if mk4vfs u
0430: 6e 64 65 72 73 74 61 6e 64 73 20 74 68 61 74 0a nderstands that.
0440: 09 09 09 09 73 65 74 20 6d 6b 34 76 66 73 3a 3a ....set mk4vfs::
0450: 7a 73 74 72 65 61 6d 65 64 20 31 0a 0a 09 09 09 zstreamed 1.....
0460: 09 23 20 53 65 74 20 56 46 53 20 68 61 6e 64 6c .# Set VFS handl
0470: 65 72 20 6e 61 6d 65 0a 09 09 09 09 73 65 74 20 er name.....set
0480: 76 66 73 48 61 6e 64 6c 65 72 20 5b 6c 69 73 74 vfsHandler [list
0490: 20 3a 3a 76 66 73 3a 3a 6d 6b 34 3a 3a 68 61 6e ::vfs::mk4::han
04a0: 64 6c 65 72 20 65 78 65 5d 0a 09 09 09 7d 0a 09 dler exe]....}..
04b0: 09 09 22 7a 69 70 22 20 7b 0a 09 09 09 09 73 65 .."zip" {.....se
04c0: 74 20 70 72 65 66 69 78 20 22 6c 69 62 2f 76 66 t prefix "lib/vf
04d0: 73 22 0a 09 09 09 09 66 6f 72 65 61 63 68 20 66 s".....foreach f
04e0: 69 6c 65 20 5b 6c 69 73 74 20 76 66 73 55 74 69 ile [list vfsUti
04f0: 6c 73 20 76 66 73 6c 69 62 5d 20 7b 0a 09 09 09 ls vfslib] {....
0500: 09 09 73 65 74 20 66 75 6c 6c 66 69 6c 65 20 22 ..set fullfile "
0510: 24 7b 70 72 65 66 69 78 7d 2f 24 7b 66 69 6c 65 ${prefix}/${file
0520: 7d 2e 74 63 6c 22 0a 0a 09 09 09 09 09 3a 3a 7a }.tcl".......::z
0530: 69 70 3a 3a 73 74 61 74 20 24 3a 3a 74 63 6c 4b ip::stat $::tclK
0540: 69 74 53 74 6f 72 61 67 65 5f 66 64 20 24 66 75 itStorage_fd $fu
0550: 6c 6c 66 69 6c 65 20 66 69 6e 66 6f 0a 09 09 09 llfile finfo....
0560: 09 09 73 65 65 6b 20 24 3a 3a 74 63 6c 4b 69 74 ..seek $::tclKit
0570: 53 74 6f 72 61 67 65 5f 66 64 20 24 66 69 6e 66 Storage_fd $finf
0580: 6f 28 69 6e 6f 29 0a 09 09 09 09 09 7a 69 70 3a o(ino)......zip:
0590: 3a 44 61 74 61 20 24 3a 3a 74 63 6c 4b 69 74 53 :Data $::tclKitS
05a0: 74 6f 72 61 67 65 5f 66 64 20 73 62 20 73 0a 0a torage_fd sb s..
05b0: 09 09 09 09 09 73 77 69 74 63 68 20 2d 2d 20 24 .....switch -- $
05c0: 66 69 6c 65 20 7b 0a 09 09 09 09 09 09 22 76 66 file {......."vf
05d0: 73 55 74 69 6c 73 22 20 7b 0a 09 09 09 09 09 09 sUtils" {.......
05e0: 09 23 20 50 72 65 73 65 72 76 65 20 6f 75 72 20 .# Preserve our
05f0: 77 6f 72 6b 69 6e 67 20 22 3a 3a 76 66 73 3a 3a working "::vfs::
0600: 7a 69 70 22 20 69 6d 70 6c 65 6d 65 6e 74 61 74 zip" implementat
0610: 69 6f 6e 0a 09 09 09 09 09 09 09 23 20 73 6f 20 ion........# so
0620: 77 65 20 63 61 6e 20 72 65 70 6c 61 63 65 20 69 we can replace i
0630: 74 20 61 66 74 65 72 20 74 68 65 20 73 74 75 62 t after the stub
0640: 20 69 73 20 72 65 70 6c 61 63 65 64 0a 09 09 09 is replaced....
0650: 09 09 09 09 23 20 66 72 6f 6d 20 76 66 73 55 74 ....# from vfsUt
0660: 69 6c 73 0a 09 09 09 09 09 09 09 23 20 54 68 65 ils........# The
0670: 20 63 6f 72 72 65 63 74 20 69 6d 70 6c 65 6d 65 correct impleme
0680: 6e 74 61 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 ntation will be
0690: 70 72 6f 76 69 64 65 64 20 62 79 20 76 66 73 6c provided by vfsl
06a0: 69 62 2c 20 0a 09 09 09 09 09 09 09 23 20 62 75 ib, ........# bu
06b0: 74 20 6f 6e 6c 79 20 69 66 20 77 65 20 63 61 6e t only if we can
06c0: 20 72 65 61 64 20 69 74 0a 09 09 09 09 09 09 09 read it........
06d0: 72 65 6e 61 6d 65 20 3a 3a 76 66 73 3a 3a 7a 69 rename ::vfs::zi
06e0: 70 20 3a 3a 76 66 73 3a 3a 7a 69 70 5f 69 6d 70 p ::vfs::zip_imp
06f0: 6c 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d l.......}......}
0700: 0a 0a 09 09 09 09 09 75 70 6c 65 76 65 6c 20 23 .......uplevel #
0710: 30 20 24 73 0a 0a 09 09 09 09 09 73 77 69 74 63 0 $s.......switc
0720: 68 20 2d 2d 20 24 66 69 6c 65 20 7b 0a 09 09 09 h -- $file {....
0730: 09 09 09 22 76 66 73 55 74 69 6c 73 22 20 7b 0a ..."vfsUtils" {.
0740: 09 09 09 09 09 09 09 23 20 52 65 73 74 6f 72 65 .......# Restore
0750: 20 70 72 65 73 65 72 76 65 64 20 22 3a 3a 76 66 preserved "::vf
0760: 73 3a 7a 69 70 22 20 69 6d 70 6c 65 6d 65 6e 74 s:zip" implement
0770: 61 74 69 6f 6e 0a 09 09 09 09 09 09 09 72 65 6e ation........ren
0780: 61 6d 65 20 3a 3a 76 66 73 3a 3a 7a 69 70 20 7b ame ::vfs::zip {
0790: 7d 0a 09 09 09 09 09 09 09 72 65 6e 61 6d 65 20 }........rename
07a0: 3a 3a 76 66 73 3a 3a 7a 69 70 5f 69 6d 70 6c 20 ::vfs::zip_impl
07b0: 3a 3a 76 66 73 3a 3a 7a 69 70 0a 09 09 09 09 09 ::vfs::zip......
07c0: 09 7d 0a 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a .}......}.....}.
07d0: 0a 09 09 09 09 73 65 65 6b 20 24 3a 3a 74 63 6c .....seek $::tcl
07e0: 4b 69 74 53 74 6f 72 61 67 65 5f 66 64 20 30 0a KitStorage_fd 0.
07f0: 09 09 09 09 73 65 74 20 76 66 73 48 61 6e 64 6c ....set vfsHandl
0800: 65 72 20 5b 6c 69 73 74 20 3a 3a 76 66 73 3a 3a er [list ::vfs::
0810: 7a 69 70 3a 3a 68 61 6e 64 6c 65 72 20 24 3a 3a zip::handler $::
0820: 74 63 6c 4b 69 74 53 74 6f 72 61 67 65 5f 66 64 tclKitStorage_fd
0830: 5d 0a 09 09 09 09 75 6e 73 65 74 20 3a 3a 74 63 ].....unset ::tc
0840: 6c 4b 69 74 53 74 6f 72 61 67 65 5f 66 64 0a 09 lKitStorage_fd..
0850: 09 09 7d 0a 09 09 7d 0a 0a 09 09 23 20 6d 6f 75 ..}...}....# mou
0860: 6e 74 20 74 68 65 20 65 78 65 63 75 74 61 62 6c nt the executabl
0870: 65 2c 20 69 2e 65 2e 20 6d 61 6b 65 20 61 6c 6c e, i.e. make all
0880: 20 72 75 6e 74 69 6d 65 20 66 69 6c 65 73 20 61 runtime files a
0890: 76 61 69 6c 61 62 6c 65 0a 09 09 76 66 73 3a 3a vailable...vfs::
08a0: 66 69 6c 65 73 79 73 74 65 6d 20 6d 6f 75 6e 74 filesystem mount
08b0: 20 24 6e 6f 65 20 24 76 66 73 48 61 6e 64 6c 65 $noe $vfsHandle
08c0: 72 0a 0a 09 09 23 20 61 6c 74 65 72 20 70 61 74 r....# alter pat
08d0: 68 20 74 6f 20 66 69 6e 64 20 65 6e 63 6f 64 69 h to find encodi
08e0: 6e 67 73 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 ngs...if {[info
08f0: 74 63 6c 76 65 72 73 69 6f 6e 5d 20 65 71 20 22 tclversion] eq "
0900: 38 2e 34 22 7d 20 7b 0a 09 09 09 6c 6f 61 64 20 8.4"} {....load
0910: 7b 7d 20 70 77 62 0a 09 09 09 6c 69 62 72 61 72 {} pwb....librar
0920: 79 70 61 74 68 20 5b 69 6e 66 6f 20 6c 69 62 72 ypath [info libr
0930: 61 72 79 5d 0a 09 09 7d 20 65 6c 73 65 20 7b 0a ary]...} else {.
0940: 09 09 09 65 6e 63 6f 64 69 6e 67 20 64 69 72 73 ...encoding dirs
0950: 20 5b 6c 69 73 74 20 5b 66 69 6c 65 20 6a 6f 69 [list [file joi
0960: 6e 20 5b 69 6e 66 6f 20 6c 69 62 72 61 72 79 5d n [info library]
0970: 20 65 6e 63 6f 64 69 6e 67 5d 5d 20 3b 23 20 54 encoding]] ;# T
0980: 49 50 20 32 35 38 0a 09 09 7d 0a 0a 09 09 23 20 IP 258...}....#
0990: 66 69 78 20 73 79 73 74 65 6d 20 65 6e 63 6f 64 fix system encod
09a0: 69 6e 67 2c 20 69 66 20 69 74 20 77 61 73 6e 27 ing, if it wasn'
09b0: 74 20 70 72 6f 70 65 72 6c 79 20 73 65 74 20 75 t properly set u
09c0: 70 20 28 32 30 30 32 30 37 2e 30 30 34 20 62 75 p (200207.004 bu
09d0: 67 29 0a 09 09 69 66 20 7b 5b 65 6e 63 6f 64 69 g)...if {[encodi
09e0: 6e 67 20 73 79 73 74 65 6d 5d 20 65 71 20 22 69 ng system] eq "i
09f0: 64 65 6e 74 69 74 79 22 7d 20 7b 0a 09 09 09 69 dentity"} {....i
0a00: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 f {[info exists
0a10: 3a 3a 74 63 6c 6b 69 74 5f 73 79 73 74 65 6d 5f ::tclkit_system_
0a20: 65 6e 63 6f 64 69 6e 67 5d 20 26 26 20 24 3a 3a encoding] && $::
0a30: 74 63 6c 6b 69 74 5f 73 79 73 74 65 6d 5f 65 6e tclkit_system_en
0a40: 63 6f 64 69 6e 67 20 21 3d 20 22 22 7d 20 7b 0a coding != ""} {.
0a50: 09 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 09 ....catch {.....
0a60: 09 65 6e 63 6f 64 69 6e 67 20 73 79 73 74 65 6d .encoding system
0a70: 20 24 3a 3a 74 63 6c 6b 69 74 5f 73 79 73 74 65 $::tclkit_syste
0a80: 6d 5f 65 6e 63 6f 64 69 6e 67 0a 09 09 09 09 7d m_encoding.....}
0a90: 0a 09 09 09 7d 0a 09 09 09 75 6e 73 65 74 20 2d ....}....unset -
0aa0: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 3a 3a 74 63 6c nocomplain ::tcl
0ab0: 6b 69 74 5f 73 79 73 74 65 6d 5f 65 6e 63 6f 64 kit_system_encod
0ac0: 69 6e 67 0a 09 09 7d 0a 0a 09 09 23 20 49 66 20 ing...}....# If
0ad0: 77 65 27 76 65 20 73 74 69 6c 6c 20 6e 6f 74 20 we've still not
0ae0: 62 65 65 6e 20 61 62 6c 65 20 74 6f 20 73 65 74 been able to set
0af0: 20 74 68 65 20 65 6e 63 6f 64 69 6e 67 2c 20 72 the encoding, r
0b00: 65 76 65 72 74 20 74 6f 20 54 63 6c 6b 69 74 20 evert to Tclkit
0b10: 64 65 66 61 75 6c 74 73 0a 09 09 69 66 20 7b 5b defaults...if {[
0b20: 65 6e 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 5d encoding system]
0b30: 20 65 71 20 22 69 64 65 6e 74 69 74 79 22 7d 20 eq "identity"}
0b40: 7b 0a 09 09 09 63 61 74 63 68 20 7b 0a 09 09 09 {....catch {....
0b50: 09 73 77 69 74 63 68 20 24 3a 3a 74 63 6c 5f 70 .switch $::tcl_p
0b60: 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d latform(platform
0b70: 29 20 7b 0a 09 09 09 09 09 77 69 6e 64 6f 77 73 ) {......windows
0b80: 09 09 7b 20 65 6e 63 6f 64 69 6e 67 20 73 79 73 ..{ encoding sys
0b90: 74 65 6d 20 63 70 31 32 35 32 20 7d 0a 09 09 09 tem cp1252 }....
0ba0: 09 09 6d 61 63 69 6e 74 6f 73 68 09 7b 20 65 6e ..macintosh.{ en
0bb0: 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 20 6d 61 coding system ma
0bc0: 63 52 6f 6d 61 6e 20 7d 0a 09 09 09 09 20 20 20 cRoman }.....
0bd0: 20 20 20 20 20 64 65 66 61 75 6c 74 09 09 7b 20 default..{
0be0: 65 6e 63 6f 64 69 6e 67 20 73 79 73 74 65 6d 20 encoding system
0bf0: 69 73 6f 38 38 35 39 2d 31 20 7d 0a 09 09 09 09 iso8859-1 }.....
0c00: 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 23 20 }....}...}....#
0c10: 6e 6f 77 20 72 65 6d 6f 75 6e 74 20 74 68 65 20 now remount the
0c20: 65 78 65 63 75 74 61 62 6c 65 20 77 69 74 68 20 executable with
0c30: 74 68 65 20 63 6f 72 72 65 63 74 20 65 6e 63 6f the correct enco
0c40: 64 69 6e 67 0a 09 09 76 66 73 3a 3a 66 69 6c 65 ding...vfs::file
0c50: 73 79 73 74 65 6d 20 75 6e 6d 6f 75 6e 74 20 5b system unmount [
0c60: 6c 69 6e 64 65 78 20 5b 3a 3a 76 66 73 3a 3a 66 lindex [::vfs::f
0c70: 69 6c 65 73 79 73 74 65 6d 20 69 6e 66 6f 5d 20 ilesystem info]
0c80: 30 5d 0a 0a 09 09 73 65 74 20 6e 6f 65 20 5b 69 0]....set noe [i
0c90: 6e 66 6f 20 6e 61 6d 65 6f 66 65 78 65 63 75 74 nfo nameofexecut
0ca0: 61 62 6c 65 5d 0a 0a 09 09 23 20 52 65 73 6f 6c able]....# Resol
0cb0: 76 65 20 73 79 6d 6c 69 6e 6b 73 0a 09 09 73 65 ve symlinks...se
0cc0: 74 20 6e 6f 65 20 5b 66 69 6c 65 20 64 69 72 6e t noe [file dirn
0cd0: 61 6d 65 20 5b 66 69 6c 65 20 6e 6f 72 6d 61 6c ame [file normal
0ce0: 69 7a 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 ize [file join $
0cf0: 6e 6f 65 20 5f 5f 64 75 6d 6d 79 5f 5f 5d 5d 5d noe __dummy__]]]
0d00: 0a 0a 09 09 73 65 74 20 74 63 6c 5f 6c 69 62 72 ....set tcl_libr
0d10: 61 72 79 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 ary [file join $
0d20: 6e 6f 65 20 6c 69 62 20 74 63 6c 24 74 63 6c 5f noe lib tcl$tcl_
0d30: 76 65 72 73 69 6f 6e 5d 0a 09 09 73 65 74 20 74 version]...set t
0d40: 63 6c 5f 6c 69 62 50 61 74 68 20 5b 6c 69 73 74 cl_libPath [list
0d50: 20 24 74 63 6c 5f 6c 69 62 72 61 72 79 20 5b 66 $tcl_library [f
0d60: 69 6c 65 20 6a 6f 69 6e 20 24 6e 6f 65 20 6c 69 ile join $noe li
0d70: 62 5d 5d 0a 0a 09 09 76 66 73 3a 3a 66 69 6c 65 b]]....vfs::file
0d80: 73 79 73 74 65 6d 20 6d 6f 75 6e 74 20 24 6e 6f system mount $no
0d90: 65 20 24 76 66 73 48 61 6e 64 6c 65 72 0a 09 7d e $vfsHandler..}
0da0: 0a 20 20 0a 09 23 20 6c 6f 61 64 20 63 6f 6e 66 . ..# load conf
0db0: 69 67 20 73 65 74 74 69 6e 67 73 20 66 69 6c 65 ig settings file
0dc0: 20 69 66 20 70 72 65 73 65 6e 74 0a 09 6e 61 6d if present..nam
0dd0: 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 66 espace eval ::vf
0de0: 73 20 7b 20 76 61 72 69 61 62 6c 65 20 74 63 6c s { variable tcl
0df0: 6b 69 74 5f 76 65 72 73 69 6f 6e 20 31 20 7d 0a kit_version 1 }.
0e00: 09 63 61 74 63 68 20 7b 20 75 70 6c 65 76 65 6c .catch { uplevel
0e10: 20 23 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 #0 [list source
0e20: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6e 6f 65 [file join $noe
0e30: 20 63 6f 6e 66 69 67 2e 74 63 6c 5d 5d 20 7d 0a config.tcl]] }.
0e40: 0a 09 75 70 6c 65 76 65 6c 20 23 30 20 5b 6c 69 ..uplevel #0 [li
0e50: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 st source [file
0e60: 6a 6f 69 6e 20 24 74 63 6c 5f 6c 69 62 72 61 72 join $tcl_librar
0e70: 79 20 69 6e 69 74 2e 74 63 6c 5d 5d 0a 20 20 0a y init.tcl]]. .
0e80: 09 23 20 72 65 73 65 74 20 61 75 74 6f 5f 70 61 .# reset auto_pa
0e90: 74 68 2c 20 73 6f 20 74 68 61 74 20 69 6e 69 74 th, so that init
0ea0: 2e 74 63 6c 27 73 20 73 65 61 72 63 68 20 6f 75 .tcl's search ou
0eb0: 74 73 69 64 65 20 6f 66 20 74 63 6c 6b 69 74 20 tside of tclkit
0ec0: 69 73 20 63 61 6e 63 65 6c 6c 65 64 0a 09 73 65 is cancelled..se
0ed0: 74 20 61 75 74 6f 5f 70 61 74 68 20 24 74 63 6c t auto_path $tcl
0ee0: 5f 6c 69 62 50 61 74 68 0a 0a 09 23 20 54 68 69 _libPath...# Thi
0ef0: 73 20 6c 6f 61 64 73 20 65 76 65 72 79 74 68 69 s loads everythi
0f00: 6e 67 20 6e 65 65 64 65 64 20 66 6f 72 20 22 63 ng needed for "c
0f10: 6c 6f 63 6b 20 73 63 61 6e 22 20 74 6f 20 77 6f lock scan" to wo
0f20: 72 6b 0a 09 23 20 22 63 6c 6f 63 6b 20 73 63 61 rk..# "clock sca
0f30: 6e 22 20 69 73 20 75 73 65 64 20 77 69 74 68 69 n" is used withi
0f40: 6e 20 22 76 66 73 3a 3a 7a 69 70 22 2c 20 77 68 n "vfs::zip", wh
0f50: 69 63 68 20 6d 61 79 20 62 65 0a 09 23 20 6c 6f ich may be..# lo
0f60: 61 64 65 64 20 62 65 66 6f 72 65 20 74 68 69 73 aded before this
0f70: 20 69 73 20 72 75 6e 20 63 61 75 73 69 6e 67 20 is run causing
0f80: 74 68 65 20 72 6f 6f 74 20 56 46 53 20 74 6f 20 the root VFS to
0f90: 62 72 65 61 6b 0a 09 63 61 74 63 68 20 7b 20 63 break..catch { c
0fa0: 6c 6f 63 6b 20 73 63 61 6e 20 7d 0a 0a 09 23 20 lock scan }...#
0fb0: 43 6c 65 61 6e 75 70 0a 09 75 6e 73 65 74 20 3a Cleanup..unset :
0fc0: 3a 74 63 6c 4b 69 74 53 74 6f 72 61 67 65 0a 09 :tclKitStorage..
0fd0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 unset -nocomplai
0fe0: 6e 20 3a 3a 74 63 6c 4b 69 74 53 74 6f 72 61 67 n ::tclKitStorag
0ff0: 65 5f 66 64 0a 7d 0a e_fd.}.