Artifact b623451fbffab30175b3cd4cb0c02484799b2340:

File tools/lib/pkgIndex.tcl part of check-in [18251642f3] - Moved the handling of the import statistics into its own package. Untested. by aku on 2007-09-14 23:23:48.

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 76 63 3a  age ifneeded vc:
0050: 3a 72 63 73 3a 3a 70 61 72 73 65 72 20 20 20 20  :rcs::parser    
0060: 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74         1.0 [list
0070: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f   source [file jo
0080: 69 6e 20 24 64 69 72 20 72 63 73 70 61 72 73 65  in $dir rcsparse
0090: 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20  r.tcl]].package 
00a0: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 63 76 73  ifneeded vc::cvs
00b0: 3a 3a 63 6d 64 20 20 20 20 20 20 20 20 20 20 20  ::cmd           
00c0: 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75     1.0 [list sou
00d0: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  rce [file join $
00e0: 64 69 72 20 63 76 73 5f 63 6d 64 2e 74 63 6c 5d  dir cvs_cmd.tcl]
00f0: 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64  ].package ifneed
0100: 65 64 20 76 63 3a 3a 63 76 73 3a 3a 77 73 20 20  ed vc::cvs::ws  
0110: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 30               1.0
0120: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66   [list source [f
0130: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 76  ile join $dir cv
0140: 73 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20  s.tcl]].package 
0150: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73  ifneeded vc::fos
0160: 73 69 6c 3a 3a 63 6d 64 20 20 20 20 20 20 20 20  sil::cmd        
0170: 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75     1.0 [list sou
0180: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  rce [file join $
0190: 64 69 72 20 66 6f 73 73 69 6c 5f 63 6d 64 2e 74  dir fossil_cmd.t
01a0: 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e  cl]].package ifn
01b0: 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c  eeded vc::fossil
01c0: 3a 3a 77 73 20 20 20 20 20 20 20 20 20 20 20 20  ::ws            
01d0: 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65  1.0 [list source
01e0: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72   [file join $dir
01f0: 20 66 6f 73 73 69 6c 2e 74 63 6c 5d 5d 0a 70 61   fossil.tcl]].pa
0200: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76  ckage ifneeded v
0210: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72  c::fossil::impor
0220: 74 3a 3a 63 76 73 20 20 20 31 2e 30 20 5b 6c 69  t::cvs   1.0 [li
0230: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20  st source [file 
0240: 6a 6f 69 6e 20 24 64 69 72 20 69 6d 70 6f 72 74  join $dir import
0250: 63 76 73 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67  cvs.tcl]].packag
0260: 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66  e ifneeded vc::f
0270: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 73  ossil::import::s
0280: 74 61 74 73 20 31 2e 30 20 5b 6c 69 73 74 20 73  tats 1.0 [list s
0290: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  ource [file join
02a0: 20 24 64 69 72 20 69 6d 70 6f 72 74 5f 73 74 61   $dir import_sta
02b0: 74 69 73 74 69 63 73 2e 74 63 6c 5d 5d 0a 70 61  tistics.tcl]].pa
02c0: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76  ckage ifneeded v
02d0: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 20 20  c::tools::log   
02e0: 20 20 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69           1.0 [li
02f0: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20  st source [file 
0300: 6a 6f 69 6e 20 24 64 69 72 20 6c 6f 67 2e 74 63  join $dir log.tc
0310: 6c 5d 5d 0a                                      l]].