Artifact ceb442330d6a924d24be47f3c1d231ed5db08a11:
File
tools/lib/cvs.tcl
part of check-in
[2740b48b63]
- Cleaned up the creation of the workspace directory.
by
aku on
2007-09-17 03:13:07.
0000: 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d # --------------
0010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0050: 23 20 52 65 70 6f 73 69 74 6f 72 79 20 6d 61 6e # Repository man
0060: 61 67 65 6d 65 6e 74 20 28 43 56 53 29 0a 0a 23 agement (CVS)..#
0070: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
0080: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0090: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 --------------.#
00c0: 20 52 65 71 75 69 72 65 6d 65 6e 74 73 0a 0a 70 Requirements..p
00d0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 54 ackage require T
00e0: 63 6c 20 38 2e 34 0a 70 61 63 6b 61 67 65 20 72 cl 8.4.package r
00f0: 65 71 75 69 72 65 20 66 69 6c 65 75 74 69 6c 20 equire fileutil
0100: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
0110: 20 54 63 6c 6c 69 62 20 28 74 72 61 76 65 72 73 Tcllib (travers
0120: 65 20 64 69 72 65 63 74 6f 72 79 20 68 69 65 72 e directory hier
0130: 61 72 63 68 79 29 0a 70 61 63 6b 61 67 65 20 72 archy).package r
0140: 65 71 75 69 72 65 20 76 63 3a 3a 72 63 73 3a 3a equire vc::rcs::
0150: 70 61 72 73 65 72 20 20 20 20 20 20 20 3b 20 23 parser ; #
0160: 20 48 61 6e 64 6c 69 6e 67 20 74 68 65 20 52 43 Handling the RC
0170: 53 20 61 72 63 68 69 76 65 20 66 69 6c 65 73 2e S archive files.
0180: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0190: 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 vc::tools::log
01a0: 20 20 20 20 20 20 20 3b 20 23 20 55 73 65 72 20 ; # User
01b0: 66 65 65 64 62 61 63 6b 0a 70 61 63 6b 61 67 65 feedback.package
01c0: 20 72 65 71 75 69 72 65 20 76 63 3a 3a 63 76 73 require vc::cvs
01d0: 3a 3a 63 6d 64 20 20 20 20 20 20 20 20 20 20 3b ::cmd ;
01e0: 20 23 20 41 63 63 65 73 73 20 74 6f 20 63 76 73 # Access to cvs
01f0: 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 0a 70 61 application..pa
0200: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
0210: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 66 69 6c 65 73 ::cvs::ws::files
0220: 20 20 20 20 3b 20 23 20 53 63 61 6e 20 43 56 53 ; # Scan CVS
0230: 20 72 65 70 6f 73 69 74 6f 72 79 20 66 6f 72 20 repository for
0240: 72 65 6c 65 76 61 6e 74 20 66 69 6c 65 73 2e 0a relevant files..
0250: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0260: 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 74 69 6d vc::cvs::ws::tim
0270: 65 6c 69 6e 65 20 3b 20 23 20 4d 61 6e 61 67 65 eline ; # Manage
0280: 20 74 69 6d 65 6c 69 6e 65 20 6f 66 20 61 6c 6c timeline of all
0290: 20 63 68 61 6e 67 65 73 2e 0a 70 61 63 6b 61 67 changes..packag
02a0: 65 20 72 65 71 75 69 72 65 20 73 74 72 75 63 74 e require struct
02b0: 3a 3a 74 72 65 65 0a 0a 6e 61 6d 65 73 70 61 63 ::tree..namespac
02c0: 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 63 76 73 e eval ::vc::cvs
02d0: 3a 3a 77 73 20 7b 0a 20 20 20 20 76 63 3a 3a 74 ::ws {. vc::t
02e0: 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 73 79 73 74 65 ools::log::syste
02f0: 6d 20 63 76 73 0a 20 20 20 20 6e 61 6d 65 73 70 m cvs. namesp
0300: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
0310: 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 77 72 69 :tools::log::wri
0320: 74 65 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 te. namespace
0330: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 72 63 import ::vc::rc
0340: 73 3a 3a 70 61 72 73 65 72 3a 3a 70 72 6f 63 65 s::parser::proce
0350: 73 73 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 ss. namespace
0360: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 63 76 import ::vc::cv
0370: 73 3a 3a 63 6d 64 3a 3a 64 6f 76 61 0a 7d 0a 0a s::cmd::dova.}..
0380: 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d # --------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
03d0: 23 20 41 50 49 0a 0a 23 20 76 63 3a 3a 63 76 73 # API..# vc::cvs
03e0: 3a 3a 77 73 3a 3a 63 6f 6e 66 69 67 75 72 65 20 ::ws::configure
03f0: 6b 65 79 20 76 61 6c 75 65 20 20 20 20 2d 20 43 key value - C
0400: 6f 6e 66 69 67 75 72 65 20 74 68 65 20 73 75 62 onfigure the sub
0410: 73 79 73 74 65 6d 2e 0a 23 20 76 63 3a 3a 63 76 system..# vc::cv
0420: 73 3a 3a 77 73 3a 3a 63 68 65 63 6b 20 20 20 20 s::ws::check
0430: 20 73 72 63 20 6d 76 20 20 20 20 20 20 20 2d 20 src mv -
0440: 43 68 65 63 6b 20 69 66 20 73 72 63 20 69 73 20 Check if src is
0450: 61 20 43 56 53 20 72 65 70 6f 73 69 74 6f 72 79 a CVS repository
0460: 20 64 69 72 65 63 74 6f 72 79 2e 0a 23 20 76 63 directory..# vc
0470: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 62 65 67 69 6e ::cvs::ws::begin
0480: 20 20 20 20 20 73 72 63 20 20 20 20 20 20 20 20 src
0490: 20 20 2d 20 53 74 61 72 74 20 6e 65 77 20 77 6f - Start new wo
04a0: 72 6b 73 70 61 63 65 20 61 6e 64 20 72 65 74 75 rkspace and retu
04b0: 72 6e 20 74 68 65 20 74 6f 70 2d 0a 23 20 20 20 rn the top-.#
04c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04e0: 20 20 20 20 6d 6f 73 74 20 64 69 72 65 63 74 6f most directo
04f0: 72 79 20 63 6f 27 64 20 66 69 6c 65 73 20 61 72 ry co'd files ar
0500: 65 20 70 75 74 20 69 6e 74 6f 2e 0a 23 20 76 63 e put into..# vc
0510: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 6e 63 73 65 74 ::cvs::ws::ncset
0520: 73 20 20 20 20 3f 2d 69 6d 70 6f 72 74 3f 20 20 s ?-import?
0530: 20 20 2d 20 52 65 74 72 69 65 76 65 20 6e 75 6d - Retrieve num
0540: 62 65 72 20 6f 66 20 63 73 65 74 73 20 28 61 6c ber of csets (al
0550: 6c 2f 74 6f 20 69 6d 70 6f 72 74 29 0a 23 20 76 l/to import).# v
0560: 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 66 6f 72 65 c::cvs::ws::fore
0570: 61 63 68 20 20 20 63 73 76 61 72 20 73 63 72 69 ach csvar scri
0580: 70 74 20 2d 20 52 75 6e 20 74 68 65 20 73 63 72 pt - Run the scr
0590: 69 70 74 20 66 6f 72 20 65 61 63 68 20 63 68 61 ipt for each cha
05a0: 6e 67 65 73 65 74 2c 20 74 68 65 0a 23 20 20 20 ngeset, the.#
05b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
05c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
05d0: 20 20 20 20 69 64 20 6f 66 20 74 68 65 20 63 75 id of the cu
05e0: 72 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 20 rrent changeset
05f0: 73 74 6f 72 65 64 20 69 6e 0a 23 20 20 20 20 20 stored in.#
0600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0620: 20 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 6e the variable n
0630: 61 6d 65 64 20 62 79 20 63 73 76 61 72 2e 0a 23 amed by csvar..#
0640: 20 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 64 6f vc::cvs::ws::do
0650: 6e 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ne
0660: 20 20 20 20 20 2d 20 43 6c 6f 73 65 20 77 6f 72 - Close wor
0670: 6b 73 70 61 63 65 20 61 6e 64 20 64 65 6c 65 74 kspace and delet
0680: 65 20 69 74 2e 0a 23 20 76 63 3a 3a 63 76 73 3a e it..# vc::cvs:
0690: 3a 77 73 3a 3a 69 73 61 64 6d 69 6e 20 70 61 74 :ws::isadmin pat
06a0: 68 20 20 20 20 20 20 20 20 20 20 20 2d 20 43 68 h - Ch
06b0: 65 63 6b 20 69 66 20 70 61 74 68 20 69 73 20 61 eck if path is a
06c0: 6e 20 61 64 6d 69 6e 20 66 69 6c 65 20 6f 66 20 n admin file of
06d0: 43 56 53 0a 23 20 76 63 3a 3a 63 76 73 3a 3a 77 CVS.# vc::cvs::w
06e0: 73 3a 3a 63 68 65 63 6b 6f 75 74 20 69 64 20 20 s::checkout id
06f0: 20 20 20 20 20 20 20 20 20 20 2d 20 48 61 76 65 - Have
0700: 20 77 6f 72 6b 73 70 61 63 65 20 63 6f 6e 74 61 workspace conta
0710: 69 6e 20 74 68 65 20 63 68 61 6e 67 65 73 65 74 in the changeset
0720: 20 69 64 2e 0a 23 0a 23 20 43 6f 6e 66 69 67 75 id..#.# Configu
0730: 72 61 74 69 6f 6e 20 6b 65 79 73 3a 0a 23 0a 23 ration keys:.#.#
0740: 20 2d 70 72 6f 6a 65 63 74 20 70 61 74 68 20 2d -project path -
0750: 20 53 75 62 20 64 69 72 65 63 74 6f 72 79 20 75 Sub directory u
0760: 6e 64 65 72 20 27 73 72 63 27 20 74 6f 20 6c 69 nder 'src' to li
0770: 6d 69 74 20 74 68 65 20 69 6d 70 6f 72 74 20 74 mit the import t
0780: 6f 2e 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d o...# ----------
0790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07d0: 2d 2d 2d 0a 23 20 41 50 49 20 49 6d 70 6c 65 6d ---.# API Implem
07e0: 65 6e 74 61 74 69 6f 6e 0a 0a 70 72 6f 63 20 3a entation..proc :
07f0: 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 63 6f :vc::cvs::ws::co
0800: 6e 66 69 67 75 72 65 20 7b 6b 65 79 20 76 61 6c nfigure {key val
0810: 75 65 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 ue} {. variab
0820: 6c 65 20 70 72 6f 6a 65 63 74 0a 0a 20 20 20 20 le project..
0830: 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 2d 2d switch -exact --
0840: 20 24 6b 65 79 20 7b 0a 09 2d 70 72 6f 6a 65 63 $key {..-projec
0850: 74 20 7b 20 73 65 74 20 70 72 6f 6a 65 63 74 20 t { set project
0860: 24 76 61 6c 75 65 20 7d 0a 09 64 65 66 61 75 6c $value }..defaul
0870: 74 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 t {.. return
0880: 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e 6b -code error "Unk
0890: 6e 6f 77 6e 20 73 77 69 74 63 68 20 24 6b 65 79 nown switch $key
08a0: 2c 20 65 78 70 65 63 74 65 64 20 5c 0a 20 20 20 , expected \.
08b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
08c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
08d0: 2d 70 72 6f 6a 65 63 74 22 0a 09 7d 0a 20 20 20 -project"..}.
08e0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a }. return.}.
08f0: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
0900: 3a 77 73 3a 3a 63 68 65 63 6b 20 7b 73 72 63 20 :ws::check {src
0910: 6d 76 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 mv} {. variab
0920: 6c 65 20 70 72 6f 6a 65 63 74 0a 20 20 20 20 75 le project. u
0930: 70 76 61 72 20 31 20 24 6d 76 20 6d 73 67 0a 20 pvar 1 $mv msg.
0940: 20 20 20 69 66 20 7b 0a 09 21 5b 66 69 6c 65 75 if {..![fileu
0950: 74 69 6c 3a 3a 74 65 73 74 20 24 73 72 63 20 20 til::test $src
0960: 20 20 20 20 20 20 20 65 72 64 20 6d 73 67 20 22 erd msg "
0970: 43 56 53 20 52 65 70 6f 73 69 74 6f 72 79 22 5d CVS Repository"]
0980: 20 7c 7c 0a 09 21 5b 66 69 6c 65 75 74 69 6c 3a ||..![fileutil:
0990: 3a 74 65 73 74 20 24 73 72 63 2f 43 56 53 52 4f :test $src/CVSRO
09a0: 4f 54 20 65 72 64 20 6d 73 67 20 22 43 56 53 20 OT erd msg "CVS
09b0: 41 64 6d 69 6e 20 64 69 72 65 63 74 6f 72 79 22 Admin directory"
09c0: 5d 20 7c 7c 0a 09 28 28 24 70 72 6f 6a 65 63 74 ] ||..(($project
09d0: 20 6e 65 20 22 22 29 20 26 26 0a 09 20 21 5b 66 ne "") &&.. ![f
09e0: 69 6c 65 75 74 69 6c 3a 3a 74 65 73 74 20 24 73 ileutil::test $s
09f0: 72 63 2f 24 70 72 6f 6a 65 63 74 20 65 72 64 20 rc/$project erd
0a00: 6d 73 67 20 22 50 72 6f 6a 65 63 74 20 64 69 72 msg "Project dir
0a10: 65 63 74 6f 72 79 22 5d 29 0a 20 20 20 20 7d 20 ectory"]). }
0a20: 7b 0a 09 72 65 74 75 72 6e 20 30 0a 20 20 20 20 {..return 0.
0a30: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 31 0a 7d }. return 1.}
0a40: 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 ..proc ::vc::cvs
0a50: 3a 3a 77 73 3a 3a 62 65 67 69 6e 20 7b 73 72 63 ::ws::begin {src
0a60: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 21 5b 63 68 } {. if {![ch
0a70: 65 63 6b 20 24 73 72 63 20 6d 73 67 5d 7d 20 7b eck $src msg]} {
0a80: 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 return -code er
0a90: 72 6f 72 20 24 6d 73 67 20 7d 0a 0a 20 20 20 20 ror $msg }..
0aa0: 44 65 66 42 61 73 65 20 24 73 72 63 0a 20 20 20 DefBase $src.
0ab0: 20 4d 61 6b 65 54 69 6d 65 6c 69 6e 65 20 5b 53 MakeTimeline [S
0ac0: 63 61 6e 41 72 63 68 69 76 65 73 20 5b 66 69 6c canArchives [fil
0ad0: 65 73 3a 3a 66 69 6e 64 20 5b 52 6f 6f 74 50 61 es::find [RootPa
0ae0: 74 68 5d 5d 5d 0a 0a 20 20 20 20 23 20 4f 4c 44 th]]].. # OLD
0af0: 20 61 70 69 20 63 61 6c 6c 73 20 2e 2e 2e 20 54 api calls ... T
0b00: 4f 44 4f 20 72 65 77 6f 72 6b 20 66 6f 72 20 6d ODO rework for m
0b10: 6f 72 65 20 73 74 72 75 63 74 75 72 65 20 2e 2e ore structure ..
0b20: 2e 0a 20 20 20 20 63 73 65 74 73 20 20 20 20 3b .. csets ;
0b30: 20 23 20 47 72 6f 75 70 20 63 68 61 6e 67 65 73 # Group changes
0b40: 20 69 6e 74 6f 20 73 65 74 73 0a 20 20 20 20 72 into sets. r
0b50: 74 72 65 65 20 20 20 20 3b 20 23 20 42 75 69 6c tree ; # Buil
0b60: 64 20 72 65 76 69 73 69 6f 6e 20 74 72 65 65 20 d revision tree
0b70: 28 74 72 75 6e 6b 20 6f 6e 6c 79 20 72 69 67 68 (trunk only righ
0b80: 74 20 6e 6f 77 29 2e 0a 0a 20 20 20 20 72 65 74 t now)... ret
0b90: 75 72 6e 20 5b 4d 61 6b 65 57 6f 72 6b 73 70 61 urn [MakeWorkspa
0ba0: 63 65 5d 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 ce].}..proc ::vc
0bb0: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 64 6f 6e 65 20 ::cvs::ws::done
0bc0: 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c {} {. variabl
0bd0: 65 20 20 20 20 20 20 20 20 20 20 20 20 77 6f 72 e wor
0be0: 6b 73 70 61 63 65 0a 20 20 20 20 66 69 6c 65 20 kspace. file
0bf0: 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20 24 77 delete -force $w
0c00: 6f 72 6b 73 70 61 63 65 0a 20 20 20 20 72 65 74 orkspace. ret
0c10: 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 urn.}..proc ::vc
0c20: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 66 6f 72 65 61 ::cvs::ws::forea
0c30: 63 68 20 7b 63 76 20 73 63 72 69 70 74 7d 20 7b ch {cv script} {
0c40: 0a 20 20 20 20 23 20 4f 4c 44 20 61 70 69 20 2e . # OLD api .
0c50: 2e 2e 20 54 4f 44 4f 20 69 6e 6c 69 6e 65 0a 20 .. TODO inline.
0c60: 20 20 20 75 70 6c 65 76 65 6c 20 31 20 5b 6c 69 uplevel 1 [li
0c70: 73 74 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 st ::vc::cvs::ws
0c80: 3a 3a 66 6f 72 65 61 63 68 5f 63 73 65 74 20 24 ::foreach_cset $
0c90: 63 76 20 30 20 24 73 63 72 69 70 74 5d 0a 7d 0a cv 0 $script].}.
0ca0: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
0cb0: 3a 77 73 3a 3a 6e 63 73 65 74 73 20 7b 61 72 67 :ws::ncsets {arg
0cc0: 73 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c s} {. variabl
0cd0: 65 20 6e 63 73 0a 20 20 20 20 76 61 72 69 61 62 e ncs. variab
0ce0: 6c 65 20 6e 74 72 75 6e 6b 0a 0a 20 20 20 20 69 le ntrunk.. i
0cf0: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 f {[llength $arg
0d00: 73 5d 20 3e 20 31 7d 20 7b 0a 09 72 65 74 75 72 s] > 1} {..retur
0d10: 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 77 n -code error "w
0d20: 72 6f 6e 67 23 61 72 67 73 3a 20 45 78 70 65 63 rong#args: Expec
0d30: 74 65 64 20 3f 2d 69 6d 70 6f 72 74 3f 22 0a 20 ted ?-import?".
0d40: 20 20 20 7d 20 65 6c 73 65 69 66 20 7b 5b 6c 6c } elseif {[ll
0d50: 65 6e 67 74 68 20 24 61 72 67 73 5d 20 3d 3d 20 ength $args] ==
0d60: 31 7d 20 7b 0a 09 69 66 20 7b 5b 73 65 74 20 6b 1} {..if {[set k
0d70: 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 73 20 30 [lindex $args 0
0d80: 5d 5d 20 6e 65 20 22 2d 69 6d 70 6f 72 74 22 7d ]] ne "-import"}
0d90: 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d {.. return -
0da0: 63 6f 64 65 20 22 55 6e 6b 6e 6f 77 6e 20 73 77 code "Unknown sw
0db0: 69 74 63 68 20 24 6b 2c 20 65 78 70 65 63 74 65 itch $k, expecte
0dc0: 64 20 2d 69 6d 70 6f 72 74 22 0a 09 7d 20 65 6c d -import"..} el
0dd0: 73 65 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e se {.. return
0de0: 20 24 6e 74 72 75 6e 6b 0a 09 7d 0a 20 20 20 20 $ntrunk..}.
0df0: 7d 0a 0a 20 20 20 20 72 65 74 75 72 6e 20 20 24 }.. return $
0e00: 6e 63 73 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 ncs.}..proc ::vc
0e10: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 69 73 61 64 6d ::cvs::ws::isadm
0e20: 69 6e 20 7b 70 61 74 68 7d 20 7b 0a 20 20 20 20 in {path} {.
0e30: 23 20 43 68 65 63 6b 20 69 66 20 70 61 74 68 20 # Check if path
0e40: 69 73 20 61 20 43 56 53 20 61 64 6d 69 6e 20 66 is a CVS admin f
0e50: 69 6c 65 2e 0a 20 20 20 20 69 66 20 7b 5b 73 74 ile.. if {[st
0e60: 72 69 6e 67 20 6d 61 74 63 68 20 43 56 53 2f 2a ring match CVS/*
0e70: 20 20 20 24 70 61 74 68 5d 7d 20 7b 72 65 74 75 $path]} {retu
0e80: 72 6e 20 31 7d 0a 20 20 20 20 69 66 20 7b 5b 73 rn 1}. if {[s
0e90: 74 72 69 6e 67 20 6d 61 74 63 68 20 2a 2f 43 56 tring match */CV
0ea0: 53 2f 2a 20 24 70 61 74 68 5d 7d 20 7b 72 65 74 S/* $path]} {ret
0eb0: 75 72 6e 20 31 7d 0a 20 20 20 20 72 65 74 75 72 urn 1}. retur
0ec0: 6e 20 30 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 n 0.}..proc ::vc
0ed0: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 63 68 65 63 6b ::cvs::ws::check
0ee0: 6f 75 74 20 7b 69 64 7d 20 7b 0a 20 20 20 20 76 out {id} {. v
0ef0: 61 72 69 61 62 6c 65 20 77 6f 72 6b 73 70 61 63 ariable workspac
0f00: 65 20 3b 20 63 64 20 24 77 6f 72 6b 73 70 61 63 e ; cd $workspac
0f10: 65 0a 20 20 20 20 77 73 73 65 74 75 70 20 24 69 e. wssetup $i
0f20: 64 20 3b 20 23 20 4f 4c 44 20 61 70 69 20 2e 2e d ; # OLD api ..
0f30: 2e 20 54 4f 44 4f 20 69 6e 6c 69 6e 65 0a 7d 0a . TODO inline.}.
0f40: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .# -------------
0f50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0f90: 0a 23 20 49 6e 74 65 72 6e 61 6c 73 20 2d 20 4f .# Internals - O
0fa0: 6c 64 20 41 50 49 20 66 6f 72 20 6e 6f 77 2e 0a ld API for now..
0fb0: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
0fc0: 3a 77 73 3a 3a 44 65 66 42 61 73 65 20 7b 70 61 :ws::DefBase {pa
0fd0: 74 68 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 th} {. variab
0fe0: 6c 65 20 70 72 6f 6a 65 63 74 0a 20 20 20 20 76 le project. v
0ff0: 61 72 69 61 62 6c 65 20 62 61 73 65 0a 0a 20 20 ariable base..
1000: 20 20 73 65 74 20 62 61 73 65 20 24 70 61 74 68 set base $path
1010: 0a 0a 20 20 20 20 77 72 69 74 65 20 30 20 63 76 .. write 0 cv
1020: 73 20 22 42 61 73 65 3a 20 20 20 20 24 62 61 73 s "Base: $bas
1030: 65 22 0a 20 20 20 20 69 66 20 7b 24 70 72 6f 6a e". if {$proj
1040: 65 63 74 20 65 71 20 22 22 7d 20 7b 0a 09 77 72 ect eq ""} {..wr
1050: 69 74 65 20 30 20 63 76 73 20 22 50 72 6f 6a 65 ite 0 cvs "Proje
1060: 63 74 3a 20 3c 41 4c 4c 3e 22 0a 20 20 20 20 7d ct: <ALL>". }
1070: 20 65 6c 73 65 20 7b 0a 09 77 72 69 74 65 20 30 else {..write 0
1080: 20 63 76 73 20 22 50 72 6f 6a 65 63 74 3a 20 24 cvs "Project: $
1090: 70 72 6f 6a 65 63 74 22 0a 20 20 20 20 7d 0a 20 project". }.
10a0: 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f return.}..pro
10b0: 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a c ::vc::cvs::ws:
10c0: 3a 52 6f 6f 74 50 61 74 68 20 7b 7d 20 7b 0a 20 :RootPath {} {.
10d0: 20 20 20 76 61 72 69 61 62 6c 65 20 70 72 6f 6a variable proj
10e0: 65 63 74 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ect. variable
10f0: 20 62 61 73 65 0a 0a 20 20 20 20 69 66 20 7b 24 base.. if {$
1100: 70 72 6f 6a 65 63 74 20 65 71 20 22 22 7d 20 7b project eq ""} {
1110: 0a 09 72 65 74 75 72 6e 20 24 62 61 73 65 0a 20 ..return $base.
1120: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 72 65 74 } else {..ret
1130: 75 72 6e 20 24 62 61 73 65 2f 24 70 72 6f 6a 65 urn $base/$proje
1140: 63 74 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 53 63 ct. }.}..# Sc
1150: 61 6e 20 72 65 70 6f 73 69 74 6f 72 79 2c 20 63 an repository, c
1160: 6f 6c 6c 65 63 74 20 61 72 63 68 69 76 65 73 2c ollect archives,
1170: 20 70 61 72 73 65 20 74 68 65 6d 2c 20 61 6e 64 parse them, and
1180: 20 63 6f 6c 6c 65 63 74 20 72 65 76 69 73 69 6f collect revisio
1190: 6e 0a 23 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 n.# information
11a0: 28 66 69 6c 65 2c 20 72 65 76 69 73 69 6f 6e 20 (file, revision
11b0: 2d 3e 20 64 61 74 65 2c 20 61 75 74 68 6f 72 2c -> date, author,
11c0: 20 63 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 29 commit message)
11d0: 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 ..proc ::vc::cvs
11e0: 3a 3a 77 73 3a 3a 53 63 61 6e 41 72 63 68 69 76 ::ws::ScanArchiv
11f0: 65 73 20 7b 66 69 6c 65 73 7d 20 7b 0a 20 20 20 es {files} {.
1200: 20 77 72 69 74 65 20 30 20 63 76 73 20 22 53 63 write 0 cvs "Sc
1210: 61 6e 6e 69 6e 67 20 61 72 63 68 69 76 65 73 20 anning archives
1220: 2e 2e 2e 22 0a 0a 20 20 20 20 73 65 74 20 64 20 ...".. set d
1230: 5b 52 6f 6f 74 50 61 74 68 5d 0a 20 20 20 20 73 [RootPath]. s
1240: 65 74 20 72 20 7b 7d 0a 20 20 20 20 73 65 74 20 et r {}. set
1250: 6e 20 30 0a 0a 20 20 20 20 3a 3a 66 6f 72 65 61 n 0.. ::forea
1260: 63 68 20 7b 72 63 73 20 66 7d 20 24 66 69 6c 65 ch {rcs f} $file
1270: 73 20 7b 0a 09 77 72 69 74 65 20 31 20 63 76 73 s {..write 1 cvs
1280: 20 22 41 72 63 68 69 76 65 20 24 72 63 73 22 0a "Archive $rcs".
1290: 09 23 20 47 65 74 20 74 68 65 20 6d 65 74 61 20 .# Get the meta
12a0: 64 61 74 61 20 77 65 20 6e 65 65 64 20 28 72 65 data we need (re
12b0: 76 69 73 69 6f 6e 73 2c 20 74 69 6d 65 6c 69 6e visions, timelin
12c0: 65 2c 20 6d 65 73 73 61 67 65 73 29 2e 0a 09 6c e, messages)...l
12d0: 61 70 70 65 6e 64 20 72 20 24 66 20 5b 70 72 6f append r $f [pro
12e0: 63 65 73 73 20 24 64 2f 24 72 63 73 5d 0a 09 69 cess $d/$rcs]..i
12f0: 6e 63 72 20 20 20 20 6e 0a 20 20 20 20 7d 0a 0a ncr n. }..
1300: 20 20 20 20 77 72 69 74 65 20 30 20 63 76 73 20 write 0 cvs
1310: 22 50 72 6f 63 65 73 73 65 64 20 5b 4e 53 49 50 "Processed [NSIP
1320: 4c 20 24 6e 20 66 69 6c 65 5d 22 0a 20 20 20 20 L $n file]".
1330: 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 70 72 6f return $r.}..pro
1340: 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a c ::vc::cvs::ws:
1350: 3a 4d 61 6b 65 54 69 6d 65 6c 69 6e 65 20 7b 6d :MakeTimeline {m
1360: 65 74 61 7d 20 7b 0a 20 20 20 20 77 72 69 74 65 eta} {. write
1370: 20 30 20 63 76 73 20 22 47 65 6e 65 72 61 74 69 0 cvs "Generati
1380: 6e 67 20 63 6f 61 6c 65 73 63 65 64 20 74 69 6d ng coalesced tim
1390: 65 6c 69 6e 65 20 2e 2e 2e 22 0a 0a 20 20 20 20 eline ..."..
13a0: 73 65 74 20 6e 20 30 0a 20 20 20 20 3a 3a 66 6f set n 0. ::fo
13b0: 72 65 61 63 68 20 7b 66 20 6d 65 74 61 7d 20 24 reach {f meta} $
13c0: 6d 65 74 61 20 7b 0a 09 61 72 72 61 79 20 73 65 meta {..array se
13d0: 74 20 6d 64 20 20 20 24 6d 65 74 61 0a 09 61 72 t md $meta..ar
13e0: 72 61 79 20 73 65 74 20 64 61 74 65 20 24 6d 64 ray set date $md
13f0: 28 64 61 74 65 29 0a 09 61 72 72 61 79 20 73 65 (date)..array se
1400: 74 20 61 75 74 68 20 24 6d 64 28 61 75 74 68 6f t auth $md(autho
1410: 72 29 0a 09 61 72 72 61 79 20 73 65 74 20 63 6d r)..array set cm
1420: 73 67 20 24 6d 64 28 63 6f 6d 6d 69 74 29 0a 09 sg $md(commit)..
1430: 61 72 72 61 79 20 73 65 74 20 73 74 61 74 20 24 array set stat $
1440: 6d 64 28 73 74 61 74 65 29 0a 0a 09 3a 3a 66 6f md(state)...::fo
1450: 72 65 61 63 68 20 72 65 76 20 5b 6c 73 6f 72 74 reach rev [lsort
1460: 20 2d 64 69 63 74 20 5b 61 72 72 61 79 20 6e 61 -dict [array na
1470: 6d 65 73 20 64 61 74 65 5d 5d 20 7b 0a 09 20 20 mes date]] {..
1480: 20 20 73 65 74 20 6f 70 65 72 61 74 69 6f 6e 20 set operation
1490: 5b 4f 70 65 72 61 74 69 6f 6e 20 24 72 65 76 20 [Operation $rev
14a0: 24 73 74 61 74 28 24 72 65 76 29 5d 0a 09 20 20 $stat($rev)]..
14b0: 20 20 4e 6f 74 65 44 65 61 64 52 6f 6f 74 73 20 NoteDeadRoots
14c0: 24 66 20 24 72 65 76 20 24 6f 70 65 72 61 74 69 $f $rev $operati
14d0: 6f 6e 0a 09 20 20 20 20 74 69 6d 65 6c 69 6e 65 on.. timeline
14e0: 3a 3a 61 64 64 20 24 64 61 74 65 28 24 72 65 76 ::add $date($rev
14f0: 29 20 24 66 20 24 72 65 76 20 24 6f 70 65 72 61 ) $f $rev $opera
1500: 74 69 6f 6e 20 24 61 75 74 68 28 24 72 65 76 29 tion $auth($rev)
1510: 20 24 63 6d 73 67 28 24 72 65 76 29 0a 09 20 20 $cmsg($rev)..
1520: 20 20 69 6e 63 72 20 6e 0a 09 7d 0a 09 23 42 20 incr n..}..#B
1530: 45 78 74 65 6e 64 20 62 72 61 6e 63 68 20 6d 61 Extend branch ma
1540: 6e 61 67 65 6d 65 6e 74 0a 20 20 20 20 7d 0a 0a nagement. }..
1550: 20 20 20 20 77 72 69 74 65 20 30 20 63 76 73 20 write 0 cvs
1560: 22 47 65 6e 65 72 61 74 65 64 20 5b 4e 53 49 50 "Generated [NSIP
1570: 4c 20 24 6e 20 65 6e 74 72 79 20 65 6e 74 72 69 L $n entry entri
1580: 65 73 5d 22 0a 20 20 20 20 72 65 74 75 72 6e 0a es]". return.
1590: 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 }..proc ::vc::cv
15a0: 73 3a 3a 77 73 3a 3a 4e 6f 74 65 44 65 61 64 52 s::ws::NoteDeadR
15b0: 6f 6f 74 73 20 7b 66 20 72 65 76 20 6f 70 65 72 oots {f rev oper
15c0: 61 74 69 6f 6e 7d 20 7b 0a 20 20 20 20 23 20 41 ation} {. # A
15d0: 20 64 65 61 64 2d 66 69 72 73 74 20 72 65 76 69 dead-first revi
15e0: 73 69 6f 6e 20 69 73 20 72 65 76 20 31 2e 31 20 sion is rev 1.1
15f0: 77 69 74 68 20 6f 70 20 52 2e 20 46 6f 72 20 61 with op R. For a
1600: 6e 20 65 78 61 6d 70 6c 65 20 73 65 65 0a 20 20 n example see.
1610: 20 20 23 20 74 68 65 20 66 69 6c 65 20 6d 65 6d # the file mem
1620: 63 68 61 6e 2f 44 45 50 45 4e 44 45 4e 43 49 45 chan/DEPENDENCIE
1630: 53 2e 20 53 75 63 68 20 61 20 66 69 6c 65 20 73 S. Such a file s
1640: 65 65 6d 73 20 74 6f 20 65 78 69 73 74 20 6f 6e eems to exist on
1650: 6c 79 21 0a 20 20 20 20 23 20 6f 6e 20 69 74 73 ly!. # on its
1660: 20 62 72 61 6e 63 68 2e 20 54 68 65 20 62 72 61 branch. The bra
1670: 6e 63 68 65 73 20 69 6e 66 6f 72 6d 61 74 69 6f nches informatio
1680: 6e 20 69 73 20 73 65 74 20 6f 6e 20 74 68 65 20 n is set on the
1690: 72 65 76 69 73 69 6f 6e 0a 20 20 20 20 23 20 28 revision. # (
16a0: 65 78 74 65 6e 64 20 72 63 73 70 61 72 73 65 72 extend rcsparser
16b0: 21 29 2c 20 73 79 6d 62 6f 6c 73 20 68 61 73 20 !), symbols has
16c0: 61 20 74 61 67 2c 20 72 65 66 65 72 69 6e 67 20 a tag, refering
16d0: 74 6f 20 61 20 62 72 61 6e 63 68 2c 0a 20 20 20 to a branch,.
16e0: 20 23 20 70 6f 73 73 69 62 6c 79 20 6d 61 67 69 # possibly magi
16f0: 63 2e 0a 0a 20 20 20 20 69 66 20 7b 28 24 72 65 c... if {($re
1700: 76 20 65 71 20 22 31 2e 31 22 29 20 26 26 20 28 v eq "1.1") && (
1710: 24 6f 70 65 72 61 74 69 6f 6e 20 65 71 20 22 52 $operation eq "R
1720: 22 29 7d 20 7b 0a 09 77 72 69 74 65 20 32 20 63 ")} {..write 2 c
1730: 76 73 20 22 44 65 61 64 20 72 6f 6f 74 20 72 65 vs "Dead root re
1740: 76 69 73 69 6f 6e 3a 20 24 66 22 0a 20 20 20 20 vision: $f".
1750: 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a }. return.}..
1760: 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a proc ::vc::cvs::
1770: 77 73 3a 3a 4f 70 65 72 61 74 69 6f 6e 20 7b 72 ws::Operation {r
1780: 65 76 20 73 74 61 74 65 7d 20 7b 0a 20 20 20 20 ev state} {.
1790: 69 66 20 7b 24 73 74 61 74 65 20 65 71 20 22 64 if {$state eq "d
17a0: 65 61 64 22 7d 20 7b 72 65 74 75 72 6e 20 22 52 ead"} {return "R
17b0: 22 7d 20 3b 20 23 20 52 65 6d 6f 76 65 64 0a 20 "} ; # Removed.
17c0: 20 20 20 69 66 20 7b 24 72 65 76 20 20 20 65 71 if {$rev eq
17d0: 20 22 31 2e 31 22 7d 20 20 7b 72 65 74 75 72 6e "1.1"} {return
17e0: 20 22 41 22 7d 20 3b 20 23 20 41 64 64 65 64 0a "A"} ; # Added.
17f0: 20 20 20 20 72 65 74 75 72 6e 20 22 4d 22 20 20 return "M"
1800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1810: 20 20 20 20 20 20 20 3b 20 23 20 4d 6f 64 69 66 ; # Modif
1820: 69 65 64 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 ied.}..proc ::vc
1830: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 4d 61 6b 65 57 ::cvs::ws::MakeW
1840: 6f 72 6b 73 70 61 63 65 20 7b 7d 20 7b 0a 20 20 orkspace {} {.
1850: 20 20 76 61 72 69 61 62 6c 65 20 70 72 6f 6a 65 variable proje
1860: 63 74 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 ct. variable
1870: 77 6f 72 6b 73 70 61 63 65 20 5b 66 69 6c 65 75 workspace [fileu
1880: 74 69 6c 3a 3a 74 65 6d 70 66 69 6c 65 20 69 6d til::tempfile im
1890: 70 6f 72 74 46 5f 63 76 73 5f 77 73 5f 5d 0a 0a portF_cvs_ws_]..
18a0: 20 20 20 20 73 65 74 20 77 20 24 77 6f 72 6b 73 set w $works
18b0: 70 61 63 65 0a 20 20 20 20 69 66 20 7b 24 70 72 pace. if {$pr
18c0: 6f 6a 65 63 74 20 6e 65 20 22 22 7d 20 7b 20 61 oject ne ""} { a
18d0: 70 70 65 6e 64 20 77 20 2f 24 70 72 6f 6a 65 63 ppend w /$projec
18e0: 74 20 7d 0a 0a 20 20 20 20 66 69 6c 65 20 64 65 t }.. file de
18f0: 6c 65 74 65 20 24 77 6f 72 6b 73 70 61 63 65 0a lete $workspace.
1900: 20 20 20 20 66 69 6c 65 20 6d 6b 64 69 72 20 20 file mkdir
1910: 24 77 0a 0a 20 20 20 20 77 72 69 74 65 20 30 20 $w.. write 0
1920: 63 76 73 20 22 57 6f 72 6b 73 70 61 63 65 3a 20 cvs "Workspace:
1930: 20 24 77 6f 72 6b 73 70 61 63 65 22 0a 20 20 20 $workspace".
1940: 20 72 65 74 75 72 6e 20 24 77 0a 7d 0a 0a 0a 23 return $w.}...#
1950: 20 47 72 6f 75 70 20 73 69 6e 67 6c 65 20 63 68 Group single ch
1960: 61 6e 67 65 73 20 69 6e 74 6f 20 63 68 61 6e 67 anges into chang
1970: 65 73 65 74 73 0a 0a 70 72 6f 63 20 3a 3a 76 63 esets..proc ::vc
1980: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 63 73 65 74 73 ::cvs::ws::csets
1990: 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 {} {. variab
19a0: 6c 65 20 74 69 6d 65 6c 69 6e 65 0a 20 20 20 20 le timeline.
19b0: 76 61 72 69 61 62 6c 65 20 63 73 65 74 73 0a 20 variable csets.
19c0: 20 20 20 76 61 72 69 61 62 6c 65 20 6e 63 73 0a variable ncs.
19d0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 63 6d 61 variable cma
19e0: 70 0a 0a 20 20 20 20 61 72 72 61 79 20 75 6e 73 p.. array uns
19f0: 65 74 20 63 73 65 74 73 20 2a 20 3b 20 61 72 72 et csets * ; arr
1a00: 61 79 20 73 65 74 20 63 73 65 74 73 20 7b 7d 0a ay set csets {}.
1a10: 20 20 20 20 61 72 72 61 79 20 75 6e 73 65 74 20 array unset
1a20: 63 6d 61 70 20 20 2a 20 3b 20 61 72 72 61 79 20 cmap * ; array
1a30: 73 65 74 20 63 6d 61 70 20 20 7b 7d 0a 20 20 20 set cmap {}.
1a40: 20 73 65 74 20 6e 63 73 20 30 0a 0a 20 20 20 20 set ncs 0..
1a50: 77 72 69 74 65 20 30 20 63 76 73 20 22 47 65 6e write 0 cvs "Gen
1a60: 65 72 61 74 69 6e 67 20 63 68 61 6e 67 65 73 65 erating changese
1a70: 74 73 20 66 72 6f 6d 20 74 69 6d 65 6c 69 6e 65 ts from timeline
1a80: 22 0a 0a 20 20 20 20 43 53 43 6c 65 61 72 0a 20 ".. CSClear.
1a90: 20 20 20 74 69 6d 65 6c 69 6e 65 3a 3a 66 6f 72 timeline::for
1aa0: 65 61 63 68 20 64 61 74 65 20 66 69 6c 65 20 72 each date file r
1ab0: 65 76 69 73 69 6f 6e 20 6f 70 65 72 61 74 69 6f evision operatio
1ac0: 6e 20 61 75 74 68 6f 72 20 63 6d 73 67 20 7b 0a n author cmsg {.
1ad0: 09 23 20 41 50 49 20 61 64 61 70 74 69 6f 6e 0a .# API adaption.
1ae0: 09 73 65 74 20 65 6e 74 72 79 20 5b 6c 69 73 74 .set entry [list
1af0: 20 24 6f 70 65 72 61 74 69 6f 6e 20 24 64 61 74 $operation $dat
1b00: 65 20 24 61 75 74 68 6f 72 20 24 72 65 76 69 73 e $author $revis
1b10: 69 6f 6e 20 24 66 69 6c 65 20 24 63 6d 73 67 5d ion $file $cmsg]
1b20: 0a 0a 09 69 66 20 7b 21 5b 43 53 4e 6f 6e 65 5d ...if {![CSNone]
1b30: 20 26 26 20 5b 43 53 4e 65 77 20 24 65 6e 74 72 && [CSNew $entr
1b40: 79 5d 7d 20 7b 0a 09 20 20 20 20 43 53 53 61 76 y]} {.. CSSav
1b50: 65 0a 09 20 20 20 20 43 53 43 6c 65 61 72 0a 09 e.. CSClear..
1b60: 7d 0a 09 43 53 41 64 64 20 24 65 6e 74 72 79 0a }..CSAdd $entry.
1b70: 20 20 20 20 7d 0a 0a 20 20 20 20 77 72 69 74 65 }.. write
1b80: 20 30 20 63 76 73 20 22 46 6f 75 6e 64 20 5b 4e 0 cvs "Found [N
1b90: 53 49 50 4c 20 5b 61 72 72 61 79 20 73 69 7a 65 SIPL [array size
1ba0: 20 63 73 65 74 73 5d 20 63 68 61 6e 67 65 73 65 csets] changese
1bb0: 74 5d 22 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d t]". return.}
1bc0: 0a 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 ...namespace eva
1bd0: 6c 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 20 l ::vc::cvs::ws
1be0: 7b 0a 20 20 20 20 23 20 43 68 61 6e 67 65 73 65 {. # Changese
1bf0: 74 20 64 61 74 61 3a 0a 20 20 20 20 23 20 6e 63 t data:. # nc
1c00: 73 3a 20 20 20 43 6f 75 6e 74 65 72 2d 62 61 73 s: Counter-bas
1c10: 65 64 20 69 64 20 67 65 6e 65 72 61 74 69 6f 6e ed id generation
1c20: 0a 20 20 20 20 23 20 63 73 65 74 73 3a 20 69 64 . # csets: id
1c30: 20 2d 3e 20 28 75 73 65 72 20 63 6f 6d 6d 69 74 -> (user commit
1c40: 20 73 74 61 72 74 20 65 6e 64 20 64 65 70 74 68 start end depth
1c50: 20 28 66 69 6c 65 20 2d 3e 20 28 6f 70 20 72 65 (file -> (op re
1c60: 76 29 29 29 0a 0a 20 20 20 20 76 61 72 69 61 62 v))).. variab
1c70: 6c 65 20 6e 63 73 20 20 20 20 20 20 3b 20 73 65 le ncs ; se
1c80: 74 20 20 20 20 20 20 20 6e 63 73 20 20 20 30 20 t ncs 0
1c90: 20 3b 20 23 20 43 6f 75 6e 74 65 72 20 66 6f 72 ; # Counter for
1ca0: 20 63 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 changesets.
1cb0: 76 61 72 69 61 62 6c 65 20 63 73 65 74 73 20 20 variable csets
1cc0: 20 20 3b 20 61 72 72 61 79 20 73 65 74 20 63 73 ; array set cs
1cd0: 65 74 73 20 7b 7d 20 3b 20 23 20 43 68 61 6e 67 ets {} ; # Chang
1ce0: 65 73 65 74 20 64 61 74 61 0a 7d 0a 0a 23 20 42 eset data.}..# B
1cf0: 75 69 6c 64 69 6e 67 20 74 68 65 20 72 65 76 69 uilding the revi
1d00: 73 69 6f 6e 20 74 72 65 65 20 66 72 6f 6d 20 74 sion tree from t
1d10: 68 65 20 63 68 61 6e 67 65 73 65 74 73 2e 0a 23 he changesets..#
1d20: 20 4c 69 6d 69 74 61 74 69 6f 6e 3a 20 43 75 72 Limitation: Cur
1d30: 72 65 6e 74 6c 79 20 6f 6e 6c 79 20 74 72 75 6e rently only trun
1d40: 6b 20 63 73 65 74 73 20 69 73 20 68 61 6e 64 6c k csets is handl
1d50: 65 64 2e 0a 23 20 4c 69 6d 69 74 61 74 69 6f 6e ed..# Limitation
1d60: 3a 20 44 65 61 64 20 66 69 6c 65 73 20 61 72 65 : Dead files are
1d70: 20 6e 6f 74 20 72 65 6d 6f 76 65 64 2c 20 69 2e not removed, i.
1d80: 65 2e 20 6e 6f 20 27 52 27 20 61 63 74 69 6f 6e e. no 'R' action
1d90: 73 20 72 69 67 68 74 20 6e 6f 77 2e 0a 0a 70 72 s right now...pr
1da0: 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 oc ::vc::cvs::ws
1db0: 3a 3a 72 74 72 65 65 20 7b 7d 20 7b 0a 20 20 20 ::rtree {} {.
1dc0: 20 76 61 72 69 61 62 6c 65 20 63 73 65 74 73 0a variable csets.
1dd0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 72 74 72 variable rtr
1de0: 65 65 20 7b 7d 0a 20 20 20 20 76 61 72 69 61 62 ee {}. variab
1df0: 6c 65 20 6e 74 72 75 6e 6b 20 30 0a 0a 20 20 20 le ntrunk 0..
1e00: 20 77 72 69 74 65 20 30 20 63 76 73 20 22 45 78 write 0 cvs "Ex
1e10: 74 72 61 63 74 69 6e 67 20 74 68 65 20 74 72 75 tracting the tru
1e20: 6e 6b 22 0a 0a 20 20 20 20 73 65 74 20 72 74 72 nk".. set rtr
1e30: 65 65 20 5b 73 74 72 75 63 74 3a 3a 74 72 65 65 ee [struct::tree
1e40: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
1e50: 52 54 5d 0a 20 20 20 20 24 72 74 72 65 65 20 72 RT]. $rtree r
1e60: 65 6e 61 6d 65 20 72 6f 6f 74 20 30 20 3b 20 23 ename root 0 ; #
1e70: 20 52 6f 6f 74 20 69 73 20 66 69 72 73 74 20 63 Root is first c
1e80: 68 61 6e 67 65 73 65 74 2c 20 61 6c 77 61 79 73 hangeset, always
1e90: 2e 0a 20 20 20 20 73 65 74 20 74 72 75 6e 6b 20 .. set trunk
1ea0: 30 0a 20 20 20 20 73 65 74 20 6e 74 72 75 6e 6b 0. set ntrunk
1eb0: 20 31 20 3b 20 23 20 52 6f 6f 74 20 69 73 20 6f 1 ; # Root is o
1ec0: 6e 20 74 68 65 20 74 72 75 6e 6b 2e 0a 20 20 20 n the trunk..
1ed0: 20 73 65 74 20 62 20 20 20 20 20 20 30 20 3b 20 set b 0 ;
1ee0: 23 20 4e 6f 20 62 72 61 6e 63 68 20 63 73 65 74 # No branch cset
1ef0: 73 20 66 6f 75 6e 64 20 79 65 74 2e 0a 0a 20 20 s found yet...
1f00: 20 20 23 20 45 78 74 72 61 63 74 69 6e 67 20 74 # Extracting t
1f10: 68 65 20 74 72 75 6e 6b 20 69 73 20 65 61 73 79 he trunk is easy
1f20: 2c 20 73 69 6d 70 6c 79 20 62 79 20 6c 6f 6f 6b , simply by look
1f30: 69 6e 67 20 61 74 20 74 68 65 20 69 6e 76 6f 6c ing at the invol
1f40: 76 65 64 0a 20 20 20 20 23 20 76 65 72 73 69 6f ved. # versio
1f50: 6e 20 6e 75 6d 62 65 72 73 2e 20 0a 0a 20 20 20 n numbers. ..
1f60: 20 3a 3a 66 6f 72 65 61 63 68 20 63 20 5b 6c 72 ::foreach c [lr
1f70: 61 6e 67 65 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 ange [lsort -int
1f80: 65 67 65 72 20 5b 61 72 72 61 79 20 6e 61 6d 65 eger [array name
1f90: 73 20 63 73 65 74 73 5d 5d 20 31 20 65 6e 64 5d s csets]] 1 end]
1fa0: 20 7b 0a 09 3a 3a 66 6f 72 65 61 63 68 20 7b 75 {..::foreach {u
1fb0: 20 63 6d 20 73 20 65 20 72 64 20 66 7d 20 24 63 cm s e rd f} $c
1fc0: 73 65 74 73 28 24 63 29 20 62 72 65 61 6b 0a 0a sets($c) break..
1fd0: 09 23 20 49 67 6e 6f 72 65 20 62 72 61 6e 63 68 .# Ignore branch
1fe0: 20 63 68 61 6e 67 65 73 2c 20 6a 75 73 74 20 63 changes, just c
1ff0: 6f 75 6e 74 20 74 68 65 6d 20 66 6f 72 20 74 68 ount them for th
2000: 65 20 73 74 61 74 69 73 74 69 63 73 2e 0a 09 69 e statistics...i
2010: 66 20 7b 24 72 64 20 21 3d 20 32 7d 20 7b 0a 09 f {$rd != 2} {..
2020: 20 20 20 20 69 6e 63 72 20 62 0a 09 20 20 20 20 incr b..
2030: 63 6f 6e 74 69 6e 75 65 0a 09 7d 0a 0a 09 23 20 continue..}...#
2040: 54 72 75 6e 6b 20 72 65 76 69 73 69 6f 6e 2c 20 Trunk revision,
2050: 63 6f 6e 6e 65 63 74 20 74 6f 2c 20 61 6e 64 20 connect to, and
2060: 75 70 64 61 74 65 20 74 68 65 20 68 65 61 64 2e update the head.
2070: 0a 09 24 72 74 72 65 65 20 69 6e 73 65 72 74 20 ..$rtree insert
2080: 24 74 72 75 6e 6b 20 65 6e 64 20 24 63 0a 09 73 $trunk end $c..s
2090: 65 74 20 74 72 75 6e 6b 20 24 63 0a 09 69 6e 63 et trunk $c..inc
20a0: 72 20 6e 74 72 75 6e 6b 0a 20 20 20 20 7d 0a 0a r ntrunk. }..
20b0: 20 20 20 20 77 72 69 74 65 20 30 20 63 76 73 20 write 0 cvs
20c0: 22 50 72 6f 63 65 73 73 65 64 20 24 6e 74 72 75 "Processed $ntru
20d0: 6e 6b 20 74 72 75 6e 6b 20 20 5b 65 78 70 72 20 nk trunk [expr
20e0: 7b 28 24 6e 74 72 75 6e 6b 20 3d 3d 20 31 29 20 {($ntrunk == 1)
20f0: 3f 20 22 63 68 61 6e 67 65 73 65 74 22 20 3a 20 ? "changeset" :
2100: 22 63 68 61 6e 67 65 73 65 74 73 22 7d 5d 22 0a "changesets"}]".
2110: 20 20 20 20 77 72 69 74 65 20 30 20 63 76 73 20 write 0 cvs
2120: 22 49 67 6e 6f 72 65 64 20 20 20 24 62 20 62 72 "Ignored $b br
2130: 61 6e 63 68 20 5b 65 78 70 72 20 7b 28 24 62 20 anch [expr {($b
2140: 3d 3d 20 31 29 20 3f 20 22 63 68 61 6e 67 65 73 == 1) ? "changes
2150: 65 74 22 20 3a 20 22 63 68 61 6e 67 65 73 65 74 et" : "changeset
2160: 73 22 7d 5d 22 0a 20 20 20 20 72 65 74 75 72 6e s"}]". return
2170: 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 .}..namespace ev
2180: 61 6c 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 al ::vc::cvs::ws
2190: 20 7b 0a 20 20 20 20 23 20 54 72 65 65 20 68 6f {. # Tree ho
21a0: 6c 64 69 6e 67 20 74 72 75 6e 6b 20 61 6e 64 20 lding trunk and
21b0: 62 72 61 6e 63 68 20 69 6e 66 6f 72 6d 61 74 69 branch informati
21c0: 6f 6e 20 28 73 74 72 75 63 74 3a 3a 74 72 65 65 on (struct::tree
21d0: 29 2e 0a 20 20 20 20 23 20 4e 6f 64 65 20 6e 61 ).. # Node na
21e0: 6d 65 73 20 61 72 65 20 63 73 65 74 20 69 64 27 mes are cset id'
21f0: 73 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 s... variable
2200: 20 72 74 72 65 65 20 7b 7d 0a 20 20 20 20 76 61 rtree {}. va
2210: 72 69 61 62 6c 65 20 6e 74 72 75 6e 6b 20 30 0a riable ntrunk 0.
2220: 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 }..proc ::vc::cv
2230: 73 3a 3a 77 73 3a 3a 77 73 73 65 74 75 70 20 7b s::ws::wssetup {
2240: 63 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c c} {. variabl
2250: 65 20 63 73 65 74 73 0a 20 20 20 20 76 61 72 69 e csets. vari
2260: 61 62 6c 65 20 62 61 73 65 0a 20 20 20 20 76 61 able base. va
2270: 72 69 61 62 6c 65 20 70 72 6f 6a 65 63 74 0a 0a riable project..
2280: 20 20 20 20 23 20 70 77 64 20 3d 20 77 6f 72 6b # pwd = work
2290: 73 70 61 63 65 0a 0a 20 20 20 20 3a 3a 66 6f 72 space.. ::for
22a0: 65 61 63 68 20 7b 75 20 63 6d 20 73 20 65 20 72 each {u cm s e r
22b0: 64 20 66 73 7d 20 24 63 73 65 74 73 28 24 63 29 d fs} $csets($c)
22c0: 20 62 72 65 61 6b 0a 0a 20 20 20 20 77 72 69 74 break.. writ
22d0: 65 20 31 20 63 76 73 20 22 40 20 20 24 73 22 0a e 1 cvs "@ $s".
22e0: 0a 20 20 20 20 3a 3a 66 6f 72 65 61 63 68 20 6c . ::foreach l
22f0: 20 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 [split [string
2300: 74 72 69 6d 20 24 63 6d 5d 20 5c 6e 5d 20 7b 0a trim $cm] \n] {.
2310: 09 77 72 69 74 65 20 31 20 63 76 73 20 22 7c 20 .write 1 cvs "|
2320: 20 24 6c 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 $l". }..
2330: 3a 3a 66 6f 72 65 61 63 68 20 7b 66 20 6f 72 7d ::foreach {f or}
2340: 20 24 66 73 20 7b 0a 09 3a 3a 66 6f 72 65 61 63 $fs {..::foreac
2350: 68 20 7b 6f 70 20 72 7d 20 24 6f 72 20 62 72 65 h {op r} $or bre
2360: 61 6b 0a 09 77 72 69 74 65 20 32 20 63 76 73 20 ak..write 2 cvs
2370: 22 24 6f 70 20 20 24 66 20 24 72 22 0a 0a 09 69 "$op $f $r"...i
2380: 66 20 7b 24 6f 70 20 65 71 20 22 52 22 7d 20 7b f {$op eq "R"} {
2390: 0a 09 20 20 20 20 23 20 52 65 6d 6f 76 65 20 66 .. # Remove f
23a0: 69 6c 65 20 66 72 6f 6d 20 77 6f 72 6b 73 70 61 ile from workspa
23b0: 63 65 2e 20 50 72 75 6e 65 20 65 6d 70 74 79 20 ce. Prune empty
23c0: 64 69 72 65 63 74 6f 72 69 65 73 2e 0a 09 20 20 directories...
23d0: 20 20 23 0a 09 20 20 20 20 23 20 4e 4f 54 45 3a #.. # NOTE:
23e0: 20 41 20 64 65 61 64 2d 66 69 72 73 74 20 66 69 A dead-first fi
23f0: 6c 65 20 28 72 65 76 20 31 2e 31 20 64 65 61 64 le (rev 1.1 dead
2400: 29 20 77 69 6c 6c 20 6e 65 76 65 72 20 68 61 76 ) will never hav
2410: 65 0a 09 20 20 20 20 23 20 65 78 69 73 74 65 64 e.. # existed
2420: 2e 0a 09 20 20 20 20 23 0a 09 20 20 20 20 23 20 ... #.. #
2430: 4e 4f 54 45 3a 20 4c 6f 67 69 63 61 6c 6c 79 20 NOTE: Logically
2440: 65 6d 70 74 79 20 64 69 72 65 63 74 6f 72 69 65 empty directorie
2450: 73 20 73 74 69 6c 6c 20 70 68 79 73 69 63 61 6c s still physical
2460: 6c 79 0a 09 20 20 20 20 23 20 63 6f 6e 74 61 69 ly.. # contai
2470: 6e 20 74 68 65 20 43 56 53 20 61 64 6d 69 6e 20 n the CVS admin
2480: 64 69 72 65 63 74 6f 72 79 2c 20 68 65 6e 63 65 directory, hence
2490: 20 74 68 65 20 63 68 65 63 6b 20 66 6f 72 20 3d the check for =
24a0: 3d 0a 09 20 20 20 20 23 20 31 2c 20 6e 6f 74 20 =.. # 1, not
24b0: 3d 3d 20 30 2e 20 54 68 65 72 65 20 6d 69 67 68 == 0. There migh
24c0: 74 20 61 6c 73 6f 20 62 65 20 68 69 64 64 65 6e t also be hidden
24d0: 20 66 69 6c 65 73 2c 20 77 65 20 63 6f 75 6e 74 files, we count
24e0: 0a 09 20 20 20 20 23 20 74 68 65 6d 20 61 73 20 .. # them as
24f0: 77 65 6c 6c 2e 20 41 6c 77 61 79 73 20 68 69 64 well. Always hid
2500: 64 65 6e 20 61 72 65 20 2e 20 61 6e 64 20 2e 2e den are . and ..
2510: 20 61 6e 64 20 74 68 65 79 20 64 6f 20 6e 6f 74 and they do not
2520: 0a 09 20 20 20 20 23 20 63 6f 75 6e 74 20 61 73 .. # count as
2530: 20 75 73 65 72 20 66 69 6c 65 2e 0a 0a 09 20 20 user file....
2540: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 24 66 file delete $f
2550: 0a 09 20 20 20 20 73 65 74 20 66 64 20 5b 66 69 .. set fd [fi
2560: 6c 65 20 64 69 72 6e 61 6d 65 20 24 66 5d 0a 09 le dirname $f]..
2570: 20 20 20 20 69 66 20 7b 0a 09 09 28 5b 6c 6c 65 if {...([lle
2580: 6e 67 74 68 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f ngth [glob -noco
2590: 6d 70 6c 61 69 6e 20 2d 64 69 72 65 63 74 6f 72 mplain -director
25a0: 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 y $
25b0: 66 64 20 2a 5d 5d 20 3d 3d 20 31 29 20 26 26 0a fd *]] == 1) &&.
25c0: 09 09 28 5b 6c 6c 65 6e 67 74 68 20 5b 67 6c 6f ..([llength [glo
25d0: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 64 b -nocomplain -d
25e0: 69 72 65 63 74 6f 72 79 20 2d 74 79 70 65 20 68 irectory -type h
25f0: 69 64 64 65 6e 20 24 66 64 20 2a 5d 5d 20 3d 3d idden $fd *]] ==
2600: 20 32 29 0a 09 20 20 20 20 7d 20 7b 0a 09 09 66 2).. } {...f
2610: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 ile delete -forc
2620: 65 20 24 66 64 0a 09 20 20 20 20 7d 0a 09 7d 20 e $fd.. }..}
2630: 65 6c 73 65 20 7b 0a 09 20 20 20 20 23 20 41 64 else {.. # Ad
2640: 64 65 64 20 6f 72 20 6d 6f 64 69 66 69 65 64 2c ded or modified,
2650: 20 70 75 74 20 74 68 65 20 72 65 71 75 65 73 74 put the request
2660: 65 64 20 76 65 72 73 69 6f 6e 20 6f 66 20 74 68 ed version of th
2670: 65 20 66 69 6c 65 0a 09 20 20 20 20 23 20 69 6e e file.. # in
2680: 74 6f 20 74 68 65 20 77 6f 72 6b 73 70 61 63 65 to the workspace
2690: 2e 0a 0a 09 20 20 20 20 69 66 20 7b 24 70 72 6f .... if {$pro
26a0: 6a 65 63 74 20 6e 65 20 22 22 7d 20 7b 73 65 74 ject ne ""} {set
26b0: 20 66 20 24 70 72 6f 6a 65 63 74 2f 24 66 7d 0a f $project/$f}.
26c0: 09 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 . if {[catch
26d0: 7b 0a 09 09 64 6f 76 61 20 2d 64 20 24 62 61 73 {...dova -d $bas
26e0: 65 20 63 6f 20 2d 72 20 24 72 20 24 66 0a 09 20 e co -r $r $f..
26f0: 20 20 20 7d 20 6d 73 67 5d 7d 20 7b 0a 09 09 69 } msg]} {...i
2700: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 f {[string match
2710: 20 7b 2a 69 6e 76 61 6c 69 64 20 63 68 61 6e 67 {*invalid chang
2720: 65 20 74 65 78 74 2a 7d 20 24 6d 73 67 5d 7d 20 e text*} $msg]}
2730: 7b 0a 09 09 20 20 20 20 23 20 54 68 65 20 61 72 {... # The ar
2740: 63 68 69 76 65 20 6f 66 20 74 68 65 20 66 69 6c chive of the fil
2750: 65 20 69 73 20 63 6f 72 72 75 70 74 65 64 20 61 e is corrupted a
2760: 6e 64 20 74 68 65 0a 09 09 20 20 20 20 23 20 63 nd the... # c
2770: 68 6f 73 65 6e 20 76 65 72 73 69 6f 6e 20 6e 6f hosen version no
2780: 74 20 61 63 63 65 73 73 69 62 6c 65 20 64 75 65 t accessible due
2790: 20 74 6f 20 74 68 61 74 2e 20 57 65 0a 09 09 20 to that. We...
27a0: 20 20 20 23 20 72 65 70 6f 72 74 20 74 68 65 20 # report the
27b0: 70 72 6f 62 6c 65 6d 2c 20 62 75 74 20 6f 74 68 problem, but oth
27c0: 65 72 77 69 73 65 20 69 67 6e 6f 72 65 20 69 74 erwise ignore it
27d0: 2e 20 41 73 0a 09 09 20 20 20 20 23 20 61 20 63 . As... # a c
27e0: 6f 6e 73 65 71 75 65 6e 63 65 20 74 68 65 20 64 onsequence the d
27f0: 65 73 74 69 6e 61 74 69 6f 6e 20 72 65 70 6f 73 estination repos
2800: 69 74 6f 72 79 20 77 69 6c 6c 20 6e 6f 74 0a 09 itory will not..
2810: 09 20 20 20 20 23 20 63 6f 6e 74 61 69 6e 20 74 . # contain t
2820: 68 65 20 66 75 6c 6c 20 68 69 73 74 6f 72 79 20 he full history
2830: 6f 66 20 74 68 65 20 6e 61 6d 65 64 20 66 69 6c of the named fil
2840: 65 2e 20 42 79 0a 09 09 20 20 20 20 23 20 69 67 e. By... # ig
2850: 6e 6f 72 69 6e 67 20 74 68 65 20 70 72 6f 62 6c noring the probl
2860: 65 6d 20 77 65 20 68 6f 77 65 76 65 72 20 67 65 em we however ge
2870: 74 20 61 73 20 6d 75 63 68 20 61 73 0a 09 09 20 t as much as...
2880: 20 20 20 23 20 69 73 20 70 6f 73 73 69 62 6c 65 # is possible
2890: 2e 0a 0a 09 09 20 20 20 20 77 72 69 74 65 20 30 ..... write 0
28a0: 20 63 76 73 20 22 45 45 20 43 6f 72 72 75 70 74 cvs "EE Corrupt
28b0: 65 64 20 61 72 63 68 69 76 65 20 66 69 6c 65 2e ed archive file.
28c0: 20 49 6e 61 63 63 65 73 73 69 62 6c 65 20 72 65 Inaccessible re
28d0: 76 69 73 69 6f 6e 2e 22 0a 09 09 20 20 20 20 63 vision."... c
28e0: 6f 6e 74 69 6e 75 65 0a 09 09 7d 0a 09 09 72 65 ontinue...}...re
28f0: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
2900: 20 24 6d 73 67 0a 09 20 20 20 20 7d 0a 09 7d 0a $msg.. }..}.
2910: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 50 72 6f }.. # Pro
2920: 76 69 64 65 20 6d 65 74 61 64 61 74 61 20 61 62 vide metadata ab
2930: 6f 75 74 20 74 68 65 20 63 68 61 6e 67 65 73 65 out the changese
2940: 74 20 74 68 65 20 62 61 63 6b 65 6e 64 20 6d 61 t the backend ma
2950: 79 20 77 69 73 68 20 74 6f 20 68 61 76 65 0a 20 y wish to have.
2960: 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 return [list
2970: 24 75 20 24 73 20 24 63 6d 5d 0a 7d 0a 0a 70 72 $u $s $cm].}..pr
2980: 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 oc ::vc::cvs::ws
2990: 3a 3a 66 6f 72 65 61 63 68 5f 63 73 65 74 20 7b ::foreach_cset {
29a0: 63 76 20 6e 6f 64 65 20 73 63 72 69 70 74 7d 20 cv node script}
29b0: 7b 0a 20 20 20 20 75 70 76 61 72 20 31 20 24 63 {. upvar 1 $c
29c0: 76 20 63 0a 20 20 20 20 76 61 72 69 61 62 6c 65 v c. variable
29d0: 20 72 74 72 65 65 0a 0a 20 20 20 20 73 65 74 20 rtree.. set
29e0: 63 20 24 6e 6f 64 65 0a 20 20 20 20 77 68 69 6c c $node. whil
29f0: 65 20 7b 31 7d 20 7b 0a 09 73 65 74 20 63 6f 64 e {1} {..set cod
2a00: 65 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65 e [catch {upleve
2a10: 6c 20 31 20 24 73 63 72 69 70 74 7d 20 72 65 73 l 1 $script} res
2a20: 5d 0a 0a 09 23 20 30 20 2d 20 6f 6b 2c 20 31 20 ]...# 0 - ok, 1
2a30: 2d 20 65 72 72 6f 72 2c 20 32 20 2d 20 72 65 74 - error, 2 - ret
2a40: 75 72 6e 2c 20 33 20 2d 20 62 72 65 61 6b 2c 20 urn, 3 - break,
2a50: 34 20 2d 20 63 6f 6e 74 69 6e 75 65 0a 09 73 77 4 - continue..sw
2a60: 69 74 63 68 20 2d 2d 20 24 63 6f 64 65 20 7b 0a itch -- $code {.
2a70: 09 20 20 20 20 30 20 7b 7d 0a 09 20 20 20 20 31 . 0 {}.. 1
2a80: 20 7b 20 72 65 74 75 72 6e 20 2d 65 72 72 6f 72 { return -error
2a90: 63 6f 64 65 20 24 3a 3a 65 72 72 6f 72 43 6f 64 code $::errorCod
2aa0: 65 20 2d 65 72 72 6f 72 69 6e 66 6f 20 24 3a 3a e -errorinfo $::
2ab0: 65 72 72 6f 72 49 6e 66 6f 20 2d 63 6f 64 65 20 errorInfo -code
2ac0: 65 72 72 6f 72 20 24 72 65 73 20 7d 0a 09 20 20 error $res }..
2ad0: 20 20 32 20 7b 7d 0a 09 20 20 20 20 33 20 7b 20 2 {}.. 3 {
2ae0: 72 65 74 75 72 6e 20 7d 0a 09 20 20 20 20 34 20 return }.. 4
2af0: 7b 7d 0a 09 20 20 20 20 64 65 66 61 75 6c 74 20 {}.. default
2b00: 7b 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 {...return -code
2b10: 20 24 63 6f 64 65 20 24 72 65 73 75 6c 74 0a 09 $code $result..
2b20: 20 20 20 20 7d 0a 09 7d 0a 0a 09 23 20 53 74 6f }..}...# Sto
2b30: 70 20 6f 6e 20 72 65 61 63 68 69 6e 67 20 74 68 p on reaching th
2b40: 65 20 68 65 61 64 2e 0a 09 69 66 20 7b 21 5b 6c e head...if {![l
2b50: 6c 65 6e 67 74 68 20 5b 24 72 74 72 65 65 20 63 length [$rtree c
2b60: 68 69 6c 64 72 65 6e 20 24 63 5d 5d 7d 20 62 72 hildren $c]]} br
2b70: 65 61 6b 0a 0a 09 23 70 75 74 73 20 3c 5b 24 72 eak...#puts <[$r
2b80: 74 72 65 65 20 63 68 69 6c 64 72 65 6e 20 24 63 tree children $c
2b90: 5d 3e 0a 0a 09 23 20 47 6f 20 74 6f 20 6e 65 78 ]>...# Go to nex
2ba0: 74 20 63 68 69 6c 64 20 69 6e 20 74 72 75 6e 6b t child in trunk
2bb0: 20 28 6c 65 66 74 6d 6f 73 74 29 2e 0a 09 73 65 (leftmost)...se
2bc0: 74 20 63 20 5b 6c 69 6e 64 65 78 20 5b 24 72 74 t c [lindex [$rt
2bd0: 72 65 65 20 63 68 69 6c 64 72 65 6e 20 24 63 5d ree children $c]
2be0: 20 30 5d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 0]. }. re
2bf0: 74 75 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d turn.}..# ------
2c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2c40: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 49 6e 74 65 72 6e -------.# Intern
2c50: 61 6c 20 68 65 6c 70 65 72 20 63 6f 6d 6d 61 6e al helper comman
2c60: 64 73 3a 20 43 68 61 6e 67 65 73 65 74 20 69 6e ds: Changeset in
2c70: 73 70 65 63 74 69 6f 6e 20 61 6e 64 20 63 6f 6e spection and con
2c80: 73 74 72 75 63 74 69 6f 6e 2e 0a 0a 70 72 6f 63 struction...proc
2c90: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
2ca0: 43 53 43 6c 65 61 72 20 7b 7d 20 7b 0a 20 20 20 CSClear {} {.
2cb0: 20 75 70 76 61 72 20 31 20 73 74 61 72 74 20 73 upvar 1 start s
2cc0: 74 61 72 74 20 65 6e 64 20 65 6e 64 20 63 6d 20 tart end end cm
2cd0: 63 6d 20 75 73 65 72 20 75 73 65 72 20 66 69 6c cm user user fil
2ce0: 65 73 20 66 69 6c 65 73 20 6c 61 73 74 64 20 6c es files lastd l
2cf0: 61 73 74 64 0a 0a 20 20 20 20 73 65 74 20 73 74 astd.. set st
2d00: 61 72 74 20 7b 7d 0a 20 20 20 20 73 65 74 20 65 art {}. set e
2d10: 6e 64 20 20 20 7b 7d 0a 20 20 20 20 73 65 74 20 nd {}. set
2d20: 63 6d 20 20 20 20 7b 7d 0a 20 20 20 20 73 65 74 cm {}. set
2d30: 20 75 73 65 72 20 20 7b 7d 0a 20 20 20 20 73 65 user {}. se
2d40: 74 20 6c 61 73 74 64 20 7b 7d 0a 20 20 20 20 61 t lastd {}. a
2d50: 72 72 61 79 20 75 6e 73 65 74 20 66 69 6c 65 73 rray unset files
2d60: 20 2a 0a 20 20 20 20 61 72 72 61 79 20 73 65 74 *. array set
2d70: 20 66 69 6c 65 73 20 7b 7d 0a 20 20 20 20 72 65 files {}. re
2d80: 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 turn.}..proc ::v
2d90: 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 43 53 4e 6f c::cvs::ws::CSNo
2da0: 6e 65 20 7b 7d 20 7b 0a 20 20 20 20 75 70 76 61 ne {} {. upva
2db0: 72 20 31 20 73 74 61 72 74 20 73 74 61 72 74 0a r 1 start start.
2dc0: 20 20 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 return [expr
2dd0: 20 7b 24 73 74 61 72 74 20 65 71 20 22 22 7d 5d {$start eq ""}]
2de0: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
2df0: 76 73 3a 3a 77 73 3a 3a 43 53 4e 65 77 20 7b 65 vs::ws::CSNew {e
2e00: 6e 74 72 79 7d 20 7b 0a 20 20 20 20 75 70 76 61 ntry} {. upva
2e10: 72 20 31 20 73 74 61 72 74 20 73 74 61 72 74 20 r 1 start start
2e20: 65 6e 64 20 65 6e 64 20 63 6d 20 63 6d 20 75 73 end end cm cm us
2e30: 65 72 20 75 73 65 72 20 66 69 6c 65 73 20 66 69 er user files fi
2e40: 6c 65 73 20 6c 61 73 74 64 20 6c 61 73 74 64 20 les lastd lastd
2e50: 72 65 61 73 6f 6e 20 72 65 61 73 6f 6e 0a 0a 20 reason reason..
2e60: 20 20 20 23 70 75 74 73 20 2d 6e 6f 6e 65 77 6c #puts -nonewl
2e70: 69 6e 65 20 73 74 64 6f 75 74 20 2e 20 3b 20 66 ine stdout . ; f
2e80: 6c 75 73 68 20 73 74 64 6f 75 74 0a 0a 20 20 20 lush stdout..
2e90: 20 3a 3a 66 6f 72 65 61 63 68 20 7b 6f 70 20 74 ::foreach {op t
2ea0: 73 20 61 20 72 65 76 20 66 20 65 63 6d 7d 20 24 s a rev f ecm} $
2eb0: 65 6e 74 72 79 20 62 72 65 61 6b 0a 0a 20 20 20 entry break..
2ec0: 20 23 20 55 73 65 72 20 63 68 61 6e 67 65 0a 20 # User change.
2ed0: 20 20 20 69 66 20 7b 24 61 20 6e 65 20 24 75 73 if {$a ne $us
2ee0: 65 72 7d 20 7b 73 65 74 20 72 65 61 73 6f 6e 20 er} {set reason
2ef0: 75 73 65 72 20 3b 20 72 65 74 75 72 6e 20 31 7d user ; return 1}
2f00: 0a 0a 20 20 20 20 23 20 46 69 6c 65 20 61 6c 72 .. # File alr
2f10: 65 61 64 79 20 69 6e 20 63 75 72 72 65 6e 74 20 eady in current
2f20: 63 73 65 74 0a 20 20 20 20 69 66 20 7b 5b 69 6e cset. if {[in
2f30: 66 6f 20 65 78 69 73 74 73 20 66 69 6c 65 73 28 fo exists files(
2f40: 24 66 29 5d 7d 20 7b 73 65 74 20 72 65 61 73 6f $f)]} {set reaso
2f50: 6e 20 66 69 6c 65 20 3b 20 72 65 74 75 72 6e 20 n file ; return
2f60: 31 7d 0a 0a 20 20 20 20 23 20 43 75 72 72 65 6e 1}.. # Curren
2f70: 74 20 63 73 65 74 20 74 72 75 6e 6b 2f 62 72 61 t cset trunk/bra
2f80: 6e 63 68 20 64 69 66 66 65 72 65 6e 74 20 66 72 nch different fr
2f90: 6f 6d 20 65 6e 74 72 79 2e 0a 20 20 20 20 73 65 om entry.. se
2fa0: 74 20 64 65 70 74 68 20 5b 6c 6c 65 6e 67 74 68 t depth [llength
2fb0: 20 5b 73 70 6c 69 74 20 24 72 65 76 20 2e 5d 5d [split $rev .]]
2fc0: 0a 20 20 20 20 69 66 20 7b 28 24 6c 61 73 74 64 . if {($lastd
2fd0: 20 3d 3d 20 32 29 20 21 3d 20 28 24 64 65 70 74 == 2) != ($dept
2fe0: 68 20 3d 3d 20 32 29 7d 20 7b 73 65 74 20 72 65 h == 2)} {set re
2ff0: 61 73 6f 6e 20 64 65 70 74 68 2f 24 6c 61 73 74 ason depth/$last
3000: 64 2f 24 64 65 70 74 68 2f 28 24 72 65 76 29 2f d/$depth/($rev)/
3010: 24 66 20 3b 20 72 65 74 75 72 6e 20 31 7d 0a 0a $f ; return 1}..
3020: 20 20 20 20 23 20 43 6f 6d 6d 69 74 20 6d 65 73 # Commit mes
3030: 73 61 67 65 20 63 68 61 6e 67 65 64 0a 20 20 20 sage changed.
3040: 20 69 66 20 7b 24 63 6d 20 6e 65 20 24 65 63 6d if {$cm ne $ecm
3050: 7d 20 7b 73 65 74 20 72 65 61 73 6f 6e 20 63 6d } {set reason cm
3060: 73 67 5c 20 3c 3c 24 65 63 6d 3e 3e 20 3b 20 72 sg\ <<$ecm>> ; r
3070: 65 74 75 72 6e 20 31 7d 0a 0a 20 20 20 20 23 20 eturn 1}.. #
3080: 45 76 65 72 79 74 68 69 6e 67 20 69 73 20 67 6f Everything is go
3090: 6f 64 2c 20 73 74 69 6c 6c 20 74 68 65 20 73 61 od, still the sa
30a0: 6d 65 20 63 73 65 74 0a 20 20 20 20 72 65 74 75 me cset. retu
30b0: 72 6e 20 30 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 rn 0.}..proc ::v
30c0: 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 43 53 53 61 c::cvs::ws::CSSa
30d0: 76 65 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 ve {} {. vari
30e0: 61 62 6c 65 20 63 6d 61 70 0a 20 20 20 20 76 61 able cmap. va
30f0: 72 69 61 62 6c 65 20 63 73 65 74 73 0a 20 20 20 riable csets.
3100: 20 76 61 72 69 61 62 6c 65 20 6e 63 73 0a 20 20 variable ncs.
3110: 20 20 75 70 76 61 72 20 31 20 73 74 61 72 74 20 upvar 1 start
3120: 73 74 61 72 74 20 65 6e 64 20 65 6e 64 20 63 6d start end end cm
3130: 20 63 6d 20 75 73 65 72 20 75 73 65 72 20 66 69 cm user user fi
3140: 6c 65 73 20 66 69 6c 65 73 20 6c 61 73 74 64 20 les files lastd
3150: 6c 61 73 74 64 0a 0a 20 20 20 20 73 65 74 20 63 lastd.. set c
3160: 73 65 74 73 28 24 6e 63 73 29 20 5b 6c 69 73 74 sets($ncs) [list
3170: 20 24 75 73 65 72 20 24 63 6d 20 24 73 74 61 72 $user $cm $star
3180: 74 20 24 65 6e 64 20 24 6c 61 73 74 64 20 5b 61 t $end $lastd [a
3190: 72 72 61 79 20 67 65 74 20 66 69 6c 65 73 5d 5d rray get files]]
31a0: 0a 0a 20 20 20 20 23 20 52 65 63 6f 72 64 20 77 .. # Record w
31b0: 68 69 63 68 20 72 65 76 69 73 69 6f 6e 73 20 6f hich revisions o
31c0: 66 20 61 20 66 69 6c 65 20 61 72 65 20 69 6e 20 f a file are in
31d0: 77 68 61 74 20 63 73 65 74 73 0a 20 20 20 20 3a what csets. :
31e0: 3a 66 6f 72 65 61 63 68 20 7b 66 20 6f 72 7d 20 :foreach {f or}
31f0: 5b 61 72 72 61 79 20 67 65 74 20 66 69 6c 65 73 [array get files
3200: 5d 20 7b 0a 09 3a 3a 66 6f 72 65 61 63 68 20 7b ] {..::foreach {
3210: 5f 20 72 65 76 7d 20 24 6f 72 20 62 72 65 61 6b _ rev} $or break
3220: 0a 09 73 65 74 20 63 6d 61 70 28 5b 6c 69 73 74 ..set cmap([list
3230: 20 24 66 20 24 72 65 76 5d 29 20 24 6e 63 73 0a $f $rev]) $ncs.
3240: 20 20 20 20 7d 0a 0a 20 20 20 20 23 43 53 44 75 }.. #CSDu
3250: 6d 70 20 24 6e 63 73 0a 0a 20 20 20 20 69 6e 63 mp $ncs.. inc
3260: 72 20 6e 63 73 0a 20 20 20 20 72 65 74 75 72 6e r ncs. return
3270: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
3280: 76 73 3a 3a 77 73 3a 3a 43 53 41 64 64 20 7b 65 vs::ws::CSAdd {e
3290: 6e 74 72 79 7d 20 7b 0a 20 20 20 20 75 70 76 61 ntry} {. upva
32a0: 72 20 31 20 73 74 61 72 74 20 73 74 61 72 74 20 r 1 start start
32b0: 65 6e 64 20 65 6e 64 20 63 6d 20 63 6d 20 75 73 end end cm cm us
32c0: 65 72 20 75 73 65 72 20 66 69 6c 65 73 20 66 69 er user files fi
32d0: 6c 65 73 20 6c 61 73 74 64 20 6c 61 73 74 64 0a les lastd lastd.
32e0: 0a 20 20 20 20 3a 3a 66 6f 72 65 61 63 68 20 7b . ::foreach {
32f0: 6f 70 20 74 73 20 61 20 72 65 76 20 66 20 65 63 op ts a rev f ec
3300: 6d 7d 20 24 65 6e 74 72 79 20 62 72 65 61 6b 0a m} $entry break.
3310: 0a 20 20 20 20 69 66 20 7b 24 73 74 61 72 74 20 . if {$start
3320: 65 71 20 22 22 7d 20 7b 73 65 74 20 73 74 61 72 eq ""} {set star
3330: 74 20 24 74 73 7d 0a 20 20 20 20 73 65 74 20 65 t $ts}. set e
3340: 6e 64 20 20 20 20 20 20 20 24 74 73 0a 20 20 20 nd $ts.
3350: 20 73 65 74 20 63 6d 20 20 20 20 20 20 20 20 24 set cm $
3360: 65 63 6d 0a 20 20 20 20 73 65 74 20 75 73 65 72 ecm. set user
3370: 20 20 20 20 20 20 24 61 0a 20 20 20 20 73 65 74 $a. set
3380: 20 66 69 6c 65 73 28 24 66 29 20 5b 6c 69 73 74 files($f) [list
3390: 20 24 6f 70 20 24 72 65 76 5d 0a 20 20 20 20 73 $op $rev]. s
33a0: 65 74 20 6c 61 73 74 64 20 20 20 20 20 5b 6c 6c et lastd [ll
33b0: 65 6e 67 74 68 20 5b 73 70 6c 69 74 20 24 72 65 ength [split $re
33c0: 76 20 2e 5d 5d 0a 20 20 20 20 72 65 74 75 72 6e v .]]. return
33d0: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
33e0: 76 73 3a 3a 77 73 3a 3a 43 53 44 75 6d 70 20 7b vs::ws::CSDump {
33f0: 63 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c c} {. variabl
3400: 65 20 63 73 65 74 73 0a 20 20 20 20 3a 3a 66 6f e csets. ::fo
3410: 72 65 61 63 68 20 7b 75 20 63 6d 20 73 20 65 20 reach {u cm s e
3420: 72 64 20 66 7d 20 24 63 73 65 74 73 28 24 63 29 rd f} $csets($c)
3430: 20 62 72 65 61 6b 0a 0a 20 20 20 20 70 75 74 73 break.. puts
3440: 20 22 24 75 20 24 73 22 3b 20 72 65 67 73 75 62 "$u $s"; regsub
3450: 20 2d 61 6c 6c 20 7b 2e 7d 20 24 75 20 7b 20 7d -all {.} $u { }
3460: 20 62 0a 20 20 20 20 70 75 74 73 20 22 24 62 20 b. puts "$b
3470: 24 65 22 0a 20 20 20 20 3a 3a 66 6f 72 65 61 63 $e". ::foreac
3480: 68 20 7b 66 20 6f 72 7d 20 24 66 20 7b 0a 09 3a h {f or} $f {..:
3490: 3a 66 6f 72 65 61 63 68 20 7b 6f 20 72 7d 20 24 :foreach {o r} $
34a0: 6f 72 20 62 72 65 61 6b 0a 09 70 75 74 73 20 22 or break..puts "
34b0: 24 62 20 24 6f 20 24 66 20 24 72 22 0a 20 20 20 $b $o $f $r".
34c0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a }. return.}.
34d0: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
34e0: 3a 77 73 3a 3a 4e 53 49 50 4c 20 7b 6e 20 73 69 :ws::NSIPL {n si
34f0: 6e 67 75 6c 61 72 20 7b 70 6c 75 72 61 6c 20 7b ngular {plural {
3500: 7d 7d 7d 20 7b 0a 20 20 20 20 72 65 74 75 72 6e }}} {. return
3510: 20 22 24 6e 20 5b 53 49 50 4c 20 24 6e 20 24 73 "$n [SIPL $n $s
3520: 69 6e 67 75 6c 61 72 20 24 70 6c 75 72 61 6c 5d ingular $plural]
3530: 22 0a 7d 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 ".}.proc ::vc::c
3540: 76 73 3a 3a 77 73 3a 3a 53 49 50 4c 20 7b 6e 20 vs::ws::SIPL {n
3550: 73 69 6e 67 75 6c 61 72 20 7b 70 6c 75 72 61 6c singular {plural
3560: 20 7b 7d 7d 7d 20 7b 0a 20 20 20 20 69 66 20 7b {}}} {. if {
3570: 24 6e 20 3d 3d 20 31 7d 20 7b 72 65 74 75 72 6e $n == 1} {return
3580: 20 24 73 69 6e 67 75 6c 61 72 7d 0a 20 20 20 20 $singular}.
3590: 69 66 20 7b 24 70 6c 75 72 61 6c 20 65 71 20 22 if {$plural eq "
35a0: 22 7d 20 7b 73 65 74 20 70 6c 75 72 61 6c 20 24 "} {set plural $
35b0: 7b 73 69 6e 67 75 6c 61 72 7d 73 7d 0a 20 20 20 {singular}s}.
35c0: 20 72 65 74 75 72 6e 20 24 70 6c 75 72 61 6c 0a return $plural.
35d0: 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }..# -----------
35e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
35f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3600: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3610: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3620: 2d 2d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 --..namespace ev
3630: 61 6c 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 al ::vc::cvs::ws
3640: 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 {. variable
3650: 62 61 73 65 20 20 20 20 20 20 7b 7d 20 3b 20 23 base {} ; #
3660: 20 54 6f 70 6c 65 76 65 6c 20 72 65 70 6f 73 69 Toplevel reposi
3670: 74 6f 72 79 20 64 69 72 65 63 74 6f 72 79 0a 20 tory directory.
3680: 20 20 20 76 61 72 69 61 62 6c 65 20 70 72 6f 6a variable proj
3690: 65 63 74 20 20 20 7b 7d 20 3b 20 23 20 53 75 62 ect {} ; # Sub
36a0: 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 6c 69 directory to li
36b0: 6d 69 74 20 74 68 65 20 69 6d 70 6f 72 74 20 74 mit the import t
36c0: 6f 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 o.. variable
36d0: 77 6f 72 6b 73 70 61 63 65 20 7b 7d 20 3b 20 23 workspace {} ; #
36e0: 20 44 69 72 65 63 74 6f 72 79 20 74 6f 20 63 68 Directory to ch
36f0: 65 63 6b 6f 75 74 20 63 68 61 6e 67 65 73 65 74 eckout changeset
3700: 73 20 74 6f 2e 0a 0a 20 20 20 20 6e 61 6d 65 73 s to... names
3710: 70 61 63 65 20 65 78 70 6f 72 74 20 63 6f 6e 66 pace export conf
3720: 69 67 75 72 65 20 62 65 67 69 6e 20 64 6f 6e 65 igure begin done
3730: 20 66 6f 72 65 61 63 68 20 6e 63 73 65 74 73 20 foreach ncsets
3740: 63 68 65 63 6b 6f 75 74 0a 7d 0a 0a 23 20 2d 2d checkout.}..# --
3750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 52 65 -----------.# Re
37a0: 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f ady..package pro
37b0: 76 69 64 65 20 76 63 3a 3a 63 76 73 3a 3a 77 73 vide vc::cvs::ws
37c0: 20 31 2e 30 0a 72 65 74 75 72 6e 0a 1.0.return.