Artifact cdd6e8c6041b9468851615b081269fa9658193ba:
File
tools/cvs2fossil/lib/c2f_psym.tcl
part of check-in
[66235f2430]
- Updated the copyright information of all files touched in the new year.
by
aku on
2008-02-06 05:04:12.
Also file
tools/cvs2fossil/lib/c2f_psym.tcl
part of check-in
[6b78df3861]
- Merge in changes from Andreas's branch.
by
drh on
2008-02-08 21:52:21.
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 66 6f 72 65 61 63 68 es {} {..foreach
1c40: 20 7b 74 69 64 20 6e 61 6d 65 7d 20 5b 73 74 61 {tid name} [sta
1c50: 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 te run {.. SE
1c60: 4c 45 43 54 20 74 69 64 2c 20 6e 61 6d 65 20 46 LECT tid, name F
1c70: 52 4f 4d 20 73 79 6d 74 79 70 65 3b 0a 09 7d 5d ROM symtype;..}]
1c80: 20 7b 20 73 65 74 20 6d 79 73 79 6d 74 79 70 65 { set mysymtype
1c90: 28 24 74 69 64 29 20 24 6e 61 6d 65 20 7d 0a 09 ($tid) $name }..
1ca0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
1cb0: 20 20 23 20 4b 65 65 70 20 74 68 65 20 63 6f 64 # Keep the cod
1cc0: 65 73 20 62 65 6c 6f 77 20 69 6e 20 73 79 6e 63 es below in sync
1cd0: 20 77 69 74 68 20 27 70 61 73 73 3a 3a 63 6f 6c with 'pass::col
1ce0: 6c 72 65 76 2f 73 65 74 75 70 28 27 73 79 6d 74 lrev/setup('symt
1cf0: 79 70 65 27 29 2e 0a 20 20 20 20 74 79 70 65 76 ype').. typev
1d00: 61 72 69 61 62 6c 65 20 6d 79 65 78 63 6c 75 64 ariable myexclud
1d10: 65 64 20 20 20 20 20 20 20 20 30 20 3b 20 23 20 ed 0 ; #
1d20: 43 6f 64 65 20 66 6f 72 20 73 79 6d 62 6f 6c 73 Code for symbols
1d30: 20 77 68 69 63 68 20 61 72 65 20 65 78 63 6c 75 which are exclu
1d40: 64 65 64 2e 0a 20 20 20 20 74 79 70 65 76 61 72 ded.. typevar
1d50: 69 61 62 6c 65 20 6d 79 74 61 67 20 20 20 20 20 iable mytag
1d60: 20 20 20 20 20 20 20 20 31 20 3b 20 23 20 43 6f 1 ; # Co
1d70: 64 65 20 66 6f 72 20 73 79 6d 62 6f 6c 73 20 77 de for symbols w
1d80: 68 69 63 68 20 61 72 65 20 74 61 67 73 2e 0a 20 hich are tags..
1d90: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
1da0: 6d 79 62 72 61 6e 63 68 20 20 20 20 20 20 20 20 mybranch
1db0: 20 20 32 20 3b 20 23 20 43 6f 64 65 20 66 6f 72 2 ; # Code for
1dc0: 20 73 79 6d 62 6f 6c 73 20 77 68 69 63 68 20 61 symbols which a
1dd0: 72 65 20 62 72 61 6e 63 68 65 73 2e 0a 20 20 20 re branches..
1de0: 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 typevariable my
1df0: 75 6e 64 65 66 20 20 20 20 20 20 20 20 20 20 20 undef
1e00: 33 20 3b 20 23 20 43 6f 64 65 20 66 6f 72 20 73 3 ; # Code for s
1e10: 79 6d 62 6f 6c 73 20 6f 66 20 75 6e 6b 6e 6f 77 ymbols of unknow
1e20: 6e 20 74 79 70 65 2e 0a 20 20 20 20 74 79 70 65 n type.. type
1e30: 76 61 72 69 61 62 6c 65 20 6d 79 73 79 6d 74 79 variable mysymty
1e40: 70 65 20 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 pe -array {} ; #
1e50: 20 4d 61 70 20 66 72 6f 6d 20 74 79 70 65 20 63 Map from type c
1e60: 6f 64 65 20 74 6f 20 6c 61 62 65 6c 20 66 6f 72 ode to label for
1e70: 20 74 68 65 20 6c 6f 67 2e 0a 0a 20 20 20 20 74 the log... t
1e80: 79 70 65 6d 65 74 68 6f 64 20 75 6e 64 65 66 20 ypemethod undef
1e90: 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 24 {} { return $
1ea0: 6d 79 75 6e 64 65 66 20 20 20 20 7d 0a 20 20 20 myundef }.
1eb0: 20 74 79 70 65 6d 65 74 68 6f 64 20 65 78 63 6c typemethod excl
1ec0: 75 64 65 64 20 7b 7d 20 7b 20 72 65 74 75 72 6e uded {} { return
1ed0: 20 24 6d 79 65 78 63 6c 75 64 65 64 20 7d 0a 20 $myexcluded }.
1ee0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 74 61 typemethod ta
1ef0: 67 20 20 20 20 20 20 7b 7d 20 7b 20 72 65 74 75 g {} { retu
1f00: 72 6e 20 24 6d 79 74 61 67 20 20 20 20 20 20 7d rn $mytag }
1f10: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
1f20: 62 72 61 6e 63 68 20 20 20 7b 7d 20 7b 20 72 65 branch {} { re
1f30: 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 20 20 turn $mybranch
1f40: 20 7d 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 }.. typemeth
1f50: 6f 64 20 70 72 69 6e 74 72 75 6c 65 73 74 61 74 od printrulestat
1f60: 69 73 74 69 63 73 20 7b 7d 20 7b 0a 09 6c 6f 67 istics {} {..log
1f70: 20 77 72 69 74 65 20 32 20 73 79 6d 62 6f 6c 20 write 2 symbol
1f80: 22 52 75 6c 65 20 75 73 61 67 65 20 73 74 61 74 "Rule usage stat
1f90: 69 73 74 69 63 73 3a 22 0a 0a 09 73 65 74 20 66 istics:"...set f
1fa0: 6d 74 20 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 mt %[string leng
1fb0: 74 68 20 24 6d 79 6e 75 6d 5d 73 0a 09 73 65 74 th $mynum]s..set
1fc0: 20 61 6c 6c 20 30 0a 0a 09 66 6f 72 65 61 63 68 all 0...foreach
1fd0: 20 6b 65 79 20 5b 6c 73 6f 72 74 20 5b 61 72 72 key [lsort [arr
1fe0: 61 79 20 6e 61 6d 65 73 20 6d 79 72 75 6c 65 63 ay names myrulec
1ff0: 6f 75 6e 74 5d 5d 20 7b 0a 09 20 20 20 20 6c 6f ount]] {.. lo
2000: 67 20 77 72 69 74 65 20 32 20 73 79 6d 62 6f 6c g write 2 symbol
2010: 20 22 2a 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 "* [format $fmt
2020: 20 24 6d 79 72 75 6c 65 63 6f 75 6e 74 28 24 6b $myrulecount($k
2030: 65 79 29 5d 20 24 6b 65 79 22 0a 09 20 20 20 20 ey)] $key"..
2040: 69 6e 63 72 20 61 6c 6c 20 24 6d 79 72 75 6c 65 incr all $myrule
2050: 63 6f 75 6e 74 28 24 6b 65 79 29 0a 09 7d 0a 0a count($key)..}..
2060: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 73 79 6d .log write 2 sym
2070: 62 6f 6c 20 22 3d 20 5b 66 6f 72 6d 61 74 20 24 bol "= [format $
2080: 66 6d 74 20 24 61 6c 6c 5d 20 74 6f 74 61 6c 22 fmt $all] total"
2090: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
20a0: 20 20 20 20 23 20 53 74 61 74 69 73 74 69 63 73 # Statistics
20b0: 20 6f 6e 20 68 6f 77 20 6f 66 74 65 6e 20 65 61 on how often ea
20c0: 63 68 20 27 72 75 6c 65 27 20 77 61 73 20 75 73 ch 'rule' was us
20d0: 65 64 20 74 6f 20 64 65 63 69 64 65 20 6f 6e 20 ed to decide on
20e0: 74 68 65 0a 20 20 20 20 23 20 74 79 70 65 20 6f the. # type o
20f0: 66 20 61 20 73 79 6d 62 6f 6c 2e 0a 20 20 20 20 f a symbol..
2100: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 72 typevariable myr
2110: 75 6c 65 63 6f 75 6e 74 20 2d 61 72 72 61 79 20 ulecount -array
2120: 7b 0a 09 48 61 73 43 6f 6d 6d 69 74 73 20 30 0a {..HasCommits 0.
2130: 09 49 73 54 68 65 54 72 75 6e 6b 20 30 0a 09 55 .IsTheTrunk 0..U
2140: 6e 61 6d 62 69 67 6f 75 73 20 30 0a 09 55 6e 64 nambigous 0..Und
2150: 65 63 69 64 65 64 5f 20 30 0a 09 55 73 65 72 43 ecided_ 0..UserC
2160: 6f 6e 66 69 67 20 30 0a 09 56 6f 74 65 43 6f 75 onfig 0..VoteCou
2170: 6e 74 73 20 30 0a 20 20 20 20 7d 0a 0a 20 20 20 nts 0. }..
2180: 20 74 79 70 65 6d 65 74 68 6f 64 20 70 72 69 6e typemethod prin
2190: 74 74 79 70 65 73 74 61 74 69 73 74 69 63 73 20 ttypestatistics
21a0: 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 74 65 20 {} {..log write
21b0: 32 20 73 79 6d 62 6f 6c 20 22 53 79 6d 62 6f 6c 2 symbol "Symbol
21c0: 20 74 79 70 65 20 73 74 61 74 69 73 74 69 63 73 type statistics
21d0: 3a 22 0a 0a 09 73 65 74 20 66 6d 74 20 25 5b 73 :"...set fmt %[s
21e0: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6d 79 tring length $my
21f0: 6e 75 6d 5d 73 0a 09 73 65 74 20 61 6c 6c 20 30 num]s..set all 0
2200: 0a 0a 09 66 6f 72 65 61 63 68 20 7b 73 74 79 70 ...foreach {styp
2210: 65 20 73 70 6c 75 72 61 6c 20 6e 7d 20 5b 73 74 e splural n} [st
2220: 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 53 ate run {.. S
2230: 45 4c 45 43 54 20 54 2e 6e 61 6d 65 2c 20 54 2e ELECT T.name, T.
2240: 70 6c 75 72 61 6c 2c 20 43 4f 55 4e 54 20 28 73 plural, COUNT (s
2250: 2e 73 69 64 29 0a 09 20 20 20 20 46 52 4f 4d 20 .sid).. FROM
2260: 73 79 6d 62 6f 6c 20 53 2c 20 73 79 6d 74 79 70 symbol S, symtyp
2270: 65 20 54 0a 09 20 20 20 20 57 48 45 52 45 20 53 e T.. WHERE S
2280: 2e 74 79 70 65 20 3d 20 54 2e 74 69 64 0a 09 20 .type = T.tid..
2290: 20 20 20 47 52 4f 55 50 20 42 59 20 54 2e 6e 61 GROUP BY T.na
22a0: 6d 65 0a 09 20 20 20 20 4f 52 44 45 52 20 42 59 me.. ORDER BY
22b0: 20 54 2e 6e 61 6d 65 0a 09 20 20 20 20 3b 0a 09 T.name.. ;..
22c0: 7d 5d 20 7b 0a 09 20 20 20 20 6c 6f 67 20 77 72 }] {.. log wr
22d0: 69 74 65 20 32 20 73 79 6d 62 6f 6c 20 22 2a 20 ite 2 symbol "*
22e0: 5b 66 6f 72 6d 61 74 20 24 66 6d 74 20 24 6e 5d [format $fmt $n]
22f0: 20 5b 73 70 20 24 6e 20 24 73 74 79 70 65 20 24 [sp $n $stype $
2300: 73 70 6c 75 72 61 6c 5d 22 0a 09 20 20 20 20 69 splural]".. i
2310: 6e 63 72 20 61 6c 6c 20 24 6e 0a 09 7d 0a 0a 09 ncr all $n..}...
2320: 6c 6f 67 20 77 72 69 74 65 20 32 20 73 79 6d 62 log write 2 symb
2330: 6f 6c 20 22 3d 20 5b 66 6f 72 6d 61 74 20 24 66 ol "= [format $f
2340: 6d 74 20 24 61 6c 6c 5d 20 74 6f 74 61 6c 22 0a mt $all] total".
2350: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
2360: 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 20 typevariable
2370: 6d 79 6e 75 6d 20 30 0a 0a 20 20 20 20 23 20 23 mynum 0.. # #
2380: 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 ## ### ##### ##
2390: 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 ###### #########
23a0: 23 23 23 23 0a 20 20 20 20 23 23 20 49 6e 74 65 ####. ## Inte
23b0: 72 6e 61 6c 20 6d 65 74 68 6f 64 73 0a 0a 20 20 rnal methods..
23c0: 20 20 6d 65 74 68 6f 64 20 55 73 65 72 43 6f 6e method UserCon
23d0: 66 69 67 20 7b 7d 20 7b 0a 09 73 65 74 20 70 72 fig {} {..set pr
23e0: 6f 6a 65 63 74 20 5b 24 6d 79 70 72 6f 6a 65 63 oject [$myprojec
23f0: 74 20 62 61 73 65 5d 0a 0a 09 23 20 46 69 72 73 t base]...# Firs
2400: 74 20 63 68 65 63 6b 20 69 66 20 74 68 65 20 75 t check if the u
2410: 73 65 72 20 72 65 71 75 65 73 74 65 64 20 74 68 ser requested th
2420: 65 20 65 78 63 6c 75 73 69 6f 6e 20 6f 66 20 74 e exclusion of t
2430: 68 65 0a 09 23 20 73 79 6d 62 6f 6c 20 66 72 6f he..# symbol fro
2440: 6d 20 63 6f 6e 76 65 72 73 69 6f 6e 2e 0a 0a 09 m conversion....
2450: 66 6f 72 65 61 63 68 20 65 78 20 24 6d 79 65 78 foreach ex $myex
2460: 63 6c 75 64 65 70 61 74 74 65 72 6e 20 7b 0a 09 cludepattern {..
2470: 20 20 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 struct::list
2480: 20 61 73 73 69 67 6e 20 24 65 78 20 70 70 20 73 assign $ex pp s
2490: 70 0a 09 20 20 20 20 69 66 20 7b 21 5b 73 74 72 p.. if {![str
24a0: 69 6e 67 20 6d 61 74 63 68 20 24 70 70 20 24 70 ing match $pp $p
24b0: 72 6f 6a 65 63 74 5d 7d 20 63 6f 6e 74 69 6e 75 roject]} continu
24c0: 65 0a 09 20 20 20 20 69 66 20 7b 21 5b 73 74 72 e.. if {![str
24d0: 69 6e 67 20 6d 61 74 63 68 20 24 73 70 20 24 6d ing match $sp $m
24e0: 79 6e 61 6d 65 5d 7d 20 20 63 6f 6e 74 69 6e 75 yname]} continu
24f0: 65 0a 09 20 20 20 20 72 65 74 75 72 6e 20 24 6d e.. return $m
2500: 79 65 78 63 6c 75 64 65 64 0a 09 7d 0a 0a 09 23 yexcluded..}...#
2510: 20 49 66 20 74 68 65 20 73 79 6d 62 6f 6c 20 69 If the symbol i
2520: 73 20 6e 6f 74 20 65 78 63 6c 75 64 65 64 20 66 s not excluded f
2530: 75 72 74 68 65 72 20 63 68 65 63 6b 20 69 66 20 urther check if
2540: 74 68 65 20 75 73 65 72 0a 09 23 20 66 6f 72 63 the user..# forc
2550: 65 73 20 69 74 73 20 63 6f 6e 76 65 72 73 69 6f es its conversio
2560: 6e 20 61 73 20 61 20 73 70 65 63 69 66 69 63 20 n as a specific
2570: 74 79 70 65 2e 0a 0a 09 66 6f 72 65 61 63 68 20 type....foreach
2580: 7b 65 78 20 73 74 79 70 65 7d 20 24 6d 79 66 6f {ex stype} $myfo
2590: 72 63 65 70 61 74 74 65 72 6e 20 7b 0a 09 20 20 rcepattern {..
25a0: 20 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 61 struct::list a
25b0: 73 73 69 67 6e 20 24 65 78 20 70 70 20 73 70 0a ssign $ex pp sp.
25c0: 09 20 20 20 20 69 66 20 7b 21 5b 73 74 72 69 6e . if {![strin
25d0: 67 20 6d 61 74 63 68 20 24 70 70 20 24 70 72 6f g match $pp $pro
25e0: 6a 65 63 74 5d 7d 20 63 6f 6e 74 69 6e 75 65 0a ject]} continue.
25f0: 09 20 20 20 20 69 66 20 7b 21 5b 73 74 72 69 6e . if {![strin
2600: 67 20 6d 61 74 63 68 20 24 73 70 20 24 6d 79 6e g match $sp $myn
2610: 61 6d 65 5d 7d 20 20 63 6f 6e 74 69 6e 75 65 0a ame]} continue.
2620: 09 20 20 20 20 72 65 74 75 72 6e 20 24 73 74 79 . return $sty
2630: 70 65 0a 09 7d 0a 0a 09 23 20 4e 6f 74 68 69 6e pe..}...# Nothin
2640: 67 20 69 73 20 66 6f 72 63 65 64 2c 20 68 61 76 g is forced, hav
2650: 65 20 74 68 65 20 6d 61 69 6e 20 73 79 73 74 65 e the main syste
2660: 6d 20 68 61 6e 64 20 74 68 65 20 73 79 6d 62 6f m hand the symbo
2670: 6c 20 6f 76 65 72 0a 09 23 20 74 6f 20 74 68 65 l over..# to the
2680: 20 72 65 67 75 6c 61 72 20 68 65 75 72 69 73 74 regular heurist
2690: 69 63 73 2e 0a 0a 09 72 65 74 75 72 6e 20 24 6d ics....return $m
26a0: 79 75 6e 64 65 66 0a 20 20 20 20 7d 0a 0a 20 20 yundef. }..
26b0: 20 20 6d 65 74 68 6f 64 20 55 6e 61 6d 62 69 67 method Unambig
26c0: 6f 75 73 20 7b 7d 20 7b 0a 09 23 20 49 66 20 61 ous {} {..# If a
26d0: 20 73 79 6d 62 6f 6c 20 69 73 20 75 73 65 64 20 symbol is used
26e0: 75 6e 61 6d 62 69 67 75 6f 75 73 6c 79 20 61 73 unambiguously as
26f0: 20 61 20 74 61 67 2f 62 72 61 6e 63 68 2c 20 63 a tag/branch, c
2700: 6f 6e 76 65 72 74 0a 09 23 20 69 74 20 61 73 20 onvert..# it as
2710: 73 75 63 68 2e 0a 0a 09 73 65 74 20 69 73 74 61 such....set ista
2720: 67 20 20 20 20 5b 65 78 70 72 20 7b 24 6d 79 74 g [expr {$myt
2730: 61 67 63 6f 75 6e 74 20 20 20 20 3e 20 30 7d 5d agcount > 0}]
2740: 0a 09 73 65 74 20 69 73 62 72 61 6e 63 68 20 5b ..set isbranch [
2750: 65 78 70 72 20 7b 24 6d 79 62 72 61 6e 63 68 63 expr {$mybranchc
2760: 6f 75 6e 74 20 3e 20 30 20 7c 7c 20 24 6d 79 63 ount > 0 || $myc
2770: 6f 6d 6d 69 74 63 6f 75 6e 74 20 3e 20 30 7d 5d ommitcount > 0}]
2780: 0a 0a 09 69 66 20 7b 24 69 73 74 61 67 20 26 26 ...if {$istag &&
2790: 20 24 69 73 62 72 61 6e 63 68 7d 20 7b 20 72 65 $isbranch} { re
27a0: 74 75 72 6e 20 24 6d 79 75 6e 64 65 66 20 20 7d turn $myundef }
27b0: 0a 09 69 66 20 7b 24 69 73 74 61 67 7d 20 20 20 ..if {$istag}
27c0: 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 { ret
27d0: 75 72 6e 20 24 6d 79 74 61 67 20 20 20 20 7d 0a urn $mytag }.
27e0: 09 69 66 20 7b 24 69 73 62 72 61 6e 63 68 7d 20 .if {$isbranch}
27f0: 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 75 { retu
2800: 72 6e 20 24 6d 79 62 72 61 6e 63 68 20 7d 0a 0a rn $mybranch }..
2810: 09 23 20 53 79 6d 62 6f 6c 20 77 61 73 20 6e 6f .# Symbol was no
2820: 74 20 75 73 65 64 20 61 74 20 61 6c 6c 2e 0a 09 t used at all...
2830: 72 65 74 75 72 6e 20 24 6d 79 75 6e 64 65 66 0a return $myundef.
2840: 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f }.. metho
2850: 64 20 48 61 73 43 6f 6d 6d 69 74 73 20 7b 7d 20 d HasCommits {}
2860: 7b 0a 09 23 20 49 66 20 74 68 65 72 65 20 77 61 {..# If there wa
2870: 73 20 65 76 65 72 20 61 20 63 6f 6d 6d 69 74 20 s ever a commit
2880: 6f 6e 20 74 68 65 20 73 79 6d 62 6f 6c 2c 20 63 on the symbol, c
2890: 6f 6e 76 65 72 74 20 69 74 20 61 73 20 61 0a 09 onvert it as a..
28a0: 23 20 62 72 61 6e 63 68 2e 0a 0a 09 69 66 20 7b # branch....if {
28b0: 24 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e 74 20 3e $mycommitcount >
28c0: 20 30 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 0} { return $my
28d0: 62 72 61 6e 63 68 20 7d 0a 09 72 65 74 75 72 6e branch }..return
28e0: 20 24 6d 79 75 6e 64 65 66 0a 20 20 20 20 7d 0a $myundef. }.
28f0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 56 6f 74 65 . method Vote
2900: 43 6f 75 6e 74 73 20 7b 7d 20 7b 0a 09 23 20 43 Counts {} {..# C
2910: 6f 6e 76 65 72 74 20 74 68 65 20 73 79 6d 62 6f onvert the symbo
2920: 6c 20 62 61 73 65 64 20 6f 6e 20 68 6f 77 20 6f l based on how o
2930: 66 74 65 6e 20 69 74 20 77 61 73 20 75 73 65 64 ften it was used
2940: 20 61 73 20 61 0a 09 23 20 62 72 61 6e 63 68 2f as a..# branch/
2950: 74 61 67 2e 20 57 68 69 63 68 65 76 65 72 20 68 tag. Whichever h
2960: 61 70 70 65 6e 65 64 20 6d 6f 72 65 20 6f 66 74 appened more oft
2970: 65 6e 20 64 65 74 65 72 6d 69 6e 65 73 20 68 6f en determines ho
2980: 77 20 74 68 65 0a 09 23 20 73 79 6d 62 6f 6c 20 w the..# symbol
2990: 69 73 20 63 6f 6e 76 65 72 74 65 64 2e 0a 0a 09 is converted....
29a0: 69 66 20 7b 24 6d 79 74 61 67 63 6f 75 6e 74 20 if {$mytagcount
29b0: 3e 20 24 6d 79 62 72 61 6e 63 68 63 6f 75 6e 74 > $mybranchcount
29c0: 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 74 61 } { return $myta
29d0: 67 20 7d 0a 09 69 66 20 7b 24 6d 79 74 61 67 63 g }..if {$mytagc
29e0: 6f 75 6e 74 20 3c 20 24 6d 79 62 72 61 6e 63 68 ount < $mybranch
29f0: 63 6f 75 6e 74 7d 20 7b 20 72 65 74 75 72 6e 20 count} { return
2a00: 24 6d 79 62 72 61 6e 63 68 20 7d 0a 09 72 65 74 $mybranch }..ret
2a10: 75 72 6e 20 24 6d 79 75 6e 64 65 66 0a 20 20 20 urn $myundef.
2a20: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 4d }.. method M
2a30: 61 72 6b 41 73 20 7b 6c 61 62 65 6c 20 63 68 6f arkAs {label cho
2a40: 73 65 6e 7d 20 7b 0a 09 6c 6f 67 20 77 72 69 74 sen} {..log writ
2a50: 65 20 33 20 73 79 6d 62 6f 6c 20 7b 5c 5b 24 6c e 3 symbol {\[$l
2a60: 61 62 65 6c 5c 5d 20 43 6f 6e 76 65 72 74 69 6e abel\] Convertin
2a70: 67 20 73 79 6d 62 6f 6c 20 27 24 6d 79 6e 61 6d g symbol '$mynam
2a80: 65 27 20 61 73 20 24 6d 79 73 79 6d 74 79 70 65 e' as $mysymtype
2a90: 28 24 63 68 6f 73 65 6e 29 7d 0a 0a 09 73 65 74 ($chosen)}...set
2aa0: 20 6d 79 74 79 70 65 20 24 63 68 6f 73 65 6e 0a mytype $chosen.
2ab0: 09 69 6e 63 72 20 6d 79 72 75 6c 65 63 6f 75 6e .incr myrulecoun
2ac0: 74 28 24 6c 61 62 65 6c 29 0a 0a 09 23 20 54 68 t($label)...# Th
2ad0: 69 73 20 69 73 20 73 74 6f 72 65 64 20 64 69 72 is is stored dir
2ae0: 65 63 74 6c 79 20 69 6e 74 6f 20 74 68 65 20 64 ectly into the d
2af0: 61 74 61 62 61 73 65 2e 0a 09 73 74 61 74 65 20 atabase...state
2b00: 72 75 6e 20 7b 0a 09 20 20 20 20 55 50 44 41 54 run {.. UPDAT
2b10: 45 20 73 79 6d 62 6f 6c 0a 09 20 20 20 20 53 45 E symbol.. SE
2b20: 54 20 74 79 70 65 20 3d 20 24 63 68 6f 73 65 6e T type = $chosen
2b30: 0a 09 20 20 20 20 57 48 45 52 45 20 73 69 64 20 .. WHERE sid
2b40: 3d 20 24 6d 79 69 64 0a 09 20 20 20 20 3b 0a 09 = $myid.. ;..
2b50: 7d 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a }..return. }.
2b60: 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 . # # ## ###
2b70: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
2b80: 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 20 ############.
2b90: 20 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 6f ## Configuratio
2ba0: 6e 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 n.. pragma -h
2bb0: 61 73 74 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f astypeinfo no
2bc0: 20 20 3b 20 23 20 6e 6f 20 74 79 70 65 20 69 6e ; # no type in
2bd0: 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 20 20 trospection.
2be0: 70 72 61 67 6d 61 20 2d 68 61 73 69 6e 66 6f 20 pragma -hasinfo
2bf0: 20 20 20 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e no ; # n
2c00: 6f 20 6f 62 6a 65 63 74 20 69 6e 74 72 6f 73 70 o object introsp
2c10: 65 63 74 69 6f 6e 0a 20 20 20 20 70 72 61 67 6d ection. pragm
2c20: 61 20 2d 73 69 6d 70 6c 65 64 69 73 70 61 74 63 a -simpledispatc
2c30: 68 20 79 65 73 20 3b 20 23 20 73 69 6d 70 6c 65 h yes ; # simple
2c40: 20 66 61 73 74 20 64 69 73 70 61 74 63 68 0a 0a fast dispatch..
2c50: 20 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 # # ## ### #
2c60: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
2c70: 23 23 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e ###########.}..n
2c80: 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a amespace eval ::
2c90: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
2ca0: 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 rt::cvs::project
2cb0: 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 {. namespace
2cc0: 20 65 78 70 6f 72 74 20 73 79 6d 0a 20 20 20 20 export sym.
2cd0: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 73 namespace eval s
2ce0: 79 6d 20 7b 0a 09 6e 61 6d 65 73 70 61 63 65 20 ym {..namespace
2cf0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
2d00: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
2d10: 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 ::state..namespa
2d20: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
2d30: 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a 0a 09 tools::misc::*..
2d40: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
2d50: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 72 ::vc::tools::tr
2d60: 6f 75 62 6c 65 0a 09 6e 61 6d 65 73 70 61 63 65 ouble..namespace
2d70: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f import ::vc::to
2d80: 6f 6c 73 3a 3a 6c 6f 67 0a 09 6c 6f 67 20 72 65 ols::log..log re
2d90: 67 69 73 74 65 72 20 73 79 6d 62 6f 6c 0a 20 20 gister symbol.
2da0: 20 20 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 }.}..# # ## ##
2db0: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
2dc0: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
2dd0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
2de0: 23 23 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 ####.## Ready..p
2df0: 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 ackage provide v
2e00: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
2e10: 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 74 3a t::cvs::project:
2e20: 3a 73 79 6d 20 31 2e 30 0a 72 65 74 75 72 6e 0a :sym 1.0.return.