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 66 6f 72 65 61 63 68 20 {.. foreach
1250: 20 20 7b 70 69 64 20 20 6e 61 6d 65 7d 20 5b 73 {pid name} [s
1260: 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c tate run {...SEL
1270: 45 43 54 20 70 69 64 2c 20 6e 61 6d 65 20 46 52 ECT pid, name FR
1280: 4f 4d 20 70 72 6f 6a 65 63 74 20 3b 0a 09 20 20 OM project ;..
1290: 20 20 7d 5d 20 7b 0a 09 09 73 65 74 20 70 72 6f }] {...set pro
12a0: 6a 65 63 74 20 5b 70 72 6f 6a 65 63 74 20 25 41 ject [project %A
12b0: 55 54 4f 25 20 24 6e 61 6d 65 20 24 74 79 70 65 UTO% $name $type
12c0: 5d 0a 0a 09 09 6c 61 70 70 65 6e 64 20 6d 79 70 ]....lappend myp
12d0: 72 6f 6a 70 61 74 68 73 20 24 6e 61 6d 65 0a 09 rojpaths $name..
12e0: 09 6c 61 70 70 65 6e 64 20 6d 79 70 72 6f 6a 65 .lappend myproje
12f0: 63 74 73 20 20 24 70 72 6f 6a 65 63 74 0a 09 09 cts $project...
1300: 73 65 74 20 6d 79 70 72 6f 6a 6d 61 70 28 24 70 set myprojmap($p
1310: 69 64 29 20 24 70 72 6f 6a 65 63 74 0a 09 09 24 id) $project...$
1320: 70 72 6f 6a 65 63 74 20 73 65 74 69 64 20 24 70 project setid $p
1330: 69 64 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 66 id.. }.. f
1340: 6f 72 65 61 63 68 20 20 20 7b 66 69 64 20 20 70 oreach {fid p
1350: 69 64 20 20 6e 61 6d 65 20 20 76 69 73 69 62 6c id name visibl
1360: 65 20 20 65 78 65 63 7d 20 5b 73 74 61 74 65 20 e exec} [state
1370: 72 75 6e 20 7b 0a 09 09 53 45 4c 45 43 54 20 66 run {...SELECT f
1380: 69 64 2c 20 70 69 64 2c 20 6e 61 6d 65 2c 20 76 id, pid, name, v
1390: 69 73 69 62 6c 65 2c 20 65 78 65 63 20 46 52 4f isible, exec FRO
13a0: 4d 20 66 69 6c 65 20 3b 0a 09 20 20 20 20 7d 5d M file ;.. }]
13b0: 20 7b 0a 09 09 24 6d 79 70 72 6f 6a 6d 61 70 28 {...$myprojmap(
13c0: 24 70 69 64 29 20 61 64 64 66 69 6c 65 20 24 6e $pid) addfile $n
13d0: 61 6d 65 20 24 76 69 73 69 62 6c 65 20 24 65 78 ame $visible $ex
13e0: 65 63 20 24 66 69 64 0a 09 20 20 20 20 7d 0a 09 ec $fid.. }..
13f0: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
1400: 0a 20 20 20 20 23 20 70 61 73 73 20 49 49 20 72 . # pass II r
1410: 65 73 75 6c 74 73 0a 20 20 20 20 74 79 70 65 6d esults. typem
1420: 65 74 68 6f 64 20 70 72 69 6e 74 72 65 76 73 74 ethod printrevst
1430: 61 74 69 73 74 69 63 73 20 7b 7d 20 7b 0a 09 6c atistics {} {..l
1440: 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 og write 2 repos
1450: 69 74 6f 72 79 20 22 52 65 76 69 73 69 6f 6e 20 itory "Revision
1460: 73 74 61 74 69 73 74 69 63 73 22 0a 09 23 20 6e statistics"..# n
1470: 75 6d 62 65 72 20 6f 66 20 72 65 76 69 73 69 6f umber of revisio
1480: 6e 73 2c 20 73 79 6d 62 6f 6c 73 2c 20 72 65 70 ns, symbols, rep
1490: 6f 73 69 74 6f 72 79 20 77 69 64 65 2c 20 61 6e ository wide, an
14a0: 64 20 70 65 72 20 70 72 6f 6a 65 63 74 20 2e 2e d per project ..
14b0: 2e 0a 0a 09 73 65 74 20 72 63 6f 75 6e 74 20 5b ....set rcount [
14c0: 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 state one { SELE
14d0: 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f CT COUNT (*) FRO
14e0: 4d 20 72 65 76 69 73 69 6f 6e 20 7d 5d 0a 09 73 M revision }]..s
14f0: 65 74 20 74 63 6f 75 6e 74 20 5b 73 74 61 74 65 et tcount [state
1500: 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f one { SELECT CO
1510: 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 74 61 67 UNT (*) FROM tag
1520: 20 20 20 20 20 20 7d 5d 0a 09 73 65 74 20 62 63 }]..set bc
1530: 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 ount [state one
1540: 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 { SELECT COUNT (
1550: 2a 29 20 46 52 4f 4d 20 62 72 61 6e 63 68 20 20 *) FROM branch
1560: 20 7d 5d 0a 09 73 65 74 20 73 63 6f 75 6e 74 20 }]..set scount
1570: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c [state one { SEL
1580: 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 ECT COUNT (*) FR
1590: 4f 4d 20 73 79 6d 62 6f 6c 20 20 20 7d 5d 0a 09 OM symbol }]..
15a0: 73 65 74 20 61 63 6f 75 6e 74 20 5b 73 74 61 74 set acount [stat
15b0: 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 e one { SELECT C
15c0: 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 61 75 OUNT (*) FROM au
15d0: 74 68 6f 72 20 20 20 7d 5d 0a 09 73 65 74 20 63 thor }]..set c
15e0: 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 count [state one
15f0: 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 { SELECT COUNT
1600: 28 2a 29 20 46 52 4f 4d 20 63 6d 65 73 73 61 67 (*) FROM cmessag
1610: 65 20 7d 5d 0a 09 73 65 74 20 66 6d 74 20 25 5b e }]..set fmt %[
1620: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 5b 6d string length [m
1630: 61 78 20 5b 6c 69 73 74 20 24 72 63 6f 75 6e 74 ax [list $rcount
1640: 20 24 74 63 6f 75 6e 74 20 24 62 63 6f 75 6e 74 $tcount $bcount
1650: 20 24 73 63 6f 75 6e 74 20 24 61 63 6f 75 6e 74 $scount $acount
1660: 20 24 63 63 6f 75 6e 74 5d 5d 5d 73 0a 0a 09 6c $ccount]]]s...l
1670: 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 og write 2 repos
1680: 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 itory "Statistic
1690: 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 s: [format $fmt
16a0: 24 72 63 6f 75 6e 74 5d 20 5b 73 70 20 24 72 63 $rcount] [sp $rc
16b0: 6f 75 6e 74 20 72 65 76 69 73 69 6f 6e 5d 22 0a ount revision]".
16c0: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 .log write 2 rep
16d0: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
16e0: 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d ics: [format $fm
16f0: 74 20 24 74 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $tcount] [sp $
1700: 74 63 6f 75 6e 74 20 74 61 67 5d 22 0a 09 6c 6f tcount tag]"..lo
1710: 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 g write 2 reposi
1720: 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 tory "Statistics
1730: 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 : [format $fmt $
1740: 62 63 6f 75 6e 74 5d 20 5b 73 70 20 24 62 63 6f bcount] [sp $bco
1750: 75 6e 74 20 62 72 61 6e 63 68 20 62 72 61 6e 63 unt branch branc
1760: 68 65 73 5d 22 0a 09 6c 6f 67 20 77 72 69 74 65 hes]"..log write
1770: 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 53 2 repository "S
1780: 74 61 74 69 73 74 69 63 73 3a 20 5b 66 6f 72 6d tatistics: [form
1790: 61 74 20 24 66 6d 74 20 24 73 63 6f 75 6e 74 5d at $fmt $scount]
17a0: 20 5b 73 70 20 24 73 63 6f 75 6e 74 20 73 79 6d [sp $scount sym
17b0: 62 6f 6c 5d 22 0a 09 6c 6f 67 20 77 72 69 74 65 bol]"..log write
17c0: 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 53 2 repository "S
17d0: 74 61 74 69 73 74 69 63 73 3a 20 5b 66 6f 72 6d tatistics: [form
17e0: 61 74 20 24 66 6d 74 20 24 61 63 6f 75 6e 74 5d at $fmt $acount]
17f0: 20 5b 73 70 20 24 61 63 6f 75 6e 74 20 61 75 74 [sp $acount aut
1800: 68 6f 72 5d 22 0a 09 6c 6f 67 20 77 72 69 74 65 hor]"..log write
1810: 20 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 53 2 repository "S
1820: 74 61 74 69 73 74 69 63 73 3a 20 5b 66 6f 72 6d tatistics: [form
1830: 61 74 20 24 66 6d 74 20 24 63 63 6f 75 6e 74 5d at $fmt $ccount]
1840: 20 5b 73 70 20 24 63 63 6f 75 6e 74 20 7b 6c 6f [sp $ccount {lo
1850: 67 20 6d 65 73 73 61 67 65 7d 5d 22 0a 0a 09 73 g message}]"...s
1860: 65 74 20 70 72 6c 69 73 74 20 5b 54 68 65 50 72 et prlist [ThePr
1870: 6f 6a 65 63 74 73 5d 0a 09 73 65 74 20 6e 70 72 ojects]..set npr
1880: 20 5b 6c 6c 65 6e 67 74 68 20 24 70 72 6c 69 73 [llength $prlis
1890: 74 5d 0a 0a 09 69 66 20 7b 24 6e 70 72 20 3e 20 t]...if {$npr >
18a0: 31 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 20 62 1} {.. set b
18b0: 6d 61 78 20 5b 6d 61 78 20 5b 73 74 72 75 63 74 max [max [struct
18c0: 3a 3a 6c 69 73 74 20 6d 61 70 20 24 70 72 6c 69 ::list map $prli
18d0: 73 74 20 5b 6d 79 70 72 6f 63 20 2e 42 61 73 65 st [myproc .Base
18e0: 4c 65 6e 67 74 68 5d 5d 5d 0a 09 20 20 20 20 69 Length]]].. i
18f0: 6e 63 72 20 62 6d 61 78 20 32 0a 09 20 20 20 20 ncr bmax 2..
1900: 73 65 74 20 20 62 66 6d 74 20 25 2d 24 7b 62 6d set bfmt %-${bm
1910: 61 78 7d 73 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 ax}s..} else {..
1920: 20 20 20 20 73 65 74 20 62 66 6d 74 20 25 73 0a set bfmt %s.
1930: 09 7d 0a 0a 09 66 6f 72 65 61 63 68 20 70 20 24 .}...foreach p $
1940: 70 72 6c 69 73 74 20 7b 0a 09 20 20 20 20 73 65 prlist {.. se
1950: 74 20 70 69 64 20 5b 24 70 20 69 64 5d 0a 09 20 t pid [$p id]..
1960: 20 20 20 73 65 74 20 70 72 65 66 69 78 20 22 50 set prefix "P
1970: 72 6f 6a 65 63 74 20 5b 66 6f 72 6d 61 74 20 24 roject [format $
1980: 62 66 6d 74 20 5c 22 5b 24 70 20 70 72 69 6e 74 bfmt \"[$p print
1990: 62 61 73 65 5d 5c 22 5d 22 0a 09 20 20 20 20 72 base]\"]".. r
19a0: 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b 5e 09 5d egsub -all {[^.]
19b0: 7d 20 24 70 72 65 66 69 78 20 7b 20 7d 20 62 6c } $prefix { } bl
19c0: 61 6e 6b 73 0a 09 20 20 20 20 73 65 74 20 73 65 anks.. set se
19d0: 70 20 22 20 3a 20 22 0a 0a 09 20 20 20 20 73 65 p " : "... se
19e0: 74 20 72 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 t rcount [state
19f0: 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 one { SELECT COU
1a00: 4e 54 20 28 2a 29 20 46 52 4f 4d 20 72 65 76 69 NT (*) FROM revi
1a10: 73 69 6f 6e 20 52 2c 20 66 69 6c 65 20 46 20 57 sion R, file F W
1a20: 48 45 52 45 20 52 2e 66 69 64 20 3d 20 46 2e 66 HERE R.fid = F.f
1a30: 69 64 20 41 4e 44 20 46 2e 70 69 64 20 3d 20 24 id AND F.pid = $
1a40: 70 69 64 20 7d 5d 0a 09 20 20 20 20 73 65 74 20 pid }].. set
1a50: 74 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e tcount [state on
1a60: 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 e { SELECT COUNT
1a70: 20 28 2a 29 20 46 52 4f 4d 20 74 61 67 20 54 2c (*) FROM tag T,
1a80: 20 20 20 20 20 20 66 69 6c 65 20 46 20 57 48 45 file F WHE
1a90: 52 45 20 54 2e 66 69 64 20 3d 20 46 2e 66 69 64 RE T.fid = F.fid
1aa0: 20 41 4e 44 20 46 2e 70 69 64 20 3d 20 24 70 69 AND F.pid = $pi
1ab0: 64 20 7d 5d 0a 09 20 20 20 20 73 65 74 20 62 63 d }].. set bc
1ac0: 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 ount [state one
1ad0: 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 { SELECT COUNT (
1ae0: 2a 29 20 46 52 4f 4d 20 62 72 61 6e 63 68 20 42 *) FROM branch B
1af0: 2c 20 20 20 66 69 6c 65 20 46 20 57 48 45 52 45 , file F WHERE
1b00: 20 42 2e 66 69 64 20 3d 20 46 2e 66 69 64 20 41 B.fid = F.fid A
1b10: 4e 44 20 46 2e 70 69 64 20 3d 20 24 70 69 64 20 ND F.pid = $pid
1b20: 7d 5d 0a 09 20 20 20 20 73 65 74 20 73 63 6f 75 }].. set scou
1b30: 6e 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 nt [state one {
1b40: 53 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 SELECT COUNT (*)
1b50: 20 46 52 4f 4d 20 73 79 6d 62 6f 6c 20 20 20 20 FROM symbol
1b60: 20 20 20 20 20 20 20 20 20 57 48 45 52 45 20 70 WHERE p
1b70: 69 64 20 3d 20 24 70 69 64 20 20 20 20 20 20 20 id = $pid
1b80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 5d }]
1b90: 0a 09 20 20 20 20 73 65 74 20 61 63 6f 75 6e 74 .. set acount
1ba0: 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 [state one { SE
1bb0: 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 LECT COUNT (*) F
1bc0: 52 4f 4d 20 61 75 74 68 6f 72 20 20 20 57 48 45 ROM author WHE
1bd0: 52 45 20 61 69 64 20 49 4e 20 28 53 45 4c 45 43 RE aid IN (SELEC
1be0: 54 20 44 49 53 54 49 4e 43 54 20 61 69 64 20 46 T DISTINCT aid F
1bf0: 52 4f 4d 20 6d 65 74 61 20 57 48 45 52 45 20 70 ROM meta WHERE p
1c00: 69 64 20 3d 20 24 70 69 64 29 20 7d 5d 0a 09 20 id = $pid) }]..
1c10: 20 20 20 73 65 74 20 63 63 6f 75 6e 74 20 5b 73 set ccount [s
1c20: 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 tate one { SELEC
1c30: 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d T COUNT (*) FROM
1c40: 20 63 6d 65 73 73 61 67 65 20 57 48 45 52 45 20 cmessage WHERE
1c50: 63 69 64 20 49 4e 20 28 53 45 4c 45 43 54 20 44 cid IN (SELECT D
1c60: 49 53 54 49 4e 43 54 20 63 69 64 20 46 52 4f 4d ISTINCT cid FROM
1c70: 20 6d 65 74 61 20 57 48 45 52 45 20 70 69 64 20 meta WHERE pid
1c80: 3d 20 24 70 69 64 29 20 7d 5d 0a 0a 09 20 20 20 = $pid) }]...
1c90: 20 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 log write 2 rep
1ca0: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
1cb0: 69 63 73 3a 20 24 70 72 65 66 69 78 24 73 65 70 ics: $prefix$sep
1cc0: 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 72 63 [format $fmt $rc
1cd0: 6f 75 6e 74 5d 20 5b 73 70 20 24 72 63 6f 75 6e ount] [sp $rcoun
1ce0: 74 20 72 65 76 69 73 69 6f 6e 5d 22 0a 09 20 20 t revision]"..
1cf0: 20 20 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 log write 2 re
1d00: 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 pository "Statis
1d10: 74 69 63 73 3a 20 24 62 6c 61 6e 6b 73 24 73 65 tics: $blanks$se
1d20: 70 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 74 p[format $fmt $t
1d30: 63 6f 75 6e 74 5d 20 5b 73 70 20 24 74 63 6f 75 count] [sp $tcou
1d40: 6e 74 20 74 61 67 5d 22 0a 09 20 20 20 20 6c 6f nt tag]".. lo
1d50: 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 g write 2 reposi
1d60: 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 tory "Statistics
1d70: 3a 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f : $blanks$sep[fo
1d80: 72 6d 61 74 20 24 66 6d 74 20 24 62 63 6f 75 6e rmat $fmt $bcoun
1d90: 74 5d 20 5b 73 70 20 24 62 63 6f 75 6e 74 20 62 t] [sp $bcount b
1da0: 72 61 6e 63 68 20 62 72 61 6e 63 68 65 73 5d 22 ranch branches]"
1db0: 0a 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 .. log write
1dc0: 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 53 74 2 repository "St
1dd0: 61 74 69 73 74 69 63 73 3a 20 24 62 6c 61 6e 6b atistics: $blank
1de0: 73 24 73 65 70 5b 66 6f 72 6d 61 74 20 24 66 6d s$sep[format $fm
1df0: 74 20 24 73 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $scount] [sp $
1e00: 73 63 6f 75 6e 74 20 73 79 6d 62 6f 6c 5d 22 0a scount symbol]".
1e10: 09 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 32 . log write 2
1e20: 20 72 65 70 6f 73 69 74 6f 72 79 20 22 53 74 61 repository "Sta
1e30: 74 69 73 74 69 63 73 3a 20 24 62 6c 61 6e 6b 73 tistics: $blanks
1e40: 24 73 65 70 5b 66 6f 72 6d 61 74 20 24 66 6d 74 $sep[format $fmt
1e50: 20 24 61 63 6f 75 6e 74 5d 20 5b 73 70 20 24 61 $acount] [sp $a
1e60: 63 6f 75 6e 74 20 61 75 74 68 6f 72 5d 22 0a 09 count author]"..
1e70: 20 20 20 20 6c 6f 67 20 77 72 69 74 65 20 32 20 log write 2
1e80: 72 65 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 repository "Stat
1e90: 69 73 74 69 63 73 3a 20 24 62 6c 61 6e 6b 73 24 istics: $blanks$
1ea0: 73 65 70 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 sep[format $fmt
1eb0: 24 63 63 6f 75 6e 74 5d 20 5b 73 70 20 24 63 63 $ccount] [sp $cc
1ec0: 6f 75 6e 74 20 7b 6c 6f 67 20 6d 65 73 73 61 67 ount {log messag
1ed0: 65 7d 5d 22 0a 09 7d 0a 09 72 65 74 75 72 6e 0a e}]"..}..return.
1ee0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 70 61 73 }.. # pas
1ef0: 73 20 49 49 20 70 65 72 73 69 73 74 65 6e 63 65 s II persistence
1f00: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
1f10: 70 65 72 73 69 73 74 72 65 76 20 7b 7d 20 7b 0a persistrev {} {.
1f20: 09 73 74 61 74 65 20 74 72 61 6e 73 61 63 74 69 .state transacti
1f30: 6f 6e 20 7b 0a 09 20 20 20 20 53 61 76 65 41 75 on {.. SaveAu
1f40: 74 68 6f 72 73 0a 09 20 20 20 20 53 61 76 65 43 thors.. SaveC
1f50: 6f 6d 6d 69 74 4d 65 73 73 61 67 65 73 0a 09 20 ommitMessages..
1f60: 20 20 20 23 20 54 4f 44 4f 3a 20 53 61 76 65 20 # TODO: Save
1f70: 73 79 6d 62 6f 6c 73 20 6f 66 20 61 6c 6c 20 70 symbols of all p
1f80: 72 6f 6a 65 63 74 73 20 28 62 65 66 6f 72 65 20 rojects (before
1f90: 74 68 65 20 72 65 76 69 73 69 6f 6e 73 0a 09 20 the revisions..
1fa0: 20 20 20 23 20 69 6e 20 74 68 65 20 70 72 6f 6a # in the proj
1fb0: 65 63 74 73 2c 20 61 73 20 74 68 65 79 20 61 72 ects, as they ar
1fc0: 65 20 72 65 66 65 72 65 6e 63 65 64 20 62 79 20 e referenced by
1fd0: 74 68 65 20 6d 65 74 61 0a 09 20 20 20 20 23 20 the meta.. #
1fe0: 74 75 70 6c 65 73 29 0a 09 20 20 20 20 53 61 76 tuples).. Sav
1ff0: 65 4d 65 74 61 0a 09 20 20 20 20 66 6f 72 65 61 eMeta.. forea
2000: 63 68 20 70 20 5b 54 68 65 50 72 6f 6a 65 63 74 ch p [TheProject
2010: 73 5d 20 7b 20 24 70 20 70 65 72 73 69 73 74 72 s] { $p persistr
2020: 65 76 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a ev }..}..return.
2030: 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d }.. typem
2040: 65 74 68 6f 64 20 6c 6f 61 64 73 79 6d 62 6f 6c ethod loadsymbol
2050: 73 20 7b 7d 20 7b 0a 09 73 74 61 74 65 20 74 72 s {} {..state tr
2060: 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 20 20 20 ansaction {..
2070: 20 23 20 57 65 20 6c 6f 61 64 20 74 68 65 20 73 # We load the s
2080: 79 6d 62 6f 6c 20 69 64 73 20 61 74 20 6c 61 72 ymbol ids at lar
2090: 67 65 20 74 6f 20 68 61 76 65 20 74 68 65 20 6d ge to have the m
20a0: 61 70 70 69 6e 67 0a 09 20 20 20 20 23 20 72 69 apping.. # ri
20b0: 67 68 74 20 66 72 6f 6d 20 74 68 65 20 62 65 67 ght from the beg
20c0: 69 6e 6e 69 6e 67 2e 0a 0a 09 20 20 20 20 66 6f inning.... fo
20d0: 72 65 61 63 68 20 7b 73 69 64 20 70 69 64 20 6e reach {sid pid n
20e0: 61 6d 65 20 74 63 20 62 63 20 63 63 7d 20 5b 73 ame tc bc cc} [s
20f0: 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c tate run {...SEL
2100: 45 43 54 20 73 69 64 2c 20 70 69 64 2c 20 6e 61 ECT sid, pid, na
2110: 6d 65 2c 20 74 61 67 5f 63 6f 75 6e 74 2c 20 62 me, tag_count, b
2120: 72 61 6e 63 68 5f 63 6f 75 6e 74 2c 20 63 6f 6d ranch_count, com
2130: 6d 69 74 5f 63 6f 75 6e 74 0a 09 09 46 52 4f 4d mit_count...FROM
2140: 20 73 79 6d 62 6f 6c 0a 09 09 3b 0a 09 20 20 20 symbol...;..
2150: 20 7d 5d 20 7b 0a 09 09 24 6d 79 73 79 6d 62 6f }] {...$mysymbo
2160: 6c 20 6d 61 70 20 24 73 69 64 20 5b 6c 69 73 74 l map $sid [list
2170: 20 24 70 69 64 20 24 6e 61 6d 65 5d 0a 09 09 73 $pid $name]...s
2180: 65 74 20 70 72 6f 6a 65 63 74 20 24 6d 79 70 72 et project $mypr
2190: 6f 6a 6d 61 70 28 24 70 69 64 29 0a 0a 09 09 73 ojmap($pid)....s
21a0: 65 74 20 66 6f 72 63 65 20 20 5b 24 70 72 6f 6a et force [$proj
21b0: 65 63 74 20 68 61 73 73 79 6d 62 6f 6c 20 24 6e ect hassymbol $n
21c0: 61 6d 65 5d 0a 09 09 73 65 74 20 73 79 6d 62 6f ame]...set symbo
21d0: 6c 20 5b 24 70 72 6f 6a 65 63 74 20 67 65 74 73 l [$project gets
21e0: 79 6d 62 6f 6c 20 24 6e 61 6d 65 5d 0a 0a 09 09 ymbol $name]....
21f0: 23 20 46 6f 72 63 69 6e 67 20 68 61 70 70 65 6e # Forcing happen
2200: 73 20 6f 6e 6c 79 20 66 6f 72 20 74 68 65 20 74 s only for the t
2210: 72 75 6e 6b 73 2e 0a 09 09 69 66 20 7b 24 66 6f runks....if {$fo
2220: 72 63 65 7d 20 7b 20 24 73 79 6d 62 6f 6c 20 66 rce} { $symbol f
2230: 6f 72 63 65 69 64 20 24 73 69 64 20 7d 0a 0a 09 orceid $sid }...
2240: 09 23 20 53 65 74 20 74 68 65 20 6c 6f 61 64 65 .# Set the loade
2250: 64 20 63 6f 75 6e 74 73 2e 0a 09 09 24 73 79 6d d counts....$sym
2260: 62 6f 6c 20 64 65 66 63 6f 75 6e 74 73 20 24 74 bol defcounts $t
2270: 63 20 24 62 63 20 24 63 63 0a 0a 09 09 23 20 4e c $bc $cc....# N
2280: 6f 74 65 3a 20 54 68 65 20 74 79 70 65 20 69 73 ote: The type is
2290: 20 6e 65 69 74 68 65 72 20 72 65 74 72 69 65 76 neither retriev
22a0: 65 64 20 6e 6f 72 20 73 65 74 2c 20 66 6f 72 0a ed nor set, for.
22b0: 09 09 23 20 74 68 69 73 20 69 73 20 75 73 65 64 ..# this is used
22c0: 20 74 6f 20 6c 6f 61 64 20 74 68 65 20 70 61 73 to load the pas
22d0: 73 20 49 49 20 64 61 74 61 2c 20 77 68 69 63 68 s II data, which
22e0: 20 6d 65 61 6e 73 0a 09 09 23 20 74 68 61 74 20 means...# that
22f0: 65 76 65 72 79 74 68 69 6e 67 20 69 73 20 27 75 everything is 'u
2300: 6e 64 65 66 69 6e 65 64 27 20 61 74 20 74 68 69 ndefined' at thi
2310: 73 20 70 6f 69 6e 74 20 61 6e 79 77 61 79 2e 0a s point anyway..
2320: 0a 09 09 23 20 66 75 74 75 72 65 3a 20 24 73 79 ...# future: $sy
2330: 6d 62 6f 6c 20 6c 6f 61 64 20 28 62 6c 6f 63 6b mbol load (block
2340: 65 72 73 2c 20 61 6e 64 20 70 61 72 65 6e 74 73 ers, and parents
2350: 29 0a 09 20 20 20 20 7d 0a 0a 09 20 20 20 20 23 ).. }... #
2360: 20 42 65 79 6f 6e 64 20 74 68 65 20 73 79 6d 62 Beyond the symb
2370: 6f 6c 73 20 77 65 20 61 6c 73 6f 20 6c 6f 61 64 ols we also load
2380: 20 74 68 65 20 61 75 74 68 6f 72 2c 20 63 6f 6d the author, com
2390: 6d 69 74 20 6c 6f 67 2c 0a 09 20 20 20 20 23 20 mit log,.. #
23a0: 61 6e 64 20 6d 65 74 61 20 69 6e 66 6f 72 6d 61 and meta informa
23b0: 74 69 6f 6e 2e 0a 0a 09 20 20 20 20 66 6f 72 65 tion.... fore
23c0: 61 63 68 20 7b 61 69 64 20 61 6e 61 6d 65 7d 20 ach {aid aname}
23d0: 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 53 [state run {...S
23e0: 45 4c 45 43 54 20 61 69 64 2c 20 6e 61 6d 65 20 ELECT aid, name
23f0: 46 52 4f 4d 20 61 75 74 68 6f 72 0a 09 20 20 20 FROM author..
2400: 20 7d 5d 20 7b 0a 09 09 24 6d 79 61 75 74 68 6f }] {...$myautho
2410: 72 20 6d 61 70 20 24 61 69 64 20 24 61 6e 61 6d r map $aid $anam
2420: 65 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 66 6f e.. }.. fo
2430: 72 65 61 63 68 20 7b 63 69 64 20 74 65 78 74 7d reach {cid text}
2440: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 [state run {...
2450: 53 45 4c 45 43 54 20 63 69 64 2c 20 74 65 78 74 SELECT cid, text
2460: 20 46 52 4f 4d 20 63 6d 65 73 73 61 67 65 0a 09 FROM cmessage..
2470: 20 20 20 20 7d 5d 20 7b 0a 09 09 24 6d 79 63 6d }] {...$mycm
2480: 73 67 20 6d 61 70 20 24 63 69 64 20 24 74 65 78 sg map $cid $tex
2490: 74 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 66 6f t.. }.. fo
24a0: 72 65 61 63 68 20 7b 6d 69 64 20 70 69 64 20 62 reach {mid pid b
24b0: 69 64 20 61 69 64 20 63 69 64 7d 20 5b 73 74 61 id aid cid} [sta
24c0: 74 65 20 72 75 6e 20 7b 0a 09 09 53 45 4c 45 43 te run {...SELEC
24d0: 54 20 6d 69 64 2c 20 70 69 64 2c 20 62 69 64 2c T mid, pid, bid,
24e0: 20 61 69 64 2c 20 63 69 64 20 46 52 4f 4d 20 6d aid, cid FROM m
24f0: 65 74 61 0a 09 20 20 20 20 7d 5d 20 7b 0a 09 09 eta.. }] {...
2500: 24 6d 79 6d 65 74 61 20 6d 61 70 20 24 6d 69 64 $mymeta map $mid
2510: 20 5b 6c 69 73 74 20 24 70 69 64 20 24 62 69 64 [list $pid $bid
2520: 20 24 61 69 64 20 24 63 69 64 5d 0a 09 20 20 20 $aid $cid]..
2530: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
2540: 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 }.. typemet
2550: 68 6f 64 20 64 65 74 65 72 6d 69 6e 65 73 79 6d hod determinesym
2560: 62 6f 6c 74 79 70 65 73 20 7b 7d 20 7b 0a 09 66 boltypes {} {..f
2570: 6f 72 65 61 63 68 20 70 72 6f 6a 65 63 74 20 5b oreach project [
2580: 54 68 65 50 72 6f 6a 65 63 74 73 5d 20 7b 0a 09 TheProjects] {..
2590: 20 20 20 20 24 70 72 6f 6a 65 63 74 20 64 65 74 $project det
25a0: 65 72 6d 69 6e 65 73 79 6d 62 6f 6c 74 79 70 65 erminesymboltype
25b0: 73 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 s..}..return.
25c0: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
25d0: 6f 64 20 70 72 6f 6a 65 63 74 6f 66 20 7b 70 69 od projectof {pi
25e0: 64 7d 20 7b 0a 09 72 65 74 75 72 6e 20 24 6d 79 d} {..return $my
25f0: 70 72 6f 6a 6d 61 70 28 24 70 69 64 29 0a 20 20 projmap($pid).
2600: 20 20 7d 0a 0a 0a 20 20 20 20 23 20 70 61 73 73 }... # pass
2610: 20 49 56 2b 20 72 65 73 75 6c 74 73 0a 20 20 20 IV+ results.
2620: 20 74 79 70 65 6d 65 74 68 6f 64 20 70 72 69 6e typemethod prin
2630: 74 63 73 65 74 73 74 61 74 69 73 74 69 63 73 20 tcsetstatistics
2640: 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 74 65 20 {} {..log write
2650: 32 20 72 65 70 6f 73 69 74 6f 72 79 20 22 43 68 2 repository "Ch
2660: 61 6e 67 65 73 65 74 20 73 74 61 74 69 73 74 69 angeset statisti
2670: 63 73 22 0a 09 23 20 6e 75 6d 62 65 72 20 6f 66 cs"..# number of
2680: 20 72 65 76 69 73 69 6f 6e 73 2c 20 73 79 6d 62 revisions, symb
2690: 6f 6c 73 2c 20 72 65 70 6f 73 69 74 6f 72 79 20 ols, repository
26a0: 77 69 64 65 2c 20 61 6e 64 20 70 65 72 20 70 72 wide, and per pr
26b0: 6f 6a 65 63 74 20 2e 2e 2e 0a 0a 09 73 65 74 20 oject ......set
26c0: 63 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f 6e ccount [state on
26d0: 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e 54 e { SELECT COUNT
26e0: 20 28 2a 29 20 46 52 4f 4d 20 63 68 61 6e 67 65 (*) FROM change
26f0: 73 65 74 20 20 20 20 20 20 20 20 20 20 20 20 20 set
2700: 20 20 20 7d 5d 0a 09 73 65 74 20 72 63 6f 75 6e }]..set rcoun
2710: 74 20 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 t [state one { S
2720: 45 4c 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 ELECT COUNT (*)
2730: 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 57 FROM changeset W
2740: 48 45 52 45 20 74 79 70 65 20 3d 20 30 20 7d 5d HERE type = 0 }]
2750: 0a 09 73 65 74 20 74 63 6f 75 6e 74 20 5b 73 74 ..set tcount [st
2760: 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 ate one { SELECT
2770: 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 COUNT (*) FROM
2780: 63 68 61 6e 67 65 73 65 74 20 57 48 45 52 45 20 changeset WHERE
2790: 74 79 70 65 20 3d 20 31 20 7d 5d 0a 09 73 65 74 type = 1 }]..set
27a0: 20 62 63 6f 75 6e 74 20 5b 73 74 61 74 65 20 6f bcount [state o
27b0: 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f 55 4e ne { SELECT COUN
27c0: 54 20 28 2a 29 20 46 52 4f 4d 20 63 68 61 6e 67 T (*) FROM chang
27d0: 65 73 65 74 20 57 48 45 52 45 20 74 79 70 65 20 eset WHERE type
27e0: 3d 20 32 20 7d 5d 0a 09 73 65 74 20 66 6d 74 20 = 2 }]..set fmt
27f0: 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 %[string length
2800: 5b 6d 61 78 20 5b 6c 69 73 74 20 24 63 63 6f 75 [max [list $ccou
2810: 6e 74 20 24 72 63 6f 75 6e 74 20 24 74 63 6f 75 nt $rcount $tcou
2820: 6e 74 20 24 62 63 6f 75 6e 74 5d 5d 5d 73 0a 0a nt $bcount]]]s..
2830: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 .log write 2 rep
2840: 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 ository "Statist
2850: 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 6d ics: [format $fm
2860: 74 20 24 63 63 6f 75 6e 74 5d 20 5b 73 70 20 24 t $ccount] [sp $
2870: 63 63 6f 75 6e 74 20 63 68 61 6e 67 65 73 65 74 ccount changeset
2880: 5d 22 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 ]"..log write 2
2890: 72 65 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 repository "Stat
28a0: 69 73 74 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 istics: [format
28b0: 24 66 6d 74 20 24 72 63 6f 75 6e 74 5d 20 5b 73 $fmt $rcount] [s
28c0: 70 20 24 72 63 6f 75 6e 74 20 7b 72 65 76 69 73 p $rcount {revis
28d0: 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 ion changeset}]"
28e0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 ..log write 2 re
28f0: 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 pository "Statis
2900: 74 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 tics: [format $f
2910: 6d 74 20 24 74 63 6f 75 6e 74 5d 20 5b 73 70 20 mt $tcount] [sp
2920: 24 74 63 6f 75 6e 74 20 7b 74 61 67 20 73 79 6d $tcount {tag sym
2930: 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 bol changeset}]"
2940: 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 ..log write 2 re
2950: 70 6f 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 pository "Statis
2960: 74 69 63 73 3a 20 5b 66 6f 72 6d 61 74 20 24 66 tics: [format $f
2970: 6d 74 20 24 62 63 6f 75 6e 74 5d 20 5b 73 70 20 mt $bcount] [sp
2980: 24 62 63 6f 75 6e 74 20 7b 62 72 61 6e 63 68 20 $bcount {branch
2990: 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 65 74 symbol changeset
29a0: 7d 5d 22 0a 0a 09 73 65 74 20 70 72 6c 69 73 74 }]"...set prlist
29b0: 20 5b 54 68 65 50 72 6f 6a 65 63 74 73 5d 0a 09 [TheProjects]..
29c0: 73 65 74 20 6e 70 72 20 5b 6c 6c 65 6e 67 74 68 set npr [llength
29d0: 20 24 70 72 6c 69 73 74 5d 0a 0a 09 69 66 20 7b $prlist]...if {
29e0: 24 6e 70 72 20 3e 20 31 7d 20 7b 0a 09 20 20 20 $npr > 1} {..
29f0: 20 73 65 74 20 20 62 6d 61 78 20 5b 6d 61 78 20 set bmax [max
2a00: 5b 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 6d 61 [struct::list ma
2a10: 70 20 24 70 72 6c 69 73 74 20 5b 6d 79 70 72 6f p $prlist [mypro
2a20: 63 20 2e 42 61 73 65 4c 65 6e 67 74 68 5d 5d 5d c .BaseLength]]]
2a30: 0a 09 20 20 20 20 69 6e 63 72 20 62 6d 61 78 20 .. incr bmax
2a40: 32 0a 09 20 20 20 20 73 65 74 20 20 62 66 6d 74 2.. set bfmt
2a50: 20 25 2d 24 7b 62 6d 61 78 7d 73 0a 09 7d 20 65 %-${bmax}s..} e
2a60: 6c 73 65 20 7b 0a 09 20 20 20 20 73 65 74 20 62 lse {.. set b
2a70: 66 6d 74 20 25 73 0a 09 7d 0a 0a 09 66 6f 72 65 fmt %s..}...fore
2a80: 61 63 68 20 70 20 24 70 72 6c 69 73 74 20 7b 0a ach p $prlist {.
2a90: 09 20 20 20 20 73 65 74 20 70 69 64 20 5b 24 70 . set pid [$p
2aa0: 20 69 64 5d 0a 09 20 20 20 20 73 65 74 20 70 72 id].. set pr
2ab0: 65 66 69 78 20 22 50 72 6f 6a 65 63 74 20 5b 66 efix "Project [f
2ac0: 6f 72 6d 61 74 20 24 62 66 6d 74 20 5c 22 5b 24 ormat $bfmt \"[$
2ad0: 70 20 70 72 69 6e 74 62 61 73 65 5d 5c 22 5d 22 p printbase]\"]"
2ae0: 0a 09 20 20 20 20 72 65 67 73 75 62 20 2d 61 6c .. regsub -al
2af0: 6c 20 7b 5b 5e 09 5d 7d 20 24 70 72 65 66 69 78 l {[^.]} $prefix
2b00: 20 7b 20 7d 20 62 6c 61 6e 6b 73 0a 09 20 20 20 { } blanks..
2b10: 20 73 65 74 20 73 65 70 20 22 20 3a 20 22 0a 0a set sep " : "..
2b20: 09 20 20 20 20 73 65 74 20 63 63 6f 75 6e 74 20 . set ccount
2b30: 5b 73 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c [state one { SEL
2b40: 45 43 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 ECT COUNT (*) FR
2b50: 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 57 48 45 OM changeset WHE
2b60: 52 45 20 70 69 64 20 3d 20 24 70 69 64 20 20 20 RE pid = $pid
2b70: 20 20 20 20 20 20 20 20 20 20 20 7d 5d 0a 09 20 }]..
2b80: 20 20 20 73 65 74 20 72 63 6f 75 6e 74 20 5b 73 set rcount [s
2b90: 74 61 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 tate one { SELEC
2ba0: 54 20 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d T COUNT (*) FROM
2bb0: 20 63 68 61 6e 67 65 73 65 74 20 57 48 45 52 45 changeset WHERE
2bc0: 20 70 69 64 20 3d 20 24 70 69 64 20 41 4e 44 20 pid = $pid AND
2bd0: 74 79 70 65 20 3d 20 30 20 7d 5d 0a 09 20 20 20 type = 0 }]..
2be0: 20 73 65 74 20 74 63 6f 75 6e 74 20 5b 73 74 61 set tcount [sta
2bf0: 74 65 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 te one { SELECT
2c00: 43 4f 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 63 COUNT (*) FROM c
2c10: 68 61 6e 67 65 73 65 74 20 57 48 45 52 45 20 70 hangeset WHERE p
2c20: 69 64 20 3d 20 24 70 69 64 20 41 4e 44 20 74 79 id = $pid AND ty
2c30: 70 65 20 3d 20 31 20 7d 5d 0a 09 20 20 20 20 73 pe = 1 }].. s
2c40: 65 74 20 62 63 6f 75 6e 74 20 5b 73 74 61 74 65 et bcount [state
2c50: 20 6f 6e 65 20 7b 20 53 45 4c 45 43 54 20 43 4f one { SELECT CO
2c60: 55 4e 54 20 28 2a 29 20 46 52 4f 4d 20 63 68 61 UNT (*) FROM cha
2c70: 6e 67 65 73 65 74 20 57 48 45 52 45 20 70 69 64 ngeset WHERE pid
2c80: 20 3d 20 24 70 69 64 20 41 4e 44 20 74 79 70 65 = $pid AND type
2c90: 20 3d 20 32 20 7d 5d 0a 0a 09 20 20 20 20 6c 6f = 2 }]... lo
2ca0: 67 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 g write 2 reposi
2cb0: 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 tory "Statistics
2cc0: 3a 20 24 70 72 65 66 69 78 24 73 65 70 5b 66 6f : $prefix$sep[fo
2cd0: 72 6d 61 74 20 24 66 6d 74 20 24 63 63 6f 75 6e rmat $fmt $ccoun
2ce0: 74 5d 20 5b 73 70 20 24 63 63 6f 75 6e 74 20 63 t] [sp $ccount c
2cf0: 68 61 6e 67 65 73 65 74 5d 22 0a 09 20 20 20 20 hangeset]"..
2d00: 6c 6f 67 20 77 72 69 74 65 20 32 20 72 65 70 6f log write 2 repo
2d10: 73 69 74 6f 72 79 20 22 53 74 61 74 69 73 74 69 sitory "Statisti
2d20: 63 73 3a 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b cs: $blanks$sep[
2d30: 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 72 63 6f format $fmt $rco
2d40: 75 6e 74 5d 20 5b 73 70 20 24 72 63 6f 75 6e 74 unt] [sp $rcount
2d50: 20 7b 72 65 76 69 73 69 6f 6e 20 63 68 61 6e 67 {revision chang
2d60: 65 73 65 74 7d 5d 22 0a 09 20 20 20 20 6c 6f 67 eset}]".. log
2d70: 20 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 write 2 reposit
2d80: 6f 72 79 20 22 53 74 61 74 69 73 74 69 63 73 3a ory "Statistics:
2d90: 20 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f 72 $blanks$sep[for
2da0: 6d 61 74 20 24 66 6d 74 20 24 74 63 6f 75 6e 74 mat $fmt $tcount
2db0: 5d 20 5b 73 70 20 24 74 63 6f 75 6e 74 20 7b 74 ] [sp $tcount {t
2dc0: 61 67 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 ag symbol change
2dd0: 73 65 74 7d 5d 22 0a 09 20 20 20 20 6c 6f 67 20 set}]".. log
2de0: 77 72 69 74 65 20 32 20 72 65 70 6f 73 69 74 6f write 2 reposito
2df0: 72 79 20 22 53 74 61 74 69 73 74 69 63 73 3a 20 ry "Statistics:
2e00: 24 62 6c 61 6e 6b 73 24 73 65 70 5b 66 6f 72 6d $blanks$sep[form
2e10: 61 74 20 24 66 6d 74 20 24 62 63 6f 75 6e 74 5d at $fmt $bcount]
2e20: 20 5b 73 70 20 24 62 63 6f 75 6e 74 20 7b 62 72 [sp $bcount {br
2e30: 61 6e 63 68 20 73 79 6d 62 6f 6c 20 63 68 61 6e anch symbol chan
2e40: 67 65 73 65 74 7d 5d 22 0a 09 7d 0a 09 72 65 74 geset}]"..}..ret
2e50: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
2e60: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
2e70: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
2e80: 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 53 74 ######. ## St
2e90: 61 74 65 0a 0a 20 20 20 20 74 79 70 65 76 61 72 ate.. typevar
2ea0: 69 61 62 6c 65 20 6d 79 62 61 73 65 20 20 20 20 iable mybase
2eb0: 20 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 42 61 {} ; # Ba
2ec0: 73 65 20 70 61 74 68 20 74 6f 20 43 56 53 20 72 se path to CVS r
2ed0: 65 70 6f 73 69 74 6f 72 79 2e 0a 20 20 20 20 74 epository.. t
2ee0: 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 70 72 ypevariable mypr
2ef0: 6f 6a 70 61 74 68 73 20 20 20 20 20 20 7b 7d 20 ojpaths {}
2f00: 3b 20 23 20 4c 69 73 74 20 6f 66 20 70 61 74 68 ; # List of path
2f10: 73 20 74 6f 20 61 6c 6c 20 64 65 63 6c 61 72 65 s to all declare
2f20: 64 0a 09 09 09 09 20 20 20 20 20 20 20 23 20 70 d..... # p
2f30: 72 6f 6a 65 63 74 73 2c 20 72 65 6c 61 74 69 76 rojects, relativ
2f40: 65 20 74 6f 20 6d 79 62 61 73 65 2e 0a 20 20 20 e to mybase..
2f50: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
2f60: 70 72 6f 6a 65 63 74 73 20 20 20 20 20 20 20 7b projects {
2f70: 7d 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 6f 62 } ; # List of ob
2f80: 6a 65 63 74 73 20 66 6f 72 20 61 6c 6c 0a 09 09 jects for all...
2f90: 09 09 20 20 20 20 20 20 20 23 20 64 65 63 6c 61 .. # decla
2fa0: 72 65 64 20 70 72 6f 6a 65 63 74 73 2e 0a 20 20 red projects..
2fb0: 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d typevariable m
2fc0: 79 70 72 6f 6a 6d 61 70 20 2d 61 72 72 61 79 20 yprojmap -array
2fd0: 7b 7d 20 3b 20 23 20 4d 61 70 20 66 72 6f 6d 20 {} ; # Map from
2fe0: 70 72 6f 6a 65 63 74 20 69 64 73 20 74 6f 20 74 project ids to t
2ff0: 68 65 69 72 0a 09 09 09 09 20 20 20 20 20 20 20 heir.....
3000: 23 20 6f 62 6a 65 63 74 73 2e 0a 20 20 20 20 74 # objects.. t
3010: 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 61 75 ypevariable myau
3020: 74 68 6f 72 20 20 20 20 20 20 20 20 20 7b 7d 20 thor {}
3030: 3b 20 23 20 4e 61 6d 65 73 20 6f 66 20 61 6c 6c ; # Names of all
3040: 20 61 75 74 68 6f 72 73 20 66 6f 75 6e 64 2c 0a authors found,.
3050: 09 09 09 09 20 20 20 20 20 20 20 23 20 6d 61 70 .... # map
3060: 73 20 74 6f 20 74 68 65 69 72 20 69 64 73 2e 0a s to their ids..
3070: 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 typevariable
3080: 20 6d 79 63 6d 73 67 20 20 20 20 20 20 20 20 20 mycmsg
3090: 20 20 7b 7d 20 3b 20 23 20 41 6c 6c 20 63 6f 6d {} ; # All com
30a0: 6d 69 74 20 6d 65 73 73 61 67 65 73 20 66 6f 75 mit messages fou
30b0: 6e 64 2c 0a 09 09 09 09 20 20 20 20 20 20 20 23 nd,..... #
30c0: 20 6d 61 70 73 20 74 6f 20 74 68 65 69 72 20 69 maps to their i
30d0: 64 73 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 ds.. typevari
30e0: 61 62 6c 65 20 6d 79 6d 65 74 61 20 20 20 20 20 able mymeta
30f0: 20 20 20 20 20 20 7b 7d 20 3b 20 23 20 4d 61 70 {} ; # Map
3100: 73 20 61 6c 6c 20 6d 65 74 61 20 64 61 74 61 20 s all meta data
3110: 74 75 70 6c 65 73 0a 09 09 09 09 20 20 20 20 20 tuples.....
3120: 20 20 23 20 28 70 72 6f 6a 65 63 74 2c 20 62 72 # (project, br
3130: 61 6e 63 68 2c 20 61 75 74 68 6f 72 2c 0a 09 09 anch, author,...
3140: 09 09 20 20 20 20 20 20 20 23 20 63 6d 65 73 73 .. # cmess
3150: 61 67 65 29 20 74 6f 20 74 68 65 69 72 20 69 64 age) to their id
3160: 73 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 s.. typevaria
3170: 62 6c 65 20 6d 79 73 79 6d 62 6f 6c 20 20 20 20 ble mysymbol
3180: 20 20 20 20 20 7b 7d 20 3b 20 23 20 4d 61 70 20 {} ; # Map
3190: 73 79 6d 62 6f 6c 73 20 69 64 65 6e 74 69 66 69 symbols identifi
31a0: 65 64 20 62 79 0a 09 09 09 09 20 20 20 20 20 20 ed by.....
31b0: 20 23 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 6e # project and n
31c0: 61 6d 65 20 74 6f 20 74 68 65 69 72 0a 09 09 09 ame to their....
31d0: 09 20 20 20 20 20 20 20 23 20 69 64 2e 20 54 68 . # id. Th
31e0: 69 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 is information i
31f0: 73 20 6e 6f 74 0a 09 09 09 09 20 20 20 20 20 20 s not.....
3200: 20 23 20 73 61 76 65 64 20 64 69 72 65 63 74 6c # saved directl
3210: 79 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 y.. typevaria
3220: 62 6c 65 20 6d 79 74 72 75 6e 6b 6f 6e 6c 79 20 ble mytrunkonly
3230: 20 20 20 20 20 30 20 20 3b 20 23 20 42 6f 6f 6c 0 ; # Bool
3240: 65 61 6e 20 66 6c 61 67 2e 20 53 65 74 20 62 79 ean flag. Set by
3250: 20 6f 70 74 69 6f 6e 0a 09 09 09 09 20 20 20 20 option.....
3260: 20 20 20 23 20 70 72 6f 63 65 73 73 69 6e 67 20 # processing
3270: 77 68 65 6e 20 74 68 65 20 75 73 65 72 0a 09 09 when the user...
3280: 09 09 20 20 20 20 20 20 20 23 20 72 65 71 75 65 .. # reque
3290: 73 74 65 64 20 61 20 74 72 75 6e 6b 2d 6f 6e 6c sted a trunk-onl
32a0: 79 20 69 6d 70 6f 72 74 0a 0a 20 20 20 20 23 20 y import.. #
32b0: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
32c0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
32d0: 23 23 23 23 23 0a 20 20 20 20 23 23 20 49 6e 74 #####. ## Int
32e0: 65 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 ernal methods..
32f0: 20 20 20 74 79 70 65 63 6f 6e 73 74 72 75 63 74 typeconstruct
3300: 6f 72 20 7b 0a 09 73 65 74 20 6d 79 61 75 74 68 or {..set myauth
3310: 6f 72 20 5b 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 69 or [vc::tools::i
3320: 64 20 25 41 55 54 4f 25 5d 0a 09 73 65 74 20 6d d %AUTO%]..set m
3330: 79 63 6d 73 67 20 20 20 5b 76 63 3a 3a 74 6f 6f ycmsg [vc::too
3340: 6c 73 3a 3a 69 64 20 25 41 55 54 4f 25 5d 0a 09 ls::id %AUTO%]..
3350: 73 65 74 20 6d 79 6d 65 74 61 20 20 20 5b 76 63 set mymeta [vc
3360: 3a 3a 74 6f 6f 6c 73 3a 3a 69 64 20 25 41 55 54 ::tools::id %AUT
3370: 4f 25 5d 0a 09 73 65 74 20 6d 79 73 79 6d 62 6f O%]..set mysymbo
3380: 6c 20 5b 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 69 64 l [vc::tools::id
3390: 20 25 41 55 54 4f 25 5d 0a 09 72 65 74 75 72 6e %AUTO%]..return
33a0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 . }.. proc
33b0: 20 2e 42 61 73 65 4c 65 6e 67 74 68 20 7b 70 7d .BaseLength {p}
33c0: 20 7b 0a 09 72 65 74 75 72 6e 20 5b 73 74 72 69 {..return [stri
33d0: 6e 67 20 6c 65 6e 67 74 68 20 5b 24 70 20 70 72 ng length [$p pr
33e0: 69 6e 74 62 61 73 65 5d 5d 0a 20 20 20 20 7d 0a intbase]]. }.
33f0: 0a 20 20 20 20 70 72 6f 63 20 2e 4e 46 69 6c 65 . proc .NFile
3400: 4c 65 6e 67 74 68 20 7b 70 7d 20 7b 0a 09 72 65 Length {p} {..re
3410: 74 75 72 6e 20 5b 73 74 72 69 6e 67 20 6c 65 6e turn [string len
3420: 67 74 68 20 5b 6c 6c 65 6e 67 74 68 20 5b 24 70 gth [llength [$p
3430: 20 66 69 6c 65 6e 61 6d 65 73 5d 5d 5d 0a 20 20 filenames]]].
3440: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 49 73 }.. proc Is
3450: 52 65 70 6f 73 69 74 6f 72 79 42 61 73 65 20 7b RepositoryBase {
3460: 70 61 74 68 20 6d 76 7d 20 7b 0a 09 3a 3a 76 61 path mv} {..::va
3470: 72 69 61 62 6c 65 20 6d 79 62 61 73 65 0a 09 75 riable mybase..u
3480: 70 76 61 72 20 31 20 24 6d 76 20 6d 73 67 0a 09 pvar 1 $mv msg..
3490: 69 66 20 7b 21 5b 66 69 6c 65 75 74 69 6c 3a 3a if {![fileutil::
34a0: 74 65 73 74 20 24 6d 79 62 61 73 65 20 20 20 20 test $mybase
34b0: 20 20 20 20 20 65 64 72 20 6d 73 67 20 7b 43 56 edr msg {CV
34c0: 53 20 52 65 70 6f 73 69 74 6f 72 79 7d 5d 7d 20 S Repository}]}
34d0: 20 20 20 20 20 7b 72 65 74 75 72 6e 20 30 7d 0a {return 0}.
34e0: 09 69 66 20 7b 21 5b 66 69 6c 65 75 74 69 6c 3a .if {![fileutil:
34f0: 3a 74 65 73 74 20 24 6d 79 62 61 73 65 2f 43 56 :test $mybase/CV
3500: 53 52 4f 4f 54 20 65 64 72 20 6d 73 67 20 7b 43 SROOT edr msg {C
3510: 56 53 20 41 64 6d 69 6e 20 44 69 72 65 63 74 6f VS Admin Directo
3520: 72 79 7d 5d 7d 20 7b 72 65 74 75 72 6e 20 30 7d ry}]} {return 0}
3530: 0a 09 72 65 74 75 72 6e 20 31 0a 20 20 20 20 7d ..return 1. }
3540: 0a 0a 20 20 20 20 70 72 6f 63 20 49 73 50 72 6f .. proc IsPro
3550: 6a 65 63 74 42 61 73 65 20 7b 70 61 74 68 20 61 jectBase {path a
3560: 64 6d 69 6e 20 6d 76 7d 20 7b 0a 09 75 70 76 61 dmin mv} {..upva
3570: 72 20 31 20 24 6d 76 20 6d 73 67 0a 09 69 66 20 r 1 $mv msg..if
3580: 7b 21 5b 66 69 6c 65 75 74 69 6c 3a 3a 74 65 73 {![fileutil::tes
3590: 74 20 24 70 61 74 68 20 65 64 72 20 6d 73 67 20 t $path edr msg
35a0: 50 72 6f 6a 65 63 74 5d 7d 20 7b 72 65 74 75 72 Project]} {retur
35b0: 6e 20 30 7d 0a 09 69 66 20 7b 0a 09 20 20 20 20 n 0}..if {..
35c0: 28 24 70 61 74 68 20 65 71 20 24 61 64 6d 69 6e ($path eq $admin
35d0: 29 20 7c 7c 0a 09 20 20 20 20 5b 73 74 72 69 6e ) ||.. [strin
35e0: 67 20 6d 61 74 63 68 20 24 61 64 6d 69 6e 2f 2a g match $admin/*
35f0: 20 24 70 61 74 68 5d 0a 09 7d 20 7b 0a 09 20 20 $path]..} {..
3600: 20 20 73 65 74 20 6d 73 67 20 22 41 64 6d 69 6e set msg "Admin
3610: 69 73 74 72 61 74 69 76 65 20 73 75 62 64 69 72 istrative subdir
3620: 65 63 74 6f 72 79 20 24 70 61 74 68 20 63 61 6e ectory $path can
3630: 6e 6f 74 20 62 65 20 61 20 70 72 6f 6a 65 63 74 not be a project
3640: 22 0a 09 20 20 20 20 72 65 74 75 72 6e 20 30 0a ".. return 0.
3650: 09 7d 0a 09 72 65 74 75 72 6e 20 31 0a 20 20 20 .}..return 1.
3660: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 54 68 65 }.. proc The
3670: 50 72 6f 6a 65 63 74 73 20 7b 7d 20 7b 0a 09 75 Projects {} {..u
3680: 70 76 61 72 20 31 20 74 79 70 65 20 74 79 70 65 pvar 1 type type
3690: 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 6d 79 70 ..::variable myp
36a0: 72 6f 6a 65 63 74 73 0a 09 3a 3a 76 61 72 69 61 rojects..::varia
36b0: 62 6c 65 20 6d 79 70 72 6f 6a 70 61 74 68 73 0a ble myprojpaths.
36c0: 0a 09 69 66 20 7b 21 5b 6c 6c 65 6e 67 74 68 20 ..if {![llength
36d0: 24 6d 79 70 72 6f 6a 65 63 74 73 5d 7d 20 7b 0a $myprojects]} {.
36e0: 09 20 20 20 20 73 65 74 20 6d 79 70 72 6f 6a 65 . set myproje
36f0: 63 74 73 20 5b 45 6d 70 74 79 50 72 6f 6a 65 63 cts [EmptyProjec
3700: 74 73 20 24 6d 79 70 72 6f 6a 70 61 74 68 73 5d ts $myprojpaths]
3710: 0a 09 7d 0a 09 72 65 74 75 72 6e 20 24 6d 79 70 ..}..return $myp
3720: 72 6f 6a 65 63 74 73 0a 20 20 20 20 7d 0a 0a 20 rojects. }..
3730: 20 20 20 70 72 6f 63 20 45 6d 70 74 79 50 72 6f proc EmptyPro
3740: 6a 65 63 74 73 20 7b 70 72 6f 6a 70 61 74 68 73 jects {projpaths
3750: 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c 65 20 } {..::variable
3760: 6d 79 62 61 73 65 0a 09 75 70 76 61 72 20 31 20 mybase..upvar 1
3770: 74 79 70 65 20 74 79 70 65 0a 09 73 65 74 20 72 type type..set r
3780: 65 73 20 7b 7d 0a 09 69 66 20 7b 5b 6c 6c 65 6e es {}..if {[llen
3790: 67 74 68 20 24 70 72 6f 6a 70 61 74 68 73 5d 7d gth $projpaths]}
37a0: 20 7b 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 {.. foreach
37b0: 70 70 20 24 70 72 6f 6a 70 61 74 68 73 20 7b 0a pp $projpaths {.
37c0: 09 09 6c 61 70 70 65 6e 64 20 72 65 73 20 5b 70 ..lappend res [p
37d0: 72 6f 6a 65 63 74 20 25 41 55 54 4f 25 20 24 70 roject %AUTO% $p
37e0: 70 20 24 74 79 70 65 5d 0a 09 20 20 20 20 7d 0a p $type].. }.
37f0: 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 23 .} else {.. #
3800: 20 42 61 73 65 20 69 73 20 74 68 65 20 73 69 6e Base is the sin
3810: 67 6c 65 20 70 72 6f 6a 65 63 74 2e 0a 09 20 20 gle project...
3820: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 5b 70 lappend res [p
3830: 72 6f 6a 65 63 74 20 25 41 55 54 4f 25 20 22 22 roject %AUTO% ""
3840: 20 24 74 79 70 65 5d 0a 09 7d 0a 09 72 65 74 75 $type]..}..retu
3850: 72 6e 20 24 72 65 73 0a 20 20 20 20 7d 0a 0a 20 rn $res. }..
3860: 20 20 20 70 72 6f 63 20 53 61 76 65 41 75 74 68 proc SaveAuth
3870: 6f 72 73 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 ors {} {..::vari
3880: 61 62 6c 65 20 6d 79 61 75 74 68 6f 72 0a 09 66 able myauthor..f
3890: 6f 72 65 61 63 68 20 7b 6e 61 6d 65 20 61 69 64 oreach {name aid
38a0: 7d 20 5b 24 6d 79 61 75 74 68 6f 72 20 67 65 74 } [$myauthor get
38b0: 5d 20 7b 0a 09 20 20 20 20 73 74 61 74 65 20 72 ] {.. state r
38c0: 75 6e 20 7b 0a 09 09 49 4e 53 45 52 54 20 49 4e un {...INSERT IN
38d0: 54 4f 20 61 75 74 68 6f 72 20 28 20 61 69 64 2c TO author ( aid,
38e0: 20 20 6e 61 6d 65 29 0a 09 09 56 41 4c 55 45 53 name)...VALUES
38f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 61 ($a
3900: 69 64 2c 20 24 6e 61 6d 65 29 3b 0a 09 20 20 20 id, $name);..
3910: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
3920: 20 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 53 61 }.. proc Sa
3930: 76 65 43 6f 6d 6d 69 74 4d 65 73 73 61 67 65 73 veCommitMessages
3940: 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 61 62 6c {} {..::variabl
3950: 65 20 6d 79 63 6d 73 67 0a 09 66 6f 72 65 61 63 e mycmsg..foreac
3960: 68 20 7b 74 65 78 74 20 63 69 64 7d 20 5b 24 6d h {text cid} [$m
3970: 79 63 6d 73 67 20 67 65 74 5d 20 7b 0a 09 20 20 ycmsg get] {..
3980: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
3990: 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 6d 65 73 INSERT INTO cmes
39a0: 73 61 67 65 20 28 20 63 69 64 2c 20 20 74 65 78 sage ( cid, tex
39b0: 74 29 0a 09 09 56 41 4c 55 45 53 20 20 20 20 20 t)...VALUES
39c0: 20 20 20 20 20 20 20 20 20 20 28 24 63 69 64 2c ($cid,
39d0: 20 24 74 65 78 74 29 3b 0a 09 20 20 20 20 7d 0a $text);.. }.
39e0: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
39f0: 0a 0a 20 20 20 20 70 72 6f 63 20 53 61 76 65 4d .. proc SaveM
3a00: 65 74 61 20 7b 7d 20 7b 0a 09 3a 3a 76 61 72 69 eta {} {..::vari
3a10: 61 62 6c 65 20 6d 79 6d 65 74 61 0a 09 66 6f 72 able mymeta..for
3a20: 65 61 63 68 20 7b 6b 65 79 20 6d 69 64 7d 20 5b each {key mid} [
3a30: 24 6d 79 6d 65 74 61 20 67 65 74 5d 20 7b 0a 09 $mymeta get] {..
3a40: 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 struct::list
3a50: 20 61 73 73 69 67 6e 20 24 6b 65 79 20 70 69 64 assign $key pid
3a60: 20 62 69 64 20 61 69 64 20 63 69 64 0a 09 20 20 bid aid cid..
3a70: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
3a80: 49 4e 53 45 52 54 20 49 4e 54 4f 20 6d 65 74 61 INSERT INTO meta
3a90: 20 28 20 6d 69 64 2c 20 20 70 69 64 2c 20 20 62 ( mid, pid, b
3aa0: 69 64 2c 20 20 61 69 64 2c 20 20 63 69 64 29 0a id, aid, cid).
3ab0: 09 09 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 ..VALUES
3ac0: 20 20 20 28 24 6d 69 64 2c 20 24 70 69 64 2c 20 ($mid, $pid,
3ad0: 24 62 69 64 2c 20 24 61 69 64 2c 20 24 63 69 64 $bid, $aid, $cid
3ae0: 29 3b 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 );.. }..}..re
3af0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
3b00: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
3b10: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
3b20: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 43 #######. ## C
3b30: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 0a 20 20 onfiguration..
3b40: 20 20 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 73 pragma -hasins
3b50: 74 61 6e 63 65 73 20 20 20 6e 6f 20 3b 20 23 20 tances no ; #
3b60: 73 69 6e 67 6c 65 74 6f 6e 0a 20 20 20 20 70 72 singleton. pr
3b70: 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 agma -hastypeinf
3b80: 6f 20 20 20 20 6e 6f 20 3b 20 23 20 6e 6f 20 69 o no ; # no i
3b90: 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 ntrospection.
3ba0: 20 70 72 61 67 6d 61 20 2d 68 61 73 74 79 70 65 pragma -hastype
3bb0: 64 65 73 74 72 6f 79 20 6e 6f 20 3b 20 23 20 69 destroy no ; # i
3bc0: 6d 6d 6f 72 74 61 6c 0a 0a 20 20 20 20 23 20 23 mmortal.. # #
3bd0: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
3be0: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
3bf0: 23 23 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 ####.}..namespac
3c00: 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 e eval ::vc::fos
3c10: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
3c20: 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 {. namespace
3c30: 20 65 78 70 6f 72 74 20 72 65 70 6f 73 69 74 6f export reposito
3c40: 72 79 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 ry. namespace
3c50: 20 65 76 61 6c 20 72 65 70 6f 73 69 74 6f 72 79 eval repository
3c60: 20 7b 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d {..namespace im
3c70: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
3c80: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
3c90: 70 72 6f 6a 65 63 74 0a 09 6e 61 6d 65 73 70 61 project..namespa
3ca0: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
3cb0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
3cc0: 63 76 73 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 cvs::state..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 6d 69 73 63 3a 3a c::tools::misc::
3cf0: 2a 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 *..namespace imp
3d00: 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a ort ::vc::tools:
3d10: 3a 69 64 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 :id..namespace i
3d20: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c mport ::vc::tool
3d30: 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 s::trouble..name
3d40: 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 space import ::v
3d50: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c c::tools::log..l
3d60: 6f 67 20 72 65 67 69 73 74 65 72 20 72 65 70 6f og register repo
3d70: 73 69 74 6f 72 79 0a 20 20 20 20 7d 0a 7d 0a 0a sitory. }.}..
3d80: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
3d90: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
3da0: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
3db0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 #############.##
3dc0: 20 52 65 61 64 79 0a 72 65 74 75 72 6e 0a Ready.return.