Hex Artifact Content

Artifact 05bce6a79bcbade8820c40fc851f35baa17a2c51:


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 23 20 53 65 74 20 70 61 74  me.  ..# Set pat
0080: 68 20 77 68 65 72 65 20 74 6f 20 6d 6f 75 6e 74  h where to mount
0090: 20 56 46 53 0a 09 73 65 74 20 6e 6f 65 20 22 2f   VFS..set noe "/
00a0: 2e 4b 49 54 44 4c 4c 5f 54 43 4c 22 0a 0a 09 73  .KITDLL_TCL"...s
00b0: 65 74 20 74 63 6c 5f 6c 69 62 72 61 72 79 20 5b  et tcl_library [
00c0: 66 69 6c 65 20 6a 6f 69 6e 20 24 6e 6f 65 20 6c  file join $noe l
00d0: 69 62 20 74 63 6c 24 74 63 6c 5f 76 65 72 73 69  ib tcl$tcl_versi
00e0: 6f 6e 5d 0a 09 73 65 74 20 74 63 6c 5f 6c 69 62  on]..set tcl_lib
00f0: 50 61 74 68 20 5b 6c 69 73 74 20 24 74 63 6c 5f  Path [list $tcl_
0100: 6c 69 62 72 61 72 79 20 5b 66 69 6c 65 20 6a 6f  library [file jo
0110: 69 6e 20 24 6e 6f 65 20 6c 69 62 5d 5d 0a 0a 09  in $noe lib]]...
0120: 23 20 67 65 74 20 72 69 64 20 6f 66 20 61 20 62  # get rid of a b
0130: 75 69 6c 64 20 72 65 73 69 64 75 65 0a 09 75 6e  uild residue..un
0140: 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20  set -nocomplain 
0150: 3a 3a 74 63 6c 44 65 66 61 75 6c 74 4c 69 62 72  ::tclDefaultLibr
0160: 61 72 79 0a 0a 09 23 20 74 68 65 20 66 6f 6c 6c  ary...# the foll
0170: 6f 77 69 6e 67 20 63 6f 64 65 20 6f 6e 6c 79 20  owing code only 
0180: 67 65 74 73 20 65 78 65 63 75 74 65 64 20 6f 6e  gets executed on
0190: 63 65 20 6f 6e 20 73 74 61 72 74 75 70 0a 09 69  ce on startup..i
01a0: 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20  f {[info exists 
01b0: 74 63 6c 5f 72 63 46 69 6c 65 4e 61 6d 65 5d 7d  tcl_rcFileName]}
01c0: 20 7b 0a 09 09 73 65 74 20 76 66 73 48 61 6e 64   {...set vfsHand
01d0: 6c 65 72 20 5b 6c 69 73 74 20 3a 3a 76 66 73 3a  ler [list ::vfs:
01e0: 3a 6b 69 74 64 6c 6c 3a 3a 76 66 73 68 61 6e 64  :kitdll::vfshand
01f0: 6c 65 72 20 74 63 6c 5d 0a 0a 09 09 23 20 61 6c  ler tcl]....# al
0200: 74 65 72 20 70 61 74 68 20 74 6f 20 66 69 6e 64  ter path to find
0210: 20 65 6e 63 6f 64 69 6e 67 73 0a 09 09 69 66 20   encodings...if 
0220: 7b 5b 69 6e 66 6f 20 74 63 6c 76 65 72 73 69 6f  {[info tclversio
0230: 6e 5d 20 65 71 20 22 38 2e 34 22 7d 20 7b 0a 09  n] eq "8.4"} {..
0240: 09 09 6c 6f 61 64 20 7b 7d 20 70 77 62 0a 09 09  ..load {} pwb...
0250: 09 6c 69 62 72 61 72 79 70 61 74 68 20 5b 69 6e  .librarypath [in
0260: 66 6f 20 6c 69 62 72 61 72 79 5d 0a 09 09 7d 20  fo library]...} 
0270: 65 6c 73 65 20 7b 0a 09 09 09 65 6e 63 6f 64 69  else {....encodi
0280: 6e 67 20 64 69 72 73 20 5b 6c 69 73 74 20 5b 66  ng dirs [list [f
0290: 69 6c 65 20 6a 6f 69 6e 20 5b 69 6e 66 6f 20 6c  ile join [info l
02a0: 69 62 72 61 72 79 5d 20 65 6e 63 6f 64 69 6e 67  ibrary] encoding
02b0: 5d 5d 20 3b 23 20 54 49 50 20 32 35 38 0a 09 09  ]] ;# TIP 258...
02c0: 7d 0a 0a 09 09 23 20 66 69 78 20 73 79 73 74 65  }....# fix syste
02d0: 6d 20 65 6e 63 6f 64 69 6e 67 2c 20 69 66 20 69  m encoding, if i
02e0: 74 20 77 61 73 6e 27 74 20 70 72 6f 70 65 72 6c  t wasn't properl
02f0: 79 20 73 65 74 20 75 70 20 28 32 30 30 32 30 37  y set up (200207
0300: 2e 30 30 34 20 62 75 67 29 0a 09 09 69 66 20 7b  .004 bug)...if {
0310: 5b 65 6e 63 6f 64 69 6e 67 20 73 79 73 74 65 6d  [encoding system
0320: 5d 20 65 71 20 22 69 64 65 6e 74 69 74 79 22 7d  ] eq "identity"}
0330: 20 7b 0a 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20   {....if {[info 
0340: 65 78 69 73 74 73 20 3a 3a 74 63 6c 6b 69 74 5f  exists ::tclkit_
0350: 73 79 73 74 65 6d 5f 65 6e 63 6f 64 69 6e 67 5d  system_encoding]
0360: 20 26 26 20 24 3a 3a 74 63 6c 6b 69 74 5f 73 79   && $::tclkit_sy
0370: 73 74 65 6d 5f 65 6e 63 6f 64 69 6e 67 20 21 3d  stem_encoding !=
0380: 20 22 22 7d 20 7b 0a 09 09 09 09 63 61 74 63 68   ""} {.....catch
0390: 20 7b 0a 09 09 09 09 09 65 6e 63 6f 64 69 6e 67   {......encoding
03a0: 20 73 79 73 74 65 6d 20 24 3a 3a 74 63 6c 6b 69   system $::tclki
03b0: 74 5f 73 79 73 74 65 6d 5f 65 6e 63 6f 64 69 6e  t_system_encodin
03c0: 67 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09  g.....}....}....
03d0: 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69  unset -nocomplai
03e0: 6e 20 3a 3a 74 63 6c 6b 69 74 5f 73 79 73 74 65  n ::tclkit_syste
03f0: 6d 5f 65 6e 63 6f 64 69 6e 67 0a 09 09 7d 0a 0a  m_encoding...}..
0400: 09 09 23 20 49 66 20 77 65 27 76 65 20 73 74 69  ..# If we've sti
0410: 6c 6c 20 6e 6f 74 20 62 65 65 6e 20 61 62 6c 65  ll not been able
0420: 20 74 6f 20 73 65 74 20 74 68 65 20 65 6e 63 6f   to set the enco
0430: 64 69 6e 67 2c 20 72 65 76 65 72 74 20 74 6f 20  ding, revert to 
0440: 54 63 6c 6b 69 74 20 64 65 66 61 75 6c 74 73 0a  Tclkit defaults.
0450: 09 09 69 66 20 7b 5b 65 6e 63 6f 64 69 6e 67 20  ..if {[encoding 
0460: 73 79 73 74 65 6d 5d 20 65 71 20 22 69 64 65 6e  system] eq "iden
0470: 74 69 74 79 22 7d 20 7b 0a 09 09 09 63 61 74 63  tity"} {....catc
0480: 68 20 7b 0a 09 09 09 09 73 77 69 74 63 68 20 24  h {.....switch $
0490: 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70  ::tcl_platform(p
04a0: 6c 61 74 66 6f 72 6d 29 20 7b 0a 09 09 09 09 09  latform) {......
04b0: 77 69 6e 64 6f 77 73 09 09 7b 20 65 6e 63 6f 64  windows..{ encod
04c0: 69 6e 67 20 73 79 73 74 65 6d 20 63 70 31 32 35  ing system cp125
04d0: 32 20 7d 0a 09 09 09 09 09 6d 61 63 69 6e 74 6f  2 }......macinto
04e0: 73 68 09 7b 20 65 6e 63 6f 64 69 6e 67 20 73 79  sh.{ encoding sy
04f0: 73 74 65 6d 20 6d 61 63 52 6f 6d 61 6e 20 7d 0a  stem macRoman }.
0500: 09 09 09 09 20 20 20 20 20 20 20 20 64 65 66 61  ....        defa
0510: 75 6c 74 09 09 7b 20 65 6e 63 6f 64 69 6e 67 20  ult..{ encoding 
0520: 73 79 73 74 65 6d 20 69 73 6f 38 38 35 39 2d 31  system iso8859-1
0530: 20 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09   }.....}....}...
0540: 7d 0a 0a 09 09 23 20 6e 6f 77 20 72 65 6d 6f 75  }....# now remou
0550: 6e 74 20 74 68 65 20 65 78 65 63 75 74 61 62 6c  nt the executabl
0560: 65 20 77 69 74 68 20 74 68 65 20 63 6f 72 72 65  e with the corre
0570: 63 74 20 65 6e 63 6f 64 69 6e 67 0a 09 09 76 66  ct encoding...vf
0580: 73 3a 3a 66 69 6c 65 73 79 73 74 65 6d 20 75 6e  s::filesystem un
0590: 6d 6f 75 6e 74 20 5b 6c 69 6e 64 65 78 20 5b 3a  mount [lindex [:
05a0: 3a 76 66 73 3a 3a 66 69 6c 65 73 79 73 74 65 6d  :vfs::filesystem
05b0: 20 69 6e 66 6f 5d 20 30 5d 0a 0a 09 09 23 20 52   info] 0]....# R
05c0: 65 73 6f 6c 76 65 20 73 79 6d 6c 69 6e 6b 73 0a  esolve symlinks.
05d0: 09 09 73 65 74 20 6e 6f 65 20 5b 66 69 6c 65 20  ..set noe [file 
05e0: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 6e 6f  dirname [file no
05f0: 72 6d 61 6c 69 7a 65 20 5b 66 69 6c 65 20 6a 6f  rmalize [file jo
0600: 69 6e 20 24 6e 6f 65 20 5f 5f 64 75 6d 6d 79 5f  in $noe __dummy_
0610: 5f 5d 5d 5d 0a 0a 09 09 73 65 74 20 74 63 6c 5f  _]]]....set tcl_
0620: 6c 69 62 72 61 72 79 20 5b 66 69 6c 65 20 6a 6f  library [file jo
0630: 69 6e 20 24 6e 6f 65 20 6c 69 62 20 74 63 6c 24  in $noe lib tcl$
0640: 74 63 6c 5f 76 65 72 73 69 6f 6e 5d 0a 09 09 73  tcl_version]...s
0650: 65 74 20 74 63 6c 5f 6c 69 62 50 61 74 68 20 5b  et tcl_libPath [
0660: 6c 69 73 74 20 24 74 63 6c 5f 6c 69 62 72 61 72  list $tcl_librar
0670: 79 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 6e 6f  y [file join $no
0680: 65 20 6c 69 62 5d 5d 0a 0a 09 09 76 66 73 3a 3a  e lib]]....vfs::
0690: 66 69 6c 65 73 79 73 74 65 6d 20 6d 6f 75 6e 74  filesystem mount
06a0: 20 24 6e 6f 65 20 24 76 66 73 48 61 6e 64 6c 65   $noe $vfsHandle
06b0: 72 0a 09 7d 0a 20 20 0a 09 23 20 6c 6f 61 64 20  r..}.  ..# load 
06c0: 63 6f 6e 66 69 67 20 73 65 74 74 69 6e 67 73 20  config settings 
06d0: 66 69 6c 65 20 69 66 20 70 72 65 73 65 6e 74 0a  file if present.
06e0: 09 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20  .namespace eval 
06f0: 3a 3a 76 66 73 20 7b 20 76 61 72 69 61 62 6c 65  ::vfs { variable
0700: 20 74 63 6c 6b 69 74 5f 76 65 72 73 69 6f 6e 20   tclkit_version 
0710: 31 20 7d 0a 09 63 61 74 63 68 20 7b 20 75 70 6c  1 }..catch { upl
0720: 65 76 65 6c 20 23 30 20 5b 6c 69 73 74 20 73 6f  evel #0 [list so
0730: 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  urce [file join 
0740: 24 6e 6f 65 20 63 6f 6e 66 69 67 2e 74 63 6c 5d  $noe config.tcl]
0750: 5d 20 7d 0a 0a 09 75 70 6c 65 76 65 6c 20 23 30  ] }...uplevel #0
0760: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66   [list source [f
0770: 69 6c 65 20 6a 6f 69 6e 20 24 74 63 6c 5f 6c 69  ile join $tcl_li
0780: 62 72 61 72 79 20 69 6e 69 74 2e 74 63 6c 5d 5d  brary init.tcl]]
0790: 0a 20 20 0a 09 23 20 72 65 73 65 74 20 61 75 74  .  ..# reset aut
07a0: 6f 5f 70 61 74 68 2c 20 73 6f 20 74 68 61 74 20  o_path, so that 
07b0: 69 6e 69 74 2e 74 63 6c 27 73 20 73 65 61 72 63  init.tcl's searc
07c0: 68 20 6f 75 74 73 69 64 65 20 6f 66 20 74 63 6c  h outside of tcl
07d0: 6b 69 74 20 69 73 20 63 61 6e 63 65 6c 6c 65 64  kit is cancelled
07e0: 0a 09 73 65 74 20 61 75 74 6f 5f 70 61 74 68 20  ..set auto_path 
07f0: 24 74 63 6c 5f 6c 69 62 50 61 74 68 0a 0a 09 23  $tcl_libPath...#
0800: 20 54 68 69 73 20 6c 6f 61 64 73 20 65 76 65 72   This loads ever
0810: 79 74 68 69 6e 67 20 6e 65 65 64 65 64 20 66 6f  ything needed fo
0820: 72 20 22 63 6c 6f 63 6b 20 73 63 61 6e 22 20 74  r "clock scan" t
0830: 6f 20 77 6f 72 6b 0a 09 23 20 22 63 6c 6f 63 6b  o work..# "clock
0840: 20 73 63 61 6e 22 20 69 73 20 75 73 65 64 20 77   scan" is used w
0850: 69 74 68 69 6e 20 22 76 66 73 3a 3a 7a 69 70 22  ithin "vfs::zip"
0860: 2c 20 77 68 69 63 68 20 6d 61 79 20 62 65 0a 09  , which may be..
0870: 23 20 6c 6f 61 64 65 64 20 62 65 66 6f 72 65 20  # loaded before 
0880: 74 68 69 73 20 69 73 20 72 75 6e 20 63 61 75 73  this is run caus
0890: 69 6e 67 20 74 68 65 20 72 6f 6f 74 20 56 46 53  ing the root VFS
08a0: 20 74 6f 20 62 72 65 61 6b 0a 09 63 61 74 63 68   to break..catch
08b0: 20 7b 20 63 6c 6f 63 6b 20 73 63 61 6e 20 7d 0a   { clock scan }.
08c0: 7d 0a                                            }.