Artifact e327e448a190fbb02a590ebc75e4fb2bf8f6e95b:

File tools/cvs2fossil/lib/pkgIndex.tcl part of check-in [52f2254007] - Continued work on pass I. Filled in the repository management, and basic implementation of project objects. Missing are persistence and the foundation for that (cache database). by aku on 2007-10-04 04:34:59.

0000: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23  # # ## ### #####
0010: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23   ######## ######
0020: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23  ####### ########
0030: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23  #############.##
0040: 20 50 61 63 6b 61 67 65 20 6d 61 6e 61 67 65 6d   Package managem
0050: 65 6e 74 2e 0a 23 23 20 49 6e 64 65 78 20 6f 66  ent..## Index of
0060: 20 74 68 65 20 6c 6f 63 61 6c 20 70 61 63 6b 61   the local packa
0070: 67 65 73 20 72 65 71 75 69 72 65 64 20 62 79 20  ges required by 
0080: 63 76 73 32 66 6f 73 73 69 6c 0a 23 20 23 20 23  cvs2fossil.# # #
0090: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23  # ### ##### ####
00a0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23  #### ###########
00b0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23  ## #############
00c0: 23 23 23 23 23 23 23 23 0a 69 66 20 7b 21 5b 70  ########.if {![p
00d0: 61 63 6b 61 67 65 20 76 73 61 74 69 73 66 69 65  ackage vsatisfie
00e0: 73 20 5b 70 61 63 6b 61 67 65 20 72 65 71 75 69  s [package requi
00f0: 72 65 20 54 63 6c 5d 20 38 2e 34 5d 7d 20 72 65  re Tcl] 8.4]} re
0100: 74 75 72 6e 0a 70 61 63 6b 61 67 65 20 69 66 6e  turn.package ifn
0110: 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c  eeded vc::fossil
0120: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 20 20 20  ::import::cvs   
0130: 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 20              1.0 
0140: 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69  [list source [fi
0150: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 76 73  le join $dir cvs
0160: 32 66 6f 73 73 69 6c 2e 74 63 6c 5d 5d 0a 70 61  2fossil.tcl]].pa
0170: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76  ckage ifneeded v
0180: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72  c::fossil::impor
0190: 74 3a 3a 63 76 73 3a 3a 6f 70 74 69 6f 6e 20 20  t::cvs::option  
01a0: 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73       1.0 [list s
01b0: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  ource [file join
01c0: 20 24 64 69 72 20 63 32 66 5f 6f 70 74 69 6f 6e   $dir c2f_option
01d0: 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69  .tcl]].package i
01e0: 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73  fneeded vc::foss
01f0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a  il::import::cvs:
0200: 3a 70 61 73 73 20 20 20 20 20 20 20 20 20 31 2e  :pass         1.
0210: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b  0 [list source [
0220: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63  file join $dir c
0230: 32 66 5f 70 61 73 73 2e 74 63 6c 5d 5d 0a 70 61  2f_pass.tcl]].pa
0240: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76  ckage ifneeded v
0250: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72  c::fossil::impor
0260: 74 3a 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 63 6f  t::cvs::pass::co
0270: 6c 6c 61 72 20 31 2e 30 20 5b 6c 69 73 74 20 73  llar 1.0 [list s
0280: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e  ource [file join
0290: 20 24 64 69 72 20 63 32 66 5f 70 63 6f 6c 6c 61   $dir c2f_pcolla
02a0: 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20  r.tcl]].package 
02b0: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73  ifneeded vc::fos
02c0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73  sil::import::cvs
02d0: 3a 3a 72 65 70 6f 73 69 74 6f 72 79 20 20 20 31  ::repository   1
02e0: 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20  .0 [list source 
02f0: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20  [file join $dir 
0300: 63 32 66 5f 72 65 70 6f 73 69 74 6f 72 79 2e 74  c2f_repository.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 3a 3a 70  ::import::cvs::p
0340: 72 6f 6a 65 63 74 20 20 20 20 20 20 31 2e 30 20  roject      1.0 
0350: 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69  [list source [fi
0360: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 66  le join $dir c2f
0370: 5f 70 72 6f 6a 65 63 74 2e 74 63 6c 5d 5d 0a 70  _project.tcl]].p
0380: 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20  ackage ifneeded 
0390: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62  vc::tools::troub
03a0: 6c 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20  le              
03b0: 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 20        1.0 [list 
03c0: 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69  source [file joi
03d0: 6e 20 24 64 69 72 20 74 72 6f 75 62 6c 65 2e 74  n $dir trouble.t
03e0: 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e  cl]].package ifn
03f0: 65 65 64 65 64 20 76 63 3a 3a 74 6f 6f 6c 73 3a  eeded vc::tools:
0400: 3a 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20  :log            
0410: 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 20              1.0 
0420: 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69  [list source [fi
0430: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 6c 6f 67  le join $dir log
0440: 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69  .tcl]].package i
0450: 66 6e 65 65 64 65 64 20 76 63 3a 3a 74 6f 6f 6c  fneeded vc::tool
0460: 73 3a 3a 6d 69 73 63 20 20 20 20 20 20 20 20 20  s::misc         
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e                1.
0480: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b  0 [list source [
0490: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 6d  file join $dir m
04a0: 69 73 63 2e 74 63 6c 5d 5d 0a 0a                 isc.tcl]]..