Artifact 48d829569b168084bf737551a072b81faa11fa6b:

File tools/lib/pkgIndex.tcl part of check-in [a5476aed27] - Modified sorting of timeline entries for the same second to properly split files and file versions from each other, and to have newer revisions later. Further added a storage for error messages to be repeated when the importer exist. First user is the code reporting corrupted archive files detected during a checkout. by aku on 2007-09-20 03:51:49.

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 63 76 73  ifneeded vc::cvs
0160: 3a 3a 77 73 3a 3a 66 69 6c 65 73 20 20 20 20 20  ::ws::files     
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 63 76 73 5f 66 69 6c 65 73 2e 74 63  dir cvs_files.tc
01a0: 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65  l]].package ifne
01b0: 65 64 65 64 20 76 63 3a 3a 63 76 73 3a 3a 77 73  eded vc::cvs::ws
01c0: 3a 3a 74 69 6d 65 6c 69 6e 65 20 20 20 20 20 31  ::timeline     1
01d0: 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20  .0 [list source 
01e0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20  [file join $dir 
01f0: 63 76 73 5f 74 69 6d 65 6c 69 6e 65 2e 74 63 6c  cvs_timeline.tcl
0200: 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65  ]].package ifnee
0210: 64 65 64 20 76 63 3a 3a 63 76 73 3a 3a 77 73 3a  ded vc::cvs::ws:
0220: 3a 63 73 65 74 73 20 20 20 20 20 20 20 20 31 2e  :csets        1.
0230: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b  0 [list source [
0240: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63  file join $dir c
0250: 76 73 5f 63 73 65 74 73 2e 74 63 6c 5d 5d 0a 70  vs_csets.tcl]].p
0260: 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20  ackage ifneeded 
0270: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 63 6d 64 20  vc::fossil::cmd 
0280: 20 20 20 20 20 20 20 20 20 20 31 2e 30 20 5b 6c            1.0 [l
0290: 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65  ist source [file
02a0: 20 6a 6f 69 6e 20 24 64 69 72 20 66 6f 73 73 69   join $dir fossi
02b0: 6c 5f 63 6d 64 2e 74 63 6c 5d 5d 0a 70 61 63 6b  l_cmd.tcl]].pack
02c0: 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a  age ifneeded vc:
02d0: 3a 66 6f 73 73 69 6c 3a 3a 77 73 20 20 20 20 20  :fossil::ws     
02e0: 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74         1.0 [list
02f0: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f   source [file jo
0300: 69 6e 20 24 64 69 72 20 66 6f 73 73 69 6c 2e 74  in $dir fossil.t
0310: 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e  cl]].package ifn
0320: 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c  eeded vc::fossil
0330: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 20 20 20  ::import::cvs   
0340: 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65  1.0 [list source
0350: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72   [file join $dir
0360: 20 69 6d 70 6f 72 74 63 76 73 2e 74 63 6c 5d 5d   importcvs.tcl]]
0370: 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65  .package ifneede
0380: 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d  d vc::fossil::im
0390: 70 6f 72 74 3a 3a 73 74 61 74 73 20 31 2e 30 20  port::stats 1.0 
03a0: 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69  [list source [fi
03b0: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 69 6d 70  le join $dir imp
03c0: 6f 72 74 5f 73 74 61 74 69 73 74 69 63 73 2e 74  ort_statistics.t
03d0: 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e  cl]].package ifn
03e0: 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c  eeded vc::fossil
03f0: 3a 3a 69 6d 70 6f 72 74 3a 3a 6d 61 70 20 20 20  ::import::map   
0400: 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65  1.0 [list source
0410: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72   [file join $dir
0420: 20 69 6d 70 6f 72 74 5f 6d 61 70 2e 74 63 6c 5d   import_map.tcl]
0430: 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64  ].package ifneed
0440: 65 64 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f  ed vc::tools::lo
0450: 67 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 30  g            1.0
0460: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66   [list source [f
0470: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 6c 6f  ile join $dir lo
0480: 67 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20  g.tcl]].package 
0490: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 74 6f 6f  ifneeded vc::too
04a0: 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 20 20 20 20  ls::trouble     
04b0: 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75     1.0 [list sou
04c0: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24  rce [file join $
04d0: 64 69 72 20 74 72 6f 75 62 6c 65 2e 74 63 6c 5d  dir trouble.tcl]
04e0: 5d                                               ]