Artifact 94c8694e6630ccf0652b33e74c6bb77b82b21c00:
File
tools/cvs2fossil/lib/pkgIndex.tcl
part of check-in
[99e165d5c4]
- Created a separate common class for the id databases used by the repository, and updated the repository code to use it.
by
aku on
2007-10-21 04:42:14.
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 20 20 20 31 1
0140: 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 .0 [list source
0150: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 [file join $dir
0160: 63 76 73 32 66 6f 73 73 69 6c 2e 74 63 6c 5d 5d cvs2fossil.tcl]]
0170: 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 .package ifneede
0180: 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d d vc::fossil::im
0190: 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 20 port::cvs::file
01a0: 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 20 5b 1.0 [
01b0: 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c list source [fil
01c0: 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 66 5f e join $dir c2f_
01d0: 66 69 6c 65 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 file.tcl]].packa
01e0: 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a ge ifneeded vc::
01f0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
0200: 63 76 73 3a 3a 66 69 6c 65 3a 3a 6c 6f 64 6d 67 cvs::file::lodmg
0210: 72 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 r 1.0 [list s
0220: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e ource [file join
0230: 20 24 64 69 72 20 63 32 66 5f 66 6c 6f 64 6d 67 $dir c2f_flodmg
0240: 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 r.tcl]].package
0250: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 ifneeded vc::fos
0260: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
0270: 3a 3a 66 69 6c 65 3a 3a 72 65 76 20 20 20 20 20 ::file::rev
0280: 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 1.0 [list sour
0290: 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 ce [file join $d
02a0: 69 72 20 63 32 66 5f 66 72 65 76 2e 74 63 6c 5d ir c2f_frev.tcl]
02b0: 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 ].package ifneed
02c0: 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ed vc::fossil::i
02d0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 66 69 6c 65 mport::cvs::file
02e0: 3a 3a 73 79 6d 20 20 20 20 20 20 20 31 2e 30 20 ::sym 1.0
02f0: 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69 [list source [fi
0300: 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 66 le join $dir c2f
0310: 5f 66 73 79 6d 2e 74 63 6c 5d 5d 0a 70 61 63 6b _fsym.tcl]].pack
0320: 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a age ifneeded vc:
0330: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
0340: 3a 63 76 73 3a 3a 66 69 6c 65 3a 3a 74 72 75 6e :cvs::file::trun
0350: 6b 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 k 1.0 [list
0360: 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 source [file joi
0370: 6e 20 24 64 69 72 20 63 32 66 5f 66 74 72 75 6e n $dir c2f_ftrun
0380: 6b 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 k.tcl]].package
0390: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 ifneeded vc::fos
03a0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
03b0: 3a 3a 6f 70 74 69 6f 6e 20 20 20 20 20 20 20 20 ::option
03c0: 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 1.0 [list sour
03d0: 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 ce [file join $d
03e0: 69 72 20 63 32 66 5f 6f 70 74 69 6f 6e 2e 74 63 ir c2f_option.tc
03f0: 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 l]].package ifne
0400: 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a eded vc::fossil:
0410: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 61 :import::cvs::pa
0420: 73 73 20 20 20 20 20 20 20 20 20 20 20 20 31 2e ss 1.
0430: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 0 [list source [
0440: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 file join $dir c
0450: 32 66 5f 70 61 73 73 2e 74 63 6c 5d 5d 0a 70 61 2f_pass.tcl]].pa
0460: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 ckage ifneeded v
0470: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0480: 74 3a 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 63 6f t::cvs::pass::co
0490: 6c 6c 61 72 20 20 20 20 31 2e 30 20 5b 6c 69 73 llar 1.0 [lis
04a0: 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a t source [file j
04b0: 6f 69 6e 20 24 64 69 72 20 63 32 66 5f 70 63 6f oin $dir c2f_pco
04c0: 6c 6c 61 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 llar.tcl]].packa
04d0: 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a ge ifneeded vc::
04e0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
04f0: 63 76 73 3a 3a 70 61 73 73 3a 3a 63 6f 6c 6c 72 cvs::pass::collr
0500: 65 76 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 ev 1.0 [list s
0510: 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e ource [file join
0520: 20 24 64 69 72 20 63 32 66 5f 70 63 6f 6c 6c 72 $dir c2f_pcollr
0530: 65 76 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 ev.tcl]].package
0540: 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f ifneeded vc::fo
0550: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0560: 73 3a 3a 70 72 6f 6a 65 63 74 20 20 20 20 20 20 s::project
0570: 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 1.0 [list sou
0580: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 rce [file join $
0590: 64 69 72 20 63 32 66 5f 70 72 6f 6a 65 63 74 2e dir c2f_project.
05a0: 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 tcl]].package if
05b0: 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 needed vc::fossi
05c0: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
05d0: 70 72 6f 6a 65 63 74 3a 3a 6c 6f 64 6d 67 72 20 project::lodmgr
05e0: 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 1.0 [list source
05f0: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 [file join $dir
0600: 20 63 32 66 5f 70 6c 6f 64 6d 67 72 2e 74 63 6c c2f_plodmgr.tcl
0610: 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 ]].package ifnee
0620: 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ded vc::fossil::
0630: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f import::cvs::pro
0640: 6a 65 63 74 3a 3a 72 65 76 20 20 20 20 31 2e 30 ject::rev 1.0
0650: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 [list source [f
0660: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 ile join $dir c2
0670: 66 5f 70 72 65 76 2e 74 63 6c 5d 5d 0a 70 61 63 f_prev.tcl]].pac
0680: 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 kage ifneeded vc
0690: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
06a0: 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a 3a ::cvs::project::
06b0: 73 79 6d 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 sym 1.0 [list
06c0: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f source [file jo
06d0: 69 6e 20 24 64 69 72 20 63 32 66 5f 70 73 79 6d in $dir c2f_psym
06e0: 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 .tcl]].package i
06f0: 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 73 fneeded vc::foss
0700: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
0710: 3a 70 72 6f 6a 65 63 74 3a 3a 74 72 75 6e 6b 20 :project::trunk
0720: 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 1.0 [list sourc
0730: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 e [file join $di
0740: 72 20 63 32 66 5f 70 74 72 75 6e 6b 2e 74 63 6c r c2f_ptrunk.tcl
0750: 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 ]].package ifnee
0760: 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ded vc::fossil::
0770: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 72 65 70 import::cvs::rep
0780: 6f 73 69 74 6f 72 79 20 20 20 20 20 20 31 2e 30 ository 1.0
0790: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 [list source [f
07a0: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 ile join $dir c2
07b0: 66 5f 72 65 70 6f 73 69 74 6f 72 79 2e 74 63 6c f_repository.tcl
07c0: 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 ]].package ifnee
07d0: 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ded vc::fossil::
07e0: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 import::cvs::sta
07f0: 74 65 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 te 1.0
0800: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 [list source [f
0810: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 ile join $dir c2
0820: 66 5f 73 74 61 74 65 2e 74 63 6c 5d 5d 0a 70 61 f_state.tcl]].pa
0830: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 ckage ifneeded v
0840: 63 3a 3a 72 63 73 3a 3a 70 61 72 73 65 72 20 20 c::rcs::parser
0850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0860: 20 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 1.0 [lis
0870: 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a t source [file j
0880: 6f 69 6e 20 24 64 69 72 20 72 63 73 70 61 72 73 oin $dir rcspars
0890: 65 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 er.tcl]].package
08a0: 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 74 6f ifneeded vc::to
08b0: 6f 6c 73 3a 3a 6c 6f 67 20 20 20 20 20 20 20 20 ols::log
08c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
08d0: 20 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 1.0 [list sou
08e0: 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 rce [file join $
08f0: 64 69 72 20 6c 6f 67 2e 74 63 6c 5d 5d 0a 70 61 dir log.tcl]].pa
0900: 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 ckage ifneeded v
0910: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 20 c::tools::misc
0920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0930: 20 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 1.0 [lis
0940: 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a t source [file j
0950: 6f 69 6e 20 24 64 69 72 20 6d 69 73 63 2e 74 63 oin $dir misc.tc
0960: 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 l]].package ifne
0970: 65 64 65 64 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a eded vc::tools::
0980: 74 72 6f 75 62 6c 65 20 20 20 20 20 20 20 20 20 trouble
0990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 1.
09a0: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 0 [list source [
09b0: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 74 file join $dir t
09c0: 72 6f 75 62 6c 65 2e 74 63 6c 5d 5d 0a 70 61 63 rouble.tcl]].pac
09d0: 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 kage ifneeded vc
09e0: 3a 3a 74 6f 6f 6c 73 3a 3a 69 64 20 20 20 20 20 ::tools::id
09f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0a00: 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 1.0 [list
0a10: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f source [file jo
0a20: 69 6e 20 24 64 69 72 20 69 64 2e 74 63 6c 5d 5d in $dir id.tcl]]
0a30: 0a .