Artifact 5b7b4433365b9ebe8bf88c262b0992ca86202aae:
File
tools/cvs2fossil/lib/pkgIndex.tcl
part of check-in
[2a98ac44bd]
- Third attempt at getting a cvs importer which can handle branches.
Using cvs2svn code and design notes as a guide.
by
aku on
2007-10-02 03:05:43.
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 31 2e 30 20 5b 6c 69 73 74 20 1.0 [list
0140: 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 6a 6f 69 source [file joi
0150: 6e 20 24 64 69 72 20 63 76 73 32 66 6f 73 73 69 n $dir cvs2fossi
0160: 6c 2e 74 63 6c 5d 5d 0a 70 61 63 6b 61 67 65 20 l.tcl]].package
0170: 69 66 6e 65 65 64 65 64 20 76 63 3a 3a 66 6f 73 ifneeded vc::fos
0180: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
0190: 3a 3a 6f 70 74 69 6f 6e 20 31 2e 30 20 5b 6c 69 ::option 1.0 [li
01a0: 73 74 20 73 6f 75 72 63 65 20 5b 66 69 6c 65 20 st source [file
01b0: 6a 6f 69 6e 20 24 64 69 72 20 63 32 66 5f 6f 70 join $dir c2f_op
01c0: 74 69 6f 6e 2e 74 63 6c 5d 5d 0a tion.tcl]].