Artifact e2affafb1d7b4d66eeb2ebf1b40047e71f2ef66e:

File tools/lib/pkgIndex.tcl part of check-in [45cd12f05a] - Continuing namespace changes, fossil backend. by aku on 2007-09-13 06:03:30.

0000: 69 66 20 7b 21 5b 70 61 63 6b 61 67 65 20 76 73  if {![package vs
0010: 61 74 69 73 66 69 65 73 20 5b 70 61 63 6b 61 67  atisfies [packag
0020: 65 20 72 65 71 75 69 72 65 20 54 63 6c 5d 20 38  e require Tcl] 8
0030: 2e 34 5d 7d 20 72 65 74 75 72 6e 0a 70 61 63 6b  .4]} return.pack
0040: 61 67 65 20 69 66 6e 65 65 64 65 64 20 72 63 73  age ifneeded rcs
0050: 70 61 72 73 65 72 20 31 2e 30 20 5b 6c 69 73 74  parser 1.0 [list
0060: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f   source [file jo
0070: 69 6e 20 24 64 69 72 20 72 63 73 70 61 72 73 65  in $dir rcsparse
0080: 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20  r.tcl]].package 
0090: 69 66 6e 65 65 64 65 64 20 63 76 73 20 20 20 20  ifneeded cvs    
00a0: 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75     1.0 [list sou
00b0: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  rce [file join $
00c0: 64 69 72 20 63 76 73 2e 74 63 6c 5d 5d 0a 70 61  dir cvs.tcl]].pa
00d0: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76  ckage ifneeded v
00e0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 77 73 20 20 20  c::fossil::ws   
00f0: 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74         1.0 [list
0100: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f   source [file jo
0110: 69 6e 20 24 64 69 72 20 66 6f 73 73 69 6c 2e 74  in $dir fossil.t
0120: 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e  cl]].package ifn
0130: 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c  eeded vc::fossil
0140: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 20 31 2e  ::import::cvs 1.
0150: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b  0 [list source [
0160: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 69  file join $dir i
0170: 6d 70 6f 72 74 63 76 73 2e 74 63 6c 5d 5d 0a 70  mportcvs.tcl]].p
0180: 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20  ackage ifneeded 
0190: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 20  vc::tools::log  
01a0: 20 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73          1.0 [lis
01b0: 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a  t source [file j
01c0: 6f 69 6e 20 24 64 69 72 20 6c 6f 67 2e 74 63 6c  oin $dir log.tcl
01d0: 5d 5d 0a                                         ]].