0000: 23 23 20 2d 2a 2d 20 74 63 6c 20 2d 2a 2d 0a 23 ## -*- tcl -*-.#
0010: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
0020: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0030: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
0040: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 ############.##
0050: 43 6f 70 79 72 69 67 68 74 20 28 63 29 20 32 30 Copyright (c) 20
0060: 30 37 2d 32 30 30 38 20 41 6e 64 72 65 61 73 20 07-2008 Andreas
0070: 4b 75 70 72 69 65 73 2e 0a 23 0a 23 20 54 68 69 Kupries..#.# Thi
0080: 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 6c 69 s software is li
0090: 63 65 6e 73 65 64 20 61 73 20 64 65 73 63 72 69 censed as descri
00a0: 62 65 64 20 69 6e 20 74 68 65 20 66 69 6c 65 20 bed in the file
00b0: 4c 49 43 45 4e 53 45 2c 20 77 68 69 63 68 0a 23 LICENSE, which.#
00c0: 20 79 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 you should have
00d0: 20 72 65 63 65 69 76 65 64 20 61 73 20 70 61 72 received as par
00e0: 74 20 6f 66 20 74 68 69 73 20 64 69 73 74 72 69 t of this distri
00f0: 62 75 74 69 6f 6e 2e 0a 23 0a 23 20 54 68 69 73 bution..#.# This
0100: 20 73 6f 66 74 77 61 72 65 20 63 6f 6e 73 69 73 software consis
0110: 74 73 20 6f 66 20 76 6f 6c 75 6e 74 61 72 79 20 ts of voluntary
0120: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 6d 61 contributions ma
0130: 64 65 20 62 79 20 6d 61 6e 79 0a 23 20 69 6e 64 de by many.# ind
0140: 69 76 69 64 75 61 6c 73 2e 20 20 46 6f 72 20 65 ividuals. For e
0150: 78 61 63 74 20 63 6f 6e 74 72 69 62 75 74 69 6f xact contributio
0160: 6e 20 68 69 73 74 6f 72 79 2c 20 73 65 65 20 74 n history, see t
0170: 68 65 20 72 65 76 69 73 69 6f 6e 0a 23 20 68 69 he revision.# hi
0180: 73 74 6f 72 79 20 61 6e 64 20 6c 6f 67 73 2c 20 story and logs,
0190: 61 76 61 69 6c 61 62 6c 65 20 61 74 20 68 74 74 available at htt
01a0: 70 3a 2f 2f 66 6f 73 73 69 6c 2d 73 63 6d 2e 68 p://fossil-scm.h
01b0: 77 61 63 69 2e 63 6f 6d 2f 66 6f 73 73 69 6c 0a waci.com/fossil.
01c0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
01d0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
01e0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
01f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 0a 23 #############..#
0200: 23 20 52 65 70 6f 73 69 74 6f 72 79 20 6d 61 6e # Repository man
0210: 61 67 65 72 2e 20 4b 65 65 70 73 20 70 72 6f 6a ager. Keeps proj
0220: 65 63 74 73 20 61 6e 64 20 74 68 65 69 72 20 66 ects and their f
0230: 69 6c 65 73 20 61 72 6f 75 6e 64 2e 0a 0a 70 61 iles around...pa
0240: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 ckage provide vc
0250: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
0260: 3a 3a 63 76 73 3a 3a 72 65 70 6f 73 69 74 6f 72 ::cvs::repositor
0270: 79 20 31 2e 30 0a 0a 23 20 23 20 23 23 20 23 23 y 1.0..# # ## ##
0280: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
0290: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
02a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02b0: 23 23 23 23 0a 23 23 20 52 65 71 75 69 72 65 6d ####.## Requirem
02c0: 65 6e 74 73 0a 0a 70 61 63 6b 61 67 65 20 72 65 ents..package re
02d0: 71 75 69 72 65 20 54 63 6c 20 38 2e 34 20 20 20 quire Tcl 8.4
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02f0: 20 20 20 20 20 20 20 3b 20 23 20 52 65 71 75 69 ; # Requi
0300: 72 65 64 20 72 75 6e 74 69 6d 65 2e 0a 70 61 63 red runtime..pac
0310: 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 6e 69 kage require sni
0320: 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t
0330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
0340: 23 20 4f 4f 20 73 79 73 74 65 6d 2e 0a 70 61 63 # OO system..pac
0350: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
0360: 3a 74 6f 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 :tools::trouble
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
0380: 23 20 45 72 72 6f 72 20 72 65 70 6f 72 74 69 6e # Error reportin
0390: 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 g..package requi
03a0: 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f re vc::tools::lo
03b0: 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 g
03c0: 20 20 20 20 3b 20 23 20 55 73 65 72 20 66 65 65 ; # User fee
03d0: 64 62 61 63 6b 2e 0a 70 61 63 6b 61 67 65 20 72 dback..package r
03e0: 65 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 equire vc::tools
03f0: 3a 3a 6d 69 73 63 20 20 20 20 20 20 20 20 20 20 ::misc
0400: 20 20 20 20 20 20 20 20 3b 20 23 20 54 65 78 74 ; # Text
0410: 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0a 70 61 63 formatting..pac
0420: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
0430: 3a 74 6f 6f 6c 73 3a 3a 69 64 20 20 20 20 20 20 :tools::id
0440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
0450: 23 20 49 6e 64 65 78 69 6e 67 20 61 6e 64 20 69 # Indexing and i
0460: 64 20 67 65 6e 65 72 61 74 69 6f 6e 2e 0a 70 61 d generation..pa
0470: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
0480: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
0490: 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 20 3b ::cvs::project ;
04a0: 20 23 20 43 56 53 20 70 72 6f 6a 65 63 74 73 2e # CVS projects.
04b0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
04c0: 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 vc::fossil::imp
04d0: 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 20 ort::cvs::state
04e0: 20 20 3b 20 23 20 53 74 61 74 65 20 73 74 6f 72 ; # State stor
04f0: 61 67 65 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 age..package req
0500: 75 69 72 65 20 73 74 72 75 63 74 3a 3a 6c 69 73 uire struct::lis
0510: 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t
0520: 20 20 20 20 20 20 3b 20 23 20 4c 69 73 74 20 6f ; # List o
0530: 70 65 72 61 74 69 6f 6e 73 2e 0a 70 61 63 6b 61 perations..packa
0540: 67 65 20 72 65 71 75 69 72 65 20 66 69 6c 65 75 ge require fileu
0550: 74 69 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 til
0560: 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ; #
0570: 46 69 6c 65 20 6f 70 65 72 61 74 69 6f 6e 73 2e File operations.
0580: 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 ..# # ## ### ###
0590: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
05a0: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
05b0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
05c0: 23 23 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 20 3a ##..snit::type :
05d0: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
05e0: 6f 72 74 3a 3a 63 76 73 3a 3a 72 65 70 6f 73 69 ort::cvs::reposi
05f0: 74 6f 72 79 20 7b 0a 20 20 20 20 23 20 23 20 23 tory {. # # #
0600: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
0610: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
0620: 23 23 0a 20 20 20 20 23 23 20 50 75 62 6c 69 63 ##. ## Public
0630: 20 41 50 49 0a 0a 20 20 20 20 74 79 70 65 6d 65 API.. typeme
0640: 74 68 6f 64 20 62 61 73 65 20 7b 70 61 74 68 7d thod base {path}
0650: 20 7b 0a 09 23 20 43 6f 75 6c 64 20 62 65 20 63 {..# Could be c
0660: 68 65 63 6b 65 64 2c 20 65 61 73 69 65 72 20 74 hecked, easier t
0670: 6f 20 64 65 66 65 72 20 74 6f 20 74 68 65 20 6f o defer to the o
0680: 76 65 72 61 6c 6c 20 76 61 6c 69 64 61 74 69 6f verall validatio
0690: 6e 2e 0a 09 73 65 74 20 6d 79 62 61 73 65 20 24 n...set mybase $
06a0: 70 61 74 68 0a 09 72 65 74 75 72 6e 0a 20 20 20 path..return.
06b0: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
06c0: 6f 64 20 61 64 64 20 7b 70 61 74 68 7d 20 7b 0a od add {path} {.
06d0: 09 23 20 4d 6f 73 74 20 74 68 69 6e 67 73 20 63 .# Most things c
06e0: 61 6e 6e 6f 74 20 62 65 20 63 68 65 63 6b 65 64 annot be checked
06f0: 20 69 6d 6d 65 64 69 61 74 65 6c 79 2c 20 61 73 immediately, as
0700: 20 74 68 65 20 62 61 73 65 20 69 73 0a 09 23 20 the base is..#
0710: 6e 6f 74 20 6b 6e 6f 77 6e 20 77 68 69 6c 65 20 not known while
0720: 70 72 6f 6a 65 63 74 73 20 61 72 65 20 61 64 64 projects are add
0730: 65 64 2e 20 57 65 20 63 61 6e 20 61 6e 64 20 64 ed. We can and d
0740: 6f 20 63 68 65 63 6b 20 66 6f 72 0a 09 23 20 75 o check for..# u
0750: 6e 69 71 75 65 6e 65 73 73 2e 20 57 65 20 61 63 niqueness. We ac
0760: 63 65 70 74 20 6d 75 6c 74 69 70 6c 65 20 6f 63 cept multiple oc
0770: 63 75 72 65 6e 63 65 73 20 6f 66 20 61 20 6e 61 curences of a na
0780: 6d 65 2c 20 61 6e 64 0a 09 23 20 74 72 65 61 74 me, and..# treat
0790: 20 74 68 65 6d 20 61 73 20 61 20 73 69 6e 67 6c them as a singl
07a0: 65 20 70 72 6f 6a 65 63 74 2e 0a 0a 09 69 66 20 e project....if
07b0: 7b 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 {[lsearch -exact
07c0: 20 24 6d 79 70 72 6f 6a 70 61 74 68 73 20 24 70 $myprojpaths $p
07d0: 61 74 68 5d 20 3e 3d 20 30 7d 20 72 65 74 75 72 ath] >= 0} retur
07e0: 6e 0a 09 6c 61 70 70 65 6e 64 20 6d 79 70 72 6f n..lappend mypro
07f0: 6a 70 61 74 68 73 20 24 70 61 74 68 0a 09 72 65 jpaths $path..re
0800: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
0810: 74 79 70 65 6d 65 74 68 6f 64 20 74 72 75 6e 6b typemethod trunk
0820: 6f 6e 6c 79 21 20 7b 7d 20 7b 20 73 65 74 20 6d only! {} { set m
0830: 79 74 72 75 6e 6b 6f 6e 6c 79 20 31 20 3b 20 72 ytrunkonly 1 ; r
0840: 65 74 75 72 6e 20 7d 0a 20 20 20 20 74 79 70 65 eturn }. type
0850: 6d 65 74 68 6f 64 20 74 72 75 6e 6b 6f 6e 6c 79 method trunkonly
0860: 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d {} { return $m
0870: 79 74 72 75 6e 6b 6f 6e 6c 79 20 7d 0a 0a 20 20 ytrunkonly }..
0880: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 70 72 6f typemethod pro
0890: 6a 65 63 74 73 20 7b 7d 20 7b 0a 09 72 65 74 75 jects {} {..retu
08a0: 72 6e 20 5b 54 68 65 50 72 6f 6a 65 63 74 73 5d rn [TheProjects]
08b0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 . }.. type
08c0: 6d 65 74 68 6f 64 20 62 61 73 65 3f 20 7b 7d 20 method base? {}
08d0: 7b 20 72 65 74 75 72 6e 20 24 6d 79 62 61 73 65 { return $mybase
08e0: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
08f0: 6f 64 20 76 61 6c 69 64 61 74 65 20 7b 7d 20 7b od validate {} {
0900: 0a 09 69 66 20 7b 21 5b 49 73 52 65 70 6f 73 69 ..if {![IsReposi
0910: 74 6f 72 79 42 61 73 65 20 24 6d 79 62 61 73 65 toryBase $mybase
0920: 20 6d 73 67 5d 7d 20 7b 0a 09 20 20 20 20 74 72 msg]} {.. tr
0930: 6f 75 62 6c 65 20 66 61 74 61 6c 20 24 6d 73 67 ouble fatal $msg
0940: 0a 09 20 20 20 20 23 20 57 69 74 68 6f 75 74 20 .. # Without
0950: 61 20 67 6f 6f 64 20 62 61 73 65 20 64 69 72 65 a good base dire
0960: 63 74 6f 72 79 20 63 68 65 63 6b 69 6e 67 20 61 ctory checking a
0970: 6e 79 20 70 72 6f 6a 65 63 74 73 20 69 73 0a 09 ny projects is..
0980: 20 20 20 20 23 20 77 61 73 74 65 64 20 74 69 6d # wasted tim
0990: 65 2c 20 73 6f 20 77 65 20 6c 65 61 76 65 20 6e e, so we leave n
09a0: 6f 77 2e 0a 09 20 20 20 20 72 65 74 75 72 6e 0a ow... return.
09b0: 09 7d 0a 09 66 6f 72 65 61 63 68 20 70 70 20 24 .}..foreach pp $
09c0: 6d 79 70 72 6f 6a 70 61 74 68 73 20 7b 0a 09 20 myprojpaths {..
09d0: 20 20 20 69 66 20 7b 21 5b 49 73 50 72 6f 6a 65 if {![IsProje
09e0: 63 74 42 61 73 65 20 24 6d 79 62 61 73 65 2f 24 ctBase $mybase/$
09f0: 70 70 20 24 6d 79 62 61 73 65 2f 43 56 53 52 4f pp $mybase/CVSRO
0a00: 4f 54 20 6d 73 67 5d 7d 20 7b 0a 09 09 74 72 6f OT msg]} {...tro
0a10: 75 62 6c 65 20 66 61 74 61 6c 20 24 6d 73 67 0a uble fatal $msg.
0a20: 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 74 75 72 . }..}..retur
0a30: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 n. }.. typ
0a40: 65 6d 65 74 68 6f 64 20 64 65 66 61 75 74 68 6f emethod defautho
0a50: 72 20 20 20 7b 61 7d 20 20 20 20 20 20 20 20 20 r {a}
0a60: 20 20 20 20 20 20 7b 20 24 6d 79 61 75 74 68 6f { $myautho
0a70: 72 20 70 75 74 20 24 61 20 7d 0a 20 20 20 20 74 r put $a }. t
0a80: 79 70 65 6d 65 74 68 6f 64 20 64 65 66 63 6d 65 ypemethod defcme
0a90: 73 73 61 67 65 20 7b 63 6d 7d 20 20 20 20 20 20 ssage {cm}
0aa0: 20 20 20 20 20 20 20 20 7b 20 24 6d 79 63 6d 73 { $mycms
0ab0: 67 20 20 20 70 75 74 20 24 63 6d 20 7d 0a 20 20 g put $cm }.
0ac0: 20 20 74 79 70 65 6d 65 74 68 6f 64 20 64 65 66 typemethod def
0ad0: 73 79 6d 62 6f 6c 20 20 20 7b 70 69 64 20 6e 61 symbol {pid na
0ae0: 6d 65 7d 20 20 20 20 20 20 20 20 7b 20 24 6d 79 me} { $my
0af0: 73 79 6d 62 6f 6c 20 70 75 74 20 5b 6c 69 73 74 symbol put [list
0b00: 20 24 70 69 64 20 24 6e 61 6d 65 5d 20 7d 0a 20 $pid $name] }.
0b10: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 64 65 typemethod de
0b20: 66 6d 65 74 61 20 20 20 20 20 7b 70 69 64 20 62 fmeta {pid b
0b30: 69 64 20 61 69 64 20 63 69 64 7d 20 7b 20 24 6d id aid cid} { $m
0b40: 79 6d 65 74 61 20 20 20 70 75 74 20 5b 6c 69 73 ymeta put [lis
0b50: 74 20 24 70 69 64 20 24 62 69 64 20 24 61 69 64 t $pid $bid $aid
0b60: 20 24 63 69 64 5d 20 7d 0a 0a 20 20 20 20 74 79 $cid] }.. ty
0b70: 70 65 6d 65 74 68 6f 64 20 63 6f 6d 6d 69 74 6d pemethod commitm
0b80: 65 73 73 61 67 65 6f 66 20 7b 6d 69 64 7d 20 7b essageof {mid} {
0b90: 0a 09 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 ..struct::list a
0ba0: 73 73 69 67 6e 20 5b 24 6d 79 6d 65 74 61 20 6b ssign [$mymeta k
0bb0: 65 79 6f 66 20 24 6d 69 64 5d 20 70 69 64 20 62 eyof $mid] pid b
0bc0: 69 64 20 61 69 64 20 63 69 64 0a 09 72 65 74 75 id aid cid..retu
0bd0: 72 6e 20 5b 24 6d 79 63 6d 73 67 20 6b 65 79 6f rn [$mycmsg keyo
0be0: 66 20 24 63 69 64 5d 0a 20 20 20 20 7d 0a 0a 20 f $cid]. }..
0bf0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 67 65 typemethod ge
0c00: 74 6d 65 74 61 20 7b 6d 69 64 7d 20 7b 0a 09 73 tmeta {mid} {..s
0c10: 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 73 73 69 truct::list assi
0c20: 67 6e 20 5b 24 6d 79 6d 65 74 61 20 6b 65 79 6f gn [$mymeta keyo
0c30: 66 20 24 6d 69 64 5d 20 70 69 64 20 62 69 64 20 f $mid] pid bid
0c40: 61 69 64 20 63 69 64 0a 09 72 65 74 75 72 6e 20 aid cid..return
0c50: 5b 6c 69 73 74 20 5c 0a 09 09 20 20 20 20 24 6d [list \... $m
0c60: 79 70 72 6f 6a 6d 61 70 28 24 70 69 64 29 20 5c yprojmap($pid) \
0c70: 0a 09 09 20 20 20 20 5b 24 6d 79 73 79 6d 62 6f ... [$mysymbo
0c80: 6c 20 6b 65 79 6f 66 20 24 62 69 64 5d 20 5c 0a l keyof $bid] \.
0c90: 09 09 20 20 20 20 5b 24 6d 79 61 75 74 68 6f 72 .. [$myauthor
0ca0: 20 6b 65 79 6f 66 20 24 61 69 64 5d 20 5c 0a 09 keyof $aid] \..
0cb0: 09 20 20 20 20 5b 24 6d 79 63 6d 73 67 20 20 20 . [$mycmsg
0cc0: 6b 65 79 6f 66 20 24 63 69 64 5d 5d 0a 20 20 20 keyof $cid]].
0cd0: 20 7d 0a 0a 20 20 20 20 23 20 70 61 73 73 20 49 }.. # pass I
0ce0: 20 72 65 73 75 6c 74 73 0a 20 20 20 20 74 79 70 results. typ
0cf0: 65 6d 65 74 68 6f 64 20 70 72 69 6e 74 73 74 61 emethod printsta
0d00: 74 69 73 74 69 63 73 20 7b 7d 20 7b 0a 09 73 65 tistics {} {..se
0d10: 74 20 70 72 6c 69 73 74 20 5b 54 68 65 50 72 6f t prlist [ThePro
0d20: 6a 65 63 74 73 5d 0a 09 73 65 74 20 6e 70 72 20 jects]..set npr
0d30: 5b 6c 6c 65 6e 67 74 68 20 24 70 72 6c 69 73 74 [llength $prlist
0d40: 5d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 ]...log write 2
0d50: 72 65 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 repository "Stat
0d60: 69 73 74 69 63 73 3a 20 53 63 61 6e 6e 65 64 20 istics: Scanned
0d70: 5b 6e 73 70 20 24 6e 70 72 20 70 72 6f 6a 65 63 [nsp $npr projec
0d80: 74 5d 22 0a 0a 09 69 66 20 7b 24 6e 70 72 20 3e t]"...if {$npr >
0d90: 20 31 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 20 1} {.. set
0da0: 62 6d 61 78 20 5b 6d 61 78 20 5b 73 74 72 75 63 bmax [max [struc
0db0: 74 3a 3a 6c 69 73 74 20 6d 61 70 20 24 70 72 6c t::list map $prl
0dc0: 69 73 74 20 5b 6d 79 70 72 6f 63 20 2e 42 61 73 ist [myproc .Bas
0dd0: 65 4c 65 6e 67 74 68 5d 5d 5d 0a 09 20 20 20 20 eLength]]]..
0de0: 69 6e 63 72 20 62 6d 61 78 20 32 0a 09 20 20 20 incr bmax 2..
0df0: 20 73 65 74 20 20 62 66 6d 74 20 25 2d 24 7b 62 set bfmt %-${b
0e00: 6d 61 78 7d 73 0a 0a 09 20 20 20 20 73 65 74 20 max}s... set
0e10: 20 6e 6d 61 78 20 5b 6d 61 78 20 5b 73 74 72 75 nmax [max [stru
0e20: 63 74 3a 3a 6c 69 73 74 20 6d 61 70 20 24 70 72 ct::list map $pr
0e30: 6c 69 73 74 20 5b 6d 79 70 72 6f 63 20 2e 4e 46 list [myproc .NF
0e40: 69 6c 65 4c 65 6e 67 74 68 5d 5d 5d 0a 09 20 20 ileLength]]]..
0e50: 20 20 73 65 74 20 20 6e 66 6d 74 20 25 24 7b 6e set nfmt %${n
0e60: 6d 61 78 7d 73 0a 09 7d 20 65 6c 73 65 20 7b 0a max}s..} else {.
0e70: 09 20 20 20 20 73 65 74 20 62 66 6d 74 20 25 73 . set bfmt %s
0e80: 0a 09 20 20 20 20 73 65 74 20 6e 66 6d 74 20 25 .. set nfmt %
0e90: 73 0a 09 7d 0a 0a 09 73 65 74 20 6b 65 65 70 20 s..}...set keep
0ea0: 7b 7d 0a 09 66 6f 72 65 61 63 68 20 70 20 24 70 {}..foreach p $p
0eb0: 72 6c 69 73 74 20 7b 0a 09 20 20 20 20 73 65 74 rlist {.. set
0ec0: 20 6e 66 69 6c 65 73 20 5b 6c 6c 65 6e 67 74 68 nfiles [llength
0ed0: 20 5b 24 70 20 66 69 6c 65 6e 61 6d 65 73 5d 5d [$p filenames]]
0ee0: 0a 09 20 20 20 20 73 65 74 20 6c 69 6e 65 20 22 .. set line "
0ef0: 53 74 61 74 69 73 74 69 63 73 3a 20 50 72 6f 6a Statistics: Proj
0f00: 65 63 74 20 5b 66 6f 72 6d 61 74 20 24 62 66 6d ect [format $bfm
0f10: 74 20 5c 22 5b 24 70 20 70 72 69 6e 74 62 61 73 t \"[$p printbas
0f20: 65 5d 5c 22 5d 20 3a 20 5b 66 6f 72 6d 61 74 20 e]\"] : [format
0f30: 24 6e 66 6d 74 20 24 6e 66 69 6c 65 73 5d 20 5b $nfmt $nfiles] [
0f40: 73 70 20 24 6e 66 69 6c 65 73 20 66 69 6c 65 5d sp $nfiles file]
0f50: 22 0a 09 20 20 20 20 69 66 20 7b 24 6e 66 69 6c ".. if {$nfil
0f60: 65 73 20 3c 20 31 7d 20 7b 0a 09 09 61 70 70 65 es < 1} {...appe
0f70: 6e 64 20 6c 69 6e 65 20 22 2c 20 64 72 6f 70 70 nd line ", dropp
0f80: 65 64 22 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 ed".. } else
0f90: 7b 0a 09 09 6c 61 70 70 65 6e 64 20 6b 65 65 70 {...lappend keep
0fa0: 20 24 70 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 $p.. }..
0fb0: 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f log write 2 repo
0fc0: 73 69 74 6f 72 79 20 24 6c 69 6e 65 0a 09 7d 0a sitory $line..}.
0fd0: 0a 09 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 ..if {![llength
0fe0: 24 6b 65 65 70 5d 7d 20 7b 0a 09 20 20 20 20 74 $keep]} {.. t
0ff0: 72 6f 75 62 6c 65 20 77 61 72 6e 20 22 44 72 6f rouble warn "Dro
1000: 70 70 65 64 20 61 6c 6c 20 70 72 6f 6a 65 63 74 pped all project
1010: 73 22 0a 09 7d 20 65 6c 73 65 69 66 20 7b 24 6e s"..} elseif {$n
1020: 70 72 20 3d 3d 20 5b 6c 6c 65 6e 67 74 68 20 24 pr == [llength $
1030: 6b 65 65 70 5d 7d 20 7b 0a 09 20 20 20 20 6c 6f keep]} {.. lo
1040: 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 g write 2 reposi
1050: 74 6f 72 79 20 22 4b 65 65 70 69 6e 67 20 61 6c tory "Keeping al
1060: 6c 20 70 72 6f 6a 65 63 74 73 22 0a 09 7d 20 65 l projects"..} e
1070: 6c 73 65 20 7b 0a 09 20 20 20 20 6c 6f 67 20 77 lse {.. log w
1080: 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 6f 72 rite 2 repositor
1090: 79 20 22 4b 65 65 70 69 6e 67 20 5b 6e 73 70 20 y "Keeping [nsp
10a0: 5b 6c 6c 65 6e 67 74 68 20 24 6b 65 65 70 5d 20 [llength $keep]
10b0: 70 72 6f 6a 65 63 74 5d 22 0a 09 20 20 20 20 74 project]".. t
10c0: 72 6f 75 62 6c 65 20 77 61 72 6e 20 22 44 72 6f rouble warn "Dro
10d0: 70 70 65 64 20 5b 6e 73 70 20 5b 65 78 70 72 20 pped [nsp [expr
10e0: 7b 24 6e 70 72 20 2d 20 5b 6c 6c 65 6e 67 74 68 {$npr - [llength
10f0: 20 24 6b 65 65 70 5d 7d 5d 20 7b 65 6d 70 74 79 $keep]}] {empty
1100: 20 70 72 6f 6a 65 63 74 7d 5d 22 0a 09 7d 0a 0a project}]"..}..
1110: 09 23 20 4b 65 65 70 20 72 65 64 75 63 65 64 20 .# Keep reduced
1120: 73 65 74 20 6f 66 20 70 72 6f 6a 65 63 74 73 2e set of projects.
1130: 0a 09 73 65 74 20 70 72 6f 6a 65 63 74 73 20 24 ..set projects $
1140: 6b 65 65 70 0a 09 72 65 74 75 72 6e 0a 20 20 20 keep..return.
1150: 20 7d 0a 0a 20 20 20 20 23 20 70 61 73 73 20 49 }.. # pass I
1160: 20 70 65 72 73 69 73 74 65 6e 63 65 0a 20 20 20 persistence.
1170: 20 74 79 70 65 6d 65 74 68 6f 64 20 70 65 72 73 typemethod pers
1180: 69 73 74 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 ist {} {..::vari
1190: 61 62 6c 65 20 6d 79 70 72 6f 6a 6d 61 70 0a 09 able myprojmap..
11a0: 73 74 61 74 65 20 74 72 61 6e 73 61 63 74 69 6f state transactio
11b0: 6e 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 n {.. foreach
11c0: 20 70 20 5b 54 68 65 50 72 6f 6a 65 63 74 73 5d p [TheProjects]
11d0: 20 7b 0a 09 09 24 70 20 70 65 72 73 69 73 74 0a {...$p persist.
11e0: 09 09 73 65 74 20 6d 79 70 72 6f 6a 6d 61 70 28 ..set myprojmap(
11f0: 5b 24 70 20 69 64 5d 29 20 24 70 0a 09 20 20 20 [$p id]) $p..
1200: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
1210: 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 }.. typemet
1220: 68 6f 64 20 6c 6f 61 64 20 7b 7d 20 7b 0a 09 73 hod load {} {..s
1230: 74 61 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e tate transaction
1240: 20 7b 0a 09 20 20 20 20 73 74 61 74 65 20 66 6f {.. state fo
1250: 72 65 61 63 68 72 6f 77 20 7b 0a 09 09 53 45 4c reachrow {...SEL
1260: 45 43 54 20 70 69 64 2c 20 6e 61 6d 65 20 46 52 ECT pid, name FR
1270: 4f 4d 20 70 72 6f 6a 65 63 74 20 3b 0a 09 20 20 OM project ;..
1280: 20 20 7d 20 7b 0a 09 09 73 65 74 20 70 72 6f 6a } {...set proj
1290: 65 63 74 20 5b 70 72 6f 6a 65 63 74 20 25 41 55 ect [project %AU
12a0: 54 4f 25 20 24 6e 61 6d 65 20 24 74 79 70 65 5d TO% $name $type]
12b0: 0a 0a 09 09 6c 61 70 70 65 6e 64 20 6d 79 70 72 ....lappend mypr
12c0: 6f 6a 70 61 74 68 73 20 24 6e 61 6d 65 0a 09 09 ojpaths $name...
12d0: 6c 61 70 70 65 6e 64 20 6d 79 70 72 6f 6a 65 63 lappend myprojec
12e0: 74 73 20 20 24 70 72 6f 6a 65 63 74 0a 09 09 73 ts $project...s
12f0: 65 74 20 6d 79 70 72 6f 6a 6d 61 70 28 24 70 69 et myprojmap($pi
1300: 64 29 20 24 70 72 6f 6a 65 63 74 0a 09 09 24 70 d) $project...$p
1310: 72 6f 6a 65 63 74 20 73 65 74 69 64 20 24 70 69 roject setid $pi
1320: 64 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 73 74 d.. }.. st
1330: 61 74 65 20 66 6f 72 65 61 63 68 72 6f 77 20 7b ate foreachrow {
1340: 0a 09 09 53 45 4c 45 43 54 20 66 69 64 2c 20 70 ...SELECT fid, p
1350: 69 64 2c 20 6e 61 6d 65 2c 20 76 69 73 69 62 6c id, name, visibl
1360: 65 2c 20 65 78 65 63 20 46 52 4f 4d 20 66 69 6c e, exec FROM fil
1370: 65 20 3b 0a 09 20 20 20 20 7d 20 7b 0a 09 09 24 e ;.. } {...$
1380: 6d 79 70 72 6f 6a 6d 61 70 28 24 70 69 64 29 20 myprojmap($pid)
1390: 61 64 64 66 69 6c 65 20 24 6e 61 6d 65 20 24 76 addfile $name $v
13a0: 69 73 69 62 6c 65 20 24 65 78 65 63 20 24 66 69 isible $exec $fi
13b0: 64 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 74 d.. }..}..ret
13c0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
13d0: 20 70 61 73 73 20 49 49 20 72 65 73 75 6c 74 73 pass II results
13e0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
13f0: 70 72 69 6e 74 72 65 76 73 74 61 74 69 73 74 69 printrevstatisti
1400: 63 73 20 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 cs {} {..log wri
1410: 74 65 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 te 2 repository
1420: 22 52 65 76 69 73 69 6f 6e 20 73 74 61 74 69 73 "Revision statis
1430: 74 69 63 73 22 0a 09 23 20 6e 75 6d 62 65 72 20 tics"..# number
1440: 6f 66 20 72 65 76 69 73 69 6f 6e 73 2c 20 73 79 of revisions, sy
1450: 6d 62 6f 6c 73 2c 20 72 65 70 6f 73 69 74 6f 72 mbols, repositor
1460: 79 20 77 69 64 65 2c 20 61 6e 64 20 70 65 72 20 y wide, and per
1470: 70 72 6f 6a 65 63 74 20 2e 2e 2e 0a 0a 09 73 65 project ......se
1480: 74 20 72 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 t rcount [state
1490: 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 one { SELECT COU
14a0: 4e 54 20 28 2a 29 20 46 52 4f 4d 20 72 65 76 69 NT (*) FROM revi
14b0: 73 69 6f 6e 20 7d 5d 0a 09 73 65 74 20 74 63 6f sion }]..set tco
14c0: 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b unt [state one {
14d0: 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a SELECT COUNT (*
14e0: 29 20 46 52 4f 4d 20 74 61 67 20 20 20 20 20 20 ) FROM tag
14f0: 7d 5d 0a 09 73 65 74 20 62 63 6f 75 6e 74 20 5b }]..set bcount [
1500: 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 state one { SELE
1510: 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f CT COUNT (*) FRO
1520: 4d 20 62 72 61 6e 63 68 20 20 20 7d 5d 0a 09 73 M branch }]..s
1530: 65 74 20 73 63 6f 75 6e 74 20 5b 73 74 61 74 65 et scount [state
1540: 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f one { SELECT CO
1550: 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 73 79 6d UNT (*) FROM sym
1560: 62 6f 6c 20 20 20 7d 5d 0a 09 73 65 74 20 61 63 bol }]..set ac
1570: 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 ount [state one
1580: 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 { SELECT COUNT (
1590: 2a 29 20 46 52 4f 4d 20 61 75 74 68 6f 72 20 20 *) FROM author
15a0: 20 7d 5d 0a 09 73 65 74 20 63 63 6f 75 6e 74 20 }]..set ccount
15b0: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c [state one { SEL
15c0: 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 ECT COUNT (*) FR
15d0: 4f 4d 20 63 6d 65 73 73 61 67 65 20 7d 5d 0a 09 OM cmessage }]..
15e0: 73 65 74 20 66 6d 74 20 25 5b 73 74 72 69 6e 67 set fmt %[string
15f0: 20 6c 65 6e 67 74 68 20 5b 6d 61 78 20 5b 6c 69 length [max [li
1600: 73 74 20 24 72 63 6f 75 6e 74 20 24 74 63 6f 75 st $rcount $tcou
1610: 6e 74 20 24 62 63 6f 75 6e 74 20 24 73 63 6f 75 nt $bcount $scou
1620: 6e 74 20 24 61 63 6f 75 6e 74 20 24 63 63 6f 75 nt $acount $ccou
1630: 6e 74 5d 5d 5d 73 0a 0a 09 6c 6f 67 20 77 72 69 nt]]]s...log wri
1640: 74 65 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 te 2 repository
1650: 22 53 74 61 74 69 73 74 69 63 73 3a 20 5b 66 6f "Statistics: [fo
1660: 72 6d 61 74 20 24 66 6d 74 20 24 72 63 6f 75 6e rmat $fmt $rcoun
1670: 74 5d 20 5b 73 70 20 24 72 63 6f 75 6e 74 20 72 t] [sp $rcount r
1680: 65 76 69 73 69 6f 6e 5d 22 0a 09 6c 6f 67 20 77 evision]"..log w
1690: 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 6f 72 rite 2 repositor
16a0: 79 20 22 53 74 61 74 69 73 74 69 63 73 3a 20 5b y "Statistics: [
16b0: 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 74 63 6f format $fmt $tco
16c0: 75 6e 74 5d 20 5b 73 70 20 24 74 63 6f 75 6e 74 unt] [sp $tcount
16d0: 20 74 61 67 5d 22 0a 09 6c 6f 67 20 77 72 69 74 tag]"..log writ
16e0: 65 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 e 2 repository "
16f0: 53 74 61 74 69 73 74 69 63 73 3a 20 5b 66 6f 72 Statistics: [for
1700: 6d 61 74 20 24 66 6d 74 20 24 62 63 6f 75 6e 74 mat $fmt $bcount
1710: 5d 20 5b 73 70 20 24 62 63 6f 75 6e 74 20 62 72 ] [sp $bcount br
1720: 61 6e 63 68 20 62 72 61 6e 63 68 65 73 5d 22 0a anch branches]".
1730: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 .log write 2 rep
1740: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
1750: 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d ics: [format $fm
1760: 74 20 24 73 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $scount] [sp $
1770: 73 63 6f 75 6e 74 20 73 79 6d 62 6f 6c 5d 22 0a scount symbol]".
1780: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 .log write 2 rep
1790: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
17a0: 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d ics: [format $fm
17b0: 74 20 24 61 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $acount] [sp $
17c0: 61 63 6f 75 6e 74 20 61 75 74 68 6f 72 5d 22 0a acount author]".
17d0: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 .log write 2 rep
17e0: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
17f0: 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d ics: [format $fm
1800: 74 20 24 63 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $ccount] [sp $
1810: 63 63 6f 75 6e 74 20 7b 6c 6f 67 20 6d 65 73 73 ccount {log mess
1820: 61 67 65 7d 5d 22 0a 0a 09 73 65 74 20 70 72 6c age}]"...set prl
1830: 69 73 74 20 5b 54 68 65 50 72 6f 6a 65 63 74 73 ist [TheProjects
1840: 5d 0a 09 73 65 74 20 6e 70 72 20 5b 6c 6c 65 6e ]..set npr [llen
1850: 67 74 68 20 24 70 72 6c 69 73 74 5d 0a 0a 09 69 gth $prlist]...i
1860: 66 20 7b 24 6e 70 72 20 3e 20 31 7d 20 7b 0a 09 f {$npr > 1} {..
1870: 20 20 20 20 73 65 74 20 20 62 6d 61 78 20 5b 6d set bmax [m
1880: 61 78 20 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 ax [struct::list
1890: 20 6d 61 70 20 24 70 72 6c 69 73 74 20 5b 6d 79 map $prlist [my
18a0: 70 72 6f 63 20 2e 42 61 73 65 4c 65 6e 67 74 68 proc .BaseLength
18b0: 5d 5d 5d 0a 09 20 20 20 20 69 6e 63 72 20 62 6d ]]].. incr bm
18c0: 61 78 20 32 0a 09 20 20 20 20 73 65 74 20 20 62 ax 2.. set b
18d0: 66 6d 74 20 25 2d 24 7b 62 6d 61 78 7d 73 0a 09 fmt %-${bmax}s..
18e0: 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 73 65 } else {.. se
18f0: 74 20 62 66 6d 74 20 25 73 0a 09 7d 0a 0a 09 66 t bfmt %s..}...f
1900: 6f 72 65 61 63 68 20 70 20 24 70 72 6c 69 73 74 oreach p $prlist
1910: 20 7b 0a 09 20 20 20 20 73 65 74 20 70 69 64 20 {.. set pid
1920: 5b 24 70 20 69 64 5d 0a 09 20 20 20 20 73 65 74 [$p id].. set
1930: 20 70 72 65 66 69 78 20 22 50 72 6f 6a 65 63 74 prefix "Project
1940: 20 5b 66 6f 72 6d 61 74 20 24 62 66 6d 74 20 5c [format $bfmt \
1950: 22 5b 24 70 20 70 72 69 6e 74 62 61 73 65 5d 5c "[$p printbase]\
1960: 22 5d 22 0a 09 20 20 20 20 72 65 67 73 75 62 20 "]".. regsub
1970: 2d 61 6c 6c 20 7b 5b 5e 09 5d 7d 20 24 70 72 65 -all {[^.]} $pre
1980: 66 69 78 20 7b 20 7d 20 62 6c 61 6e 6b 73 0a 09 fix { } blanks..
1990: 20 20 20 20 73 65 74 20 73 65 70 20 22 20 3a 20 set sep " :
19a0: 22 0a 0a 09 20 20 20 20 73 65 74 20 72 63 6f 75 "... set rcou
19b0: 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 nt [state one {
19c0: 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 SELECT COUNT (*)
19d0: 20 46 52 4f 4d 20 72 65 76 69 73 69 6f 6e 20 52 FROM revision R
19e0: 2c 20 66 69 6c 65 20 46 20 57 48 45 52 45 20 52 , file F WHERE R
19f0: 2e 66 69 64 20 3d 20 46 2e 66 69 64 20 41 4e 44 .fid = F.fid AND
1a00: 20 46 2e 70 69 64 20 3d 20 24 70 69 64 20 7d 5d F.pid = $pid }]
1a10: 0a 09 20 20 20 20 73 65 74 20 74 63 6f 75 6e 74 .. set tcount
1a20: 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 [state one { SE
1a30: 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 LECT COUNT (*) F
1a40: 52 4f 4d 20 74 61 67 20 54 2c 20 20 20 20 20 20 ROM tag T,
1a50: 66 69 6c 65 20 46 20 57 48 45 52 45 20 54 2e 66 file F WHERE T.f
1a60: 69 64 20 3d 20 46 2e 66 69 64 20 41 4e 44 20 46 id = F.fid AND F
1a70: 2e 70 69 64 20 3d 20 24 70 69 64 20 7d 5d 0a 09 .pid = $pid }]..
1a80: 20 20 20 20 73 65 74 20 62 63 6f 75 6e 74 20 5b set bcount [
1a90: 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 state one { SELE
1aa0: 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f CT COUNT (*) FRO
1ab0: 4d 20 62 72 61 6e 63 68 20 42 2c 20 20 20 66 69 M branch B, fi
1ac0: 6c 65 20 46 20 57 48 45 52 45 20 42 2e 66 69 64 le F WHERE B.fid
1ad0: 20 3d 20 46 2e 66 69 64 20 41 4e 44 20 46 2e 70 = F.fid AND F.p
1ae0: 69 64 20 3d 20 24 70 69 64 20 7d 5d 0a 09 20 20 id = $pid }]..
1af0: 20 20 73 65 74 20 73 63 6f 75 6e 74 20 5b 73 74 set scount [st
1b00: 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 ate one { SELECT
1b10: 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 COUNT (*) FROM
1b20: 73 79 6d 62 6f 6c 20 20 20 20 20 20 20 20 20 20 symbol
1b30: 20 20 20 57 48 45 52 45 20 70 69 64 20 3d 20 24 WHERE pid = $
1b40: 70 69 64 20 20 20 20 20 20 20 20 20 20 20 20 20 pid
1b50: 20 20 20 20 20 20 20 20 7d 5d 0a 09 20 20 20 20 }]..
1b60: 73 65 74 20 61 63 6f 75 6e 74 20 5b 73 74 61 74 set acount [stat
1b70: 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 e one { SELECT C
1b80: 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 61 75 OUNT (*) FROM au
1b90: 74 68 6f 72 20 20 20 57 48 45 52 45 20 61 69 64 thor WHERE aid
1ba0: 20 49 4e 20 28 53 45 4c 45 43 54 20 44 49 53 54 IN (SELECT DIST
1bb0: 49 4e 43 54 20 61 69 64 20 46 52 4f 4d 20 6d 65 INCT aid FROM me
1bc0: 74 61 20 57 48 45 52 45 20 70 69 64 20 3d 20 24 ta WHERE pid = $
1bd0: 70 69 64 29 20 7d 5d 0a 09 20 20 20 20 73 65 74 pid) }].. set
1be0: 20 63 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f ccount [state o
1bf0: 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e ne { SELECT COUN
1c00: 54 20 28 2a 29 20 46 52 4f 4d 20 63 6d 65 73 73 T (*) FROM cmess
1c10: 61 67 65 20 57 48 45 52 45 20 63 69 64 20 49 4e age WHERE cid IN
1c20: 20 28 53 45 4c 45 43 54 20 44 49 53 54 49 4e 43 (SELECT DISTINC
1c30: 54 20 63 69 64 20 46 52 4f 4d 20 6d 65 74 61 20 T cid FROM meta
1c40: 57 48 45 52 45 20 70 69 64 20 3d 20 24 70 69 64 WHERE pid = $pid
1c50: 29 20 7d 5d 0a 0a 09 20 20 20 20 6c 6f 67 20 77 ) }]... log w
1c60: 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 6f 72 rite 2 repositor
1c70: 79 20 22 53 74 61 74 69 73 74 69 63 73 3a 20 24 y "Statistics: $
1c80: 70 72 65 66 69 78 24 73 65 70 5b 66 6f 72 6d 61 prefix$sep[forma
1c90: 74 20 24 66 6d 74 20 24 72 63 6f 75 6e 74 5d 20 t $fmt $rcount]
1ca0: 5b 73 70 20 24 72 63 6f 75 6e 74 20 72 65 76 69 [sp $rcount revi
1cb0: 73 69 6f 6e 5d 22 0a 09 20 20 20 20 6c 6f 67 20 sion]".. log
1cc0: 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 6f write 2 reposito
1cd0: 72 79 20 22 53 74 61 74 69 73 74 69 63 73 3a 20 ry "Statistics:
1ce0: 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f 72 6d $blanks$sep[form
1cf0: 61 74 20 24 66 6d 74 20 24 74 63 6f 75 6e 74 5d at $fmt $tcount]
1d00: 20 5b 73 70 20 24 74 63 6f 75 6e 74 20 74 61 67 [sp $tcount tag
1d10: 5d 22 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 ]".. log writ
1d20: 65 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 e 2 repository "
1d30: 53 74 61 74 69 73 74 69 63 73 3a 20 24 62 6c 61 Statistics: $bla
1d40: 6e 6b 73 24 73 65 70 5b 66 6f 72 6d 61 74 20 24 nks$sep[format $
1d50: 66 6d 74 20 24 62 63 6f 75 6e 74 5d 20 5b 73 70 fmt $bcount] [sp
1d60: 20 24 62 63 6f 75 6e 74 20 62 72 61 6e 63 68 20 $bcount branch
1d70: 62 72 61 6e 63 68 65 73 5d 22 0a 09 20 20 20 20 branches]"..
1d80: 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f log write 2 repo
1d90: 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 sitory "Statisti
1da0: 63 73 3a 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b cs: $blanks$sep[
1db0: 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 73 63 6f format $fmt $sco
1dc0: 75 6e 74 5d 20 5b 73 70 20 24 73 63 6f 75 6e 74 unt] [sp $scount
1dd0: 20 73 79 6d 62 6f 6c 5d 22 0a 09 20 20 20 20 6c symbol]".. l
1de0: 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 og write 2 repos
1df0: 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 itory "Statistic
1e00: 73 3a 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 s: $blanks$sep[f
1e10: 6f 72 6d 61 74 20 24 66 6d 74 20 24 61 63 6f 75 ormat $fmt $acou
1e20: 6e 74 5d 20 5b 73 70 20 24 61 63 6f 75 6e 74 20 nt] [sp $acount
1e30: 61 75 74 68 6f 72 5d 22 0a 09 20 20 20 20 6c 6f author]".. lo
1e40: 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 g write 2 reposi
1e50: 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 tory "Statistics
1e60: 3a 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f : $blanks$sep[fo
1e70: 72 6d 61 74 20 24 66 6d 74 20 24 63 63 6f 75 6e rmat $fmt $ccoun
1e80: 74 5d 20 5b 73 70 20 24 63 63 6f 75 6e 74 20 7b t] [sp $ccount {
1e90: 6c 6f 67 20 6d 65 73 73 61 67 65 7d 5d 22 0a 09 log message}]"..
1ea0: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
1eb0: 0a 20 20 20 20 23 20 70 61 73 73 20 49 49 20 70 . # pass II p
1ec0: 65 72 73 69 73 74 65 6e 63 65 0a 20 20 20 20 74 ersistence. t
1ed0: 79 70 65 6d 65 74 68 6f 64 20 70 65 72 73 69 73 ypemethod persis
1ee0: 74 72 65 76 20 7b 7d 20 7b 0a 09 73 74 61 74 65 trev {} {..state
1ef0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 transaction {..
1f00: 20 20 20 20 53 61 76 65 41 75 74 68 6f 72 73 0a SaveAuthors.
1f10: 09 20 20 20 20 53 61 76 65 43 6f 6d 6d 69 74 4d . SaveCommitM
1f20: 65 73 73 61 67 65 73 0a 09 20 20 20 20 23 20 54 essages.. # T
1f30: 4f 44 4f 3a 20 53 61 76 65 20 73 79 6d 62 6f 6c ODO: Save symbol
1f40: 73 20 6f 66 20 61 6c 6c 20 70 72 6f 6a 65 63 74 s of all project
1f50: 73 20 28 62 65 66 6f 72 65 20 74 68 65 20 72 65 s (before the re
1f60: 76 69 73 69 6f 6e 73 0a 09 20 20 20 20 23 20 69 visions.. # i
1f70: 6e 20 74 68 65 20 70 72 6f 6a 65 63 74 73 2c 20 n the projects,
1f80: 61 73 20 74 68 65 79 20 61 72 65 20 72 65 66 65 as they are refe
1f90: 72 65 6e 63 65 64 20 62 79 20 74 68 65 20 6d 65 renced by the me
1fa0: 74 61 0a 09 20 20 20 20 23 20 74 75 70 6c 65 73 ta.. # tuples
1fb0: 29 0a 09 20 20 20 20 53 61 76 65 4d 65 74 61 0a ).. SaveMeta.
1fc0: 09 20 20 20 20 66 6f 72 65 61 63 68 20 70 20 5b . foreach p [
1fd0: 54 68 65 50 72 6f 6a 65 63 74 73 5d 20 7b 20 24 TheProjects] { $
1fe0: 70 20 70 65 72 73 69 73 74 72 65 76 20 7d 0a 09 p persistrev }..
1ff0: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
2000: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
2010: 6c 6f 61 64 73 79 6d 62 6f 6c 73 20 7b 7d 20 7b loadsymbols {} {
2020: 0a 09 73 74 61 74 65 20 74 72 61 6e 73 61 63 74 ..state transact
2030: 69 6f 6e 20 7b 0a 09 20 20 20 20 23 20 57 65 20 ion {.. # We
2040: 6c 6f 61 64 20 74 68 65 20 73 79 6d 62 6f 6c 20 load the symbol
2050: 69 64 73 20 61 74 20 6c 61 72 67 65 20 74 6f 20 ids at large to
2060: 68 61 76 65 20 74 68 65 20 6d 61 70 70 69 6e 67 have the mapping
2070: 0a 09 20 20 20 20 23 20 72 69 67 68 74 20 66 72 .. # right fr
2080: 6f 6d 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 om the beginning
2090: 2e 0a 0a 09 20 20 20 20 73 74 61 74 65 20 66 6f .... state fo
20a0: 72 65 61 63 68 72 6f 77 20 7b 0a 09 09 53 45 4c reachrow {...SEL
20b0: 45 43 54 20 73 69 64 2c 20 70 69 64 2c 20 6e 61 ECT sid, pid, na
20c0: 6d 65 2c 20 74 61 67 5f 63 6f 75 6e 74 20 41 53 me, tag_count AS
20d0: 20 74 63 2c 20 62 72 61 6e 63 68 5f 63 6f 75 6e tc, branch_coun
20e0: 74 20 41 53 20 62 63 2c 20 63 6f 6d 6d 69 74 5f t AS bc, commit_
20f0: 63 6f 75 6e 74 20 41 53 20 63 63 0a 09 09 46 52 count AS cc...FR
2100: 4f 4d 20 73 79 6d 62 6f 6c 0a 09 20 20 20 20 7d OM symbol.. }
2110: 20 7b 0a 09 09 24 6d 79 73 79 6d 62 6f 6c 20 6d {...$mysymbol m
2120: 61 70 20 24 73 69 64 20 5b 6c 69 73 74 20 24 70 ap $sid [list $p
2130: 69 64 20 24 6e 61 6d 65 5d 0a 09 09 73 65 74 20 id $name]...set
2140: 70 72 6f 6a 65 63 74 20 24 6d 79 70 72 6f 6a 6d project $myprojm
2150: 61 70 28 24 70 69 64 29 0a 0a 09 09 73 65 74 20 ap($pid)....set
2160: 66 6f 72 63 65 20 20 5b 24 70 72 6f 6a 65 63 74 force [$project
2170: 20 68 61 73 73 79 6d 62 6f 6c 20 24 6e 61 6d 65 hassymbol $name
2180: 5d 0a 09 09 73 65 74 20 73 79 6d 62 6f 6c 20 5b ]...set symbol [
2190: 24 70 72 6f 6a 65 63 74 20 67 65 74 73 79 6d 62 $project getsymb
21a0: 6f 6c 20 24 6e 61 6d 65 5d 0a 0a 09 09 23 20 46 ol $name]....# F
21b0: 6f 72 63 69 6e 67 20 68 61 70 70 65 6e 73 20 6f orcing happens o
21c0: 6e 6c 79 20 66 6f 72 20 74 68 65 20 74 72 75 6e nly for the trun
21d0: 6b 73 2e 0a 09 09 69 66 20 7b 24 66 6f 72 63 65 ks....if {$force
21e0: 7d 20 7b 20 24 73 79 6d 62 6f 6c 20 66 6f 72 63 } { $symbol forc
21f0: 65 69 64 20 24 73 69 64 20 7d 0a 0a 09 09 23 20 eid $sid }....#
2200: 53 65 74 20 74 68 65 20 6c 6f 61 64 65 64 20 63 Set the loaded c
2210: 6f 75 6e 74 73 2e 0a 09 09 24 73 79 6d 62 6f 6c ounts....$symbol
2220: 20 64 65 66 63 6f 75 6e 74 73 20 24 74 63 20 24 defcounts $tc $
2230: 62 63 20 24 63 63 0a 0a 09 09 23 20 4e 6f 74 65 bc $cc....# Note
2240: 3a 20 54 68 65 20 74 79 70 65 20 69 73 20 6e 65 : The type is ne
2250: 69 74 68 65 72 20 72 65 74 72 69 65 76 65 64 20 ither retrieved
2260: 6e 6f 72 20 73 65 74 2c 20 66 6f 72 0a 09 09 23 nor set, for...#
2270: 20 74 68 69 73 20 69 73 20 75 73 65 64 20 74 6f this is used to
2280: 20 6c 6f 61 64 20 74 68 65 20 70 61 73 73 20 49 load the pass I
2290: 49 20 64 61 74 61 2c 20 77 68 69 63 68 20 6d 65 I data, which me
22a0: 61 6e 73 0a 09 09 23 20 74 68 61 74 20 65 76 65 ans...# that eve
22b0: 72 79 74 68 69 6e 67 20 69 73 20 27 75 6e 64 65 rything is 'unde
22c0: 66 69 6e 65 64 27 20 61 74 20 74 68 69 73 20 70 fined' at this p
22d0: 6f 69 6e 74 20 61 6e 79 77 61 79 2e 0a 0a 09 09 oint anyway.....
22e0: 23 20 66 75 74 75 72 65 3a 20 24 73 79 6d 62 6f # future: $symbo
22f0: 6c 20 6c 6f 61 64 20 28 62 6c 6f 63 6b 65 72 73 l load (blockers
2300: 2c 20 61 6e 64 20 70 61 72 65 6e 74 73 29 0a 09 , and parents)..
2310: 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 20 42 65 }... # Be
2320: 79 6f 6e 64 20 74 68 65 20 73 79 6d 62 6f 6c 73 yond the symbols
2330: 20 77 65 20 61 6c 73 6f 20 6c 6f 61 64 20 74 68 we also load th
2340: 65 20 61 75 74 68 6f 72 2c 20 63 6f 6d 6d 69 74 e author, commit
2350: 20 6c 6f 67 2c 0a 09 20 20 20 20 23 20 61 6e 64 log,.. # and
2360: 20 6d 65 74 61 20 69 6e 66 6f 72 6d 61 74 69 6f meta informatio
2370: 6e 2e 0a 0a 09 20 20 20 20 73 74 61 74 65 20 66 n.... state f
2380: 6f 72 65 61 63 68 72 6f 77 20 7b 0a 09 09 53 45 oreachrow {...SE
2390: 4c 45 43 54 20 61 69 64 2c 20 6e 61 6d 65 20 41 LECT aid, name A
23a0: 53 20 61 6e 61 6d 65 20 46 52 4f 4d 20 61 75 74 S aname FROM aut
23b0: 68 6f 72 0a 09 20 20 20 20 7d 20 7b 0a 09 09 24 hor.. } {...$
23c0: 6d 79 61 75 74 68 6f 72 20 6d 61 70 20 24 61 69 myauthor map $ai
23d0: 64 20 24 61 6e 61 6d 65 0a 09 20 20 20 20 7d 0a d $aname.. }.
23e0: 09 20 20 20 20 73 74 61 74 65 20 66 6f 72 65 61 . state forea
23f0: 63 68 72 6f 77 20 7b 0a 09 09 53 45 4c 45 43 54 chrow {...SELECT
2400: 20 63 69 64 2c 20 74 65 78 74 20 46 52 4f 4d 20 cid, text FROM
2410: 63 6d 65 73 73 61 67 65 0a 09 20 20 20 20 7d 20 cmessage.. }
2420: 7b 0a 09 09 24 6d 79 63 6d 73 67 20 6d 61 70 20 {...$mycmsg map
2430: 24 63 69 64 20 24 74 65 78 74 0a 09 20 20 20 20 $cid $text..
2440: 7d 0a 09 20 20 20 20 73 74 61 74 65 20 66 6f 72 }.. state for
2450: 65 61 63 68 72 6f 77 20 7b 0a 09 09 53 45 4c 45 eachrow {...SELE
2460: 43 54 20 6d 69 64 2c 20 70 69 64 2c 20 62 69 64 CT mid, pid, bid
2470: 2c 20 61 69 64 2c 20 63 69 64 20 46 52 4f 4d 20 , aid, cid FROM
2480: 6d 65 74 61 0a 09 20 20 20 20 7d 20 7b 0a 09 09 meta.. } {...
2490: 24 6d 79 6d 65 74 61 20 6d 61 70 20 24 6d 69 64 $mymeta map $mid
24a0: 20 5b 6c 69 73 74 20 24 70 69 64 20 24 62 69 64 [list $pid $bid
24b0: 20 24 61 69 64 20 24 63 69 64 5d 0a 09 20 20 20 $aid $cid]..
24c0: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
24d0: 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 }.. typemet
24e0: 68 6f 64 20 64 65 74 65 72 6d 69 6e 65 73 79 6d hod determinesym
24f0: 62 6f 6c 74 79 70 65 73 20 7b 7d 20 7b 0a 09 66 boltypes {} {..f
2500: 6f 72 65 61 63 68 20 70 72 6f 6a 65 63 74 20 5b oreach project [
2510: 54 68 65 50 72 6f 6a 65 63 74 73 5d 20 7b 0a 09 TheProjects] {..
2520: 20 20 20 20 24 70 72 6f 6a 65 63 74 20 64 65 74 $project det
2530: 65 72 6d 69 6e 65 73 79 6d 62 6f 6c 74 79 70 65 erminesymboltype
2540: 73 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 s..}..return.
2550: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
2560: 6f 64 20 70 72 6f 6a 65 63 74 6f 66 20 7b 70 69 od projectof {pi
2570: 64 7d 20 7b 0a 09 72 65 74 75 72 6e 20 24 6d 79 d} {..return $my
2580: 70 72 6f 6a 6d 61 70 28 24 70 69 64 29 0a 20 20 projmap($pid).
2590: 20 20 7d 0a 0a 0a 20 20 20 20 23 20 70 61 73 73 }... # pass
25a0: 20 49 56 2b 20 72 65 73 75 6c 74 73 0a 20 20 20 IV+ results.
25b0: 20 74 79 70 65 6d 65 74 68 6f 64 20 70 72 69 6e typemethod prin
25c0: 74 63 73 65 74 73 74 61 74 69 73 74 69 63 73 20 tcsetstatistics
25d0: 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 74 65 20 {} {..log write
25e0: 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 43 68 2 repository "Ch
25f0: 61 6e 67 65 73 65 74 20 73 74 61 74 69 73 74 69 angeset statisti
2600: 63 73 22 0a 09 23 20 6e 75 6d 62 65 72 20 6f 66 cs"..# number of
2610: 20 72 65 76 69 73 69 6f 6e 73 2c 20 73 79 6d 62 revisions, symb
2620: 6f 6c 73 2c 20 72 65 70 6f 73 69 74 6f 72 79 20 ols, repository
2630: 77 69 64 65 2c 20 61 6e 64 20 70 65 72 20 70 72 wide, and per pr
2640: 6f 6a 65 63 74 20 2e 2e 2e 0a 0a 09 73 65 74 20 oject ......set
2650: 63 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e ccount [state on
2660: 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 e { SELECT COUNT
2670: 20 28 2a 29 20 46 52 4f 4d 20 63 68 61 6e 67 65 (*) FROM change
2680: 73 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20 set
2690: 20 20 20 7d 5d 0a 09 73 65 74 20 72 63 6f 75 6e }]..set rcoun
26a0: 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 t [state one { S
26b0: 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 ELECT COUNT (*)
26c0: 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 57 FROM changeset W
26d0: 48 45 52 45 20 74 79 70 65 20 3d 20 30 20 7d 5d HERE type = 0 }]
26e0: 0a 09 73 65 74 20 74 63 6f 75 6e 74 20 5b 73 74 ..set tcount [st
26f0: 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 ate one { SELECT
2700: 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 COUNT (*) FROM
2710: 63 68 61 6e 67 65 73 65 74 20 57 48 45 52 45 20 changeset WHERE
2720: 74 79 70 65 20 3d 20 31 20 7d 5d 0a 09 73 65 74 type = 1 }]..set
2730: 20 62 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f bcount [state o
2740: 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e ne { SELECT COUN
2750: 54 20 28 2a 29 20 46 52 4f 4d 20 63 68 61 6e 67 T (*) FROM chang
2760: 65 73 65 74 20 57 48 45 52 45 20 74 79 70 65 20 eset WHERE type
2770: 3d 20 32 20 7d 5d 0a 09 73 65 74 20 66 6d 74 20 = 2 }]..set fmt
2780: 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 %[string length
2790: 5b 6d 61 78 20 5b 6c 69 73 74 20 24 63 63 6f 75 [max [list $ccou
27a0: 6e 74 20 24 72 63 6f 75 6e 74 20 24 74 63 6f 75 nt $rcount $tcou
27b0: 6e 74 20 24 62 63 6f 75 6e 74 5d 5d 5d 73 0a 0a nt $bcount]]]s..
27c0: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 .log write 2 rep
27d0: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
27e0: 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d ics: [format $fm
27f0: 74 20 24 63 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $ccount] [sp $
2800: 63 63 6f 75 6e 74 20 63 68 61 6e 67 65 73 65 74 ccount changeset
2810: 5d 22 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 ]"..log write 2
2820: 72 65 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 repository "Stat
2830: 69 73 74 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 istics: [format
2840: 24 66 6d 74 20 24 72 63 6f 75 6e 74 5d 20 5b 73 $fmt $rcount] [s
2850: 70 20 24 72 63 6f 75 6e 74 20 7b 72 65 76 69 73 p $rcount {revis
2860: 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 ion changeset}]"
2870: 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 ..log write 2 re
2880: 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 pository "Statis
2890: 74 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 tics: [format $f
28a0: 6d 74 20 24 74 63 6f 75 6e 74 5d 20 5b 73 70 20 mt $tcount] [sp
28b0: 24 74 63 6f 75 6e 74 20 7b 74 61 67 20 73 79 6d $tcount {tag sym
28c0: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 bol changeset}]"
28d0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 ..log write 2 re
28e0: 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 pository "Statis
28f0: 74 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 tics: [format $f
2900: 6d 74 20 24 62 63 6f 75 6e 74 5d 20 5b 73 70 20 mt $bcount] [sp
2910: 24 62 63 6f 75 6e 74 20 7b 62 72 61 6e 63 68 20 $bcount {branch
2920: 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 symbol changeset
2930: 7d 5d 22 0a 0a 09 73 65 74 20 70 72 6c 69 73 74 }]"...set prlist
2940: 20 5b 54 68 65 50 72 6f 6a 65 63 74 73 5d 0a 09 [TheProjects]..
2950: 73 65 74 20 6e 70 72 20 5b 6c 6c 65 6e 67 74 68 set npr [llength
2960: 20 24 70 72 6c 69 73 74 5d 0a 0a 09 69 66 20 7b $prlist]...if {
2970: 24 6e 70 72 20 3e 20 31 7d 20 7b 0a 09 20 20 20 $npr > 1} {..
2980: 20 73 65 74 20 20 62 6d 61 78 20 5b 6d 61 78 20 set bmax [max
2990: 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 [struct::list ma
29a0: 70 20 24 70 72 6c 69 73 74 20 5b 6d 79 70 72 6f p $prlist [mypro
29b0: 63 20 2e 42 61 73 65 4c 65 6e 67 74 68 5d 5d 5d c .BaseLength]]]
29c0: 0a 09 20 20 20 20 69 6e 63 72 20 62 6d 61 78 20 .. incr bmax
29d0: 32 0a 09 20 20 20 20 73 65 74 20 20 62 66 6d 74 2.. set bfmt
29e0: 20 25 2d 24 7b 62 6d 61 78 7d 73 0a 09 7d 20 65 %-${bmax}s..} e
29f0: 6c 73 65 20 7b 0a 09 20 20 20 20 73 65 74 20 62 lse {.. set b
2a00: 66 6d 74 20 25 73 0a 09 7d 0a 0a 09 66 6f 72 65 fmt %s..}...fore
2a10: 61 63 68 20 70 20 24 70 72 6c 69 73 74 20 7b 0a ach p $prlist {.
2a20: 09 20 20 20 20 73 65 74 20 70 69 64 20 5b 24 70 . set pid [$p
2a30: 20 69 64 5d 0a 09 20 20 20 20 73 65 74 20 70 72 id].. set pr
2a40: 65 66 69 78 20 22 50 72 6f 6a 65 63 74 20 5b 66 efix "Project [f
2a50: 6f 72 6d 61 74 20 24 62 66 6d 74 20 5c 22 5b 24 ormat $bfmt \"[$
2a60: 70 20 70 72 69 6e 74 62 61 73 65 5d 5c 22 5d 22 p printbase]\"]"
2a70: 0a 09 20 20 20 20 72 65 67 73 75 62 20 2d 61 6c .. regsub -al
2a80: 6c 20 7b 5b 5e 09 5d 7d 20 24 70 72 65 66 69 78 l {[^.]} $prefix
2a90: 20 7b 20 7d 20 62 6c 61 6e 6b 73 0a 09 20 20 20 { } blanks..
2aa0: 20 73 65 74 20 73 65 70 20 22 20 3a 20 22 0a 0a set sep " : "..
2ab0: 09 20 20 20 20 73 65 74 20 63 63 6f 75 6e 74 20 . set ccount
2ac0: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c [state one { SEL
2ad0: 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 ECT COUNT (*) FR
2ae0: 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 57 48 45 OM changeset WHE
2af0: 52 45 20 70 69 64 20 3d 20 24 70 69 64 20 20 20 RE pid = $pid
2b00: 20 20 20 20 20 20 20 20 20 20 20 7d 5d 0a 09 20 }]..
2b10: 20 20 20 73 65 74 20 72 63 6f 75 6e 74 20 5b 73 set rcount [s
2b20: 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 tate one { SELEC
2b30: 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d T COUNT (*) FROM
2b40: 20 63 68 61 6e 67 65 73 65 74 20 57 48 45 52 45 changeset WHERE
2b50: 20 70 69 64 20 3d 20 24 70 69 64 20 41 4e 44 20 pid = $pid AND
2b60: 74 79 70 65 20 3d 20 30 20 7d 5d 0a 09 20 20 20 type = 0 }]..
2b70: 20 73 65 74 20 74 63 6f 75 6e 74 20 5b 73 74 61 set tcount [sta
2b80: 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 te one { SELECT
2b90: 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 63 COUNT (*) FROM c
2ba0: 68 61 6e 67 65 73 65 74 20 57 48 45 52 45 20 70 hangeset WHERE p
2bb0: 69 64 20 3d 20 24 70 69 64 20 41 4e 44 20 74 79 id = $pid AND ty
2bc0: 70 65 20 3d 20 31 20 7d 5d 0a 09 20 20 20 20 73 pe = 1 }].. s
2bd0: 65 74 20 62 63 6f 75 6e 74 20 5b 73 74 61 74 65 et bcount [state
2be0: 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f one { SELECT CO
2bf0: 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 63 68 61 UNT (*) FROM cha
2c00: 6e 67 65 73 65 74 20 57 48 45 52 45 20 70 69 64 ngeset WHERE pid
2c10: 20 3d 20 24 70 69 64 20 41 4e 44 20 74 79 70 65 = $pid AND type
2c20: 20 3d 20 32 20 7d 5d 0a 0a 09 20 20 20 20 6c 6f = 2 }]... lo
2c30: 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 g write 2 reposi
2c40: 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 tory "Statistics
2c50: 3a 20 24 70 72 65 66 69 78 24 73 65 70 5b 66 6f : $prefix$sep[fo
2c60: 72 6d 61 74 20 24 66 6d 74 20 24 63 63 6f 75 6e rmat $fmt $ccoun
2c70: 74 5d 20 5b 73 70 20 24 63 63 6f 75 6e 74 20 63 t] [sp $ccount c
2c80: 68 61 6e 67 65 73 65 74 5d 22 0a 09 20 20 20 20 hangeset]"..
2c90: 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f log write 2 repo
2ca0: 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 sitory "Statisti
2cb0: 63 73 3a 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b cs: $blanks$sep[
2cc0: 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 72 63 6f format $fmt $rco
2cd0: 75 6e 74 5d 20 5b 73 70 20 24 72 63 6f 75 6e 74 unt] [sp $rcount
2ce0: 20 7b 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 {revision chang
2cf0: 65 73 65 74 7d 5d 22 0a 09 20 20 20 20 6c 6f 67 eset}]".. log
2d00: 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 write 2 reposit
2d10: 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 3a ory "Statistics:
2d20: 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f 72 $blanks$sep[for
2d30: 6d 61 74 20 24 66 6d 74 20 24 74 63 6f 75 6e 74 mat $fmt $tcount
2d40: 5d 20 5b 73 70 20 24 74 63 6f 75 6e 74 20 7b 74 ] [sp $tcount {t
2d50: 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 ag symbol change
2d60: 73 65 74 7d 5d 22 0a 09 20 20 20 20 6c 6f 67 20 set}]".. log
2d70: 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 6f write 2 reposito
2d80: 72 79 20 22 53 74 61 74 69 73 74 69 63 73 3a 20 ry "Statistics:
2d90: 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f 72 6d $blanks$sep[form
2da0: 61 74 20 24 66 6d 74 20 24 62 63 6f 75 6e 74 5d at $fmt $bcount]
2db0: 20 5b 73 70 20 24 62 63 6f 75 6e 74 20 7b 62 72 [sp $bcount {br
2dc0: 61 6e 63 68 20 73 79 6d 62 6f 6c 20 63 68 61 6e anch symbol chan
2dd0: 67 65 73 65 74 7d 5d 22 0a 09 7d 0a 09 72 65 74 geset}]"..}..ret
2de0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
2df0: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
2e00: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
2e10: 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 53 74 ######. ## St
2e20: 61 74 65 0a 0a 20 20 20 20 74 79 70 65 76 61 72 ate.. typevar
2e30: 69 61 62 6c 65 20 6d 79 62 61 73 65 20 20 20 20 iable mybase
2e40: 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 42 61 {} ; # Ba
2e50: 73 65 20 70 61 74 68 20 74 6f 20 43 56 53 20 72 se path to CVS r
2e60: 65 70 6f 73 69 74 6f 72 79 2e 0a 20 20 20 20 74 epository.. t
2e70: 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 70 72 ypevariable mypr
2e80: 6f 6a 70 61 74 68 73 20 20 20 20 20 20 7b 7d 20 ojpaths {}
2e90: 3b 20 23 20 4c 69 73 74 20 6f 66 20 70 61 74 68 ; # List of path
2ea0: 73 20 74 6f 20 61 6c 6c 20 64 65 63 6c 61 72 65 s to all declare
2eb0: 64 0a 09 09 09 09 20 20 20 20 20 20 20 23 20 70 d..... # p
2ec0: 72 6f 6a 65 63 74 73 2c 20 72 65 6c 61 74 69 76 rojects, relativ
2ed0: 65 20 74 6f 20 6d 79 62 61 73 65 2e 0a 20 20 20 e to mybase..
2ee0: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
2ef0: 70 72 6f 6a 65 63 74 73 20 20 20 20 20 20 20 7b projects {
2f00: 7d 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 6f 62 } ; # List of ob
2f10: 6a 65 63 74 73 20 66 6f 72 20 61 6c 6c 0a 09 09 jects for all...
2f20: 09 09 20 20 20 20 20 20 20 23 20 64 65 63 6c 61 .. # decla
2f30: 72 65 64 20 70 72 6f 6a 65 63 74 73 2e 0a 20 20 red projects..
2f40: 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d typevariable m
2f50: 79 70 72 6f 6a 6d 61 70 20 2d 61 72 72 61 79 20 yprojmap -array
2f60: 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d 20 {} ; # Map from
2f70: 70 72 6f 6a 65 63 74 20 69 64 73 20 74 6f 20 74 project ids to t
2f80: 68 65 69 72 0a 09 09 09 09 20 20 20 20 20 20 20 heir.....
2f90: 23 20 6f 62 6a 65 63 74 73 2e 0a 20 20 20 20 74 # objects.. t
2fa0: 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 61 75 ypevariable myau
2fb0: 74 68 6f 72 20 20 20 20 20 20 20 20 20 7b 7d 20 thor {}
2fc0: 3b 20 23 20 4e 61 6d 65 73 20 6f 66 20 61 6c 6c ; # Names of all
2fd0: 20 61 75 74 68 6f 72 73 20 66 6f 75 6e 64 2c 0a authors found,.
2fe0: 09 09 09 09 20 20 20 20 20 20 20 23 20 6d 61 70 .... # map
2ff0: 73 20 74 6f 20 74 68 65 69 72 20 69 64 73 2e 0a s to their ids..
3000: 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 typevariable
3010: 20 6d 79 63 6d 73 67 20 20 20 20 20 20 20 20 20 mycmsg
3020: 20 20 7b 7d 20 3b 20 23 20 41 6c 6c 20 63 6f 6d {} ; # All com
3030: 6d 69 74 20 6d 65 73 73 61 67 65 73 20 66 6f 75 mit messages fou
3040: 6e 64 2c 0a 09 09 09 09 20 20 20 20 20 20 20 23 nd,..... #
3050: 20 6d 61 70 73 20 74 6f 20 74 68 65 69 72 20 69 maps to their i
3060: 64 73 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 ds.. typevari
3070: 61 62 6c 65 20 6d 79 6d 65 74 61 20 20 20 20 20 able mymeta
3080: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 4d 61 70 {} ; # Map
3090: 73 20 61 6c 6c 20 6d 65 74 61 20 64 61 74 61 20 s all meta data
30a0: 74 75 70 6c 65 73 0a 09 09 09 09 20 20 20 20 20 tuples.....
30b0: 20 20 23 20 28 70 72 6f 6a 65 63 74 2c 20 62 72 # (project, br
30c0: 61 6e 63 68 2c 20 61 75 74 68 6f 72 2c 0a 09 09 anch, author,...
30d0: 09 09 20 20 20 20 20 20 20 23 20 63 6d 65 73 73 .. # cmess
30e0: 61 67 65 29 20 74 6f 20 74 68 65 69 72 20 69 64 age) to their id
30f0: 73 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 s.. typevaria
3100: 62 6c 65 20 6d 79 73 79 6d 62 6f 6c 20 20 20 20 ble mysymbol
3110: 20 20 20 20 20 7b 7d 20 3b 20 23 20 4d 61 70 20 {} ; # Map
3120: 73 79 6d 62 6f 6c 73 20 69 64 65 6e 74 69 66 69 symbols identifi
3130: 65 64 20 62 79 0a 09 09 09 09 20 20 20 20 20 20 ed by.....
3140: 20 23 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 6e # project and n
3150: 61 6d 65 20 74 6f 20 74 68 65 69 72 0a 09 09 09 ame to their....
3160: 09 20 20 20 20 20 20 20 23 20 69 64 2e 20 54 68 . # id. Th
3170: 69 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 is information i
3180: 73 20 6e 6f 74 0a 09 09 09 09 20 20 20 20 20 20 s not.....
3190: 20 23 20 73 61 76 65 64 20 64 69 72 65 63 74 6c # saved directl
31a0: 79 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 y.. typevaria
31b0: 62 6c 65 20 6d 79 74 72 75 6e 6b 6f 6e 6c 79 20 ble mytrunkonly
31c0: 20 20 20 20 20 30 20 20 3b 20 23 20 42 6f 6f 6c 0 ; # Bool
31d0: 65 61 6e 20 66 6c 61 67 2e 20 53 65 74 20 62 79 ean flag. Set by
31e0: 20 6f 70 74 69 6f 6e 0a 09 09 09 09 20 20 20 20 option.....
31f0: 20 20 20 23 20 70 72 6f 63 65 73 73 69 6e 67 20 # processing
3200: 77 68 65 6e 20 74 68 65 20 75 73 65 72 0a 09 09 when the user...
3210: 09 09 20 20 20 20 20 20 20 23 20 72 65 71 75 65 .. # reque
3220: 73 74 65 64 20 61 20 74 72 75 6e 6b 2d 6f 6e 6c sted a trunk-onl
3230: 79 20 69 6d 70 6f 72 74 0a 0a 20 20 20 20 23 20 y import.. #
3240: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
3250: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
3260: 23 23 23 23 23 0a 20 20 20 20 23 23 20 49 6e 74 #####. ## Int
3270: 65 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 ernal methods..
3280: 20 20 20 74 79 70 65 63 6f 6e 73 74 72 75 63 74 typeconstruct
3290: 6f 72 20 7b 0a 09 73 65 74 20 6d 79 61 75 74 68 or {..set myauth
32a0: 6f 72 20 5b 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 69 or [vc::tools::i
32b0: 64 20 25 41 55 54 4f 25 5d 0a 09 73 65 74 20 6d d %AUTO%]..set m
32c0: 79 63 6d 73 67 20 20 20 5b 76 63 3a 3a 74 6f 6f ycmsg [vc::too
32d0: 6c 73 3a 3a 69 64 20 25 41 55 54 4f 25 5d 0a 09 ls::id %AUTO%]..
32e0: 73 65 74 20 6d 79 6d 65 74 61 20 20 20 5b 76 63 set mymeta [vc
32f0: 3a 3a 74 6f 6f 6c 73 3a 3a 69 64 20 25 41 55 54 ::tools::id %AUT
3300: 4f 25 5d 0a 09 73 65 74 20 6d 79 73 79 6d 62 6f O%]..set mysymbo
3310: 6c 20 5b 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 69 64 l [vc::tools::id
3320: 20 25 41 55 54 4f 25 5d 0a 09 72 65 74 75 72 6e %AUTO%]..return
3330: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
3340: 20 2e 42 61 73 65 4c 65 6e 67 74 68 20 7b 70 7d .BaseLength {p}
3350: 20 7b 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 69 {..return [stri
3360: 6e 67 20 6c 65 6e 67 74 68 20 5b 24 70 20 70 72 ng length [$p pr
3370: 69 6e 74 62 61 73 65 5d 5d 0a 20 20 20 20 7d 0a intbase]]. }.
3380: 0a 20 20 20 20 70 72 6f 63 20 2e 4e 46 69 6c 65 . proc .NFile
3390: 4c 65 6e 67 74 68 20 7b 70 7d 20 7b 0a 09 72 65 Length {p} {..re
33a0: 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e turn [string len
33b0: 67 74 68 20 5b 6c 6c 65 6e 67 74 68 20 5b 24 70 gth [llength [$p
33c0: 20 66 69 6c 65 6e 61 6d 65 73 5d 5d 5d 0a 20 20 filenames]]].
33d0: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 73 }.. proc Is
33e0: 52 65 70 6f 73 69 74 6f 72 79 42 61 73 65 20 7b RepositoryBase {
33f0: 70 61 74 68 20 6d 76 7d 20 7b 0a 09 3a 3a 76 61 path mv} {..::va
3400: 72 69 61 62 6c 65 20 6d 79 62 61 73 65 0a 09 75 riable mybase..u
3410: 70 76 61 72 20 31 20 24 6d 76 20 6d 73 67 0a 09 pvar 1 $mv msg..
3420: 69 66 20 7b 21 5b 66 69 6c 65 75 74 69 6c 3a 3a if {![fileutil::
3430: 74 65 73 74 20 24 6d 79 62 61 73 65 20 20 20 20 test $mybase
3440: 20 20 20 20 20 65 64 72 20 6d 73 67 20 7b 43 56 edr msg {CV
3450: 53 20 52 65 70 6f 73 69 74 6f 72 79 7d 5d 7d 20 S Repository}]}
3460: 20 20 20 20 20 7b 72 65 74 75 72 6e 20 30 7d 0a {return 0}.
3470: 09 69 66 20 7b 21 5b 66 69 6c 65 75 74 69 6c 3a .if {![fileutil:
3480: 3a 74 65 73 74 20 24 6d 79 62 61 73 65 2f 43 56 :test $mybase/CV
3490: 53 52 4f 4f 54 20 65 64 72 20 6d 73 67 20 7b 43 SROOT edr msg {C
34a0: 56 53 20 41 64 6d 69 6e 20 44 69 72 65 63 74 6f VS Admin Directo
34b0: 72 79 7d 5d 7d 20 7b 72 65 74 75 72 6e 20 30 7d ry}]} {return 0}
34c0: 0a 09 72 65 74 75 72 6e 20 31 0a 20 20 20 20 7d ..return 1. }
34d0: 0a 0a 20 20 20 20 70 72 6f 63 20 49 73 50 72 6f .. proc IsPro
34e0: 6a 65 63 74 42 61 73 65 20 7b 70 61 74 68 20 61 jectBase {path a
34f0: 64 6d 69 6e 20 6d 76 7d 20 7b 0a 09 75 70 76 61 dmin mv} {..upva
3500: 72 20 31 20 24 6d 76 20 6d 73 67 0a 09 69 66 20 r 1 $mv msg..if
3510: 7b 21 5b 66 69 6c 65 75 74 69 6c 3a 3a 74 65 73 {![fileutil::tes
3520: 74 20 24 70 61 74 68 20 65 64 72 20 6d 73 67 20 t $path edr msg
3530: 50 72 6f 6a 65 63 74 5d 7d 20 7b 72 65 74 75 72 Project]} {retur
3540: 6e 20 30 7d 0a 09 69 66 20 7b 0a 09 20 20 20 20 n 0}..if {..
3550: 28 24 70 61 74 68 20 65 71 20 24 61 64 6d 69 6e ($path eq $admin
3560: 29 20 7c 7c 0a 09 20 20 20 20 5b 73 74 72 69 6e ) ||.. [strin
3570: 67 20 6d 61 74 63 68 20 24 61 64 6d 69 6e 2f 2a g match $admin/*
3580: 20 24 70 61 74 68 5d 0a 09 7d 20 7b 0a 09 20 20 $path]..} {..
3590: 20 20 73 65 74 20 6d 73 67 20 22 41 64 6d 69 6e set msg "Admin
35a0: 69 73 74 72 61 74 69 76 65 20 73 75 62 64 69 72 istrative subdir
35b0: 65 63 74 6f 72 79 20 24 70 61 74 68 20 63 61 6e ectory $path can
35c0: 6e 6f 74 20 62 65 20 61 20 70 72 6f 6a 65 63 74 not be a project
35d0: 22 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 0a ".. return 0.
35e0: 09 7d 0a 09 72 65 74 75 72 6e 20 31 0a 20 20 20 .}..return 1.
35f0: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 54 68 65 }.. proc The
3600: 50 72 6f 6a 65 63 74 73 20 7b 7d 20 7b 0a 09 75 Projects {} {..u
3610: 70 76 61 72 20 31 20 74 79 70 65 20 74 79 70 65 pvar 1 type type
3620: 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 70 ..::variable myp
3630: 72 6f 6a 65 63 74 73 0a 09 3a 3a 76 61 72 69 61 rojects..::varia
3640: 62 6c 65 20 6d 79 70 72 6f 6a 70 61 74 68 73 0a ble myprojpaths.
3650: 0a 09 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 ..if {![llength
3660: 24 6d 79 70 72 6f 6a 65 63 74 73 5d 7d 20 7b 0a $myprojects]} {.
3670: 09 20 20 20 20 73 65 74 20 6d 79 70 72 6f 6a 65 . set myproje
3680: 63 74 73 20 5b 45 6d 70 74 79 50 72 6f 6a 65 63 cts [EmptyProjec
3690: 74 73 20 24 6d 79 70 72 6f 6a 70 61 74 68 73 5d ts $myprojpaths]
36a0: 0a 09 7d 0a 09 72 65 74 75 72 6e 20 24 6d 79 70 ..}..return $myp
36b0: 72 6f 6a 65 63 74 73 0a 20 20 20 20 7d 0a 0a 20 rojects. }..
36c0: 20 20 20 70 72 6f 63 20 45 6d 70 74 79 50 72 6f proc EmptyPro
36d0: 6a 65 63 74 73 20 7b 70 72 6f 6a 70 61 74 68 73 jects {projpaths
36e0: 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 } {..::variable
36f0: 6d 79 62 61 73 65 0a 09 75 70 76 61 72 20 31 20 mybase..upvar 1
3700: 74 79 70 65 20 74 79 70 65 0a 09 73 65 74 20 72 type type..set r
3710: 65 73 20 7b 7d 0a 09 69 66 20 7b 5b 6c 6c 65 6e es {}..if {[llen
3720: 67 74 68 20 24 70 72 6f 6a 70 61 74 68 73 5d 7d gth $projpaths]}
3730: 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 {.. foreach
3740: 70 70 20 24 70 72 6f 6a 70 61 74 68 73 20 7b 0a pp $projpaths {.
3750: 09 09 6c 61 70 70 65 6e 64 20 72 65 73 20 5b 70 ..lappend res [p
3760: 72 6f 6a 65 63 74 20 25 41 55 54 4f 25 20 24 70 roject %AUTO% $p
3770: 70 20 24 74 79 70 65 5d 0a 09 20 20 20 20 7d 0a p $type].. }.
3780: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 23 .} else {.. #
3790: 20 42 61 73 65 20 69 73 20 74 68 65 20 73 69 6e Base is the sin
37a0: 67 6c 65 20 70 72 6f 6a 65 63 74 2e 0a 09 20 20 gle project...
37b0: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 5b 70 lappend res [p
37c0: 72 6f 6a 65 63 74 20 25 41 55 54 4f 25 20 22 22 roject %AUTO% ""
37d0: 20 24 74 79 70 65 5d 0a 09 7d 0a 09 72 65 74 75 $type]..}..retu
37e0: 72 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 rn $res. }..
37f0: 20 20 20 70 72 6f 63 20 53 61 76 65 41 75 74 68 proc SaveAuth
3800: 6f 72 73 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 ors {} {..::vari
3810: 61 62 6c 65 20 6d 79 61 75 74 68 6f 72 0a 09 66 able myauthor..f
3820: 6f 72 65 61 63 68 20 7b 6e 61 6d 65 20 61 69 64 oreach {name aid
3830: 7d 20 5b 24 6d 79 61 75 74 68 6f 72 20 67 65 74 } [$myauthor get
3840: 5d 20 7b 0a 09 20 20 20 20 73 74 61 74 65 20 72 ] {.. state r
3850: 75 6e 20 7b 0a 09 09 49 4e 53 45 52 54 20 49 4e un {...INSERT IN
3860: 54 4f 20 61 75 74 68 6f 72 20 28 20 61 69 64 2c TO author ( aid,
3870: 20 20 6e 61 6d 65 29 0a 09 09 56 41 4c 55 45 53 name)...VALUES
3880: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 61 ($a
3890: 69 64 2c 20 24 6e 61 6d 65 29 3b 0a 09 20 20 20 id, $name);..
38a0: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
38b0: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 53 61 }.. proc Sa
38c0: 76 65 43 6f 6d 6d 69 74 4d 65 73 73 61 67 65 73 veCommitMessages
38d0: 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c {} {..::variabl
38e0: 65 20 6d 79 63 6d 73 67 0a 09 66 6f 72 65 61 63 e mycmsg..foreac
38f0: 68 20 7b 74 65 78 74 20 63 69 64 7d 20 5b 24 6d h {text cid} [$m
3900: 79 63 6d 73 67 20 67 65 74 5d 20 7b 0a 09 20 20 ycmsg get] {..
3910: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
3920: 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 6d 65 73 INSERT INTO cmes
3930: 73 61 67 65 20 28 20 63 69 64 2c 20 20 74 65 78 sage ( cid, tex
3940: 74 29 0a 09 09 56 41 4c 55 45 53 20 20 20 20 20 t)...VALUES
3950: 20 20 20 20 20 20 20 20 20 20 28 24 63 69 64 2c ($cid,
3960: 20 24 74 65 78 74 29 3b 0a 09 20 20 20 20 7d 0a $text);.. }.
3970: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
3980: 0a 0a 20 20 20 20 70 72 6f 63 20 53 61 76 65 4d .. proc SaveM
3990: 65 74 61 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 eta {} {..::vari
39a0: 61 62 6c 65 20 6d 79 6d 65 74 61 0a 09 66 6f 72 able mymeta..for
39b0: 65 61 63 68 20 7b 6b 65 79 20 6d 69 64 7d 20 5b each {key mid} [
39c0: 24 6d 79 6d 65 74 61 20 67 65 74 5d 20 7b 0a 09 $mymeta get] {..
39d0: 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 struct::list
39e0: 20 61 73 73 69 67 6e 20 24 6b 65 79 20 70 69 64 assign $key pid
39f0: 20 62 69 64 20 61 69 64 20 63 69 64 0a 09 20 20 bid aid cid..
3a00: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
3a10: 49 4e 53 45 52 54 20 49 4e 54 4f 20 6d 65 74 61 INSERT INTO meta
3a20: 20 28 20 6d 69 64 2c 20 20 70 69 64 2c 20 20 62 ( mid, pid, b
3a30: 69 64 2c 20 20 61 69 64 2c 20 20 63 69 64 29 0a id, aid, cid).
3a40: 09 09 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 ..VALUES
3a50: 20 20 20 28 24 6d 69 64 2c 20 24 70 69 64 2c 20 ($mid, $pid,
3a60: 24 62 69 64 2c 20 24 61 69 64 2c 20 24 63 69 64 $bid, $aid, $cid
3a70: 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 );.. }..}..re
3a80: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
3a90: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
3aa0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
3ab0: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 #######. ## C
3ac0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 onfiguration..
3ad0: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 73 pragma -hasins
3ae0: 74 61 6e 63 65 73 20 20 20 6e 6f 20 3b 20 23 20 tances no ; #
3af0: 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 20 20 70 72 singleton. pr
3b00: 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 agma -hastypeinf
3b10: 6f 20 20 20 20 6e 6f 20 3b 20 23 20 6e 6f 20 69 o no ; # no i
3b20: 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 ntrospection.
3b30: 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 pragma -hastype
3b40: 64 65 73 74 72 6f 79 20 6e 6f 20 3b 20 23 20 69 destroy no ; # i
3b50: 6d 6d 6f 72 74 61 6c 0a 0a 20 20 20 20 23 20 23 mmortal.. # #
3b60: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
3b70: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
3b80: 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 ####.}..namespac
3b90: 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 e eval ::vc::fos
3ba0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
3bb0: 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 {. namespace
3bc0: 20 65 78 70 6f 72 74 20 72 65 70 6f 73 69 74 6f export reposito
3bd0: 72 79 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 ry. namespace
3be0: 20 65 76 61 6c 20 72 65 70 6f 73 69 74 6f 72 79 eval repository
3bf0: 20 7b 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d {..namespace im
3c00: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
3c10: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
3c20: 70 72 6f 6a 65 63 74 0a 09 6e 61 6d 65 73 70 61 project..namespa
3c30: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
3c40: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
3c50: 63 76 73 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 cvs::state..name
3c60: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
3c70: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a c::tools::misc::
3c80: 2a 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 *..namespace imp
3c90: 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a ort ::vc::tools:
3ca0: 3a 69 64 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 :id..namespace i
3cb0: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c mport ::vc::tool
3cc0: 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 s::trouble..name
3cd0: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
3ce0: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c c::tools::log..l
3cf0: 6f 67 20 72 65 67 69 73 74 65 72 20 72 65 70 6f og register repo
3d00: 73 69 74 6f 72 79 0a 20 20 20 20 7d 0a 7d 0a 0a sitory. }.}..
3d10: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
3d20: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
3d30: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
3d40: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 #############.##
3d50: 20 52 65 61 64 79 0a 72 65 74 75 72 6e 0a Ready.return.