Fossil

Hex Artifact Content
Login

Artifact e021cb0c0ba26a1f03dce672c10c353c44c28cfb:


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.