Artifact 1e095fdc74d0bd98b33657a8db0f558860611992:
File
tools/lib/cvs.tcl
part of check-in
[cbbf9a7575]
- Got rid of the explicit revision tree and rephrased the trunk processing
to use a loop which is more self-explanatory. Started to add in code needed
when we process the branches as well, currently they will have now effect.
by
aku on
2007-09-20 07:14:44.
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 74 6f 6f require vc::too
01d0: 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 20 20 20 3b ls::trouble ;
01e0: 20 23 20 45 72 72 6f 72 20 68 61 6e 64 6c 69 6e # Error handlin
01f0: 67 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 g.package requir
0200: 65 20 76 63 3a 3a 63 76 73 3a 3a 63 6d 64 20 20 e vc::cvs::cmd
0210: 20 20 20 20 20 20 20 20 3b 20 23 20 41 63 63 65 ; # Acce
0220: 73 73 20 74 6f 20 63 76 73 20 61 70 70 6c 69 63 ss to cvs applic
0230: 61 74 69 6f 6e 2e 0a 70 61 63 6b 61 67 65 20 72 ation..package r
0240: 65 71 75 69 72 65 20 76 63 3a 3a 63 76 73 3a 3a equire vc::cvs::
0250: 77 73 3a 3a 66 69 6c 65 73 20 20 20 20 3b 20 23 ws::files ; #
0260: 20 53 63 61 6e 20 43 56 53 20 72 65 70 6f 73 69 Scan CVS reposi
0270: 74 6f 72 79 20 66 6f 72 20 72 65 6c 65 76 61 6e tory for relevan
0280: 74 20 66 69 6c 65 73 2e 0a 70 61 63 6b 61 67 65 t files..package
0290: 20 72 65 71 75 69 72 65 20 76 63 3a 3a 63 76 73 require vc::cvs
02a0: 3a 3a 77 73 3a 3a 74 69 6d 65 6c 69 6e 65 20 3b ::ws::timeline ;
02b0: 20 23 20 4d 61 6e 61 67 65 20 74 69 6d 65 6c 69 # Manage timeli
02c0: 6e 65 20 6f 66 20 61 6c 6c 20 63 68 61 6e 67 65 ne of all change
02d0: 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 s..package requi
02e0: 72 65 20 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a re vc::cvs::ws::
02f0: 63 73 65 74 73 20 20 20 20 3b 20 23 20 4d 61 6e csets ; # Man
0300: 61 67 65 20 74 68 65 20 63 68 61 6e 67 65 73 65 age the changese
0310: 74 73 20 66 6f 75 6e 64 20 69 6e 20 74 68 65 20 ts found in the
0320: 74 69 6d 65 6c 69 6e 65 0a 0a 6e 61 6d 65 73 70 timeline..namesp
0330: 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 63 ace eval ::vc::c
0340: 76 73 3a 3a 77 73 20 7b 0a 20 20 20 20 76 63 3a vs::ws {. vc:
0350: 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 73 79 73 :tools::log::sys
0360: 74 65 6d 20 63 76 73 0a 20 20 20 20 6e 61 6d 65 tem cvs. name
0370: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
0380: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a 77 c::tools::log::w
0390: 72 69 74 65 0a 20 20 20 20 6e 61 6d 65 73 70 61 rite. namespa
03a0: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
03b0: 72 63 73 3a 3a 70 61 72 73 65 72 3a 3a 70 72 6f rcs::parser::pro
03c0: 63 65 73 73 0a 20 20 20 20 6e 61 6d 65 73 70 61 cess. namespa
03d0: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
03e0: 63 76 73 3a 3a 63 6d 64 3a 3a 64 6f 76 61 0a 0a cvs::cmd::dova..
03f0: 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 namespace ev
0400: 61 6c 20 74 72 6f 75 62 6c 65 20 7b 20 6e 61 6d al trouble { nam
0410: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
0420: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 vc::tools::troub
0430: 6c 65 3a 3a 2a 20 7d 0a 7d 0a 0a 23 20 2d 2d 2d le::* }.}..# ---
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 41 50 49 ----------.# API
0490: 0a 0a 23 20 76 63 3a 3a 63 76 73 3a 3a 77 73 3a ..# vc::cvs::ws:
04a0: 3a 63 6f 6e 66 69 67 75 72 65 20 6b 65 79 20 76 :configure key v
04b0: 61 6c 75 65 20 20 20 20 2d 20 43 6f 6e 66 69 67 alue - Config
04c0: 75 72 65 20 74 68 65 20 73 75 62 73 79 73 74 65 ure the subsyste
04d0: 6d 2e 0a 23 20 76 63 3a 3a 63 76 73 3a 3a 77 73 m..# vc::cvs::ws
04e0: 3a 3a 63 68 65 63 6b 20 20 20 20 20 73 72 63 20 ::check src
04f0: 6d 76 20 20 20 20 20 20 20 2d 20 43 68 65 63 6b mv - Check
0500: 20 69 66 20 73 72 63 20 69 73 20 61 20 43 56 53 if src is a CVS
0510: 20 72 65 70 6f 73 69 74 6f 72 79 20 64 69 72 65 repository dire
0520: 63 74 6f 72 79 2e 0a 23 20 76 63 3a 3a 63 76 73 ctory..# vc::cvs
0530: 3a 3a 77 73 3a 3a 62 65 67 69 6e 20 20 20 20 20 ::ws::begin
0540: 73 72 63 20 20 20 20 20 20 20 20 20 20 2d 20 53 src - S
0550: 74 61 72 74 20 6e 65 77 20 77 6f 72 6b 73 70 61 tart new workspa
0560: 63 65 20 61 6e 64 20 72 65 74 75 72 6e 20 74 68 ce and return th
0570: 65 20 74 6f 70 2d 0a 23 20 20 20 20 20 20 20 20 e top-.#
0580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d m
05a0: 6f 73 74 20 64 69 72 65 63 74 6f 72 79 20 63 6f ost directory co
05b0: 27 64 20 66 69 6c 65 73 20 61 72 65 20 70 75 74 'd files are put
05c0: 20 69 6e 74 6f 2e 0a 23 20 76 63 3a 3a 63 76 73 into..# vc::cvs
05d0: 3a 3a 77 73 3a 3a 6e 63 73 65 74 73 20 20 20 20 ::ws::ncsets
05e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 52 - R
05f0: 65 74 72 69 65 76 65 20 74 6f 74 61 6c 20 6e 75 etrieve total nu
0600: 6d 62 65 72 20 6f 66 20 63 73 65 74 73 0a 23 20 mber of csets.#
0610: 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 6e 69 6d vc::cvs::ws::nim
0620: 70 6f 72 74 61 62 6c 65 20 20 20 20 20 20 20 20 portable
0630: 20 20 20 20 2d 20 52 65 74 72 69 65 76 65 20 6e - Retrieve n
0640: 75 6d 62 65 72 20 6f 66 20 69 6d 70 6f 72 74 61 umber of importa
0650: 62 6c 65 20 63 73 65 74 73 0a 23 20 76 63 3a 3a ble csets.# vc::
0660: 63 76 73 3a 3a 77 73 3a 3a 66 6f 72 65 61 63 68 cvs::ws::foreach
0670: 20 20 20 63 73 76 61 72 20 73 63 72 69 70 74 20 csvar script
0680: 2d 20 52 75 6e 20 74 68 65 20 73 63 72 69 70 74 - Run the script
0690: 20 66 6f 72 20 65 61 63 68 20 63 68 61 6e 67 65 for each change
06a0: 73 65 74 2c 20 74 68 65 0a 23 20 20 20 20 20 20 set, the.#
06b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06d0: 20 69 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 id of the curre
06e0: 6e 74 20 63 68 61 6e 67 65 73 65 74 20 73 74 6f nt changeset sto
06f0: 72 65 64 20 69 6e 0a 23 20 20 20 20 20 20 20 20 red in.#
0700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 t
0720: 68 65 20 76 61 72 69 61 62 6c 65 20 6e 61 6d 65 he variable name
0730: 64 20 62 79 20 63 73 76 61 72 2e 0a 23 20 76 63 d by csvar..# vc
0740: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 64 6f 6e 65 20 ::cvs::ws::done
0750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0760: 20 20 2d 20 43 6c 6f 73 65 20 77 6f 72 6b 73 70 - Close worksp
0770: 61 63 65 20 61 6e 64 20 64 65 6c 65 74 65 20 69 ace and delete i
0780: 74 2e 0a 23 20 76 63 3a 3a 63 76 73 3a 3a 77 73 t..# vc::cvs::ws
0790: 3a 3a 69 73 61 64 6d 69 6e 20 70 61 74 68 20 20 ::isadmin path
07a0: 20 20 20 20 20 20 20 20 20 2d 20 43 68 65 63 6b - Check
07b0: 20 69 66 20 70 61 74 68 20 69 73 20 61 6e 20 61 if path is an a
07c0: 64 6d 69 6e 20 66 69 6c 65 20 6f 66 20 43 56 53 dmin file of CVS
07d0: 0a 23 20 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a .# vc::cvs::ws::
07e0: 63 68 65 63 6b 6f 75 74 20 69 64 20 20 20 20 20 checkout id
07f0: 20 20 20 20 20 20 20 2d 20 48 61 76 65 20 77 6f - Have wo
0800: 72 6b 73 70 61 63 65 20 63 6f 6e 74 61 69 6e 20 rkspace contain
0810: 74 68 65 20 63 68 61 6e 67 65 73 65 74 20 69 64 the changeset id
0820: 2e 0a 23 20 76 63 3a 3a 63 76 73 3a 3a 77 73 3a ..# vc::cvs::ws:
0830: 3a 67 65 74 20 20 20 20 20 20 69 64 20 20 20 20 :get id
0840: 20 20 20 20 20 20 20 20 2d 20 52 65 74 72 69 65 - Retrie
0850: 76 65 20 64 61 74 61 20 6f 66 20 61 20 63 68 61 ve data of a cha
0860: 6e 67 65 73 65 74 2e 0a 23 0a 23 20 43 6f 6e 66 ngeset..#.# Conf
0870: 69 67 75 72 61 74 69 6f 6e 20 6b 65 79 73 3a 0a iguration keys:.
0880: 23 0a 23 20 2d 70 72 6f 6a 65 63 74 20 70 61 74 #.# -project pat
0890: 68 20 2d 20 53 75 62 20 64 69 72 65 63 74 6f 72 h - Sub director
08a0: 79 20 75 6e 64 65 72 20 27 73 72 63 27 20 74 6f y under 'src' to
08b0: 20 6c 69 6d 69 74 20 74 68 65 20 69 6d 70 6f 72 limit the impor
08c0: 74 20 74 6f 2e 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d t to...# -------
08d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0910: 2d 2d 2d 2d 2d 2d 0a 23 20 41 50 49 20 49 6d 70 ------.# API Imp
0920: 6c 65 6d 65 6e 74 61 74 69 6f 6e 0a 0a 70 72 6f lementation..pro
0930: 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a c ::vc::cvs::ws:
0940: 3a 63 6f 6e 66 69 67 75 72 65 20 7b 6b 65 79 20 :configure {key
0950: 76 61 6c 75 65 7d 20 7b 0a 20 20 20 20 76 61 72 value} {. var
0960: 69 61 62 6c 65 20 70 72 6f 6a 65 63 74 0a 0a 20 iable project..
0970: 20 20 20 73 77 69 74 63 68 20 2d 65 78 61 63 74 switch -exact
0980: 20 2d 2d 20 24 6b 65 79 20 7b 0a 09 2d 70 72 6f -- $key {..-pro
0990: 6a 65 63 74 20 7b 20 73 65 74 20 70 72 6f 6a 65 ject { set proje
09a0: 63 74 20 24 76 61 6c 75 65 20 7d 0a 09 64 65 66 ct $value }..def
09b0: 61 75 6c 74 20 7b 0a 09 20 20 20 20 72 65 74 75 ault {.. retu
09c0: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 rn -code error "
09d0: 55 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68 20 24 Unknown switch $
09e0: 6b 65 79 2c 20 65 78 70 65 63 74 65 64 20 5c 0a key, expected \.
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 20 20 20 20 20 20 20 20 20
0a10: 20 20 20 2d 70 72 6f 6a 65 63 74 22 0a 09 7d 0a -project"..}.
0a20: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e }. return
0a30: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
0a40: 76 73 3a 3a 77 73 3a 3a 63 68 65 63 6b 20 7b 73 vs::ws::check {s
0a50: 72 63 20 6d 76 7d 20 7b 0a 20 20 20 20 76 61 72 rc mv} {. var
0a60: 69 61 62 6c 65 20 70 72 6f 6a 65 63 74 0a 20 20 iable project.
0a70: 20 20 75 70 76 61 72 20 31 20 24 6d 76 20 6d 73 upvar 1 $mv ms
0a80: 67 0a 20 20 20 20 69 66 20 7b 0a 09 21 5b 66 69 g. if {..![fi
0a90: 6c 65 75 74 69 6c 3a 3a 74 65 73 74 20 24 73 72 leutil::test $sr
0aa0: 63 20 20 20 20 20 20 20 20 20 65 72 64 20 6d 73 c erd ms
0ab0: 67 20 22 43 56 53 20 52 65 70 6f 73 69 74 6f 72 g "CVS Repositor
0ac0: 79 22 5d 20 7c 7c 0a 09 21 5b 66 69 6c 65 75 74 y"] ||..![fileut
0ad0: 69 6c 3a 3a 74 65 73 74 20 24 73 72 63 2f 43 56 il::test $src/CV
0ae0: 53 52 4f 4f 54 20 65 72 64 20 6d 73 67 20 22 43 SROOT erd msg "C
0af0: 56 53 20 41 64 6d 69 6e 20 64 69 72 65 63 74 6f VS Admin directo
0b00: 72 79 22 5d 20 7c 7c 0a 09 28 28 24 70 72 6f 6a ry"] ||..(($proj
0b10: 65 63 74 20 6e 65 20 22 22 29 20 26 26 0a 09 20 ect ne "") &&..
0b20: 21 5b 66 69 6c 65 75 74 69 6c 3a 3a 74 65 73 74 ![fileutil::test
0b30: 20 24 73 72 63 2f 24 70 72 6f 6a 65 63 74 20 65 $src/$project e
0b40: 72 64 20 6d 73 67 20 22 50 72 6f 6a 65 63 74 20 rd msg "Project
0b50: 64 69 72 65 63 74 6f 72 79 22 5d 29 0a 20 20 20 directory"]).
0b60: 20 7d 20 7b 0a 09 72 65 74 75 72 6e 20 30 0a 20 } {..return 0.
0b70: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 }. return
0b80: 31 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 1.}..proc ::vc::
0b90: 63 76 73 3a 3a 77 73 3a 3a 62 65 67 69 6e 20 7b cvs::ws::begin {
0ba0: 73 72 63 7d 20 7b 0a 20 20 20 20 69 66 20 7b 21 src} {. if {!
0bb0: 5b 63 68 65 63 6b 20 24 73 72 63 20 6d 73 67 5d [check $src msg]
0bc0: 7d 20 7b 20 72 65 74 75 72 6e 20 2d 63 6f 64 65 } { return -code
0bd0: 20 65 72 72 6f 72 20 24 6d 73 67 20 7d 0a 0a 20 error $msg }..
0be0: 20 20 20 44 65 66 42 61 73 65 20 24 73 72 63 0a DefBase $src.
0bf0: 20 20 20 20 4d 61 6b 65 54 69 6d 65 6c 69 6e 65 MakeTimeline
0c00: 20 5b 53 63 61 6e 41 72 63 68 69 76 65 73 20 5b [ScanArchives [
0c10: 66 69 6c 65 73 3a 3a 66 69 6e 64 20 5b 52 6f 6f files::find [Roo
0c20: 74 50 61 74 68 5d 5d 5d 0a 20 20 20 20 4d 61 6b tPath]]]. Mak
0c30: 65 43 68 61 6e 67 65 73 65 74 73 0a 20 20 20 20 eChangesets.
0c40: 50 72 6f 63 65 73 73 42 72 61 6e 63 68 65 73 0a ProcessBranches.
0c50: 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 4d 61 6b . return [Mak
0c60: 65 57 6f 72 6b 73 70 61 63 65 5d 0a 7d 0a 0a 70 eWorkspace].}..p
0c70: 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 roc ::vc::cvs::w
0c80: 73 3a 3a 64 6f 6e 65 20 7b 7d 20 7b 0a 20 20 20 s::done {} {.
0c90: 20 76 61 72 69 61 62 6c 65 20 20 20 20 20 20 20 variable
0ca0: 20 20 20 20 20 77 6f 72 6b 73 70 61 63 65 0a 20 workspace.
0cb0: 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d file delete -
0cc0: 66 6f 72 63 65 20 24 77 6f 72 6b 73 70 61 63 65 force $workspace
0cd0: 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 70 . return.}..p
0ce0: 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 roc ::vc::cvs::w
0cf0: 73 3a 3a 66 6f 72 65 61 63 68 20 7b 63 76 20 73 s::foreach {cv s
0d00: 63 72 69 70 74 7d 20 7b 0a 20 20 20 20 76 61 72 cript} {. var
0d10: 69 61 62 6c 65 20 69 6d 70 6f 72 74 61 62 6c 65 iable importable
0d20: 0a 20 20 20 20 75 70 76 61 72 20 31 20 24 63 76 . upvar 1 $cv
0d30: 20 63 0a 0a 20 20 20 20 3a 3a 66 6f 72 65 61 63 c.. ::foreac
0d40: 68 20 63 20 5b 6c 73 6f 72 74 20 2d 69 6e 74 65 h c [lsort -inte
0d50: 67 65 72 20 2d 69 6e 63 72 65 61 73 69 6e 67 20 ger -increasing
0d60: 24 69 6d 70 6f 72 74 61 62 6c 65 5d 20 7b 0a 09 $importable] {..
0d70: 73 65 74 20 63 6f 64 65 20 5b 63 61 74 63 68 20 set code [catch
0d80: 7b 75 70 6c 65 76 65 6c 20 31 20 24 73 63 72 69 {uplevel 1 $scri
0d90: 70 74 7d 20 72 65 73 5d 0a 0a 09 23 20 30 20 2d pt} res]...# 0 -
0da0: 20 6f 6b 2c 20 31 20 2d 20 65 72 72 6f 72 2c 20 ok, 1 - error,
0db0: 32 20 2d 20 72 65 74 75 72 6e 2c 20 33 20 2d 20 2 - return, 3 -
0dc0: 62 72 65 61 6b 2c 20 34 20 2d 20 63 6f 6e 74 69 break, 4 - conti
0dd0: 6e 75 65 0a 09 73 77 69 74 63 68 20 2d 2d 20 24 nue..switch -- $
0de0: 63 6f 64 65 20 7b 0a 09 20 20 20 20 30 20 7b 7d code {.. 0 {}
0df0: 0a 09 20 20 20 20 31 20 7b 20 72 65 74 75 72 6e .. 1 { return
0e00: 20 2d 65 72 72 6f 72 63 6f 64 65 20 24 3a 3a 65 -errorcode $::e
0e10: 72 72 6f 72 43 6f 64 65 20 2d 65 72 72 6f 72 69 rrorCode -errori
0e20: 6e 66 6f 20 24 3a 3a 65 72 72 6f 72 49 6e 66 6f nfo $::errorInfo
0e30: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 72 65 -code error $re
0e40: 73 20 7d 0a 09 20 20 20 20 32 20 7b 7d 0a 09 20 s }.. 2 {}..
0e50: 20 20 20 33 20 7b 20 72 65 74 75 72 6e 20 7d 0a 3 { return }.
0e60: 09 20 20 20 20 34 20 7b 7d 0a 09 20 20 20 20 64 . 4 {}.. d
0e70: 65 66 61 75 6c 74 20 7b 20 72 65 74 75 72 6e 20 efault { return
0e80: 2d 63 6f 64 65 20 24 63 6f 64 65 20 24 72 65 73 -code $code $res
0e90: 75 6c 74 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 20 ult }..}. }.
0ea0: 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f return.}..pro
0eb0: 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a c ::vc::cvs::ws:
0ec0: 3a 6e 63 73 65 74 73 20 7b 61 72 67 73 7d 20 7b :ncsets {args} {
0ed0: 0a 20 20 20 20 72 65 74 75 72 6e 20 5b 63 73 65 . return [cse
0ee0: 74 73 3a 3a 6e 75 6d 5d 0a 7d 0a 0a 70 72 6f 63 ts::num].}..proc
0ef0: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
0f00: 6e 69 6d 70 6f 72 74 61 62 6c 65 20 7b 61 72 67 nimportable {arg
0f10: 73 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c s} {. variabl
0f20: 65 20 69 6d 70 6f 72 74 61 62 6c 65 0a 20 20 20 e importable.
0f30: 20 72 65 74 75 72 6e 20 5b 6c 6c 65 6e 67 74 68 return [llength
0f40: 20 24 69 6d 70 6f 72 74 61 62 6c 65 5d 0a 7d 0a $importable].}.
0f50: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
0f60: 3a 77 73 3a 3a 69 73 61 64 6d 69 6e 20 7b 70 61 :ws::isadmin {pa
0f70: 74 68 7d 20 7b 0a 20 20 20 20 23 20 43 68 65 63 th} {. # Chec
0f80: 6b 20 69 66 20 70 61 74 68 20 69 73 20 61 20 43 k if path is a C
0f90: 56 53 20 61 64 6d 69 6e 20 66 69 6c 65 2e 0a 20 VS admin file..
0fa0: 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d if {[string m
0fb0: 61 74 63 68 20 43 56 53 2f 2a 20 20 20 24 70 61 atch CVS/* $pa
0fc0: 74 68 5d 7d 20 7b 72 65 74 75 72 6e 20 31 7d 0a th]} {return 1}.
0fd0: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 if {[string
0fe0: 6d 61 74 63 68 20 2a 2f 43 56 53 2f 2a 20 24 70 match */CVS/* $p
0ff0: 61 74 68 5d 7d 20 7b 72 65 74 75 72 6e 20 31 7d ath]} {return 1}
1000: 0a 20 20 20 20 72 65 74 75 72 6e 20 30 0a 7d 0a . return 0.}.
1010: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
1020: 3a 77 73 3a 3a 70 61 72 65 6e 74 4f 66 20 7b 69 :ws::parentOf {i
1030: 64 7d 20 7b 20 63 73 65 74 73 3a 3a 70 61 72 65 d} { csets::pare
1040: 6e 74 4f 66 20 24 69 64 20 7d 0a 0a 70 72 6f 63 ntOf $id }..proc
1050: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
1060: 63 68 65 63 6b 6f 75 74 20 7b 69 64 7d 20 7b 0a checkout {id} {.
1070: 20 20 20 20 76 61 72 69 61 62 6c 65 20 77 6f 72 variable wor
1080: 6b 73 70 61 63 65 0a 20 20 20 20 63 64 20 20 20 kspace. cd
1090: 20 20 20 24 77 6f 72 6b 73 70 61 63 65 0a 0a 20 $workspace..
10a0: 20 20 20 23 20 54 4f 44 4f 3a 20 48 69 64 65 20 # TODO: Hide
10b0: 74 68 65 20 64 69 72 65 63 74 20 61 63 63 65 73 the direct acces
10c0: 73 20 74 6f 20 74 68 65 20 64 61 74 61 20 73 74 s to the data st
10d0: 72 75 63 74 75 72 65 73 20 62 65 68 69 6e 64 0a ructures behind.
10e0: 20 20 20 20 23 20 54 4f 44 4f 3a 20 61 63 63 65 # TODO: acce
10f0: 73 73 6f 72 73 20 66 6f 72 20 64 61 74 65 2c 20 ssors for date,
1100: 63 6d 73 67 2c 20 72 65 6d 6f 76 65 64 2c 20 61 cmsg, removed, a
1110: 64 64 65 64 2c 20 63 68 61 6e 67 65 64 2c 20 61 dded, changed, a
1120: 6e 64 0a 20 20 20 20 23 20 54 4f 44 4f 3a 20 61 nd. # TODO: a
1130: 75 74 68 6f 72 0a 20 20 20 20 61 72 72 61 79 20 uthor. array
1140: 73 65 74 20 63 73 20 5b 63 73 65 74 73 3a 3a 67 set cs [csets::g
1150: 65 74 20 24 69 64 5d 0a 0a 20 20 20 20 77 72 69 et $id].. wri
1160: 74 65 20 31 20 63 76 73 20 22 40 20 20 24 63 73 te 1 cvs "@ $cs
1170: 28 64 61 74 65 29 22 0a 20 20 20 20 3a 3a 66 6f (date)". ::fo
1180: 72 65 61 63 68 20 6c 20 5b 73 70 6c 69 74 20 5b reach l [split [
1190: 73 74 72 69 6e 67 20 74 72 69 6d 20 24 63 73 28 string trim $cs(
11a0: 63 6d 73 67 29 5d 20 5c 6e 5d 20 7b 0a 09 77 72 cmsg)] \n] {..wr
11b0: 69 74 65 20 31 20 63 76 73 20 22 7c 20 20 24 6c ite 1 cvs "| $l
11c0: 22 0a 20 20 20 20 7d 0a 0a 20 20 20 20 3a 3a 66 ". }.. ::f
11d0: 6f 72 65 61 63 68 20 7b 66 20 72 7d 20 24 63 73 oreach {f r} $cs
11e0: 28 72 65 6d 6f 76 65 64 29 20 7b 20 77 72 69 74 (removed) { writ
11f0: 65 20 32 20 63 76 73 20 22 52 20 20 24 66 20 24 e 2 cvs "R $f $
1200: 72 22 20 3b 20 52 65 6d 6f 76 65 20 20 20 24 66 r" ; Remove $f
1210: 20 24 72 20 7d 0a 20 20 20 20 3a 3a 66 6f 72 65 $r }. ::fore
1220: 61 63 68 20 7b 66 20 72 7d 20 24 63 73 28 61 64 ach {f r} $cs(ad
1230: 64 65 64 29 20 20 20 7b 20 77 72 69 74 65 20 32 ded) { write 2
1240: 20 63 76 73 20 22 41 20 20 24 66 20 24 72 22 20 cvs "A $f $r"
1250: 3b 20 43 68 65 63 6b 6f 75 74 20 24 66 20 24 72 ; Checkout $f $r
1260: 20 7d 0a 20 20 20 20 3a 3a 66 6f 72 65 61 63 68 }. ::foreach
1270: 20 7b 66 20 72 7d 20 24 63 73 28 63 68 61 6e 67 {f r} $cs(chang
1280: 65 64 29 20 7b 20 77 72 69 74 65 20 32 20 63 76 ed) { write 2 cv
1290: 73 20 22 4d 20 20 24 66 20 24 72 22 20 3b 20 43 s "M $f $r" ; C
12a0: 68 65 63 6b 6f 75 74 20 24 66 20 24 72 20 7d 0a heckout $f $r }.
12b0: 0a 20 20 20 20 23 20 50 72 6f 76 69 64 65 20 6d . # Provide m
12c0: 65 74 61 64 61 74 61 20 61 62 6f 75 74 20 74 68 etadata about th
12d0: 65 20 63 68 61 6e 67 65 73 65 74 20 74 68 65 20 e changeset the
12e0: 62 61 63 6b 65 6e 64 20 6d 61 79 20 77 69 73 68 backend may wish
12f0: 20 74 6f 20 68 61 76 65 0a 20 20 20 20 72 65 74 to have. ret
1300: 75 72 6e 20 5b 6c 69 73 74 20 24 63 73 28 61 75 urn [list $cs(au
1310: 74 68 6f 72 29 20 24 63 73 28 64 61 74 65 29 20 thor) $cs(date)
1320: 24 63 73 28 63 6d 73 67 29 5d 0a 7d 0a 0a 23 20 $cs(cmsg)].}..#
1330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 -------------.#
1380: 49 6e 74 65 72 6e 61 6c 73 0a 0a 70 72 6f 63 20 Internals..proc
1390: 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 44 ::vc::cvs::ws::D
13a0: 65 66 42 61 73 65 20 7b 70 61 74 68 7d 20 7b 0a efBase {path} {.
13b0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 70 72 6f variable pro
13c0: 6a 65 63 74 0a 20 20 20 20 76 61 72 69 61 62 6c ject. variabl
13d0: 65 20 62 61 73 65 0a 0a 20 20 20 20 73 65 74 20 e base.. set
13e0: 62 61 73 65 20 24 70 61 74 68 0a 0a 20 20 20 20 base $path..
13f0: 77 72 69 74 65 20 30 20 63 76 73 20 22 42 61 73 write 0 cvs "Bas
1400: 65 3a 20 20 20 20 24 62 61 73 65 22 0a 20 20 20 e: $base".
1410: 20 69 66 20 7b 24 70 72 6f 6a 65 63 74 20 65 71 if {$project eq
1420: 20 22 22 7d 20 7b 0a 09 77 72 69 74 65 20 30 20 ""} {..write 0
1430: 63 76 73 20 22 50 72 6f 6a 65 63 74 3a 20 3c 41 cvs "Project: <A
1440: 4c 4c 3e 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 LL>". } else
1450: 7b 0a 09 77 72 69 74 65 20 30 20 63 76 73 20 22 {..write 0 cvs "
1460: 50 72 6f 6a 65 63 74 3a 20 24 70 72 6f 6a 65 63 Project: $projec
1470: 74 22 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 t". }. ret
1480: 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 urn.}..proc ::vc
1490: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 52 6f 6f 74 50 ::cvs::ws::RootP
14a0: 61 74 68 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 ath {} {. var
14b0: 69 61 62 6c 65 20 70 72 6f 6a 65 63 74 0a 20 20 iable project.
14c0: 20 20 76 61 72 69 61 62 6c 65 20 62 61 73 65 0a variable base.
14d0: 0a 20 20 20 20 69 66 20 7b 24 70 72 6f 6a 65 63 . if {$projec
14e0: 74 20 65 71 20 22 22 7d 20 7b 0a 09 72 65 74 75 t eq ""} {..retu
14f0: 72 6e 20 24 62 61 73 65 0a 20 20 20 20 7d 20 65 rn $base. } e
1500: 6c 73 65 20 7b 0a 09 72 65 74 75 72 6e 20 24 62 lse {..return $b
1510: 61 73 65 2f 24 70 72 6f 6a 65 63 74 0a 20 20 20 ase/$project.
1520: 20 7d 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a }.}..proc ::vc:
1530: 3a 63 76 73 3a 3a 77 73 3a 3a 53 63 61 6e 41 72 :cvs::ws::ScanAr
1540: 63 68 69 76 65 73 20 7b 66 69 6c 65 73 7d 20 7b chives {files} {
1550: 0a 20 20 20 20 77 72 69 74 65 20 30 20 63 76 73 . write 0 cvs
1560: 20 22 53 63 61 6e 6e 69 6e 67 20 61 72 63 68 69 "Scanning archi
1570: 76 65 73 20 2e 2e 2e 22 0a 0a 20 20 20 20 73 65 ves ...".. se
1580: 74 20 64 20 5b 52 6f 6f 74 50 61 74 68 5d 0a 20 t d [RootPath].
1590: 20 20 20 73 65 74 20 72 20 7b 7d 0a 20 20 20 20 set r {}.
15a0: 73 65 74 20 6e 20 30 0a 0a 20 20 20 20 3a 3a 66 set n 0.. ::f
15b0: 6f 72 65 61 63 68 20 7b 72 63 73 20 66 7d 20 24 oreach {rcs f} $
15c0: 66 69 6c 65 73 20 7b 0a 09 77 72 69 74 65 20 31 files {..write 1
15d0: 20 63 76 73 20 22 41 72 63 68 69 76 65 20 24 72 cvs "Archive $r
15e0: 63 73 22 0a 09 23 20 47 65 74 20 74 68 65 20 6d cs"..# Get the m
15f0: 65 74 61 20 64 61 74 61 20 77 65 20 6e 65 65 64 eta data we need
1600: 20 28 72 65 76 69 73 69 6f 6e 73 2c 20 74 69 6d (revisions, tim
1610: 65 6c 69 6e 65 2c 20 6d 65 73 73 61 67 65 73 29 eline, messages)
1620: 2e 0a 09 6c 61 70 70 65 6e 64 20 72 20 24 66 20 ...lappend r $f
1630: 5b 70 72 6f 63 65 73 73 20 24 64 2f 24 72 63 73 [process $d/$rcs
1640: 5d 0a 09 69 6e 63 72 20 20 20 20 6e 0a 20 20 20 ]..incr n.
1650: 20 7d 0a 0a 20 20 20 20 77 72 69 74 65 20 30 20 }.. write 0
1660: 63 76 73 20 22 50 72 6f 63 65 73 73 65 64 20 5b cvs "Processed [
1670: 4e 53 49 50 4c 20 24 6e 20 66 69 6c 65 5d 22 0a NSIPL $n file]".
1680: 20 20 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a return $r.}.
1690: 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a .proc ::vc::cvs:
16a0: 3a 77 73 3a 3a 4d 61 6b 65 54 69 6d 65 6c 69 6e :ws::MakeTimelin
16b0: 65 20 7b 6d 65 74 61 7d 20 7b 0a 20 20 20 20 77 e {meta} {. w
16c0: 72 69 74 65 20 30 20 63 76 73 20 22 47 65 6e 65 rite 0 cvs "Gene
16d0: 72 61 74 69 6e 67 20 63 6f 61 6c 65 73 63 65 64 rating coalesced
16e0: 20 74 69 6d 65 6c 69 6e 65 20 2e 2e 2e 22 0a 0a timeline ..."..
16f0: 20 20 20 20 73 65 74 20 6e 20 30 0a 20 20 20 20 set n 0.
1700: 3a 3a 66 6f 72 65 61 63 68 20 7b 66 20 6d 65 74 ::foreach {f met
1710: 61 7d 20 24 6d 65 74 61 20 7b 0a 09 61 72 72 61 a} $meta {..arra
1720: 79 20 73 65 74 20 6d 64 20 20 20 24 6d 65 74 61 y set md $meta
1730: 0a 09 61 72 72 61 79 20 73 65 74 20 64 61 74 65 ..array set date
1740: 20 24 6d 64 28 64 61 74 65 29 0a 09 61 72 72 61 $md(date)..arra
1750: 79 20 73 65 74 20 61 75 74 68 20 24 6d 64 28 61 y set auth $md(a
1760: 75 74 68 6f 72 29 0a 09 61 72 72 61 79 20 73 65 uthor)..array se
1770: 74 20 63 6d 73 67 20 24 6d 64 28 63 6f 6d 6d 69 t cmsg $md(commi
1780: 74 29 0a 09 61 72 72 61 79 20 73 65 74 20 73 74 t)..array set st
1790: 61 74 20 24 6d 64 28 73 74 61 74 65 29 0a 0a 09 at $md(state)...
17a0: 3a 3a 66 6f 72 65 61 63 68 20 72 65 76 20 5b 6c ::foreach rev [l
17b0: 73 6f 72 74 20 2d 64 69 63 74 20 5b 61 72 72 61 sort -dict [arra
17c0: 79 20 6e 61 6d 65 73 20 64 61 74 65 5d 5d 20 7b y names date]] {
17d0: 0a 09 20 20 20 20 73 65 74 20 6f 70 65 72 61 74 .. set operat
17e0: 69 6f 6e 20 5b 4f 70 65 72 61 74 69 6f 6e 20 24 ion [Operation $
17f0: 72 65 76 20 24 73 74 61 74 28 24 72 65 76 29 5d rev $stat($rev)]
1800: 0a 09 20 20 20 20 4e 6f 74 65 44 65 61 64 52 6f .. NoteDeadRo
1810: 6f 74 73 20 24 66 20 24 72 65 76 20 24 6f 70 65 ots $f $rev $ope
1820: 72 61 74 69 6f 6e 0a 09 20 20 20 20 74 69 6d 65 ration.. time
1830: 6c 69 6e 65 3a 3a 61 64 64 20 24 64 61 74 65 28 line::add $date(
1840: 24 72 65 76 29 20 24 66 20 24 72 65 76 20 24 6f $rev) $f $rev $o
1850: 70 65 72 61 74 69 6f 6e 20 24 61 75 74 68 28 24 peration $auth($
1860: 72 65 76 29 20 24 63 6d 73 67 28 24 72 65 76 29 rev) $cmsg($rev)
1870: 0a 09 20 20 20 20 69 6e 63 72 20 6e 0a 09 7d 0a .. incr n..}.
1880: 09 23 42 20 45 78 74 65 6e 64 20 62 72 61 6e 63 .#B Extend branc
1890: 68 20 6d 61 6e 61 67 65 6d 65 6e 74 0a 0a 09 75 h management...u
18a0: 6e 73 65 74 20 6d 64 0a 09 75 6e 73 65 74 20 64 nset md..unset d
18b0: 61 74 65 0a 09 75 6e 73 65 74 20 61 75 74 68 0a ate..unset auth.
18c0: 09 75 6e 73 65 74 20 63 6d 73 67 0a 09 75 6e 73 .unset cmsg..uns
18d0: 65 74 20 73 74 61 74 0a 20 20 20 20 7d 0a 0a 20 et stat. }..
18e0: 20 20 20 77 72 69 74 65 20 30 20 63 76 73 20 22 write 0 cvs "
18f0: 54 69 6d 65 6c 69 6e 65 20 68 61 73 20 5b 4e 53 Timeline has [NS
1900: 49 50 4c 20 24 6e 20 65 6e 74 72 79 20 65 6e 74 IPL $n entry ent
1910: 72 69 65 73 5d 22 0a 20 20 20 20 72 65 74 75 72 ries]". retur
1920: 6e 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a n.}..proc ::vc::
1930: 63 76 73 3a 3a 77 73 3a 3a 4e 6f 74 65 44 65 61 cvs::ws::NoteDea
1940: 64 52 6f 6f 74 73 20 7b 66 20 72 65 76 20 6f 70 dRoots {f rev op
1950: 65 72 61 74 69 6f 6e 7d 20 7b 0a 20 20 20 20 23 eration} {. #
1960: 20 41 20 64 65 61 64 2d 66 69 72 73 74 20 72 65 A dead-first re
1970: 76 69 73 69 6f 6e 20 69 73 20 72 65 76 20 31 2e vision is rev 1.
1980: 31 20 77 69 74 68 20 6f 70 20 52 2e 20 46 6f 72 1 with op R. For
1990: 20 61 6e 20 65 78 61 6d 70 6c 65 20 73 65 65 0a an example see.
19a0: 20 20 20 20 23 20 74 68 65 20 66 69 6c 65 20 6d # the file m
19b0: 65 6d 63 68 61 6e 2f 44 45 50 45 4e 44 45 4e 43 emchan/DEPENDENC
19c0: 49 45 53 2e 20 53 75 63 68 20 61 20 66 69 6c 65 IES. Such a file
19d0: 20 73 65 65 6d 73 20 74 6f 20 65 78 69 73 74 20 seems to exist
19e0: 6f 6e 6c 79 21 0a 20 20 20 20 23 20 6f 6e 20 69 only!. # on i
19f0: 74 73 20 62 72 61 6e 63 68 2e 20 54 68 65 20 62 ts branch. The b
1a00: 72 61 6e 63 68 65 73 20 69 6e 66 6f 72 6d 61 74 ranches informat
1a10: 69 6f 6e 20 69 73 20 73 65 74 20 6f 6e 20 74 68 ion is set on th
1a20: 65 20 72 65 76 69 73 69 6f 6e 0a 20 20 20 20 23 e revision. #
1a30: 20 28 65 78 74 65 6e 64 20 72 63 73 70 61 72 73 (extend rcspars
1a40: 65 72 21 29 2c 20 73 79 6d 62 6f 6c 73 20 68 61 er!), symbols ha
1a50: 73 20 61 20 74 61 67 2c 20 72 65 66 65 72 69 6e s a tag, referin
1a60: 67 20 74 6f 20 61 20 62 72 61 6e 63 68 2c 0a 20 g to a branch,.
1a70: 20 20 20 23 20 70 6f 73 73 69 62 6c 79 20 6d 61 # possibly ma
1a80: 67 69 63 2e 0a 0a 20 20 20 20 69 66 20 7b 28 24 gic... if {($
1a90: 72 65 76 20 65 71 20 22 31 2e 31 22 29 20 26 26 rev eq "1.1") &&
1aa0: 20 28 24 6f 70 65 72 61 74 69 6f 6e 20 65 71 20 ($operation eq
1ab0: 22 52 22 29 7d 20 7b 0a 09 77 72 69 74 65 20 32 "R")} {..write 2
1ac0: 20 63 76 73 20 22 44 65 61 64 20 72 6f 6f 74 20 cvs "Dead root
1ad0: 72 65 76 69 73 69 6f 6e 3a 20 24 66 22 0a 20 20 revision: $f".
1ae0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d }. return.}
1af0: 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 ..proc ::vc::cvs
1b00: 3a 3a 77 73 3a 3a 4f 70 65 72 61 74 69 6f 6e 20 ::ws::Operation
1b10: 7b 72 65 76 20 73 74 61 74 65 7d 20 7b 0a 20 20 {rev state} {.
1b20: 20 20 69 66 20 7b 24 73 74 61 74 65 20 65 71 20 if {$state eq
1b30: 22 64 65 61 64 22 7d 20 7b 72 65 74 75 72 6e 20 "dead"} {return
1b40: 22 52 22 7d 20 3b 20 23 20 52 65 6d 6f 76 65 64 "R"} ; # Removed
1b50: 0a 20 20 20 20 69 66 20 7b 24 72 65 76 20 20 20 . if {$rev
1b60: 65 71 20 22 31 2e 31 22 7d 20 20 7b 72 65 74 75 eq "1.1"} {retu
1b70: 72 6e 20 22 41 22 7d 20 3b 20 23 20 41 64 64 65 rn "A"} ; # Adde
1b80: 64 0a 20 20 20 20 72 65 74 75 72 6e 20 22 4d 22 d. return "M"
1b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ba0: 20 20 20 20 20 20 20 20 20 3b 20 23 20 4d 6f 64 ; # Mod
1bb0: 69 66 69 65 64 0a 7d 0a 0a 70 72 6f 63 20 3a 3a ified.}..proc ::
1bc0: 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 4d 61 6b vc::cvs::ws::Mak
1bd0: 65 43 68 61 6e 67 65 73 65 74 73 20 7b 7d 20 7b eChangesets {} {
1be0: 0a 20 20 20 20 77 72 69 74 65 20 30 20 63 76 73 . write 0 cvs
1bf0: 20 22 47 65 6e 65 72 61 74 69 6e 67 20 63 68 61 "Generating cha
1c00: 6e 67 65 73 65 74 73 20 66 72 6f 6d 20 74 69 6d ngesets from tim
1c10: 65 6c 69 6e 65 22 0a 0a 20 20 20 20 63 73 65 74 eline".. cset
1c20: 73 3a 3a 69 6e 69 74 0a 20 20 20 20 74 69 6d 65 s::init. time
1c30: 6c 69 6e 65 3a 3a 66 6f 72 65 61 63 68 20 64 61 line::foreach da
1c40: 74 65 20 66 69 6c 65 20 72 65 76 69 73 69 6f 6e te file revision
1c50: 20 6f 70 65 72 61 74 69 6f 6e 20 61 75 74 68 6f operation autho
1c60: 72 20 63 6d 73 67 20 7b 0a 09 63 73 65 74 73 3a r cmsg {..csets:
1c70: 3a 61 64 64 20 24 64 61 74 65 20 24 66 69 6c 65 :add $date $file
1c80: 20 24 72 65 76 69 73 69 6f 6e 20 24 6f 70 65 72 $revision $oper
1c90: 61 74 69 6f 6e 20 24 61 75 74 68 6f 72 20 24 63 ation $author $c
1ca0: 6d 73 67 0a 20 20 20 20 7d 0a 20 20 20 20 63 73 msg. }. cs
1cb0: 65 74 73 3a 3a 64 6f 6e 65 0a 0a 20 20 20 20 77 ets::done.. w
1cc0: 72 69 74 65 20 30 20 63 76 73 20 22 46 6f 75 6e rite 0 cvs "Foun
1cd0: 64 20 5b 4e 53 49 50 4c 20 5b 63 73 65 74 73 3a d [NSIPL [csets:
1ce0: 3a 6e 75 6d 5d 20 63 68 61 6e 67 65 73 65 74 5d :num] changeset]
1cf0: 22 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a ". return.}..
1d00: 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a proc ::vc::cvs::
1d10: 77 73 3a 3a 4d 61 6b 65 57 6f 72 6b 73 70 61 63 ws::MakeWorkspac
1d20: 65 20 7b 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 e {} {. varia
1d30: 62 6c 65 20 70 72 6f 6a 65 63 74 0a 20 20 20 20 ble project.
1d40: 76 61 72 69 61 62 6c 65 20 77 6f 72 6b 73 70 61 variable workspa
1d50: 63 65 20 5b 66 69 6c 65 75 74 69 6c 3a 3a 74 65 ce [fileutil::te
1d60: 6d 70 66 69 6c 65 20 69 6d 70 6f 72 74 46 5f 63 mpfile importF_c
1d70: 76 73 5f 77 73 5f 5d 0a 0a 20 20 20 20 73 65 74 vs_ws_].. set
1d80: 20 77 20 24 77 6f 72 6b 73 70 61 63 65 0a 20 20 w $workspace.
1d90: 20 20 69 66 20 7b 24 70 72 6f 6a 65 63 74 20 6e if {$project n
1da0: 65 20 22 22 7d 20 7b 20 61 70 70 65 6e 64 20 77 e ""} { append w
1db0: 20 2f 24 70 72 6f 6a 65 63 74 20 7d 0a 0a 20 20 /$project }..
1dc0: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 24 77 file delete $w
1dd0: 6f 72 6b 73 70 61 63 65 0a 20 20 20 20 66 69 6c orkspace. fil
1de0: 65 20 6d 6b 64 69 72 20 20 24 77 0a 0a 20 20 20 e mkdir $w..
1df0: 20 77 72 69 74 65 20 30 20 63 76 73 20 22 57 6f write 0 cvs "Wo
1e00: 72 6b 73 70 61 63 65 3a 20 20 24 77 6f 72 6b 73 rkspace: $works
1e10: 70 61 63 65 22 0a 20 20 20 20 72 65 74 75 72 6e pace". return
1e20: 20 24 77 0a 7d 0a 0a 23 20 42 75 69 6c 64 69 6e $w.}..# Buildin
1e30: 67 20 74 68 65 20 72 65 76 69 73 69 6f 6e 20 74 g the revision t
1e40: 72 65 65 20 66 72 6f 6d 20 74 68 65 20 63 68 61 ree from the cha
1e50: 6e 67 65 73 65 74 73 2e 0a 23 20 4c 69 6d 69 74 ngesets..# Limit
1e60: 61 74 69 6f 6e 3a 20 43 75 72 72 65 6e 74 6c 79 ation: Currently
1e70: 20 6f 6e 6c 79 20 74 72 75 6e 6b 20 63 73 65 74 only trunk cset
1e80: 73 20 69 73 20 68 61 6e 64 6c 65 64 2e 0a 23 20 s is handled..#
1e90: 4c 69 6d 69 74 61 74 69 6f 6e 3a 20 44 65 61 64 Limitation: Dead
1ea0: 20 66 69 6c 65 73 20 61 72 65 20 6e 6f 74 20 72 files are not r
1eb0: 65 6d 6f 76 65 64 2c 20 69 2e 65 2e 20 6e 6f 20 emoved, i.e. no
1ec0: 27 52 27 20 61 63 74 69 6f 6e 73 20 72 69 67 68 'R' actions righ
1ed0: 74 20 6e 6f 77 2e 0a 0a 70 72 6f 63 20 3a 3a 76 t now...proc ::v
1ee0: 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 50 72 6f 63 c::cvs::ws::Proc
1ef0: 65 73 73 42 72 61 6e 63 68 65 73 20 7b 7d 20 7b essBranches {} {
1f00: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 69 6d . variable im
1f10: 70 6f 72 74 61 62 6c 65 0a 0a 20 20 20 20 77 72 portable.. wr
1f20: 69 74 65 20 30 20 63 76 73 20 22 4f 72 67 61 6e ite 0 cvs "Organ
1f30: 69 7a 69 6e 67 20 74 68 65 20 63 68 61 6e 67 65 izing the change
1f40: 73 65 74 73 20 69 6e 74 6f 20 62 72 61 6e 63 68 sets into branch
1f50: 65 73 22 0a 0a 20 20 20 20 73 65 74 20 72 65 6d es".. set rem
1f60: 61 69 6e 64 65 72 20 5b 50 72 6f 63 65 73 73 54 ainder [ProcessT
1f70: 72 75 6e 6b 5d 0a 20 20 20 20 23 20 54 4f 44 4f runk]. # TODO
1f80: 3a 20 50 72 6f 63 65 73 73 69 6e 67 20 6e 6f 6e : Processing non
1f90: 2d 74 72 75 6e 6b 20 62 72 61 6e 63 68 65 73 0a -trunk branches.
1fa0: 0a 0a 20 20 20 20 23 20 53 74 61 74 75 73 20 69 .. # Status i
1fb0: 6e 66 6f 72 6d 61 74 69 6f 6e 20 2e 2e 2e 0a 20 nformation ....
1fc0: 20 20 20 73 65 74 20 6e 72 20 20 5b 6c 6c 65 6e set nr [llen
1fd0: 67 74 68 20 24 72 65 6d 61 69 6e 64 65 72 5d 0a gth $remainder].
1fe0: 20 20 20 20 73 65 74 20 6e 69 20 20 5b 6c 6c 65 set ni [lle
1ff0: 6e 67 74 68 20 24 69 6d 70 6f 72 74 61 62 6c 65 ngth $importable
2000: 5d 0a 20 20 20 20 73 65 74 20 66 6d 74 20 25 5b ]. set fmt %[
2010: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 5b 63 string length [c
2020: 73 65 74 73 3a 3a 6e 75 6d 5d 5d 73 0a 0a 20 20 sets::num]]s..
2030: 20 20 77 72 69 74 65 20 30 20 63 76 73 20 22 55 write 0 cvs "U
2040: 6e 70 72 6f 63 65 73 73 65 64 3a 20 5b 66 6f 72 nprocessed: [for
2050: 6d 61 74 20 24 66 6d 74 20 24 6e 72 5d 20 5b 53 mat $fmt $nr] [S
2060: 49 50 4c 20 24 6e 72 20 63 68 61 6e 67 65 73 65 IPL $nr changese
2070: 74 5d 20 28 57 69 6c 6c 20 62 65 20 69 67 6e 6f t] (Will be igno
2080: 72 65 64 29 22 0a 20 20 20 20 77 72 69 74 65 20 red)". write
2090: 30 20 63 76 73 20 22 54 6f 20 69 6d 70 6f 72 74 0 cvs "To import
20a0: 3a 20 20 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 : [format $fmt
20b0: 20 24 6e 69 5d 20 5b 53 49 50 4c 20 24 6e 69 20 $ni] [SIPL $ni
20c0: 63 68 61 6e 67 65 73 65 74 5d 22 0a 20 20 20 20 changeset]".
20d0: 72 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 3a return.}..proc :
20e0: 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a 50 72 :vc::cvs::ws::Pr
20f0: 6f 63 65 73 73 54 72 75 6e 6b 20 7b 7d 20 7b 0a ocessTrunk {} {.
2100: 20 20 20 20 76 61 72 69 61 62 6c 65 20 69 6d 70 variable imp
2110: 6f 72 74 61 62 6c 65 0a 0a 20 20 20 20 77 72 69 ortable.. wri
2120: 74 65 20 30 20 63 76 73 20 22 50 72 6f 63 65 73 te 0 cvs "Proces
2130: 73 69 6e 67 20 74 68 65 20 74 72 75 6e 6b 20 63 sing the trunk c
2140: 68 61 6e 67 65 73 65 74 73 22 0a 0a 20 20 20 20 hangesets"..
2150: 73 65 74 20 72 65 6d 61 69 6e 64 65 72 20 7b 7d set remainder {}
2160: 0a 20 20 20 20 73 65 74 20 74 20 20 20 20 20 20 . set t
2170: 20 20 20 30 0a 20 20 20 20 73 65 74 20 6e 20 20 0. set n
2180: 20 20 20 20 20 20 20 5b 63 73 65 74 73 3a 3a 6e [csets::n
2190: 75 6d 5d 0a 20 20 20 20 73 65 74 20 70 61 72 65 um]. set pare
21a0: 6e 74 20 20 20 20 7b 7d 0a 0a 20 20 20 20 66 6f nt {}.. fo
21b0: 72 20 7b 73 65 74 20 63 20 30 7d 20 7b 24 63 20 r {set c 0} {$c
21c0: 3c 20 24 6e 7d 20 7b 69 6e 63 72 20 63 7d 20 7b < $n} {incr c} {
21d0: 0a 09 69 66 20 7b 5b 63 73 65 74 73 3a 3a 69 73 ..if {[csets::is
21e0: 54 72 75 6e 6b 20 24 63 5d 7d 20 7b 0a 09 20 20 Trunk $c]} {..
21f0: 20 20 63 73 65 74 73 3a 3a 73 65 74 50 61 72 65 csets::setPare
2200: 6e 74 4f 66 20 24 63 20 24 70 61 72 65 6e 74 0a ntOf $c $parent.
2210: 09 20 20 20 20 73 65 74 20 70 61 72 65 6e 74 20 . set parent
2220: 24 63 0a 09 20 20 20 20 69 6e 63 72 20 74 0a 09 $c.. incr t..
2230: 20 20 20 20 6c 61 70 70 65 6e 64 20 69 6d 70 6f lappend impo
2240: 72 74 61 62 6c 65 20 24 63 0a 09 7d 20 65 6c 73 rtable $c..} els
2250: 65 20 7b 0a 09 20 20 20 20 6c 61 70 70 65 6e 64 e {.. lappend
2260: 20 72 65 6d 61 69 6e 64 65 72 20 24 63 0a 09 7d remainder $c..}
2270: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 77 72 69 74 . }.. writ
2280: 65 20 30 20 63 76 73 20 22 46 6f 75 6e 64 20 5b e 0 cvs "Found [
2290: 4e 53 49 50 4c 20 24 74 20 7b 74 72 75 6e 6b 20 NSIPL $t {trunk
22a0: 63 68 61 6e 67 65 73 65 74 7d 5d 2c 20 5b 4e 53 changeset}], [NS
22b0: 49 50 4c 20 5b 6c 6c 65 6e 67 74 68 20 24 72 65 IPL [llength $re
22c0: 6d 61 69 6e 64 65 72 5d 20 7b 62 72 61 6e 63 68 mainder] {branch
22d0: 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 0a 20 20 changeset}]".
22e0: 20 20 72 65 74 75 72 6e 20 24 72 65 6d 61 69 6e return $remain
22f0: 64 65 72 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 der.}..proc ::vc
2300: 3a 3a 63 76 73 3a 3a 77 73 3a 3a 43 68 65 63 6b ::cvs::ws::Check
2310: 6f 75 74 20 7b 66 20 72 7d 20 7b 0a 20 20 20 20 out {f r} {.
2320: 76 61 72 69 61 62 6c 65 20 62 61 73 65 0a 20 20 variable base.
2330: 20 20 76 61 72 69 61 62 6c 65 20 70 72 6f 6a 65 variable proje
2340: 63 74 0a 0a 20 20 20 20 23 20 41 64 64 65 64 20 ct.. # Added
2350: 6f 72 20 6d 6f 64 69 66 69 65 64 2c 20 70 75 74 or modified, put
2360: 20 74 68 65 20 72 65 71 75 65 73 74 65 64 20 76 the requested v
2370: 65 72 73 69 6f 6e 20 6f 66 20 74 68 65 20 66 69 ersion of the fi
2380: 6c 65 20 69 6e 74 6f 0a 20 20 20 20 23 20 74 68 le into. # th
2390: 65 20 77 6f 72 6b 73 70 61 63 65 2e 0a 0a 20 20 e workspace...
23a0: 20 20 69 66 20 7b 24 70 72 6f 6a 65 63 74 20 6e if {$project n
23b0: 65 20 22 22 7d 20 7b 73 65 74 20 66 20 24 70 72 e ""} {set f $pr
23c0: 6f 6a 65 63 74 2f 24 66 7d 0a 20 20 20 20 69 66 oject/$f}. if
23d0: 20 7b 5b 63 61 74 63 68 20 7b 0a 09 64 6f 76 61 {[catch {..dova
23e0: 20 2d 64 20 24 62 61 73 65 20 63 6f 20 2d 72 20 -d $base co -r
23f0: 24 72 20 24 66 0a 20 20 20 20 7d 20 6d 73 67 5d $r $f. } msg]
2400: 7d 20 7b 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 } {..if {[string
2410: 20 6d 61 74 63 68 20 7b 2a 69 6e 76 61 6c 69 64 match {*invalid
2420: 20 63 68 61 6e 67 65 20 74 65 78 74 2a 7d 20 24 change text*} $
2430: 6d 73 67 5d 7d 20 7b 0a 0a 09 20 20 20 20 23 20 msg]} {... #
2440: 54 68 65 20 61 72 63 68 69 76 65 20 6f 66 20 74 The archive of t
2450: 68 65 20 66 69 6c 65 20 69 73 20 63 6f 72 72 75 he file is corru
2460: 70 74 65 64 20 61 6e 64 20 74 68 65 20 63 68 6f pted and the cho
2470: 73 65 6e 0a 09 20 20 20 20 23 20 76 65 72 73 69 sen.. # versi
2480: 6f 6e 20 6e 6f 74 20 61 63 63 65 73 73 69 62 6c on not accessibl
2490: 65 20 64 75 65 20 74 6f 20 74 68 61 74 2e 20 57 e due to that. W
24a0: 65 20 72 65 70 6f 72 74 20 74 68 65 0a 09 20 20 e report the..
24b0: 20 20 23 20 70 72 6f 62 6c 65 6d 2c 20 62 75 74 # problem, but
24c0: 20 6f 74 68 65 72 77 69 73 65 20 69 67 6e 6f 72 otherwise ignor
24d0: 65 20 69 74 2e 20 41 73 20 61 20 63 6f 6e 73 65 e it. As a conse
24e0: 71 75 65 6e 63 65 20 74 68 65 0a 09 20 20 20 20 quence the..
24f0: 23 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 72 65 # destination re
2500: 70 6f 73 69 74 6f 72 79 20 77 69 6c 6c 20 6e 6f pository will no
2510: 74 20 63 6f 6e 74 61 69 6e 20 74 68 65 20 66 75 t contain the fu
2520: 6c 6c 20 68 69 73 74 6f 72 79 0a 09 20 20 20 20 ll history..
2530: 23 20 6f 66 20 74 68 65 20 6e 61 6d 65 64 20 66 # of the named f
2540: 69 6c 65 2e 20 42 79 20 69 67 6e 6f 72 69 6e 67 ile. By ignoring
2550: 20 74 68 65 20 70 72 6f 62 6c 65 6d 20 77 65 20 the problem we
2560: 68 6f 77 65 76 65 72 0a 09 20 20 20 20 23 20 67 however.. # g
2570: 65 74 20 61 73 20 6d 75 63 68 20 61 73 20 69 73 et as much as is
2580: 20 70 6f 73 73 69 62 6c 65 2e 0a 0a 09 20 20 20 possible....
2590: 20 74 72 6f 75 62 6c 65 3a 3a 61 64 64 20 22 24 trouble::add "$
25a0: 66 3a 20 43 6f 72 72 75 70 74 65 64 20 61 72 63 f: Corrupted arc
25b0: 68 69 76 65 20 66 69 6c 65 2e 20 49 6e 61 63 63 hive file. Inacc
25c0: 65 73 73 69 62 6c 65 20 72 65 76 69 73 69 6f 6e essible revision
25d0: 20 24 72 2e 22 0a 09 20 20 20 20 72 65 74 75 72 $r.".. retur
25e0: 6e 0a 09 7d 0a 09 72 65 74 75 72 6e 20 2d 63 6f n..}..return -co
25f0: 64 65 20 65 72 72 6f 72 20 24 6d 73 67 0a 20 20 de error $msg.
2600: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d }. return.}
2610: 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 ..proc ::vc::cvs
2620: 3a 3a 77 73 3a 3a 52 65 6d 6f 76 65 20 7b 66 20 ::ws::Remove {f
2630: 72 7d 20 7b 0a 20 20 20 20 23 20 52 65 6d 6f 76 r} {. # Remov
2640: 65 20 66 69 6c 65 20 66 72 6f 6d 20 77 6f 72 6b e file from work
2650: 73 70 61 63 65 2e 20 50 72 75 6e 65 20 65 6d 70 space. Prune emp
2660: 74 79 20 64 69 72 65 63 74 6f 72 69 65 73 2e 0a ty directories..
2670: 20 20 20 20 23 20 4e 4f 54 45 3a 20 41 20 64 65 # NOTE: A de
2680: 61 64 2d 66 69 72 73 74 20 66 69 6c 65 20 28 72 ad-first file (r
2690: 65 76 20 31 2e 31 20 64 65 61 64 29 20 77 69 6c ev 1.1 dead) wil
26a0: 6c 20 6e 65 76 65 72 20 68 61 76 65 20 65 78 69 l never have exi
26b0: 73 74 65 64 2e 0a 0a 20 20 20 20 66 69 6c 65 20 sted... file
26c0: 64 65 6c 65 74 65 20 24 66 0a 20 20 20 20 50 72 delete $f. Pr
26d0: 75 6e 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d une [file dirnam
26e0: 65 20 24 66 5d 0a 20 20 20 20 72 65 74 75 72 6e e $f]. return
26f0: 0a 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 63 .}..proc ::vc::c
2700: 76 73 3a 3a 77 73 3a 3a 50 72 75 6e 65 20 7b 70 vs::ws::Prune {p
2710: 61 74 68 7d 20 7b 0a 20 20 20 20 23 20 4e 4f 54 ath} {. # NOT
2720: 45 3a 20 4c 6f 67 69 63 61 6c 6c 79 20 65 6d 70 E: Logically emp
2730: 74 79 20 64 69 72 65 63 74 6f 72 69 65 73 20 73 ty directories s
2740: 74 69 6c 6c 20 70 68 79 73 69 63 61 6c 6c 79 20 till physically
2750: 63 6f 6e 74 61 69 6e 20 74 68 65 0a 20 20 20 20 contain the.
2760: 23 20 43 56 53 20 61 64 6d 69 6e 20 64 69 72 65 # CVS admin dire
2770: 63 74 6f 72 79 2c 20 68 65 6e 63 65 20 74 68 65 ctory, hence the
2780: 20 63 68 65 63 6b 20 66 6f 72 20 3d 3d 20 31 2c check for == 1,
2790: 20 6e 6f 74 20 3d 3d 20 30 2e 20 54 68 65 72 65 not == 0. There
27a0: 0a 20 20 20 20 23 20 6d 69 67 68 74 20 61 6c 73 . # might als
27b0: 6f 20 62 65 20 68 69 64 64 65 6e 20 66 69 6c 65 o be hidden file
27c0: 73 2c 20 77 65 20 63 6f 75 6e 74 20 74 68 65 6d s, we count them
27d0: 20 61 73 20 77 65 6c 6c 2e 20 41 6c 77 61 79 73 as well. Always
27e0: 20 68 69 64 64 65 6e 0a 20 20 20 20 23 20 61 72 hidden. # ar
27f0: 65 20 2e 20 61 6e 64 20 2e 2e 20 61 6e 64 20 74 e . and .. and t
2800: 68 65 79 20 64 6f 20 6e 6f 74 20 63 6f 75 6e 74 hey do not count
2810: 20 61 73 20 75 73 65 72 20 66 69 6c 65 2e 0a 0a as user file...
2820: 20 20 20 20 69 66 20 7b 0a 09 28 5b 6c 6c 65 6e if {..([llen
2830: 67 74 68 20 5b 67 6c 6f 62 20 2d 6e 6f 63 6f 6d gth [glob -nocom
2840: 70 6c 61 69 6e 20 2d 64 69 72 65 63 74 6f 72 79 plain -directory
2850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 70 $p
2860: 61 74 68 20 2a 5d 5d 20 3d 3d 20 31 29 20 26 26 ath *]] == 1) &&
2870: 0a 09 28 5b 6c 6c 65 6e 67 74 68 20 5b 67 6c 6f ..([llength [glo
2880: 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 2d 64 b -nocomplain -d
2890: 69 72 65 63 74 6f 72 79 20 2d 74 79 70 65 20 68 irectory -type h
28a0: 69 64 64 65 6e 20 24 70 61 74 68 20 2a 5d 5d 20 idden $path *]]
28b0: 3d 3d 20 32 29 0a 20 20 20 20 7d 20 7b 0a 09 66 == 2). } {..f
28c0: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 ile delete -forc
28d0: 65 20 24 70 61 74 68 0a 20 20 20 20 7d 0a 20 20 e $path. }.
28e0: 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 return.}..proc
28f0: 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 73 3a 3a ::vc::cvs::ws::
2900: 4e 53 49 50 4c 20 7b 6e 20 73 69 6e 67 75 6c 61 NSIPL {n singula
2910: 72 20 7b 70 6c 75 72 61 6c 20 7b 7d 7d 7d 20 7b r {plural {}}} {
2920: 0a 20 20 20 20 72 65 74 75 72 6e 20 22 24 6e 20 . return "$n
2930: 5b 53 49 50 4c 20 24 6e 20 24 73 69 6e 67 75 6c [SIPL $n $singul
2940: 61 72 20 24 70 6c 75 72 61 6c 5d 22 0a 7d 0a 70 ar $plural]".}.p
2950: 72 6f 63 20 3a 3a 76 63 3a 3a 63 76 73 3a 3a 77 roc ::vc::cvs::w
2960: 73 3a 3a 53 49 50 4c 20 7b 6e 20 73 69 6e 67 75 s::SIPL {n singu
2970: 6c 61 72 20 7b 70 6c 75 72 61 6c 20 7b 7d 7d 7d lar {plural {}}}
2980: 20 7b 0a 20 20 20 20 69 66 20 7b 24 6e 20 3d 3d {. if {$n ==
2990: 20 31 7d 20 7b 72 65 74 75 72 6e 20 24 73 69 6e 1} {return $sin
29a0: 67 75 6c 61 72 7d 0a 20 20 20 20 69 66 20 7b 24 gular}. if {$
29b0: 70 6c 75 72 61 6c 20 65 71 20 22 22 7d 20 7b 73 plural eq ""} {s
29c0: 65 74 20 70 6c 75 72 61 6c 20 24 7b 73 69 6e 67 et plural ${sing
29d0: 75 6c 61 72 7d 73 7d 0a 20 20 20 20 72 65 74 75 ular}s}. retu
29e0: 72 6e 20 24 70 6c 75 72 61 6c 0a 7d 0a 0a 23 20 rn $plural.}..#
29f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 6e -------------..n
2a40: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a amespace eval ::
2a50: 76 63 3a 3a 63 76 73 3a 3a 77 73 20 7b 0a 20 20 vc::cvs::ws {.
2a60: 20 20 76 61 72 69 61 62 6c 65 20 62 61 73 65 20 variable base
2a70: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 54 6f 70 {} ; # Top
2a80: 6c 65 76 65 6c 20 72 65 70 6f 73 69 74 6f 72 79 level repository
2a90: 20 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 76 directory. v
2aa0: 61 72 69 61 62 6c 65 20 70 72 6f 6a 65 63 74 20 ariable project
2ab0: 20 20 20 7b 7d 20 3b 20 23 20 53 75 62 20 64 69 {} ; # Sub di
2ac0: 72 65 63 74 6f 72 79 20 74 6f 20 6c 69 6d 69 74 rectory to limit
2ad0: 20 74 68 65 20 69 6d 70 6f 72 74 20 74 6f 2e 0a the import to..
2ae0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 77 6f 72 variable wor
2af0: 6b 73 70 61 63 65 20 20 7b 7d 20 3b 20 23 20 44 kspace {} ; # D
2b00: 69 72 65 63 74 6f 72 79 20 74 6f 20 63 68 65 63 irectory to chec
2b10: 6b 6f 75 74 20 63 68 61 6e 67 65 73 65 74 73 20 kout changesets
2b20: 74 6f 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 to.. variable
2b30: 20 69 6d 70 6f 72 74 61 62 6c 65 20 7b 7d 20 3b importable {} ;
2b40: 20 23 20 4c 69 73 74 20 6f 66 20 74 68 65 20 63 # List of the c
2b50: 73 65 74 73 20 77 68 69 63 68 20 63 61 6e 20 62 sets which can b
2b60: 65 20 69 6d 70 6f 72 74 65 64 2e 0a 0a 20 20 20 e imported...
2b70: 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 namespace expor
2b80: 74 20 63 6f 6e 66 69 67 75 72 65 20 62 65 67 69 t configure begi
2b90: 6e 20 64 6f 6e 65 20 66 6f 72 65 61 63 68 20 6e n done foreach n
2ba0: 63 73 65 74 73 20 6e 69 6d 70 6f 72 74 61 62 6c csets nimportabl
2bb0: 65 20 63 68 65 63 6b 6f 75 74 0a 20 20 20 20 6e e checkout. n
2bc0: 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 amespace export
2bd0: 70 61 72 65 6e 74 4f 66 0a 7d 0a 0a 23 20 2d 2d parentOf.}..# --
2be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 23 20 52 65 -----------.# Re
2c30: 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f ady..package pro
2c40: 76 69 64 65 20 76 63 3a 3a 63 76 73 3a 3a 77 73 vide vc::cvs::ws
2c50: 20 31 2e 30 0a 72 65 74 75 72 6e 0a 1.0.return.