Artifact 96ca91f42cbb5e0b1cccf4ced414478ee3b7b06b:
File
tools/cvs2fossil/lib/pkgIndex.tcl
part of check-in
[860f533e98]
- Bringing back in the old parser for rcs archives.
by
aku on
2007-10-06 18:28:33.
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 31 2e 30 1.0
0140: 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 [list source [f
0150: 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 76 ile join $dir cv
0160: 73 32 66 6f 73 73 69 6c 2e 74 63 6c 5d 5d 0a 70 s2fossil.tcl]].p
0170: 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 64 20 ackage ifneeded
0180: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
0190: 72 74 3a 3a 63 76 73 3a 3a 6f 70 74 69 6f 6e 20 rt::cvs::option
01a0: 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 73 74 1.0 [list
01b0: 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f source [file jo
01c0: 69 6e 20 24 64 69 72 20 63 32 66 5f 6f 70 74 69 in $dir c2f_opti
01d0: 6f 6e 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 on.tcl]].package
01e0: 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f ifneeded vc::fo
01f0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0200: 73 3a 3a 70 61 73 73 20 20 20 20 20 20 20 20 20 s::pass
0210: 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 1.0 [list sourc
0220: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 e [file join $di
0230: 72 20 63 32 66 5f 70 61 73 73 2e 74 63 6c 5d 5d r c2f_pass.tcl]]
0240: 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 .package ifneede
0250: 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d d vc::fossil::im
0260: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 61 73 73 3a port::cvs::pass:
0270: 3a 63 6f 6c 6c 61 72 20 20 31 2e 30 20 5b 6c 69 :collar 1.0 [li
0280: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 st source [file
0290: 6a 6f 69 6e 20 24 64 69 72 20 63 32 66 5f 70 63 join $dir c2f_pc
02a0: 6f 6c 6c 61 72 2e 74 63 6c 5d 5d 0a 70 61 63 6b ollar.tcl]].pack
02b0: 61 67 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a age ifneeded vc:
02c0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
02d0: 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 63 6f 6c 6c :cvs::pass::coll
02e0: 72 65 76 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f rev 1.0 [list so
02f0: 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 urce [file join
0300: 24 64 69 72 20 63 32 66 5f 70 63 6f 6c 6c 72 65 $dir c2f_pcollre
0310: 76 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 v.tcl]].package
0320: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 ifneeded vc::fos
0330: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
0340: 3a 3a 70 72 6f 6a 65 63 74 20 20 20 20 20 20 20 ::project
0350: 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 1.0 [list source
0360: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 [file join $dir
0370: 20 63 32 66 5f 70 72 6f 6a 65 63 74 2e 74 63 6c c2f_project.tcl
0380: 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 ]].package ifnee
0390: 64 65 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a ded vc::fossil::
03a0: 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 72 65 70 import::cvs::rep
03b0: 6f 73 69 74 6f 72 79 20 20 20 20 31 2e 30 20 5b ository 1.0 [
03c0: 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c list source [fil
03d0: 65 20 6a 6f 69 6e 20 24 64 69 72 20 63 32 66 5f e join $dir c2f_
03e0: 72 65 70 6f 73 69 74 6f 72 79 2e 74 63 6c 5d 5d repository.tcl]]
03f0: 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 64 65 .package ifneede
0400: 64 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d d vc::fossil::im
0410: 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 port::cvs::state
0420: 20 20 20 20 20 20 20 20 20 31 2e 30 20 5b 6c 69 1.0 [li
0430: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 st source [file
0440: 6a 6f 69 6e 20 24 64 69 72 20 63 32 66 5f 73 74 join $dir c2f_st
0450: 61 74 65 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 ate.tcl]].packag
0460: 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 72 e ifneeded vc::r
0470: 63 73 3a 3a 70 61 72 73 65 72 20 20 20 20 20 20 cs::parser
0480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0490: 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 1.0 [list sour
04a0: 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 ce [file join $d
04b0: 69 72 20 72 63 73 70 61 72 73 65 72 2e 74 63 6c ir rcsparser.tcl
04c0: 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 6e 65 65 ]].package ifnee
04d0: 64 65 64 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c ded vc::tools::l
04e0: 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 og
04f0: 20 20 20 20 20 20 20 20 20 20 20 31 2e 30 20 5b 1.0 [
0500: 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c list source [fil
0510: 65 20 6a 6f 69 6e 20 24 64 69 72 20 6c 6f 67 2e e join $dir log.
0520: 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 69 66 tcl]].package if
0530: 6e 65 65 64 65 64 20 76 63 3a 3a 74 6f 6f 6c 73 needed vc::tools
0540: 3a 3a 6d 69 73 63 20 20 20 20 20 20 20 20 20 20 ::misc
0550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2e 1.
0560: 30 20 5b 6c 69 73 74 20 73 6f 75 72 63 65 20 5b 0 [list source [
0570: 66 69 6c 65 20 6a 6f 69 6e 20 24 64 69 72 20 6d file join $dir m
0580: 69 73 63 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 isc.tcl]].packag
0590: 65 20 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 74 e ifneeded vc::t
05a0: 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 20 20 ools::trouble
05b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
05c0: 20 20 31 2e 30 20 5b 6c 69 73 74 20 73 6f 75 72 1.0 [list sour
05d0: 63 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 64 ce [file join $d
05e0: 69 72 20 74 72 6f 75 62 6c 65 2e 74 63 6c 5d 5d ir trouble.tcl]]
05f0: 0a 0a ..