Artifact 294eabb16a7e144d43724890aa537afd88adece9:
File
tools/cvs2fossil/lib/c2f_psym.tcl
part of check-in
[f637d42206]
- Updated my notes regarding memory usage. Converted more locations to incremental query processing via 'state foreachrow', now throughout the importer.
by
aku on
2008-02-24 18:01:40.
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 53 79 6d 62 6f 6c 73 20 28 54 61 67 73 2c # Symbols (Tags,
0210: 20 42 72 61 6e 63 68 65 73 29 20 70 65 72 20 70 Branches) per p
0220: 72 6f 6a 65 63 74 2e 0a 0a 23 20 23 20 23 23 20 roject...# # ##
0230: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
0240: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0250: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ###############
0260: 23 23 23 23 23 23 0a 23 23 20 52 65 71 75 69 72 ######.## Requir
0270: 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61 67 65 20 ements..package
0280: 72 65 71 75 69 72 65 20 54 63 6c 20 38 2e 34 20 require Tcl 8.4
0290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
02b0: 23 20 52 65 71 75 69 72 65 64 20 72 75 6e 74 69 # Required runti
02c0: 6d 65 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 me..package requ
02d0: 69 72 65 20 73 6e 69 74 20 20 20 20 20 20 20 20 ire snit
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 20 20 20 3b 20 23 20 4f 4f ; # OO
0300: 20 73 79 73 74 65 6d 2e 0a 70 61 63 6b 61 67 65 system..package
0310: 20 72 65 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f require vc::too
0320: 6c 73 3a 3a 74 72 6f 75 62 6c 65 20 20 20 20 20 ls::trouble
0330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b ;
0340: 20 23 20 45 72 72 6f 72 20 72 65 70 6f 72 74 69 # Error reporti
0350: 6e 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ng..package requ
0360: 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c ire vc::tools::l
0370: 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 og
0380: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 55 73 ; # Us
0390: 65 72 20 66 65 65 64 62 61 63 6b 2e 0a 70 61 63 er feedback..pac
03a0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 3a kage require vc:
03b0: 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 20 20 20 :tools::misc
03c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03d0: 20 20 20 3b 20 23 20 54 65 78 74 20 66 6f 72 6d ; # Text form
03e0: 61 74 74 69 6e 67 2e 0a 70 61 63 6b 61 67 65 20 atting..package
03f0: 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 require vc::foss
0400: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
0410: 3a 73 74 61 74 65 20 20 20 20 20 20 20 20 3b 20 :state ;
0420: 23 20 53 74 61 74 65 20 73 74 6f 72 61 67 65 2e # State storage.
0430: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0440: 20 73 74 72 75 63 74 3a 3a 73 65 74 20 20 20 20 struct::set
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0460: 20 20 20 20 20 20 20 3b 20 23 20 53 65 74 20 68 ; # Set h
0470: 61 6e 64 6c 69 6e 67 2e 0a 0a 23 20 23 20 23 23 andling...# # ##
0480: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
0490: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
04a0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 # ##############
04b0: 23 23 23 23 23 23 23 0a 23 23 0a 0a 73 6e 69 74 #######.##..snit
04c0: 3a 3a 74 79 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 ::type ::vc::fos
04d0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
04e0: 3a 3a 70 72 6f 6a 65 63 74 3a 3a 73 79 6d 20 7b ::project::sym {
04f0: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
0500: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0510: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
0520: 20 23 23 20 50 75 62 6c 69 63 20 41 50 49 0a 0a ## Public API..
0530: 20 20 20 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 constructor
0540: 7b 6e 61 6d 65 20 69 64 20 70 72 6f 6a 65 63 74 {name id project
0550: 7d 20 7b 0a 09 73 65 74 20 6d 79 6e 61 6d 65 20 } {..set myname
0560: 20 20 20 24 6e 61 6d 65 0a 09 73 65 74 20 6d 79 $name..set my
0570: 69 64 20 20 20 20 20 20 24 69 64 0a 09 73 65 74 id $id..set
0580: 20 6d 79 70 72 6f 6a 65 63 74 20 24 70 72 6f 6a myproject $proj
0590: 65 63 74 0a 0a 09 23 20 43 6f 75 6e 74 20 74 6f ect...# Count to
05a0: 74 61 6c 20 6e 75 6d 62 65 72 20 6f 66 20 73 79 tal number of sy
05b0: 6d 62 6f 6c 73 2e 0a 09 69 6e 63 72 20 6d 79 6e mbols...incr myn
05c0: 75 6d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d um..return. }
05d0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 6e 61 6d .. method nam
05e0: 65 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d e {} { return $m
05f0: 79 6e 61 6d 65 20 7d 0a 20 20 20 20 6d 65 74 68 yname }. meth
0600: 6f 64 20 69 64 20 20 20 7b 7d 20 7b 20 72 65 74 od id {} { ret
0610: 75 72 6e 20 24 6d 79 69 64 20 20 20 7d 0a 0a 20 urn $myid }..
0620: 20 20 20 6d 65 74 68 6f 64 20 69 73 74 72 75 6e method istrun
0630: 6b 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 30 20 k {} { return 0
0640: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 61 }.. method pa
0650: 72 65 6e 74 20 7b 7d 20 7b 0a 09 72 65 74 75 72 rent {} {..retur
0660: 6e 20 5b 24 6d 79 70 72 6f 6a 65 63 74 20 67 65 n [$myproject ge
0670: 74 73 79 6d 62 6f 6c 20 5b 73 74 61 74 65 20 6f tsymbol [state o
0680: 6e 65 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 54 ne {.. SELECT
0690: 20 53 2e 6e 61 6d 65 0a 09 20 20 20 20 46 52 4f S.name.. FRO
06a0: 4d 20 74 61 67 20 54 2c 20 73 79 6d 62 6f 6c 20 M tag T, symbol
06b0: 53 0a 09 20 20 20 20 57 48 45 52 45 20 54 2e 73 S.. WHERE T.s
06c0: 69 64 20 3d 20 24 6d 79 69 64 0a 09 20 20 20 20 id = $myid..
06d0: 41 4e 44 20 20 20 53 2e 73 69 64 20 3d 20 54 2e AND S.sid = T.
06e0: 6c 6f 64 0a 09 55 4e 49 4f 4e 0a 09 20 20 20 20 lod..UNION..
06f0: 53 45 4c 45 43 54 20 53 2e 6e 61 6d 65 0a 09 20 SELECT S.name..
0700: 20 20 20 46 52 4f 4d 20 62 72 61 6e 63 68 20 42 FROM branch B
0710: 2c 20 73 79 6d 62 6f 6c 20 53 0a 09 20 20 20 20 , symbol S..
0720: 57 48 45 52 45 20 42 2e 73 69 64 20 3d 20 24 6d WHERE B.sid = $m
0730: 79 69 64 0a 09 20 20 20 20 41 4e 44 20 20 20 53 yid.. AND S
0740: 2e 73 69 64 20 3d 20 42 2e 6c 6f 64 0a 09 7d 5d .sid = B.lod..}]
0750: 5d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a ]..return. }.
0760: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
0770: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0780: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
0790: 20 23 23 20 53 79 6d 62 6f 6c 20 74 79 70 65 0a ## Symbol type.
07a0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 65 74 65 . method dete
07b0: 72 6d 69 6e 65 74 79 70 65 20 7b 7d 20 7b 0a 09 rminetype {} {..
07c0: 23 20 54 68 69 73 20 69 73 20 64 6f 6e 65 20 62 # This is done b
07d0: 79 20 61 20 66 69 78 65 64 20 68 65 75 72 69 73 y a fixed heuris
07e0: 74 69 63 73 2c 20 77 69 74 68 20 67 75 69 64 61 tics, with guida
07f0: 6e 63 65 20 62 79 20 74 68 65 0a 09 23 20 75 73 nce by the..# us
0800: 65 72 20 69 6e 20 65 64 67 65 2d 63 61 73 65 73 er in edge-cases
0810: 2e 20 43 6f 6e 74 72 61 72 79 20 74 6f 20 63 76 . Contrary to cv
0820: 73 32 73 76 6e 20 77 68 69 63 68 20 75 73 65 73 s2svn which uses
0830: 20 61 20 62 69 67 0a 09 23 20 68 6f 6e 6b 69 6e a big..# honkin
0840: 67 20 73 74 72 65 61 67 79 20 63 6c 61 73 73 20 g streagy class
0850: 61 6e 64 20 72 75 6c 65 20 6f 62 6a 65 63 74 73 and rule objects
0860: 2e 20 4b 65 65 70 20 69 74 20 73 69 6d 70 6c 65 . Keep it simple
0870: 2c 20 77 65 0a 09 23 20 63 61 6e 20 65 78 70 61 , we..# can expa
0880: 6e 64 20 6c 61 74 65 72 20 77 68 65 6e 20 77 65 nd later when we
0890: 20 61 63 74 75 61 6c 6c 79 20 6e 65 65 64 20 61 actually need a
08a0: 6c 6c 20 74 68 65 20 63 6f 6d 70 6c 65 78 69 74 ll the complexit
08b0: 79 0a 09 23 20 66 6f 72 20 63 6f 6e 66 69 67 75 y..# for configu
08c0: 72 61 62 69 6c 69 74 79 2e 0a 0a 09 23 20 54 68 rability....# Th
08d0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 67 75 69 64 e following guid
08e0: 65 6c 69 6e 65 73 20 61 72 65 20 61 70 70 6c 69 elines are appli
08f0: 65 64 3a 0a 09 23 20 2d 20 49 73 20 75 73 61 67 ed:..# - Is usag
0900: 65 20 75 6e 61 6d 62 69 67 6f 75 73 20 3f 0a 09 e unambigous ?..
0910: 23 20 2d 20 57 61 73 20 74 68 65 72 65 20 65 76 # - Was there ev
0920: 65 72 20 61 20 63 6f 6d 6d 69 74 20 6f 6e 20 74 er a commit on t
0930: 68 65 20 73 79 6d 62 6f 6c 20 3f 0a 09 23 20 2d he symbol ?..# -
0940: 20 4d 6f 72 65 20 75 73 65 64 20 61 73 20 74 61 More used as ta
0950: 67 2c 20 6f 72 20 6d 6f 72 65 20 75 73 65 64 20 g, or more used
0960: 61 73 20 62 72 61 6e 63 68 20 3f 0a 09 23 20 2d as branch ?..# -
0970: 20 41 74 20 6c 61 73 74 2c 20 77 68 61 74 20 68 At last, what h
0980: 61 73 20 74 68 65 20 75 73 65 72 20 74 6f 6c 64 as the user told
0990: 20 75 73 20 61 62 6f 75 74 20 69 74 20 3f 0a 09 us about it ?..
09a0: 23 20 2d 20 46 61 69 6c 0a 0a 09 66 6f 72 65 61 # - Fail...forea
09b0: 63 68 20 72 75 6c 65 20 7b 0a 09 20 20 20 20 55 ch rule {.. U
09c0: 73 65 72 43 6f 6e 66 69 67 0a 09 20 20 20 20 55 serConfig.. U
09d0: 6e 61 6d 62 69 67 6f 75 73 0a 09 20 20 20 20 48 nambigous.. H
09e0: 61 73 43 6f 6d 6d 69 74 73 0a 09 20 20 20 20 56 asCommits.. V
09f0: 6f 74 65 43 6f 75 6e 74 73 0a 09 7d 20 7b 0a 09 oteCounts..} {..
0a00: 20 20 20 73 65 74 20 63 68 6f 73 65 6e 20 5b 24 set chosen [$
0a10: 73 65 6c 66 20 24 72 75 6c 65 5d 0a 09 20 20 20 self $rule]..
0a20: 69 66 20 7b 24 63 68 6f 73 65 6e 20 65 71 20 24 if {$chosen eq $
0a30: 6d 79 75 6e 64 65 66 7d 20 63 6f 6e 74 69 6e 75 myundef} continu
0a40: 65 0a 09 20 20 20 24 73 65 6c 66 20 4d 61 72 6b e.. $self Mark
0a50: 41 73 20 24 72 75 6c 65 20 24 63 68 6f 73 65 6e As $rule $chosen
0a60: 0a 09 20 20 20 72 65 74 75 72 6e 0a 09 7d 0a 0a .. return..}..
0a70: 09 23 20 4e 6f 6e 65 20 6f 66 20 74 68 65 20 61 .# None of the a
0a80: 62 6f 76 65 20 77 61 73 20 61 62 6c 65 20 74 6f bove was able to
0a90: 20 64 65 63 69 64 65 20 77 68 69 63 68 20 74 79 decide which ty
0aa0: 70 65 20 74 6f 20 61 73 73 69 67 6e 20 74 6f 0a pe to assign to.
0ab0: 09 23 20 74 68 65 20 73 79 6d 62 6f 6c 2e 20 54 .# the symbol. T
0ac0: 68 69 73 20 69 73 20 61 20 66 61 74 61 6c 20 65 his is a fatal e
0ad0: 72 72 6f 72 20 70 72 65 76 65 6e 74 69 6e 67 20 rror preventing
0ae0: 74 68 65 20 65 78 65 63 75 74 69 6f 6e 0a 09 23 the execution..#
0af0: 20 6f 66 20 74 68 65 20 70 61 73 73 65 73 20 61 of the passes a
0b00: 66 74 65 72 20 27 43 6f 6c 6c 61 74 65 53 79 6d fter 'CollateSym
0b10: 62 6f 6c 73 27 2e 0a 0a 09 69 6e 63 72 20 6d 79 bols'....incr my
0b20: 72 75 6c 65 63 6f 75 6e 74 28 55 6e 64 65 63 69 rulecount(Undeci
0b30: 64 65 64 5f 29 0a 09 74 72 6f 75 62 6c 65 20 66 ded_)..trouble f
0b40: 61 74 61 6c 20 22 55 6e 61 62 6c 65 20 74 6f 20 atal "Unable to
0b50: 64 65 63 69 64 65 20 68 6f 77 20 74 6f 20 63 6f decide how to co
0b60: 6e 76 65 72 74 20 73 79 6d 62 6f 6c 20 27 24 6d nvert symbol '$m
0b70: 79 6e 61 6d 65 27 22 0a 09 72 65 74 75 72 6e 0a yname'"..return.
0b80: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
0b90: 64 20 6d 61 72 6b 74 68 65 74 72 75 6e 6b 20 7b d markthetrunk {
0ba0: 7d 20 7b 20 24 73 65 6c 66 20 4d 61 72 6b 41 73 } { $self MarkAs
0bb0: 20 49 73 54 68 65 54 72 75 6e 6b 20 24 6d 79 62 IsTheTrunk $myb
0bc0: 72 61 6e 63 68 20 3b 20 72 65 74 75 72 6e 20 7d ranch ; return }
0bd0: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
0be0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
0bf0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
0c00: 20 20 23 23 20 53 79 6d 62 6f 6c 20 73 74 61 74 ## Symbol stat
0c10: 69 73 74 69 63 73 0a 0a 20 20 20 20 6d 65 74 68 istics.. meth
0c20: 6f 64 20 64 65 66 63 6f 75 6e 74 73 20 7b 74 63 od defcounts {tc
0c30: 20 62 63 20 63 63 7d 20 7b 0a 09 73 65 74 20 6d bc cc} {..set m
0c40: 79 62 72 61 6e 63 68 63 6f 75 6e 74 20 24 74 63 ybranchcount $tc
0c50: 0a 09 73 65 74 20 6d 79 74 61 67 63 6f 75 6e 74 ..set mytagcount
0c60: 20 20 20 20 24 62 63 0a 09 73 65 74 20 6d 79 63 $bc..set myc
0c70: 6f 6d 6d 69 74 63 6f 75 6e 74 20 24 63 63 0a 09 ommitcount $cc..
0c80: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
0c90: 20 20 6d 65 74 68 6f 64 20 63 6f 75 6e 74 61 73 method countas
0ca0: 62 72 61 6e 63 68 20 7b 7d 20 7b 20 69 6e 63 72 branch {} { incr
0cb0: 20 6d 79 62 72 61 6e 63 68 63 6f 75 6e 74 20 3b mybranchcount ;
0cc0: 20 72 65 74 75 72 6e 20 7d 0a 20 20 20 20 6d 65 return }. me
0cd0: 74 68 6f 64 20 63 6f 75 6e 74 61 73 74 61 67 20 thod countastag
0ce0: 20 20 20 7b 7d 20 7b 20 69 6e 63 72 20 6d 79 74 {} { incr myt
0cf0: 61 67 63 6f 75 6e 74 20 20 20 20 3b 20 72 65 74 agcount ; ret
0d00: 75 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 urn }. method
0d10: 20 63 6f 75 6e 74 61 63 6f 6d 6d 69 74 20 20 7b countacommit {
0d20: 7d 20 7b 20 69 6e 63 72 20 6d 79 63 6f 6d 6d 69 } { incr mycommi
0d30: 74 63 6f 75 6e 74 20 3b 20 72 65 74 75 72 6e 20 tcount ; return
0d40: 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 62 6c }.. method bl
0d50: 6f 63 6b 65 64 62 79 20 7b 73 79 6d 62 6f 6c 7d ockedby {symbol}
0d60: 20 7b 0a 09 23 20 52 65 6d 65 6d 62 65 72 20 74 {..# Remember t
0d70: 68 65 20 73 79 6d 62 6f 6c 20 61 73 20 70 72 65 he symbol as pre
0d80: 76 65 6e 74 69 6e 67 20 74 68 65 20 72 65 6d 6f venting the remo
0d90: 76 61 6c 20 6f 66 20 74 68 69 73 0a 09 23 20 73 val of this..# s
0da0: 79 6d 62 6f 6c 2e 20 4f 74 20 69 73 20 61 20 74 ymbol. Ot is a t
0db0: 61 67 20 6f 72 20 62 72 61 6e 63 68 20 74 68 61 ag or branch tha
0dc0: 74 20 73 70 61 77 6e 65 64 20 66 72 6f 6d 20 61 t spawned from a
0dd0: 20 72 65 76 69 73 69 6f 6e 0a 09 23 20 6f 6e 20 revision..# on
0de0: 74 68 69 73 20 73 79 6d 62 6f 6c 2e 0a 0a 09 73 this symbol....s
0df0: 74 72 75 63 74 3a 3a 73 65 74 20 69 6e 63 6c 75 truct::set inclu
0e00: 64 65 20 6d 79 62 6c 6f 63 6b 65 72 73 20 24 73 de myblockers $s
0e10: 79 6d 62 6f 6c 0a 09 72 65 74 75 72 6e 0a 20 20 ymbol..return.
0e20: 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 }.. method
0e30: 70 6f 73 73 69 62 6c 65 70 61 72 65 6e 74 20 7b possibleparent {
0e40: 73 79 6d 62 6f 6c 7d 20 7b 0a 09 6c 6f 67 20 77 symbol} {..log w
0e50: 72 69 74 65 20 39 20 73 79 6d 62 6f 6c 20 22 50 rite 9 symbol "P
0e60: 6f 73 73 69 62 6c 65 20 70 61 72 65 6e 74 20 28 ossible parent (
0e70: 24 6d 79 6e 61 6d 65 29 20 3d 20 5b 24 73 79 6d $myname) = [$sym
0e80: 62 6f 6c 20 6e 61 6d 65 5d 22 0a 0a 09 69 66 20 bol name]"...if
0e90: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 6d 79 {[info exists my
0ea0: 70 70 61 72 65 6e 74 28 24 73 79 6d 62 6f 6c 29 pparent($symbol)
0eb0: 5d 7d 20 7b 0a 09 20 20 20 20 69 6e 63 72 20 6d ]} {.. incr m
0ec0: 79 70 70 61 72 65 6e 74 28 24 73 79 6d 62 6f 6c ypparent($symbol
0ed0: 29 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 )..} else {..
0ee0: 20 73 65 74 20 20 6d 79 70 70 61 72 65 6e 74 28 set mypparent(
0ef0: 24 73 79 6d 62 6f 6c 29 20 31 0a 09 7d 0a 09 72 $symbol) 1..}..r
0f00: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
0f10: 20 6d 65 74 68 6f 64 20 69 73 67 68 6f 73 74 20 method isghost
0f20: 7b 7d 20 7b 0a 09 23 20 43 68 65 63 6b 73 20 69 {} {..# Checks i
0f30: 66 20 74 68 69 73 20 73 79 6d 62 6f 6c 20 28 61 f this symbol (a
0f40: 73 20 6c 69 6e 65 20 6f 66 20 64 65 76 65 6c 6f s line of develo
0f50: 70 6d 65 6e 74 29 20 6e 65 76 65 72 0a 09 23 20 pment) never..#
0f60: 65 78 69 73 74 65 64 2e 0a 0a 09 69 66 20 7b 24 existed....if {$
0f70: 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e 74 20 3e 20 mycommitcount >
0f80: 30 7d 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 0} { ret
0f90: 75 72 6e 20 30 20 7d 0a 09 69 66 20 7b 5b 6c 6c urn 0 }..if {[ll
0fa0: 65 6e 67 74 68 20 24 6d 79 62 6c 6f 63 6b 65 72 ength $myblocker
0fb0: 73 5d 7d 20 20 20 20 20 20 7b 20 72 65 74 75 72 s]} { retur
0fc0: 6e 20 30 20 7d 0a 09 69 66 20 7b 5b 61 72 72 61 n 0 }..if {[arra
0fd0: 79 20 73 69 7a 65 20 6d 79 70 70 61 72 65 6e 74 y size mypparent
0fe0: 5d 20 3e 20 30 7d 20 7b 20 72 65 74 75 72 6e 20 ] > 0} { return
0ff0: 30 20 7d 0a 0a 09 72 65 74 75 72 6e 20 31 0a 20 0 }...return 1.
1000: 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 }.. # # ##
1010: 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 ### ##### #####
1020: 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 ### ############
1030: 23 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 70 65 #.. method pe
1040: 72 73 69 73 74 72 65 76 20 7b 7d 20 7b 0a 09 73 rsistrev {} {..s
1050: 65 74 20 70 69 64 20 5b 24 6d 79 70 72 6f 6a 65 et pid [$myproje
1060: 63 74 20 69 64 5d 0a 0a 09 73 74 61 74 65 20 74 ct id]...state t
1070: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 09 20 20 ransaction {..
1080: 20 20 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 state run {...
1090: 49 4e 53 45 52 54 20 49 4e 54 4f 20 73 79 6d 62 INSERT INTO symb
10a0: 6f 6c 20 28 20 73 69 64 2c 20 20 20 70 69 64 2c ol ( sid, pid,
10b0: 20 20 6e 61 6d 65 2c 20 20 20 74 79 70 65 2c 20 name, type,
10c0: 20 20 20 20 74 61 67 5f 63 6f 75 6e 74 2c 20 20 tag_count,
10d0: 20 62 72 61 6e 63 68 5f 63 6f 75 6e 74 2c 20 20 branch_count,
10e0: 20 63 6f 6d 6d 69 74 5f 63 6f 75 6e 74 29 0a 09 commit_count)..
10f0: 09 56 41 4c 55 45 53 20 20 20 20 20 20 20 20 20 .VALUES
1100: 20 20 20 20 28 24 6d 79 69 64 2c 20 24 70 69 64 ($myid, $pid
1110: 2c 20 24 6d 79 6e 61 6d 65 2c 20 24 6d 79 75 6e , $myname, $myun
1120: 64 65 66 2c 20 24 6d 79 74 61 67 63 6f 75 6e 74 def, $mytagcount
1130: 2c 20 24 6d 79 62 72 61 6e 63 68 63 6f 75 6e 74 , $mybranchcount
1140: 2c 20 24 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e 74 , $mycommitcount
1150: 29 3b 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 66 );.. }.. f
1160: 6f 72 65 61 63 68 20 73 79 6d 62 6f 6c 20 24 6d oreach symbol $m
1170: 79 62 6c 6f 63 6b 65 72 73 20 7b 0a 09 09 73 65 yblockers {...se
1180: 74 20 62 69 64 20 5b 24 73 79 6d 62 6f 6c 20 69 t bid [$symbol i
1190: 64 5d 0a 09 09 73 74 61 74 65 20 72 75 6e 20 7b d]...state run {
11a0: 0a 09 09 20 20 20 20 49 4e 53 45 52 54 20 49 4e ... INSERT IN
11b0: 54 4f 20 62 6c 6f 63 6b 65 72 20 28 73 69 64 2c TO blocker (sid,
11c0: 20 20 20 62 69 64 29 0a 09 09 20 20 20 20 56 41 bid)... VA
11d0: 4c 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 LUES
11e0: 20 20 28 24 6d 79 69 64 2c 20 24 62 69 64 29 3b ($myid, $bid);
11f0: 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 20 20 20 ...}.. }..
1200: 20 66 6f 72 65 61 63 68 20 7b 73 79 6d 62 6f 6c foreach {symbol
1210: 20 63 6f 75 6e 74 7d 20 5b 61 72 72 61 79 20 67 count} [array g
1220: 65 74 20 6d 79 70 70 61 72 65 6e 74 5d 20 7b 0a et mypparent] {.
1230: 09 09 73 65 74 20 70 69 64 20 5b 24 73 79 6d 62 ..set pid [$symb
1240: 6f 6c 20 69 64 5d 0a 09 09 73 74 61 74 65 20 72 ol id]...state r
1250: 75 6e 20 7b 0a 09 09 20 20 20 20 49 4e 53 45 52 un {... INSER
1260: 54 20 49 4e 54 4f 20 70 61 72 65 6e 74 20 28 73 T INTO parent (s
1270: 69 64 2c 20 20 20 70 69 64 2c 20 20 6e 29 0a 09 id, pid, n)..
1280: 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 20 20 . VALUES
1290: 20 20 20 20 20 20 20 20 28 24 6d 79 69 64 2c 20 ($myid,
12a0: 24 70 69 64 2c 20 24 63 6f 75 6e 74 29 3b 0a 09 $pid, $count);..
12b0: 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 09 72 65 .}.. }..}..re
12c0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
12d0: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
12e0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
12f0: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 53 #######. ## S
1300: 74 61 74 65 0a 0a 20 20 20 20 76 61 72 69 61 62 tate.. variab
1310: 6c 65 20 6d 79 70 72 6f 6a 65 63 74 20 7b 7d 20 le myproject {}
1320: 3b 20 23 20 52 65 66 65 72 65 6e 63 65 20 74 6f ; # Reference to
1330: 20 74 68 65 20 70 72 6f 6a 65 63 74 20 6f 62 6a the project obj
1340: 65 63 74 0a 09 09 09 20 20 20 20 23 20 63 6f 6e ect.... # con
1350: 74 61 69 6e 69 6e 67 20 74 68 65 20 73 79 6d 62 taining the symb
1360: 6f 6c 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ol.. variable
1370: 20 6d 79 6e 61 6d 65 20 20 20 20 7b 7d 20 3b 20 myname {} ;
1380: 23 20 54 68 65 20 73 79 6d 62 6f 6c 27 73 20 6e # The symbol's n
1390: 61 6d 65 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ame. variable
13a0: 20 6d 79 69 64 20 20 20 20 20 20 7b 7d 20 3b 20 myid {} ;
13b0: 23 20 52 65 70 6f 73 69 74 6f 72 79 20 77 69 64 # Repository wid
13c0: 65 20 6e 75 6d 65 72 69 63 20 69 64 20 6f 66 20 e numeric id of
13d0: 74 68 65 0a 09 09 09 20 20 20 20 23 20 73 79 6d the.... # sym
13e0: 62 6f 6c 2e 20 54 68 69 73 20 69 6d 70 6c 69 63 bol. This implic
13f0: 69 74 6c 79 20 65 6e 63 6f 64 65 73 20 74 68 65 itly encodes the
1400: 0a 09 09 09 20 20 20 20 23 20 70 72 6f 6a 65 63 .... # projec
1410: 74 20 61 73 20 77 65 6c 6c 2e 0a 0a 20 20 20 20 t as well...
1420: 76 61 72 69 61 62 6c 65 20 6d 79 62 72 61 6e 63 variable mybranc
1430: 68 63 6f 75 6e 74 20 30 20 3b 20 23 20 43 6f 75 hcount 0 ; # Cou
1440: 6e 74 20 68 6f 77 20 6d 61 6e 79 20 75 73 65 73 nt how many uses
1450: 20 61 73 20 62 72 61 6e 63 68 2e 0a 20 20 20 20 as branch..
1460: 76 61 72 69 61 62 6c 65 20 6d 79 74 61 67 63 6f variable mytagco
1470: 75 6e 74 20 20 20 20 30 20 3b 20 23 20 43 6f 75 unt 0 ; # Cou
1480: 6e 74 20 68 6f 77 20 6d 61 6e 79 20 75 73 65 73 nt how many uses
1490: 20 61 73 20 74 61 67 2e 0a 20 20 20 20 76 61 72 as tag.. var
14a0: 69 61 62 6c 65 20 6d 79 63 6f 6d 6d 69 74 63 6f iable mycommitco
14b0: 75 6e 74 20 30 20 3b 20 23 20 43 6f 75 6e 74 20 unt 0 ; # Count
14c0: 68 6f 77 20 6d 61 6e 79 20 66 69 6c 65 73 20 64 how many files d
14d0: 69 64 20 61 20 63 6f 6d 6d 69 74 20 6f 6e 20 74 id a commit on t
14e0: 68 65 20 73 79 6d 62 6f 6c 2e 0a 0a 20 20 20 20 he symbol...
14f0: 76 61 72 69 61 62 6c 65 20 6d 79 62 6c 6f 63 6b variable myblock
1500: 65 72 73 20 20 20 7b 7d 20 3b 20 23 20 4c 69 73 ers {} ; # Lis
1510: 74 20 28 53 65 74 29 20 6f 66 20 74 68 65 20 73 t (Set) of the s
1520: 79 6d 62 6f 6c 73 20 77 68 69 63 68 20 62 6c 6f ymbols which blo
1530: 63 6b 0a 09 09 09 20 20 20 20 20 20 20 23 20 74 ck.... # t
1540: 68 65 20 65 78 63 6c 75 73 69 6f 6e 20 6f 66 20 he exclusion of
1550: 74 68 69 73 20 73 79 6d 62 6f 6c 2e 0a 0a 20 20 this symbol...
1560: 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 70 61 variable myppa
1570: 72 65 6e 74 20 2d 61 72 72 61 79 20 7b 7d 20 3b rent -array {} ;
1580: 20 23 20 4d 61 70 73 20 66 72 6f 6d 20 73 79 6d # Maps from sym
1590: 62 6f 6c 73 20 74 6f 20 74 68 65 20 6e 75 6d 62 bols to the numb
15a0: 65 72 0a 09 09 09 09 20 20 20 23 20 6f 66 20 66 er..... # of f
15b0: 69 6c 65 73 20 69 6e 20 77 68 69 63 68 20 69 74 iles in which it
15c0: 20 63 6f 75 6c 64 20 68 61 76 65 0a 09 09 09 09 could have.....
15d0: 20 20 20 23 20 62 65 65 6e 20 61 20 70 61 72 65 # been a pare
15e0: 6e 74 20 6f 66 20 74 68 69 73 20 73 79 6d 62 6f nt of this symbo
15f0: 6c 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 6c 65 l... variable
1600: 20 6d 79 74 79 70 65 20 7b 7d 20 3b 20 23 20 54 mytype {} ; # T
1610: 68 65 20 74 79 70 65 20 63 68 6f 73 65 6e 20 66 he type chosen f
1620: 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 74 6f or the symbol to
1630: 20 75 73 65 20 69 6e 0a 09 09 09 20 23 20 74 68 use in.... # th
1640: 65 20 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a 0a 20 e conversion...
1650: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
1660: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
1670: 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 ##########..
1680: 74 79 70 65 6d 65 74 68 6f 64 20 65 78 63 6c 75 typemethod exclu
1690: 64 65 20 7b 70 61 74 74 65 72 6e 7d 20 7b 0a 09 de {pattern} {..
16a0: 23 20 53 74 6f 72 65 20 74 68 65 20 70 61 74 74 # Store the patt
16b0: 65 72 6e 20 69 6e 20 6d 65 6d 6f 72 79 20 66 6f ern in memory fo
16c0: 72 20 75 73 65 20 62 79 20 74 68 65 20 63 6f 64 r use by the cod
16d0: 65 20 64 6f 69 6e 67 20 74 79 70 65 0a 09 23 20 e doing type..#
16e0: 64 65 74 65 72 6d 69 6e 61 74 69 6f 6e 2e 0a 0a determination...
16f0: 09 6c 61 70 70 65 6e 64 20 6d 79 65 78 63 6c 75 .lappend myexclu
1700: 64 65 70 61 74 74 65 72 6e 20 5b 50 72 6f 63 65 depattern [Proce
1710: 73 73 50 61 74 74 65 72 6e 20 24 70 61 74 74 65 ssPattern $patte
1720: 72 6e 20 65 78 63 6c 75 73 69 6f 6e 5d 0a 09 72 rn exclusion]..r
1730: 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 eturn. }..
1740: 20 74 79 70 65 6d 65 74 68 6f 64 20 66 6f 72 63 typemethod forc
1750: 65 74 61 67 20 7b 70 61 74 74 65 72 6e 7d 20 7b etag {pattern} {
1760: 0a 09 23 20 53 74 6f 72 65 20 74 68 65 20 70 61 ..# Store the pa
1770: 74 74 65 72 6e 20 69 6e 20 6d 65 6d 6f 72 79 20 ttern in memory
1780: 66 6f 72 20 75 73 65 20 62 79 20 74 68 65 20 63 for use by the c
1790: 6f 64 65 20 64 6f 69 6e 67 20 74 79 70 65 0a 09 ode doing type..
17a0: 23 20 64 65 74 65 72 6d 69 6e 61 74 69 6f 6e 2e # determination.
17b0: 0a 0a 09 6c 61 70 70 65 6e 64 20 6d 79 66 6f 72 ...lappend myfor
17c0: 63 65 70 61 74 74 65 72 6e 20 5b 50 72 6f 63 65 cepattern [Proce
17d0: 73 73 50 61 74 74 65 72 6e 20 24 70 61 74 74 65 ssPattern $patte
17e0: 72 6e 20 66 6f 72 63 65 2d 74 61 67 5d 20 24 6d rn force-tag] $m
17f0: 79 74 61 67 0a 09 72 65 74 75 72 6e 0a 20 20 20 ytag..return.
1800: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
1810: 6f 64 20 66 6f 72 63 65 62 72 61 6e 63 68 20 7b od forcebranch {
1820: 70 61 74 74 65 72 6e 7d 20 7b 0a 09 23 20 53 74 pattern} {..# St
1830: 6f 72 65 20 74 68 65 20 70 61 74 74 65 72 6e 20 ore the pattern
1840: 69 6e 20 6d 65 6d 6f 72 79 20 66 6f 72 20 75 73 in memory for us
1850: 65 20 62 79 20 74 68 65 20 63 6f 64 65 20 64 6f e by the code do
1860: 69 6e 67 20 74 79 70 65 0a 09 23 20 64 65 74 65 ing type..# dete
1870: 72 6d 69 6e 61 74 69 6f 6e 2e 0a 0a 09 6c 61 70 rmination....lap
1880: 70 65 6e 64 20 6d 79 66 6f 72 63 65 70 61 74 74 pend myforcepatt
1890: 65 72 6e 20 5b 50 72 6f 63 65 73 73 50 61 74 74 ern [ProcessPatt
18a0: 65 72 6e 20 24 70 61 74 74 65 72 6e 20 66 6f 72 ern $pattern for
18b0: 63 65 2d 62 72 61 6e 63 68 5d 20 24 6d 79 62 72 ce-branch] $mybr
18c0: 61 6e 63 68 0a 09 72 65 74 75 72 6e 0a 20 20 20 anch..return.
18d0: 20 7d 0a 0a 20 20 20 20 70 72 6f 63 20 50 72 6f }.. proc Pro
18e0: 63 65 73 73 50 61 74 74 65 72 6e 20 7b 70 61 74 cessPattern {pat
18f0: 74 65 72 6e 20 6c 61 62 65 6c 7d 20 7b 0a 09 69 tern label} {..i
1900: 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 f {[string match
1910: 20 2a 3a 2a 3a 2a 20 24 70 61 74 74 65 72 6e 5d *:*:* $pattern]
1920: 7d 20 7b 0a 09 20 20 20 20 23 20 42 61 64 20 73 } {.. # Bad s
1930: 79 6e 74 61 78 20 66 6f 72 20 74 68 65 20 70 61 yntax for the pa
1940: 74 74 65 72 6e 2c 20 75 73 69 6e 67 20 6d 75 6c ttern, using mul
1950: 74 69 70 6c 65 20 63 6f 6c 6f 6e 73 2e 0a 0a 09 tiple colons....
1960: 20 20 20 20 74 72 6f 75 62 6c 65 20 66 61 74 61 trouble fata
1970: 6c 20 22 42 61 64 20 24 6c 61 62 65 6c 20 70 61 l "Bad $label pa
1980: 74 74 65 72 6e 20 27 24 70 61 74 74 65 72 6e 27 ttern '$pattern'
1990: 22 0a 09 7d 20 65 6c 73 65 69 66 20 7b 21 5b 73 "..} elseif {![s
19a0: 74 72 69 6e 67 20 6d 61 74 63 68 20 2a 3a 2a 20 tring match *:*
19b0: 24 70 61 74 74 65 72 6e 5d 7d 20 7b 0a 09 20 20 $pattern]} {..
19c0: 20 20 23 20 57 68 65 6e 20 6f 6e 6c 79 20 61 20 # When only a
19d0: 73 79 6d 62 6f 6c 20 70 61 74 74 65 72 6e 20 69 symbol pattern i
19e0: 73 20 73 70 65 63 69 66 69 65 64 20 69 74 20 61 s specified it a
19f0: 70 70 6c 69 65 73 20 74 6f 0a 09 20 20 20 20 23 pplies to.. #
1a00: 20 61 6c 6c 20 70 72 6f 6a 65 63 74 73 2e 0a 0a all projects...
1a10: 09 20 20 20 20 72 65 74 75 72 6e 20 5b 6c 69 73 . return [lis
1a20: 74 20 2a 20 24 70 61 74 74 65 72 6e 5d 0a 09 7d t * $pattern]..}
1a30: 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 23 20 42 else {.. # B
1a40: 6f 74 68 20 70 72 6f 6a 65 63 74 20 61 6e 64 20 oth project and
1a50: 73 79 6d 62 6f 6c 20 70 61 74 74 65 72 6e 73 20 symbol patterns
1a60: 61 72 65 20 70 72 65 73 65 6e 74 2c 20 77 65 20 are present, we
1a70: 73 70 6c 69 74 0a 09 20 20 20 20 23 20 74 68 65 split.. # the
1a80: 6d 20 61 70 61 72 74 20 6e 6f 77 20 66 6f 72 20 m apart now for
1a90: 73 74 6f 72 61 67 65 20 61 6e 64 20 65 61 73 69 storage and easi
1aa0: 65 72 20 65 78 74 72 61 63 74 69 6f 6e 20 6c 61 er extraction la
1ab0: 74 65 72 2e 0a 0a 09 20 20 20 20 72 65 74 75 72 ter.... retur
1ac0: 6e 20 5b 73 70 6c 69 74 20 24 70 61 74 74 65 72 n [split $patter
1ad0: 6e 20 3a 5d 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 n :]..}. }..
1ae0: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
1af0: 6d 79 65 78 63 6c 75 64 65 70 61 74 74 65 72 6e myexcludepattern
1b00: 20 7b 7d 20 3b 20 23 20 4c 69 73 74 20 6f 66 20 {} ; # List of
1b10: 70 61 74 74 65 72 6e 73 20 73 70 65 63 69 66 79 patterns specify
1b20: 69 6e 67 0a 09 09 09 09 20 20 20 20 20 20 20 23 ing..... #
1b30: 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 74 6f 20 the symbols to
1b40: 65 78 63 6c 75 64 65 20 66 72 6f 6d 0a 09 09 09 exclude from....
1b50: 09 20 20 20 20 20 20 20 23 20 63 6f 6e 76 65 72 . # conver
1b60: 73 69 6f 6e 2e 20 54 61 67 73 20 61 6e 64 2f 6f sion. Tags and/o
1b70: 72 0a 09 09 09 09 20 20 20 20 20 20 20 23 20 62 r..... # b
1b80: 72 61 6e 63 68 65 73 2e 0a 0a 20 20 20 20 74 79 ranches... ty
1b90: 70 65 76 61 72 69 61 62 6c 65 20 6d 79 66 6f 72 pevariable myfor
1ba0: 63 65 70 61 74 74 65 72 6e 20 7b 7d 20 3b 20 23 cepattern {} ; #
1bb0: 20 4c 69 73 74 20 6f 66 20 70 61 74 74 65 72 6e List of pattern
1bc0: 73 20 61 6e 64 20 74 79 70 65 73 0a 09 09 09 09 s and types.....
1bd0: 20 20 20 20 20 23 20 73 70 65 63 69 66 79 69 6e # specifyin
1be0: 67 20 77 68 69 63 68 20 73 79 6d 62 6f 6c 73 20 g which symbols
1bf0: 74 6f 0a 09 09 09 09 20 20 20 20 20 23 20 66 6f to..... # fo
1c00: 72 63 65 20 74 6f 20 73 70 65 63 69 66 69 63 20 rce to specific
1c10: 74 79 70 65 73 2e 0a 0a 20 20 20 20 74 79 70 65 types... type
1c20: 6d 65 74 68 6f 64 20 67 65 74 73 79 6d 74 79 70 method getsymtyp
1c30: 65 73 20 7b 7d 20 7b 0a 09 73 74 61 74 65 20 66 es {} {..state f
1c40: 6f 72 65 61 63 68 72 6f 77 20 7b 0a 09 20 20 20 oreachrow {..
1c50: 20 53 45 4c 45 43 54 20 74 69 64 2c 20 6e 61 6d SELECT tid, nam
1c60: 65 20 46 52 4f 4d 20 73 79 6d 74 79 70 65 3b 0a e FROM symtype;.
1c70: 09 7d 20 7b 20 73 65 74 20 6d 79 73 79 6d 74 79 .} { set mysymty
1c80: 70 65 28 24 74 69 64 29 20 24 6e 61 6d 65 20 7d pe($tid) $name }
1c90: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
1ca0: 20 20 20 20 23 20 4b 65 65 70 20 74 68 65 20 63 # Keep the c
1cb0: 6f 64 65 73 20 62 65 6c 6f 77 20 69 6e 20 73 79 odes below in sy
1cc0: 6e 63 20 77 69 74 68 20 27 70 61 73 73 3a 3a 63 nc with 'pass::c
1cd0: 6f 6c 6c 72 65 76 2f 73 65 74 75 70 28 27 73 79 ollrev/setup('sy
1ce0: 6d 74 79 70 65 27 29 2e 0a 20 20 20 20 74 79 70 mtype').. typ
1cf0: 65 76 61 72 69 61 62 6c 65 20 6d 79 65 78 63 6c evariable myexcl
1d00: 75 64 65 64 20 20 20 20 20 20 20 20 30 20 3b 20 uded 0 ;
1d10: 23 20 43 6f 64 65 20 66 6f 72 20 73 79 6d 62 6f # Code for symbo
1d20: 6c 73 20 77 68 69 63 68 20 61 72 65 20 65 78 63 ls which are exc
1d30: 6c 75 64 65 64 2e 0a 20 20 20 20 74 79 70 65 76 luded.. typev
1d40: 61 72 69 61 62 6c 65 20 6d 79 74 61 67 20 20 20 ariable mytag
1d50: 20 20 20 20 20 20 20 20 20 20 31 20 3b 20 23 20 1 ; #
1d60: 43 6f 64 65 20 66 6f 72 20 73 79 6d 62 6f 6c 73 Code for symbols
1d70: 20 77 68 69 63 68 20 61 72 65 20 74 61 67 73 2e which are tags.
1d80: 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c . typevariabl
1d90: 65 20 6d 79 62 72 61 6e 63 68 20 20 20 20 20 20 e mybranch
1da0: 20 20 20 20 32 20 3b 20 23 20 43 6f 64 65 20 66 2 ; # Code f
1db0: 6f 72 20 73 79 6d 62 6f 6c 73 20 77 68 69 63 68 or symbols which
1dc0: 20 61 72 65 20 62 72 61 6e 63 68 65 73 2e 0a 20 are branches..
1dd0: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
1de0: 6d 79 75 6e 64 65 66 20 20 20 20 20 20 20 20 20 myundef
1df0: 20 20 33 20 3b 20 23 20 43 6f 64 65 20 66 6f 72 3 ; # Code for
1e00: 20 73 79 6d 62 6f 6c 73 20 6f 66 20 75 6e 6b 6e symbols of unkn
1e10: 6f 77 6e 20 74 79 70 65 2e 0a 20 20 20 20 74 79 own type.. ty
1e20: 70 65 76 61 72 69 61 62 6c 65 20 6d 79 73 79 6d pevariable mysym
1e30: 74 79 70 65 20 2d 61 72 72 61 79 20 7b 7d 20 3b type -array {} ;
1e40: 20 23 20 4d 61 70 20 66 72 6f 6d 20 74 79 70 65 # Map from type
1e50: 20 63 6f 64 65 20 74 6f 20 6c 61 62 65 6c 20 66 code to label f
1e60: 6f 72 20 74 68 65 20 6c 6f 67 2e 0a 0a 20 20 20 or the log...
1e70: 20 74 79 70 65 6d 65 74 68 6f 64 20 75 6e 64 65 typemethod unde
1e80: 66 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e f {} { return
1e90: 20 24 6d 79 75 6e 64 65 66 20 20 20 20 7d 0a 20 $myundef }.
1ea0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 65 78 typemethod ex
1eb0: 63 6c 75 64 65 64 20 7b 7d 20 7b 20 72 65 74 75 cluded {} { retu
1ec0: 72 6e 20 24 6d 79 65 78 63 6c 75 64 65 64 20 7d rn $myexcluded }
1ed0: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
1ee0: 74 61 67 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 tag {} { re
1ef0: 74 75 72 6e 20 24 6d 79 74 61 67 20 20 20 20 20 turn $mytag
1f00: 20 7d 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f }. typemetho
1f10: 64 20 62 72 61 6e 63 68 20 20 20 7b 7d 20 7b 20 d branch {} {
1f20: 72 65 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 return $mybranch
1f30: 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 }.. typeme
1f40: 74 68 6f 64 20 70 72 69 6e 74 72 75 6c 65 73 74 thod printrulest
1f50: 61 74 69 73 74 69 63 73 20 7b 7d 20 7b 0a 09 6c atistics {} {..l
1f60: 6f 67 20 77 72 69 74 65 20 32 20 73 79 6d 62 6f og write 2 symbo
1f70: 6c 20 22 52 75 6c 65 20 75 73 61 67 65 20 73 74 l "Rule usage st
1f80: 61 74 69 73 74 69 63 73 3a 22 0a 0a 09 73 65 74 atistics:"...set
1f90: 20 66 6d 74 20 25 5b 73 74 72 69 6e 67 20 6c 65 fmt %[string le
1fa0: 6e 67 74 68 20 24 6d 79 6e 75 6d 5d 73 0a 09 73 ngth $mynum]s..s
1fb0: 65 74 20 61 6c 6c 20 30 0a 0a 09 66 6f 72 65 61 et all 0...forea
1fc0: 63 68 20 6b 65 79 20 5b 6c 73 6f 72 74 20 5b 61 ch key [lsort [a
1fd0: 72 72 61 79 20 6e 61 6d 65 73 20 6d 79 72 75 6c rray names myrul
1fe0: 65 63 6f 75 6e 74 5d 5d 20 7b 0a 09 20 20 20 20 ecount]] {..
1ff0: 6c 6f 67 20 77 72 69 74 65 20 32 20 73 79 6d 62 log write 2 symb
2000: 6f 6c 20 22 2a 20 5b 66 6f 72 6d 61 74 20 24 66 ol "* [format $f
2010: 6d 74 20 24 6d 79 72 75 6c 65 63 6f 75 6e 74 28 mt $myrulecount(
2020: 24 6b 65 79 29 5d 20 24 6b 65 79 22 0a 09 20 20 $key)] $key"..
2030: 20 20 69 6e 63 72 20 61 6c 6c 20 24 6d 79 72 75 incr all $myru
2040: 6c 65 63 6f 75 6e 74 28 24 6b 65 79 29 0a 09 7d lecount($key)..}
2050: 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 73 ...log write 2 s
2060: 79 6d 62 6f 6c 20 22 3d 20 5b 66 6f 72 6d 61 74 ymbol "= [format
2070: 20 24 66 6d 74 20 24 61 6c 6c 5d 20 74 6f 74 61 $fmt $all] tota
2080: 6c 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d l"..return. }
2090: 0a 0a 20 20 20 20 23 20 53 74 61 74 69 73 74 69 .. # Statisti
20a0: 63 73 20 6f 6e 20 68 6f 77 20 6f 66 74 65 6e 20 cs on how often
20b0: 65 61 63 68 20 27 72 75 6c 65 27 20 77 61 73 20 each 'rule' was
20c0: 75 73 65 64 20 74 6f 20 64 65 63 69 64 65 20 6f used to decide o
20d0: 6e 20 74 68 65 0a 20 20 20 20 23 20 74 79 70 65 n the. # type
20e0: 20 6f 66 20 61 20 73 79 6d 62 6f 6c 2e 0a 20 20 of a symbol..
20f0: 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d typevariable m
2100: 79 72 75 6c 65 63 6f 75 6e 74 20 2d 61 72 72 61 yrulecount -arra
2110: 79 20 7b 0a 09 48 61 73 43 6f 6d 6d 69 74 73 20 y {..HasCommits
2120: 30 0a 09 49 73 54 68 65 54 72 75 6e 6b 20 30 0a 0..IsTheTrunk 0.
2130: 09 55 6e 61 6d 62 69 67 6f 75 73 20 30 0a 09 55 .Unambigous 0..U
2140: 6e 64 65 63 69 64 65 64 5f 20 30 0a 09 55 73 65 ndecided_ 0..Use
2150: 72 43 6f 6e 66 69 67 20 30 0a 09 56 6f 74 65 43 rConfig 0..VoteC
2160: 6f 75 6e 74 73 20 30 0a 20 20 20 20 7d 0a 0a 20 ounts 0. }..
2170: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 70 72 typemethod pr
2180: 69 6e 74 74 79 70 65 73 74 61 74 69 73 74 69 63 inttypestatistic
2190: 73 20 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 74 s {} {..log writ
21a0: 65 20 32 20 73 79 6d 62 6f 6c 20 22 53 79 6d 62 e 2 symbol "Symb
21b0: 6f 6c 20 74 79 70 65 20 73 74 61 74 69 73 74 69 ol type statisti
21c0: 63 73 3a 22 0a 0a 09 73 65 74 20 66 6d 74 20 25 cs:"...set fmt %
21d0: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
21e0: 6d 79 6e 75 6d 5d 73 0a 09 73 65 74 20 61 6c 6c mynum]s..set all
21f0: 20 30 0a 0a 09 73 74 61 74 65 20 66 6f 72 65 61 0...state forea
2200: 63 68 72 6f 77 20 7b 0a 09 20 20 20 20 53 45 4c chrow {.. SEL
2210: 45 43 54 20 54 2e 6e 61 6d 65 20 20 20 20 20 20 ECT T.name
2220: 20 20 41 53 20 73 74 79 70 65 2c 0a 09 20 20 20 AS stype,..
2230: 20 20 20 20 20 20 20 20 54 2e 70 6c 75 72 61 6c T.plural
2240: 20 20 20 20 20 20 41 53 20 73 70 6c 75 72 61 6c AS splural
2250: 2c 0a 09 20 20 20 20 20 20 20 20 20 20 20 43 4f ,.. CO
2260: 55 4e 54 20 28 73 2e 73 69 64 29 20 41 53 20 6e UNT (s.sid) AS n
2270: 0a 09 20 20 20 20 46 52 4f 4d 20 73 79 6d 62 6f .. FROM symbo
2280: 6c 20 53 2c 20 73 79 6d 74 79 70 65 20 54 0a 09 l S, symtype T..
2290: 20 20 20 20 57 48 45 52 45 20 53 2e 74 79 70 65 WHERE S.type
22a0: 20 3d 20 54 2e 74 69 64 0a 09 20 20 20 20 47 52 = T.tid.. GR
22b0: 4f 55 50 20 42 59 20 54 2e 6e 61 6d 65 0a 09 20 OUP BY T.name..
22c0: 20 20 20 4f 52 44 45 52 20 42 59 20 54 2e 6e 61 ORDER BY T.na
22d0: 6d 65 0a 09 7d 20 7b 0a 09 20 20 20 20 6c 6f 67 me..} {.. log
22e0: 20 77 72 69 74 65 20 32 20 73 79 6d 62 6f 6c 20 write 2 symbol
22f0: 22 2a 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 "* [format $fmt
2300: 24 6e 5d 20 5b 73 70 20 24 6e 20 24 73 74 79 70 $n] [sp $n $styp
2310: 65 20 24 73 70 6c 75 72 61 6c 5d 22 0a 09 20 20 e $splural]"..
2320: 20 20 69 6e 63 72 20 61 6c 6c 20 24 6e 0a 09 7d incr all $n..}
2330: 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 73 ...log write 2 s
2340: 79 6d 62 6f 6c 20 22 3d 20 5b 66 6f 72 6d 61 74 ymbol "= [format
2350: 20 24 66 6d 74 20 24 61 6c 6c 5d 20 74 6f 74 61 $fmt $all] tota
2360: 6c 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d l"..return. }
2370: 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 .. typevariab
2380: 6c 65 20 6d 79 6e 75 6d 20 30 0a 0a 20 20 20 20 le mynum 0..
2390: 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 # # ## ### #####
23a0: 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######## ######
23b0: 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 49 #######. ## I
23c0: 6e 74 65 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a nternal methods.
23d0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 55 73 65 72 . method User
23e0: 43 6f 6e 66 69 67 20 7b 7d 20 7b 0a 09 73 65 74 Config {} {..set
23f0: 20 70 72 6f 6a 65 63 74 20 5b 24 6d 79 70 72 6f project [$mypro
2400: 6a 65 63 74 20 62 61 73 65 5d 0a 0a 09 23 20 46 ject base]...# F
2410: 69 72 73 74 20 63 68 65 63 6b 20 69 66 20 74 68 irst check if th
2420: 65 20 75 73 65 72 20 72 65 71 75 65 73 74 65 64 e user requested
2430: 20 74 68 65 20 65 78 63 6c 75 73 69 6f 6e 20 6f the exclusion o
2440: 66 20 74 68 65 0a 09 23 20 73 79 6d 62 6f 6c 20 f the..# symbol
2450: 66 72 6f 6d 20 63 6f 6e 76 65 72 73 69 6f 6e 2e from conversion.
2460: 0a 0a 09 66 6f 72 65 61 63 68 20 65 78 20 24 6d ...foreach ex $m
2470: 79 65 78 63 6c 75 64 65 70 61 74 74 65 72 6e 20 yexcludepattern
2480: 7b 0a 09 20 20 20 20 73 74 72 75 63 74 3a 3a 6c {.. struct::l
2490: 69 73 74 20 61 73 73 69 67 6e 20 24 65 78 20 70 ist assign $ex p
24a0: 70 20 73 70 0a 09 20 20 20 20 69 66 20 7b 21 5b p sp.. if {![
24b0: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 70 70 string match $pp
24c0: 20 24 70 72 6f 6a 65 63 74 5d 7d 20 63 6f 6e 74 $project]} cont
24d0: 69 6e 75 65 0a 09 20 20 20 20 69 66 20 7b 21 5b inue.. if {![
24e0: 73 74 72 69 6e 67 20 6d 61 74 63 68 20 24 73 70 string match $sp
24f0: 20 24 6d 79 6e 61 6d 65 5d 7d 20 20 63 6f 6e 74 $myname]} cont
2500: 69 6e 75 65 0a 09 20 20 20 20 72 65 74 75 72 6e inue.. return
2510: 20 24 6d 79 65 78 63 6c 75 64 65 64 0a 09 7d 0a $myexcluded..}.
2520: 0a 09 23 20 49 66 20 74 68 65 20 73 79 6d 62 6f ..# If the symbo
2530: 6c 20 69 73 20 6e 6f 74 20 65 78 63 6c 75 64 65 l is not exclude
2540: 64 20 66 75 72 74 68 65 72 20 63 68 65 63 6b 20 d further check
2550: 69 66 20 74 68 65 20 75 73 65 72 0a 09 23 20 66 if the user..# f
2560: 6f 72 63 65 73 20 69 74 73 20 63 6f 6e 76 65 72 orces its conver
2570: 73 69 6f 6e 20 61 73 20 61 20 73 70 65 63 69 66 sion as a specif
2580: 69 63 20 74 79 70 65 2e 0a 0a 09 66 6f 72 65 61 ic type....forea
2590: 63 68 20 7b 65 78 20 73 74 79 70 65 7d 20 24 6d ch {ex stype} $m
25a0: 79 66 6f 72 63 65 70 61 74 74 65 72 6e 20 7b 0a yforcepattern {.
25b0: 09 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 . struct::lis
25c0: 74 20 61 73 73 69 67 6e 20 24 65 78 20 70 70 20 t assign $ex pp
25d0: 73 70 0a 09 20 20 20 20 69 66 20 7b 21 5b 73 74 sp.. if {![st
25e0: 72 69 6e 67 20 6d 61 74 63 68 20 24 70 70 20 24 ring match $pp $
25f0: 70 72 6f 6a 65 63 74 5d 7d 20 63 6f 6e 74 69 6e project]} contin
2600: 75 65 0a 09 20 20 20 20 69 66 20 7b 21 5b 73 74 ue.. if {![st
2610: 72 69 6e 67 20 6d 61 74 63 68 20 24 73 70 20 24 ring match $sp $
2620: 6d 79 6e 61 6d 65 5d 7d 20 20 63 6f 6e 74 69 6e myname]} contin
2630: 75 65 0a 09 20 20 20 20 72 65 74 75 72 6e 20 24 ue.. return $
2640: 73 74 79 70 65 0a 09 7d 0a 0a 09 23 20 4e 6f 74 stype..}...# Not
2650: 68 69 6e 67 20 69 73 20 66 6f 72 63 65 64 2c 20 hing is forced,
2660: 68 61 76 65 20 74 68 65 20 6d 61 69 6e 20 73 79 have the main sy
2670: 73 74 65 6d 20 68 61 6e 64 20 74 68 65 20 73 79 stem hand the sy
2680: 6d 62 6f 6c 20 6f 76 65 72 0a 09 23 20 74 6f 20 mbol over..# to
2690: 74 68 65 20 72 65 67 75 6c 61 72 20 68 65 75 72 the regular heur
26a0: 69 73 74 69 63 73 2e 0a 0a 09 72 65 74 75 72 6e istics....return
26b0: 20 24 6d 79 75 6e 64 65 66 0a 20 20 20 20 7d 0a $myundef. }.
26c0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 55 6e 61 6d . method Unam
26d0: 62 69 67 6f 75 73 20 7b 7d 20 7b 0a 09 23 20 49 bigous {} {..# I
26e0: 66 20 61 20 73 79 6d 62 6f 6c 20 69 73 20 75 73 f a symbol is us
26f0: 65 64 20 75 6e 61 6d 62 69 67 75 6f 75 73 6c 79 ed unambiguously
2700: 20 61 73 20 61 20 74 61 67 2f 62 72 61 6e 63 68 as a tag/branch
2710: 2c 20 63 6f 6e 76 65 72 74 0a 09 23 20 69 74 20 , convert..# it
2720: 61 73 20 73 75 63 68 2e 0a 0a 09 73 65 74 20 69 as such....set i
2730: 73 74 61 67 20 20 20 20 5b 65 78 70 72 20 7b 24 stag [expr {$
2740: 6d 79 74 61 67 63 6f 75 6e 74 20 20 20 20 3e 20 mytagcount >
2750: 30 7d 5d 0a 09 73 65 74 20 69 73 62 72 61 6e 63 0}]..set isbranc
2760: 68 20 5b 65 78 70 72 20 7b 24 6d 79 62 72 61 6e h [expr {$mybran
2770: 63 68 63 6f 75 6e 74 20 3e 20 30 20 7c 7c 20 24 chcount > 0 || $
2780: 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e 74 20 3e 20 mycommitcount >
2790: 30 7d 5d 0a 0a 09 69 66 20 7b 24 69 73 74 61 67 0}]...if {$istag
27a0: 20 26 26 20 24 69 73 62 72 61 6e 63 68 7d 20 7b && $isbranch} {
27b0: 20 72 65 74 75 72 6e 20 24 6d 79 75 6e 64 65 66 return $myundef
27c0: 20 20 7d 0a 09 69 66 20 7b 24 69 73 74 61 67 7d }..if {$istag}
27d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 {
27e0: 72 65 74 75 72 6e 20 24 6d 79 74 61 67 20 20 20 return $mytag
27f0: 20 7d 0a 09 69 66 20 7b 24 69 73 62 72 61 6e 63 }..if {$isbranc
2800: 68 7d 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 h} { r
2810: 65 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 20 eturn $mybranch
2820: 7d 0a 0a 09 23 20 53 79 6d 62 6f 6c 20 77 61 73 }...# Symbol was
2830: 20 6e 6f 74 20 75 73 65 64 20 61 74 20 61 6c 6c not used at all
2840: 2e 0a 09 72 65 74 75 72 6e 20 24 6d 79 75 6e 64 ...return $myund
2850: 65 66 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 ef. }.. me
2860: 74 68 6f 64 20 48 61 73 43 6f 6d 6d 69 74 73 20 thod HasCommits
2870: 7b 7d 20 7b 0a 09 23 20 49 66 20 74 68 65 72 65 {} {..# If there
2880: 20 77 61 73 20 65 76 65 72 20 61 20 63 6f 6d 6d was ever a comm
2890: 69 74 20 6f 6e 20 74 68 65 20 73 79 6d 62 6f 6c it on the symbol
28a0: 2c 20 63 6f 6e 76 65 72 74 20 69 74 20 61 73 20 , convert it as
28b0: 61 0a 09 23 20 62 72 61 6e 63 68 2e 0a 0a 09 69 a..# branch....i
28c0: 66 20 7b 24 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e f {$mycommitcoun
28d0: 74 20 3e 20 30 7d 20 7b 20 72 65 74 75 72 6e 20 t > 0} { return
28e0: 24 6d 79 62 72 61 6e 63 68 20 7d 0a 09 72 65 74 $mybranch }..ret
28f0: 75 72 6e 20 24 6d 79 75 6e 64 65 66 0a 20 20 20 urn $myundef.
2900: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 56 }.. method V
2910: 6f 74 65 43 6f 75 6e 74 73 20 7b 7d 20 7b 0a 09 oteCounts {} {..
2920: 23 20 43 6f 6e 76 65 72 74 20 74 68 65 20 73 79 # Convert the sy
2930: 6d 62 6f 6c 20 62 61 73 65 64 20 6f 6e 20 68 6f mbol based on ho
2940: 77 20 6f 66 74 65 6e 20 69 74 20 77 61 73 20 75 w often it was u
2950: 73 65 64 20 61 73 20 61 0a 09 23 20 62 72 61 6e sed as a..# bran
2960: 63 68 2f 74 61 67 2e 20 57 68 69 63 68 65 76 65 ch/tag. Whicheve
2970: 72 20 68 61 70 70 65 6e 65 64 20 6d 6f 72 65 20 r happened more
2980: 6f 66 74 65 6e 20 64 65 74 65 72 6d 69 6e 65 73 often determines
2990: 20 68 6f 77 20 74 68 65 0a 09 23 20 73 79 6d 62 how the..# symb
29a0: 6f 6c 20 69 73 20 63 6f 6e 76 65 72 74 65 64 2e ol is converted.
29b0: 0a 0a 09 69 66 20 7b 24 6d 79 74 61 67 63 6f 75 ...if {$mytagcou
29c0: 6e 74 20 3e 20 24 6d 79 62 72 61 6e 63 68 63 6f nt > $mybranchco
29d0: 75 6e 74 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d unt} { return $m
29e0: 79 74 61 67 20 7d 0a 09 69 66 20 7b 24 6d 79 74 ytag }..if {$myt
29f0: 61 67 63 6f 75 6e 74 20 3c 20 24 6d 79 62 72 61 agcount < $mybra
2a00: 6e 63 68 63 6f 75 6e 74 7d 20 7b 20 72 65 74 75 nchcount} { retu
2a10: 72 6e 20 24 6d 79 62 72 61 6e 63 68 20 7d 0a 09 rn $mybranch }..
2a20: 72 65 74 75 72 6e 20 24 6d 79 75 6e 64 65 66 0a return $myundef.
2a30: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
2a40: 64 20 4d 61 72 6b 41 73 20 7b 6c 61 62 65 6c 20 d MarkAs {label
2a50: 63 68 6f 73 65 6e 7d 20 7b 0a 09 6c 6f 67 20 77 chosen} {..log w
2a60: 72 69 74 65 20 33 20 73 79 6d 62 6f 6c 20 7b 5c rite 3 symbol {\
2a70: 5b 24 6c 61 62 65 6c 5c 5d 20 43 6f 6e 76 65 72 [$label\] Conver
2a80: 74 69 6e 67 20 73 79 6d 62 6f 6c 20 27 24 6d 79 ting symbol '$my
2a90: 6e 61 6d 65 27 20 61 73 20 24 6d 79 73 79 6d 74 name' as $mysymt
2aa0: 79 70 65 28 24 63 68 6f 73 65 6e 29 7d 0a 0a 09 ype($chosen)}...
2ab0: 73 65 74 20 6d 79 74 79 70 65 20 24 63 68 6f 73 set mytype $chos
2ac0: 65 6e 0a 09 69 6e 63 72 20 6d 79 72 75 6c 65 63 en..incr myrulec
2ad0: 6f 75 6e 74 28 24 6c 61 62 65 6c 29 0a 0a 09 23 ount($label)...#
2ae0: 20 54 68 69 73 20 69 73 20 73 74 6f 72 65 64 20 This is stored
2af0: 64 69 72 65 63 74 6c 79 20 69 6e 74 6f 20 74 68 directly into th
2b00: 65 20 64 61 74 61 62 61 73 65 2e 0a 09 73 74 61 e database...sta
2b10: 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 55 50 te run {.. UP
2b20: 44 41 54 45 20 73 79 6d 62 6f 6c 0a 09 20 20 20 DATE symbol..
2b30: 20 53 45 54 20 20 20 20 74 79 70 65 20 3d 20 24 SET type = $
2b40: 63 68 6f 73 65 6e 0a 09 20 20 20 20 57 48 45 52 chosen.. WHER
2b50: 45 20 20 73 69 64 20 20 3d 20 24 6d 79 69 64 0a E sid = $myid.
2b60: 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d .}..return. }
2b70: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
2b80: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
2b90: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
2ba0: 20 20 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 ## Configurati
2bb0: 6f 6e 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d on.. pragma -
2bc0: 68 61 73 74 79 70 65 69 6e 66 6f 20 20 20 20 6e hastypeinfo n
2bd0: 6f 20 20 3b 20 23 20 6e 6f 20 74 79 70 65 20 69 o ; # no type i
2be0: 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 ntrospection.
2bf0: 20 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 66 6f pragma -hasinfo
2c00: 20 20 20 20 20 20 20 20 6e 6f 20 20 3b 20 23 20 no ; #
2c10: 6e 6f 20 6f 62 6a 65 63 74 20 69 6e 74 72 6f 73 no object intros
2c20: 70 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 pection. prag
2c30: 6d 61 20 2d 73 69 6d 70 6c 65 64 69 73 70 61 74 ma -simpledispat
2c40: 63 68 20 79 65 73 20 3b 20 23 20 73 69 6d 70 6c ch yes ; # simpl
2c50: 65 20 66 61 73 74 20 64 69 73 70 61 74 63 68 0a e fast dispatch.
2c60: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
2c70: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
2c80: 23 23 23 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a ############.}..
2c90: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a namespace eval :
2ca0: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
2cb0: 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 ort::cvs::projec
2cc0: 74 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 t {. namespac
2cd0: 65 20 65 78 70 6f 72 74 20 73 79 6d 0a 20 20 20 e export sym.
2ce0: 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 namespace eval
2cf0: 73 79 6d 20 7b 0a 09 6e 61 6d 65 73 70 61 63 65 sym {..namespace
2d00: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f import ::vc::fo
2d10: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
2d20: 73 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 s::state..namesp
2d30: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
2d40: 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a :tools::misc::*.
2d50: 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 .namespace impor
2d60: 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 t ::vc::tools::t
2d70: 72 6f 75 62 6c 65 0a 09 6e 61 6d 65 73 70 61 63 rouble..namespac
2d80: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 e import ::vc::t
2d90: 6f 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 ools::log..log r
2da0: 65 67 69 73 74 65 72 20 73 79 6d 62 6f 6c 0a 20 egister symbol.
2db0: 20 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 }.}..# # ## #
2dc0: 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 ## ##### #######
2dd0: 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 # #############
2de0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2df0: 23 23 23 23 23 0a 23 23 20 52 65 61 64 79 0a 0a #####.## Ready..
2e00: 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 package provide
2e10: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
2e20: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 rt::cvs::project
2e30: 3a 3a 73 79 6d 20 31 2e 30 0a 72 65 74 75 72 6e ::sym 1.0.return
2e40: 0a .