Artifact 9138dfe62a694135b268ae7a985fa0c0d36fb375:
File
tools/cvs2fossil/lib/c2f_psym.tcl
part of check-in
[f888f06fe3]
- Continued work on pass 3, added code to determine the type of symbols based on the tag-, branch-, and commit-counts. Hook for handling data coming from the option processoris present (UserConfig), but only as a placeholder.
by
aku on
2007-11-02 06:06:24.
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 20 41 6e 64 72 65 61 73 20 4b 75 70 72 69 07 Andreas Kupri
0070: 65 73 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 es..#.# This sof
0080: 74 77 61 72 65 20 69 73 20 6c 69 63 65 6e 73 65 tware is license
0090: 64 20 61 73 20 64 65 73 63 72 69 62 65 64 20 69 d as described i
00a0: 6e 20 74 68 65 20 66 69 6c 65 20 4c 49 43 45 4e n the file LICEN
00b0: 53 45 2c 20 77 68 69 63 68 0a 23 20 79 6f 75 20 SE, which.# you
00c0: 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 should have rece
00d0: 69 76 65 64 20 61 73 20 70 61 72 74 20 6f 66 20 ived as part of
00e0: 74 68 69 73 20 64 69 73 74 72 69 62 75 74 69 6f this distributio
00f0: 6e 2e 0a 23 0a 23 20 54 68 69 73 20 73 6f 66 74 n..#.# This soft
0100: 77 61 72 65 20 63 6f 6e 73 69 73 74 73 20 6f 66 ware consists of
0110: 20 76 6f 6c 75 6e 74 61 72 79 20 63 6f 6e 74 72 voluntary contr
0120: 69 62 75 74 69 6f 6e 73 20 6d 61 64 65 20 62 79 ibutions made by
0130: 20 6d 61 6e 79 0a 23 20 69 6e 64 69 76 69 64 75 many.# individu
0140: 61 6c 73 2e 20 20 46 6f 72 20 65 78 61 63 74 20 als. For exact
0150: 63 6f 6e 74 72 69 62 75 74 69 6f 6e 20 68 69 73 contribution his
0160: 74 6f 72 79 2c 20 73 65 65 20 74 68 65 20 72 65 tory, see the re
0170: 76 69 73 69 6f 6e 0a 23 20 68 69 73 74 6f 72 79 vision.# history
0180: 20 61 6e 64 20 6c 6f 67 73 2c 20 61 76 61 69 6c and logs, avail
0190: 61 62 6c 65 20 61 74 20 68 74 74 70 3a 2f 2f 66 able at http://f
01a0: 6f 73 73 69 6c 2d 73 63 6d 2e 68 77 61 63 69 2e ossil-scm.hwaci.
01b0: 63 6f 6d 2f 66 6f 73 73 69 6c 0a 23 20 23 20 23 com/fossil.# # #
01c0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
01d0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
01e0: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
01f0: 23 23 23 23 23 23 23 23 0a 0a 23 23 20 53 79 6d ########..## Sym
0200: 62 6f 6c 73 20 28 54 61 67 73 2c 20 42 72 61 6e bols (Tags, Bran
0210: 63 68 65 73 29 20 70 65 72 20 70 72 6f 6a 65 63 ches) per projec
0220: 74 2e 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 t...# # ## ### #
0230: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
0240: 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23 ########### ####
0250: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0260: 23 0a 23 23 20 52 65 71 75 69 72 65 6d 65 6e 74 #.## Requirement
0270: 73 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 s..package requi
0280: 72 65 20 54 63 6c 20 38 2e 34 20 20 20 20 20 20 re 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 3b 20 23 20 52 65 71 ; # Req
02b0: 75 69 72 65 64 20 72 75 6e 74 69 6d 65 2e 0a 70 uired runtime..p
02c0: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 ackage require s
02d0: 6e 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 nit
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02f0: 20 20 20 20 20 3b 20 23 20 4f 4f 20 73 79 73 74 ; # OO syst
0300: 65 6d 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 em..package requ
0310: 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 74 ire vc::tools::t
0320: 72 6f 75 62 6c 65 20 20 20 20 20 20 20 20 20 20 rouble
0330: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 45 72 ; # Er
0340: 72 6f 72 20 72 65 70 6f 72 74 69 6e 67 2e 0a 70 ror reporting..p
0350: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 ackage require v
0360: 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 20 20 c::tools::log
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0380: 20 20 20 20 20 3b 20 23 20 55 73 65 72 20 66 65 ; # User fe
0390: 65 64 62 61 63 6b 2e 0a 70 61 63 6b 61 67 65 20 edback..package
03a0: 72 65 71 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c require vc::tool
03b0: 73 3a 3a 6d 69 73 63 20 20 20 20 20 20 20 20 20 s::misc
03c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ;
03d0: 23 20 54 65 78 74 20 66 6f 72 6d 61 74 74 69 6e # Text formattin
03e0: 67 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 g..package requi
03f0: 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 re vc::fossil::i
0400: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 mport::cvs::stat
0410: 65 20 20 20 20 20 20 20 20 3b 20 23 20 53 74 61 e ; # Sta
0420: 74 65 20 73 74 6f 72 61 67 65 2e 0a 70 61 63 6b te storage..pack
0430: 61 67 65 20 72 65 71 75 69 72 65 20 73 74 72 75 age require stru
0440: 63 74 3a 3a 73 65 74 20 20 20 20 20 20 20 20 20 ct::set
0450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0460: 20 20 3b 20 23 20 53 65 74 20 68 61 6e 64 6c 69 ; # Set handli
0470: 6e 67 2e 0a 0a 23 20 23 20 23 23 20 23 23 23 20 ng...# # ## ###
0480: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
0490: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
04a0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
04b0: 23 23 0a 23 23 20 0a 0a 73 6e 69 74 3a 3a 74 79 ##.## ..snit::ty
04c0: 70 65 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a pe ::vc::fossil:
04d0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 :import::cvs::pr
04e0: 6f 6a 65 63 74 3a 3a 73 79 6d 20 7b 0a 20 20 20 oject::sym {.
04f0: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
0500: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
0510: 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 ########. ##
0520: 50 75 62 6c 69 63 20 41 50 49 0a 0a 20 20 20 20 Public API..
0530: 63 6f 6e 73 74 72 75 63 74 6f 72 20 7b 6e 61 6d constructor {nam
0540: 65 20 69 64 20 70 72 6f 6a 65 63 74 7d 20 7b 0a e id project} {.
0550: 09 73 65 74 20 6d 79 6e 61 6d 65 20 20 20 20 24 .set myname $
0560: 6e 61 6d 65 0a 09 73 65 74 20 6d 79 69 64 20 20 name..set myid
0570: 20 20 20 20 24 69 64 0a 09 73 65 74 20 6d 79 70 $id..set myp
0580: 72 6f 6a 65 63 74 20 24 70 72 6f 6a 65 63 74 0a roject $project.
0590: 0a 09 23 20 43 6f 75 6e 74 20 74 6f 74 61 6c 20 ..# Count total
05a0: 6e 75 6d 62 65 72 20 6f 66 20 73 79 6d 62 6f 6c number of symbol
05b0: 73 2e 0a 09 69 6e 63 72 20 6d 79 6e 75 6d 0a 09 s...incr mynum..
05c0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
05d0: 20 20 6d 65 74 68 6f 64 20 6e 61 6d 65 20 7b 7d method name {}
05e0: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 6e 61 6d { return $mynam
05f0: 65 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 69 e }. method i
0600: 64 20 20 20 7b 7d 20 7b 20 72 65 74 75 72 6e 20 d {} { return
0610: 24 6d 79 69 64 20 20 20 7d 0a 0a 20 20 20 20 23 $myid }.. #
0620: 20 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 # ## ### #####
0630: 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 ######## #######
0640: 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 53 79 ######. ## Sy
0650: 6d 62 6f 6c 20 74 79 70 65 0a 0a 20 20 20 20 6d mbol type.. m
0660: 65 74 68 6f 64 20 64 65 74 65 72 6d 69 6e 65 74 ethod determinet
0670: 79 70 65 20 7b 7d 20 7b 0a 09 23 20 54 68 69 73 ype {} {..# This
0680: 20 69 73 20 64 6f 6e 65 20 62 79 20 61 20 66 69 is done by a fi
0690: 78 65 64 20 68 65 75 72 69 73 74 69 63 73 2c 20 xed heuristics,
06a0: 77 69 74 68 20 67 75 69 64 61 6e 63 65 20 62 79 with guidance by
06b0: 20 74 68 65 0a 09 23 20 75 73 65 72 20 69 6e 20 the..# user in
06c0: 65 64 67 65 2d 63 61 73 65 73 2e 20 43 6f 6e 74 edge-cases. Cont
06d0: 72 61 72 79 20 74 6f 20 63 76 73 32 73 76 6e 20 rary to cvs2svn
06e0: 77 68 69 63 68 20 75 73 65 73 20 61 20 62 69 67 which uses a big
06f0: 0a 09 23 20 68 6f 6e 6b 69 6e 67 20 73 74 72 65 ..# honking stre
0700: 61 67 79 20 63 6c 61 73 73 20 61 6e 64 20 72 75 agy class and ru
0710: 6c 65 20 6f 62 6a 65 63 74 73 2e 20 4b 65 65 70 le objects. Keep
0720: 20 69 74 20 73 69 6d 70 6c 65 2c 20 77 65 0a 09 it simple, we..
0730: 23 20 63 61 6e 20 65 78 70 61 6e 64 20 6c 61 74 # can expand lat
0740: 65 72 20 77 68 65 6e 20 77 65 20 61 63 74 75 61 er when we actua
0750: 6c 6c 79 20 6e 65 65 64 20 61 6c 6c 20 74 68 65 lly need all the
0760: 20 63 6f 6d 70 6c 65 78 69 74 79 0a 09 23 20 66 complexity..# f
0770: 6f 72 20 63 6f 6e 66 69 67 75 72 61 62 69 6c 69 or configurabili
0780: 74 79 2e 0a 0a 09 23 20 54 68 65 20 66 6f 6c 6c ty....# The foll
0790: 6f 77 69 6e 67 20 67 75 69 64 65 6c 69 6e 65 73 owing guidelines
07a0: 20 61 72 65 20 61 70 70 6c 69 65 64 3a 0a 09 23 are applied:..#
07b0: 20 2d 20 49 73 20 75 73 61 67 65 20 75 6e 61 6d - Is usage unam
07c0: 62 69 67 6f 75 73 20 3f 0a 09 23 20 2d 20 57 61 bigous ?..# - Wa
07d0: 73 20 74 68 65 72 65 20 65 76 65 72 20 61 20 63 s there ever a c
07e0: 6f 6d 6d 69 74 20 6f 6e 20 74 68 65 20 73 79 6d ommit on the sym
07f0: 62 6f 6c 20 3f 0a 09 23 20 2d 20 4d 6f 72 65 20 bol ?..# - More
0800: 75 73 65 64 20 61 73 20 74 61 67 2c 20 6f 72 20 used as tag, or
0810: 6d 6f 72 65 20 75 73 65 64 20 61 73 20 62 72 61 more used as bra
0820: 6e 63 68 20 3f 0a 09 23 20 2d 20 41 74 20 6c 61 nch ?..# - At la
0830: 73 74 2c 20 77 68 61 74 20 68 61 73 20 74 68 65 st, what has the
0840: 20 75 73 65 72 20 74 6f 6c 64 20 75 73 20 61 62 user told us ab
0850: 6f 75 74 20 69 74 20 3f 0a 09 23 20 2d 20 46 61 out it ?..# - Fa
0860: 69 6c 0a 09 0a 09 66 6f 72 65 61 63 68 20 72 75 il....foreach ru
0870: 6c 65 20 7b 0a 09 20 20 20 20 55 73 65 72 43 6f le {.. UserCo
0880: 6e 66 69 67 0a 09 20 20 20 20 55 6e 61 6d 62 69 nfig.. Unambi
0890: 67 6f 75 73 0a 09 20 20 20 20 48 61 73 43 6f 6d gous.. HasCom
08a0: 6d 69 74 73 0a 09 20 20 20 20 56 6f 74 65 43 6f mits.. VoteCo
08b0: 75 6e 74 73 0a 09 7d 20 7b 0a 09 20 20 20 73 65 unts..} {.. se
08c0: 74 20 63 68 6f 73 65 6e 20 5b 24 73 65 6c 66 20 t chosen [$self
08d0: 24 72 75 6c 65 5d 0a 09 20 20 20 69 66 20 7b 24 $rule].. if {$
08e0: 63 68 6f 73 65 6e 20 65 71 20 24 6d 79 75 6e 64 chosen eq $myund
08f0: 65 66 7d 20 63 6f 6e 74 69 6e 75 65 0a 09 20 20 ef} continue..
0900: 20 24 73 65 6c 66 20 4d 61 72 6b 41 73 20 24 72 $self MarkAs $r
0910: 75 6c 65 20 24 63 68 6f 73 65 6e 0a 09 20 20 20 ule $chosen..
0920: 72 65 74 75 72 6e 0a 09 7d 0a 0a 09 23 20 4e 6f return..}...# No
0930: 6e 65 20 6f 66 20 74 68 65 20 61 62 6f 76 65 20 ne of the above
0940: 77 61 73 20 61 62 6c 65 20 74 6f 20 64 65 63 69 was able to deci
0950: 64 65 20 77 68 69 63 68 20 74 79 70 65 20 74 6f de which type to
0960: 20 61 73 73 69 67 6e 20 74 6f 0a 09 23 20 74 68 assign to..# th
0970: 65 20 73 79 6d 62 6f 6c 2e 20 54 68 69 73 20 69 e symbol. This i
0980: 73 20 61 20 66 61 74 61 6c 20 65 72 72 6f 72 20 s a fatal error
0990: 70 72 65 76 65 6e 74 69 6e 67 20 74 68 65 20 65 preventing the e
09a0: 78 65 63 75 74 69 6f 6e 0a 09 23 20 6f 66 20 74 xecution..# of t
09b0: 68 65 20 70 61 73 73 65 73 20 61 66 74 65 72 20 he passes after
09c0: 27 43 6f 6c 6c 61 74 65 53 79 6d 62 6f 6c 73 27 'CollateSymbols'
09d0: 2e 0a 0a 09 69 6e 63 72 20 6d 79 72 75 6c 65 63 ....incr myrulec
09e0: 6f 75 6e 74 28 55 6e 64 65 63 69 64 65 64 5f 29 ount(Undecided_)
09f0: 0a 09 74 72 6f 75 62 6c 65 20 66 61 74 61 6c 20 ..trouble fatal
0a00: 22 55 6e 61 62 6c 65 20 74 6f 20 64 65 63 69 64 "Unable to decid
0a10: 65 20 68 6f 77 20 74 6f 20 63 6f 6e 76 65 72 74 e how to convert
0a20: 20 73 79 6d 62 6f 6c 20 27 24 6d 79 6e 61 6d 65 symbol '$myname
0a30: 27 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d '"..return. }
0a40: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 6d 61 72 .. method mar
0a50: 6b 74 68 65 74 72 75 6e 6b 20 7b 7d 20 7b 20 24 kthetrunk {} { $
0a60: 73 65 6c 66 20 4d 61 72 6b 41 73 20 49 73 54 68 self MarkAs IsTh
0a70: 65 54 72 75 6e 6b 20 24 6d 79 62 72 61 6e 63 68 eTrunk $mybranch
0a80: 20 3b 20 72 65 74 75 72 6e 20 7d 0a 0a 20 20 20 ; return }..
0a90: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
0aa0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
0ab0: 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 ########. ##
0ac0: 53 79 6d 62 6f 6c 20 73 74 61 74 69 73 74 69 63 Symbol statistic
0ad0: 73 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 64 65 s.. method de
0ae0: 66 63 6f 75 6e 74 73 20 7b 74 63 20 62 63 20 63 fcounts {tc bc c
0af0: 63 7d 20 7b 0a 09 73 65 74 20 6d 79 62 72 61 6e c} {..set mybran
0b00: 63 68 63 6f 75 6e 74 20 24 74 63 0a 09 73 65 74 chcount $tc..set
0b10: 20 6d 79 74 61 67 63 6f 75 6e 74 20 20 20 20 24 mytagcount $
0b20: 62 63 0a 09 73 65 74 20 6d 79 63 6f 6d 6d 69 74 bc..set mycommit
0b30: 63 6f 75 6e 74 20 24 63 63 0a 09 72 65 74 75 72 count $cc..retur
0b40: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 n. }.. met
0b50: 68 6f 64 20 63 6f 75 6e 74 61 73 62 72 61 6e 63 hod countasbranc
0b60: 68 20 7b 7d 20 7b 20 69 6e 63 72 20 6d 79 62 72 h {} { incr mybr
0b70: 61 6e 63 68 63 6f 75 6e 74 20 3b 20 72 65 74 75 anchcount ; retu
0b80: 72 6e 20 7d 0a 20 20 20 20 6d 65 74 68 6f 64 20 rn }. method
0b90: 63 6f 75 6e 74 61 73 74 61 67 20 20 20 20 7b 7d countastag {}
0ba0: 20 7b 20 69 6e 63 72 20 6d 79 74 61 67 63 6f 75 { incr mytagcou
0bb0: 6e 74 20 20 20 20 3b 20 72 65 74 75 72 6e 20 7d nt ; return }
0bc0: 0a 20 20 20 20 6d 65 74 68 6f 64 20 63 6f 75 6e . method coun
0bd0: 74 61 63 6f 6d 6d 69 74 20 20 7b 7d 20 7b 20 69 tacommit {} { i
0be0: 6e 63 72 20 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e ncr mycommitcoun
0bf0: 74 20 3b 20 72 65 74 75 72 6e 20 7d 0a 0a 20 20 t ; return }..
0c00: 20 20 6d 65 74 68 6f 64 20 62 6c 6f 63 6b 65 64 method blocked
0c10: 62 79 20 7b 73 79 6d 62 6f 6c 7d 20 7b 0a 09 23 by {symbol} {..#
0c20: 20 52 65 6d 65 6d 62 65 72 20 74 68 65 20 73 79 Remember the sy
0c30: 6d 62 6f 6c 20 61 73 20 70 72 65 76 65 6e 74 69 mbol as preventi
0c40: 6e 67 20 74 68 65 20 72 65 6d 6f 76 61 6c 20 6f ng the removal o
0c50: 66 20 74 68 69 73 0a 09 23 20 73 79 6d 62 6f 6c f this..# symbol
0c60: 2e 20 4f 74 20 69 73 20 61 20 74 61 67 20 6f 72 . Ot is a tag or
0c70: 20 62 72 61 6e 63 68 20 74 68 61 74 20 73 70 61 branch that spa
0c80: 77 6e 65 64 20 66 72 6f 6d 20 61 20 72 65 76 69 wned from a revi
0c90: 73 69 6f 6e 0a 09 23 20 6f 6e 20 74 68 69 73 20 sion..# on this
0ca0: 73 79 6d 62 6f 6c 2e 0a 0a 09 73 74 72 75 63 74 symbol....struct
0cb0: 3a 3a 73 65 74 20 69 6e 63 6c 75 64 65 20 6d 79 ::set include my
0cc0: 62 6c 6f 63 6b 65 72 73 20 24 73 79 6d 62 6f 6c blockers $symbol
0cd0: 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a ..return. }..
0ce0: 20 20 20 20 6d 65 74 68 6f 64 20 70 6f 73 73 69 method possi
0cf0: 62 6c 65 70 61 72 65 6e 74 20 7b 73 79 6d 62 6f bleparent {symbo
0d00: 6c 7d 20 7b 0a 09 69 66 20 7b 5b 69 6e 66 6f 20 l} {..if {[info
0d10: 65 78 69 73 74 73 20 6d 79 70 70 61 72 65 6e 74 exists mypparent
0d20: 28 24 73 79 6d 62 6f 6c 29 5d 7d 20 7b 0a 09 20 ($symbol)]} {..
0d30: 20 20 20 69 6e 63 72 20 6d 79 70 70 61 72 65 6e incr mypparen
0d40: 74 28 24 73 79 6d 62 6f 6c 29 0a 09 7d 20 65 6c t($symbol)..} el
0d50: 73 65 20 7b 0a 09 20 20 20 20 73 65 74 20 20 6d se {.. set m
0d60: 79 70 70 61 72 65 6e 74 28 24 73 79 6d 62 6f 6c ypparent($symbol
0d70: 29 20 31 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 ) 1..}..return.
0d80: 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 }.. method
0d90: 20 69 73 67 68 6f 73 74 20 7b 7d 20 7b 0a 09 23 isghost {} {..#
0da0: 20 43 68 65 63 6b 73 20 69 66 20 74 68 69 73 20 Checks if this
0db0: 73 79 6d 62 6f 6c 20 28 61 73 20 6c 69 6e 65 20 symbol (as line
0dc0: 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e 74 29 20 of development)
0dd0: 6e 65 76 65 72 0a 09 23 20 65 78 69 73 74 65 64 never..# existed
0de0: 2e 0a 0a 09 69 66 20 7b 24 6d 79 63 6f 6d 6d 69 ....if {$mycommi
0df0: 74 63 6f 75 6e 74 20 3e 20 30 7d 20 20 20 20 20 tcount > 0}
0e00: 20 20 20 20 7b 20 72 65 74 75 72 6e 20 30 20 7d { return 0 }
0e10: 0a 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 ..if {[llength $
0e20: 6d 79 62 6c 6f 63 6b 65 72 73 5d 7d 20 20 20 20 myblockers]}
0e30: 20 20 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 09 { return 0 }..
0e40: 69 66 20 7b 5b 61 72 72 61 79 20 73 69 7a 65 20 if {[array size
0e50: 6d 79 70 70 61 72 65 6e 74 5d 20 3e 20 30 7d 20 mypparent] > 0}
0e60: 7b 20 72 65 74 75 72 6e 20 30 20 7d 0a 0a 09 72 { return 0 }...r
0e70: 65 74 75 72 6e 20 31 0a 20 20 20 20 7d 0a 0a 20 eturn 1. }..
0e80: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
0e90: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
0ea0: 23 23 23 23 23 23 23 23 23 23 0a 0a 20 20 20 20 ##########..
0eb0: 6d 65 74 68 6f 64 20 70 65 72 73 69 73 74 72 65 method persistre
0ec0: 76 20 7b 7d 20 7b 0a 09 73 65 74 20 70 69 64 20 v {} {..set pid
0ed0: 5b 24 6d 79 70 72 6f 6a 65 63 74 20 69 64 5d 0a [$myproject id].
0ee0: 0a 09 73 74 61 74 65 20 74 72 61 6e 73 61 63 74 ..state transact
0ef0: 69 6f 6e 20 7b 0a 09 20 20 20 20 73 74 61 74 65 ion {.. state
0f00: 20 72 75 6e 20 7b 0a 09 09 49 4e 53 45 52 54 20 run {...INSERT
0f10: 49 4e 54 4f 20 73 79 6d 62 6f 6c 20 28 20 73 69 INTO symbol ( si
0f20: 64 2c 20 20 20 70 69 64 2c 20 20 6e 61 6d 65 2c d, pid, name,
0f30: 20 20 20 74 79 70 65 2c 20 20 20 20 20 74 61 67 type, tag
0f40: 5f 63 6f 75 6e 74 2c 20 20 20 62 72 61 6e 63 68 _count, branch
0f50: 5f 63 6f 75 6e 74 2c 20 20 20 63 6f 6d 6d 69 74 _count, commit
0f60: 5f 63 6f 75 6e 74 29 0a 09 09 56 41 4c 55 45 53 _count)...VALUES
0f70: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 24 6d ($m
0f80: 79 69 64 2c 20 24 70 69 64 2c 20 24 6d 79 6e 61 yid, $pid, $myna
0f90: 6d 65 2c 20 24 6d 79 75 6e 64 65 66 2c 20 24 6d me, $myundef, $m
0fa0: 79 74 61 67 63 6f 75 6e 74 2c 20 24 6d 79 62 72 ytagcount, $mybr
0fb0: 61 6e 63 68 63 6f 75 6e 74 2c 20 24 6d 79 63 6f anchcount, $myco
0fc0: 6d 6d 69 74 63 6f 75 6e 74 29 3b 0a 09 20 20 20 mmitcount);..
0fd0: 20 7d 0a 09 20 20 20 20 66 6f 72 65 61 63 68 20 }.. foreach
0fe0: 73 79 6d 62 6f 6c 20 24 6d 79 62 6c 6f 63 6b 65 symbol $myblocke
0ff0: 72 73 20 7b 0a 09 09 73 65 74 20 62 69 64 20 5b rs {...set bid [
1000: 24 73 79 6d 62 6f 6c 20 69 64 5d 0a 09 09 73 74 $symbol id]...st
1010: 61 74 65 20 72 75 6e 20 7b 0a 09 09 20 20 20 20 ate run {...
1020: 49 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c 6f 63 INSERT INTO bloc
1030: 6b 65 72 20 28 73 69 64 2c 20 20 20 62 69 64 29 ker (sid, bid)
1040: 0a 09 09 20 20 20 20 56 41 4c 55 45 53 20 20 20 ... VALUES
1050: 20 20 20 20 20 20 20 20 20 20 20 28 24 6d 79 69 ($myi
1060: 64 2c 20 24 62 69 64 29 3b 0a 09 09 7d 0a 09 20 d, $bid);...}..
1070: 20 20 20 7d 0a 09 20 20 20 20 66 6f 72 65 61 63 }.. foreac
1080: 68 20 7b 73 79 6d 62 6f 6c 20 63 6f 75 6e 74 7d h {symbol count}
1090: 20 5b 61 72 72 61 79 20 67 65 74 20 6d 79 70 70 [array get mypp
10a0: 61 72 65 6e 74 5d 20 7b 0a 09 09 73 65 74 20 70 arent] {...set p
10b0: 69 64 20 5b 24 73 79 6d 62 6f 6c 20 69 64 5d 0a id [$symbol id].
10c0: 09 09 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 09 ..state run {...
10d0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 INSERT INTO
10e0: 70 61 72 65 6e 74 20 28 73 69 64 2c 20 20 20 70 parent (sid, p
10f0: 69 64 2c 20 20 6e 29 0a 09 09 20 20 20 20 56 41 id, n)... VA
1100: 4c 55 45 53 20 20 20 20 20 20 20 20 20 20 20 20 LUES
1110: 20 28 24 6d 79 69 64 2c 20 24 70 69 64 2c 20 24 ($myid, $pid, $
1120: 63 6f 75 6e 74 29 3b 0a 09 09 7d 0a 09 20 20 20 count);...}..
1130: 20 7d 0a 09 7d 0a 09 72 65 74 75 72 6e 0a 20 20 }..}..return.
1140: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 }.. # # ##
1150: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
1160: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
1170: 0a 20 20 20 20 23 23 20 53 74 61 74 65 0a 0a 20 . ## State..
1180: 20 20 20 76 61 72 69 61 62 6c 65 20 6d 79 70 72 variable mypr
1190: 6f 6a 65 63 74 20 7b 7d 20 3b 20 23 20 52 65 66 oject {} ; # Ref
11a0: 65 72 65 6e 63 65 20 74 6f 20 74 68 65 20 70 72 erence to the pr
11b0: 6f 6a 65 63 74 20 6f 62 6a 65 63 74 0a 09 09 09 oject object....
11c0: 20 20 20 20 23 20 63 6f 6e 74 61 69 6e 69 6e 67 # containing
11d0: 20 74 68 65 20 73 79 6d 62 6f 6c 2e 0a 20 20 20 the symbol..
11e0: 20 76 61 72 69 61 62 6c 65 20 6d 79 6e 61 6d 65 variable myname
11f0: 20 20 20 20 7b 7d 20 3b 20 23 20 54 68 65 20 73 {} ; # The s
1200: 79 6d 62 6f 6c 27 73 20 6e 61 6d 65 0a 20 20 20 ymbol's name.
1210: 20 76 61 72 69 61 62 6c 65 20 6d 79 69 64 20 20 variable myid
1220: 20 20 20 20 7b 7d 20 3b 20 23 20 52 65 70 6f 73 {} ; # Repos
1230: 69 74 6f 72 79 20 77 69 64 65 20 6e 75 6d 65 72 itory wide numer
1240: 69 63 20 69 64 20 6f 66 20 74 68 65 0a 09 09 09 ic id of the....
1250: 20 20 20 20 23 20 73 79 6d 62 6f 6c 2e 20 54 68 # symbol. Th
1260: 69 73 20 69 6d 70 6c 69 63 69 74 6c 79 20 65 6e is implicitly en
1270: 63 6f 64 65 73 20 74 68 65 0a 09 09 09 20 20 20 codes the....
1280: 20 23 20 70 72 6f 6a 65 63 74 20 61 73 20 77 65 # project as we
1290: 6c 6c 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 6c ll... variabl
12a0: 65 20 6d 79 62 72 61 6e 63 68 63 6f 75 6e 74 20 e mybranchcount
12b0: 30 20 3b 20 23 20 43 6f 75 6e 74 20 68 6f 77 20 0 ; # Count how
12c0: 6d 61 6e 79 20 75 73 65 73 20 61 73 20 62 72 61 many uses as bra
12d0: 6e 63 68 2e 0a 20 20 20 20 76 61 72 69 61 62 6c nch.. variabl
12e0: 65 20 6d 79 74 61 67 63 6f 75 6e 74 20 20 20 20 e mytagcount
12f0: 30 20 3b 20 23 20 43 6f 75 6e 74 20 68 6f 77 20 0 ; # Count how
1300: 6d 61 6e 79 20 75 73 65 73 20 61 73 20 74 61 67 many uses as tag
1310: 2e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d .. variable m
1320: 79 63 6f 6d 6d 69 74 63 6f 75 6e 74 20 30 20 3b ycommitcount 0 ;
1330: 20 23 20 43 6f 75 6e 74 20 68 6f 77 20 6d 61 6e # Count how man
1340: 79 20 66 69 6c 65 73 20 64 69 64 20 61 20 63 6f y files did a co
1350: 6d 6d 69 74 20 6f 6e 20 74 68 65 20 73 79 6d 62 mmit on the symb
1360: 6f 6c 2e 0a 0a 20 20 20 20 76 61 72 69 61 62 6c ol... variabl
1370: 65 20 6d 79 62 6c 6f 63 6b 65 72 73 20 20 20 7b e myblockers {
1380: 7d 20 3b 20 23 20 4c 69 73 74 20 28 53 65 74 29 } ; # List (Set)
1390: 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 of the symbols
13a0: 77 68 69 63 68 20 62 6c 6f 63 6b 0a 09 09 09 20 which block....
13b0: 20 20 20 20 20 20 23 20 74 68 65 20 65 78 63 6c # the excl
13c0: 75 73 69 6f 6e 20 6f 66 20 74 68 69 73 20 73 79 usion of this sy
13d0: 6d 62 6f 6c 2e 0a 0a 20 20 20 20 76 61 72 69 61 mbol... varia
13e0: 62 6c 65 20 6d 79 70 70 61 72 65 6e 74 20 2d 61 ble mypparent -a
13f0: 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 70 73 rray {} ; # Maps
1400: 20 66 72 6f 6d 20 73 79 6d 62 6f 6c 73 20 74 6f from symbols to
1410: 20 74 68 65 20 6e 75 6d 62 65 72 0a 09 09 09 09 the number.....
1420: 20 20 20 23 20 6f 66 20 66 69 6c 65 73 20 69 6e # of files in
1430: 20 77 68 69 63 68 20 69 74 20 63 6f 75 6c 64 20 which it could
1440: 68 61 76 65 0a 09 09 09 09 20 20 20 23 20 62 65 have..... # be
1450: 65 6e 20 61 20 70 61 72 65 6e 74 20 6f 66 20 74 en a parent of t
1460: 68 69 73 20 73 79 6d 62 6f 6c 2e 0a 0a 20 20 20 his symbol...
1470: 20 76 61 72 69 61 62 6c 65 20 6d 79 74 79 70 65 variable mytype
1480: 20 7b 7d 20 3b 20 23 20 54 68 65 20 74 79 70 65 {} ; # The type
1490: 20 63 68 6f 73 65 6e 20 66 6f 72 20 74 68 65 20 chosen for the
14a0: 73 79 6d 62 6f 6c 20 74 6f 20 75 73 65 20 69 6e symbol to use in
14b0: 0a 09 09 09 20 23 20 74 68 65 20 63 6f 6e 76 65 .... # the conve
14c0: 72 73 69 6f 6e 2e 0a 0a 20 20 20 20 23 20 23 20 rsion... # #
14d0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
14e0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
14f0: 23 23 23 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 ###.. typemet
1500: 68 6f 64 20 67 65 74 73 79 6d 74 79 70 65 73 20 hod getsymtypes
1510: 7b 7d 20 7b 0a 09 66 6f 72 65 61 63 68 20 7b 74 {} {..foreach {t
1520: 69 64 20 6e 61 6d 65 7d 20 5b 73 74 61 74 65 20 id name} [state
1530: 72 75 6e 20 7b 0a 09 20 20 20 20 53 45 4c 45 43 run {.. SELEC
1540: 54 20 74 69 64 2c 20 6e 61 6d 65 20 46 52 4f 4d T tid, name FROM
1550: 20 73 79 6d 74 79 70 65 3b 0a 09 7d 5d 20 7b 20 symtype;..}] {
1560: 73 65 74 20 6d 79 73 79 6d 74 79 70 65 28 24 74 set mysymtype($t
1570: 69 64 29 20 24 6e 61 6d 65 20 7d 0a 09 72 65 74 id) $name }..ret
1580: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 urn. }.. #
1590: 20 4b 65 65 70 20 74 68 65 20 63 6f 64 65 73 20 Keep the codes
15a0: 62 65 6c 6f 77 20 69 6e 20 73 79 6e 63 20 77 69 below in sync wi
15b0: 74 68 20 27 70 61 73 73 3a 3a 63 6f 6c 6c 72 65 th 'pass::collre
15c0: 76 2f 73 65 74 75 70 28 27 73 79 6d 74 79 70 65 v/setup('symtype
15d0: 27 29 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 ').. typevari
15e0: 61 62 6c 65 20 6d 79 65 78 63 6c 75 64 65 64 20 able myexcluded
15f0: 20 20 20 20 20 20 20 30 20 3b 20 23 20 43 6f 64 0 ; # Cod
1600: 65 20 66 6f 72 20 73 79 6d 62 6f 6c 73 20 77 68 e for symbols wh
1610: 69 63 68 20 61 72 65 20 65 78 63 6c 75 64 65 64 ich are excluded
1620: 2e 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 62 .. typevariab
1630: 6c 65 20 6d 79 74 61 67 20 20 20 20 20 20 20 20 le mytag
1640: 20 20 20 20 20 31 20 3b 20 23 20 43 6f 64 65 20 1 ; # Code
1650: 66 6f 72 20 73 79 6d 62 6f 6c 73 20 77 68 69 63 for symbols whic
1660: 68 20 61 72 65 20 74 61 67 73 2e 0a 20 20 20 20 h are tags..
1670: 74 79 70 65 76 61 72 69 61 62 6c 65 20 6d 79 62 typevariable myb
1680: 72 61 6e 63 68 20 20 20 20 20 20 20 20 20 20 32 ranch 2
1690: 20 3b 20 23 20 43 6f 64 65 20 66 6f 72 20 73 79 ; # Code for sy
16a0: 6d 62 6f 6c 73 20 77 68 69 63 68 20 61 72 65 20 mbols which are
16b0: 62 72 61 6e 63 68 65 73 2e 0a 20 20 20 20 74 79 branches.. ty
16c0: 70 65 76 61 72 69 61 62 6c 65 20 6d 79 75 6e 64 pevariable myund
16d0: 65 66 20 20 20 20 20 20 20 20 20 20 20 33 20 3b ef 3 ;
16e0: 20 23 20 43 6f 64 65 20 66 6f 72 20 73 79 6d 62 # Code for symb
16f0: 6f 6c 73 20 6f 66 20 75 6e 6b 6e 6f 77 6e 20 74 ols of unknown t
1700: 79 70 65 2e 0a 20 20 20 20 74 79 70 65 76 61 72 ype.. typevar
1710: 69 61 62 6c 65 20 6d 79 73 79 6d 74 79 70 65 20 iable mysymtype
1720: 2d 61 72 72 61 79 20 7b 7d 20 3b 20 23 20 4d 61 -array {} ; # Ma
1730: 70 20 66 72 6f 6d 20 74 79 70 65 20 63 6f 64 65 p from type code
1740: 20 74 6f 20 6c 61 62 65 6c 20 66 6f 72 20 74 68 to label for th
1750: 65 20 6c 6f 67 2e 0a 0a 20 20 20 20 74 79 70 65 e log... type
1760: 6d 65 74 68 6f 64 20 70 72 69 6e 74 72 75 6c 65 method printrule
1770: 73 74 61 74 69 73 74 69 63 73 20 7b 7d 20 7b 0a statistics {} {.
1780: 09 6c 6f 67 20 77 72 69 74 65 20 32 20 73 79 6d .log write 2 sym
1790: 62 6f 6c 20 22 52 75 6c 65 20 75 73 61 67 65 20 bol "Rule usage
17a0: 73 74 61 74 69 73 74 69 63 73 3a 22 0a 0a 09 73 statistics:"...s
17b0: 65 74 20 66 6d 74 20 25 5b 73 74 72 69 6e 67 20 et fmt %[string
17c0: 6c 65 6e 67 74 68 20 24 6d 79 6e 75 6d 5d 73 0a length $mynum]s.
17d0: 09 73 65 74 20 61 6c 6c 20 30 0a 0a 09 66 6f 72 .set all 0...for
17e0: 65 61 63 68 20 6b 65 79 20 5b 6c 73 6f 72 74 20 each key [lsort
17f0: 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 6d 79 72 [array names myr
1800: 75 6c 65 63 6f 75 6e 74 5d 5d 20 7b 0a 09 20 20 ulecount]] {..
1810: 20 20 6c 6f 67 20 77 72 69 74 65 20 32 20 73 79 log write 2 sy
1820: 6d 62 6f 6c 20 22 2a 20 5b 66 6f 72 6d 61 74 20 mbol "* [format
1830: 24 66 6d 74 20 24 6d 79 72 75 6c 65 63 6f 75 6e $fmt $myrulecoun
1840: 74 28 24 6b 65 79 29 5d 20 24 6b 65 79 22 0a 09 t($key)] $key"..
1850: 20 20 20 20 69 6e 63 72 20 61 6c 6c 20 24 6d 79 incr all $my
1860: 72 75 6c 65 63 6f 75 6e 74 28 24 6b 65 79 29 0a rulecount($key).
1870: 09 7d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 .}...log write 2
1880: 20 73 79 6d 62 6f 6c 20 22 3d 20 5b 66 6f 72 6d symbol "= [form
1890: 61 74 20 24 66 6d 74 20 24 61 6c 6c 5d 20 74 6f at $fmt $all] to
18a0: 74 61 6c 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 tal"..return.
18b0: 20 7d 0a 0a 20 20 20 20 23 20 53 74 61 74 69 73 }.. # Statis
18c0: 74 69 63 73 20 6f 6e 20 68 6f 77 20 6f 66 74 65 tics on how ofte
18d0: 6e 20 65 61 63 68 20 27 72 75 6c 65 27 20 77 61 n each 'rule' wa
18e0: 73 20 75 73 65 64 20 74 6f 20 64 65 63 69 64 65 s used to decide
18f0: 20 6f 6e 20 74 68 65 0a 20 20 20 20 23 20 74 79 on the. # ty
1900: 70 65 20 6f 66 20 61 20 73 79 6d 62 6f 6c 2e 0a pe of a symbol..
1910: 20 20 20 20 74 79 70 65 76 61 72 69 61 62 6c 65 typevariable
1920: 20 6d 79 72 75 6c 65 63 6f 75 6e 74 20 2d 61 72 myrulecount -ar
1930: 72 61 79 20 7b 0a 09 48 61 73 43 6f 6d 6d 69 74 ray {..HasCommit
1940: 73 20 30 0a 09 49 73 54 68 65 54 72 75 6e 6b 20 s 0..IsTheTrunk
1950: 30 0a 09 55 6e 61 6d 62 69 67 6f 75 73 20 30 0a 0..Unambigous 0.
1960: 09 55 6e 64 65 63 69 64 65 64 5f 20 30 0a 09 55 .Undecided_ 0..U
1970: 73 65 72 43 6f 6e 66 69 67 20 30 0a 09 56 6f 74 serConfig 0..Vot
1980: 65 43 6f 75 6e 74 73 20 30 0a 20 20 20 20 7d 0a eCounts 0. }.
1990: 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 . typemethod
19a0: 70 72 69 6e 74 74 79 70 65 73 74 61 74 69 73 74 printtypestatist
19b0: 69 63 73 20 7b 7d 20 7b 0a 09 6c 6f 67 20 77 72 ics {} {..log wr
19c0: 69 74 65 20 32 20 73 79 6d 62 6f 6c 20 22 53 79 ite 2 symbol "Sy
19d0: 6d 62 6f 6c 20 74 79 70 65 20 73 74 61 74 69 73 mbol type statis
19e0: 74 69 63 73 3a 22 0a 0a 09 73 65 74 20 66 6d 74 tics:"...set fmt
19f0: 20 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 %[string length
1a00: 20 24 6d 79 6e 75 6d 5d 73 0a 09 73 65 74 20 61 $mynum]s..set a
1a10: 6c 6c 20 30 0a 0a 09 66 6f 72 65 61 63 68 20 7b ll 0...foreach {
1a20: 73 74 79 70 65 20 73 70 6c 75 72 61 6c 20 6e 7d stype splural n}
1a30: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
1a40: 20 20 20 53 45 4c 45 43 54 20 54 2e 6e 61 6d 65 SELECT T.name
1a50: 2c 20 54 2e 70 6c 75 72 61 6c 2c 20 43 4f 55 4e , T.plural, COUN
1a60: 54 20 28 73 2e 73 69 64 29 0a 09 20 20 20 20 46 T (s.sid).. F
1a70: 52 4f 4d 20 73 79 6d 62 6f 6c 20 53 2c 20 73 79 ROM symbol S, sy
1a80: 6d 74 79 70 65 20 54 0a 09 20 20 20 20 57 48 45 mtype T.. WHE
1a90: 52 45 20 53 2e 74 79 70 65 20 3d 20 54 2e 74 69 RE S.type = T.ti
1aa0: 64 0a 09 20 20 20 20 47 52 4f 55 50 20 42 59 20 d.. GROUP BY
1ab0: 54 2e 6e 61 6d 65 0a 09 20 20 20 20 4f 52 44 45 T.name.. ORDE
1ac0: 52 20 42 59 20 54 2e 6e 61 6d 65 0a 09 20 20 20 R BY T.name..
1ad0: 20 3b 0a 09 7d 5d 20 7b 0a 09 20 20 20 20 6c 6f ;..}] {.. lo
1ae0: 67 20 77 72 69 74 65 20 32 20 73 79 6d 62 6f 6c g write 2 symbol
1af0: 20 22 2a 20 5b 66 6f 72 6d 61 74 20 24 66 6d 74 "* [format $fmt
1b00: 20 24 6e 5d 20 5b 73 70 20 24 6e 20 24 73 74 79 $n] [sp $n $sty
1b10: 70 65 20 24 73 70 6c 75 72 61 6c 5d 22 0a 09 20 pe $splural]"..
1b20: 20 20 20 69 6e 63 72 20 61 6c 6c 20 24 6e 0a 09 incr all $n..
1b30: 7d 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 32 20 }...log write 2
1b40: 73 79 6d 62 6f 6c 20 22 3d 20 5b 66 6f 72 6d 61 symbol "= [forma
1b50: 74 20 24 66 6d 74 20 24 61 6c 6c 5d 20 74 6f 74 t $fmt $all] tot
1b60: 61 6c 22 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 al"..return.
1b70: 7d 0a 0a 20 20 20 20 74 79 70 65 76 61 72 69 61 }.. typevaria
1b80: 62 6c 65 20 6d 79 6e 75 6d 20 30 0a 0a 20 20 20 ble mynum 0..
1b90: 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 23 # # ## ### ####
1ba0: 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 23 # ######## #####
1bb0: 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 20 ########. ##
1bc0: 49 6e 74 65 72 6e 61 6c 20 6d 65 74 68 6f 64 73 Internal methods
1bd0: 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 55 73 65 .. method Use
1be0: 72 43 6f 6e 66 69 67 20 7b 7d 20 7b 0a 09 23 20 rConfig {} {..#
1bf0: 4e 6f 20 75 73 65 72 20 62 61 73 65 64 20 67 75 No user based gu
1c00: 69 64 61 6e 63 65 20 79 65 74 2e 0a 09 72 65 74 idance yet...ret
1c10: 75 72 6e 20 24 6d 79 75 6e 64 65 66 0a 20 20 20 urn $myundef.
1c20: 20 7d 0a 0a 20 20 20 20 6d 65 74 68 6f 64 20 55 }.. method U
1c30: 6e 61 6d 62 69 67 6f 75 73 20 7b 7d 20 7b 0a 09 nambigous {} {..
1c40: 23 20 49 66 20 61 20 73 79 6d 62 6f 6c 20 69 73 # If a symbol is
1c50: 20 75 73 65 64 20 75 6e 61 6d 62 69 67 75 6f 75 used unambiguou
1c60: 73 6c 79 20 61 73 20 61 20 74 61 67 2f 62 72 61 sly as a tag/bra
1c70: 6e 63 68 2c 20 63 6f 6e 76 65 72 74 0a 09 23 20 nch, convert..#
1c80: 69 74 20 61 73 20 73 75 63 68 2e 0a 0a 09 73 65 it as such....se
1c90: 74 20 69 73 74 61 67 20 20 20 20 5b 65 78 70 72 t istag [expr
1ca0: 20 7b 24 6d 79 74 61 67 63 6f 75 6e 74 20 20 20 {$mytagcount
1cb0: 20 3e 20 30 7d 5d 09 0a 09 73 65 74 20 69 73 62 > 0}]...set isb
1cc0: 72 61 6e 63 68 20 5b 65 78 70 72 20 7b 24 6d 79 ranch [expr {$my
1cd0: 62 72 61 6e 63 68 63 6f 75 6e 74 20 3e 20 30 20 branchcount > 0
1ce0: 7c 7c 20 24 6d 79 63 6f 6d 6d 69 74 63 6f 75 6e || $mycommitcoun
1cf0: 74 20 3e 20 30 7d 5d 0a 0a 09 69 66 20 7b 24 69 t > 0}]...if {$i
1d00: 73 74 61 67 20 26 26 20 24 69 73 62 72 61 6e 63 stag && $isbranc
1d10: 68 7d 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 75 h} { return $myu
1d20: 6e 64 65 66 20 20 7d 0a 09 69 66 20 7b 24 69 73 ndef }..if {$is
1d30: 74 61 67 7d 20 20 20 20 20 20 20 20 20 20 20 20 tag}
1d40: 20 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 74 61 { return $myta
1d50: 67 20 20 20 20 7d 0a 09 69 66 20 7b 24 69 73 62 g }..if {$isb
1d60: 72 61 6e 63 68 7d 20 20 20 20 20 20 20 20 20 20 ranch}
1d70: 20 7b 20 72 65 74 75 72 6e 20 24 6d 79 62 72 61 { return $mybra
1d80: 6e 63 68 20 7d 0a 0a 09 23 20 53 79 6d 62 6f 6c nch }...# Symbol
1d90: 20 77 61 73 20 6e 6f 74 20 75 73 65 64 20 61 74 was not used at
1da0: 20 61 6c 6c 2e 0a 09 72 65 74 75 72 6e 20 24 6d all...return $m
1db0: 79 75 6e 64 65 66 0a 20 20 20 20 7d 0a 0a 20 20 yundef. }..
1dc0: 20 20 6d 65 74 68 6f 64 20 48 61 73 43 6f 6d 6d method HasComm
1dd0: 69 74 73 20 7b 7d 20 7b 0a 09 23 20 49 66 20 74 its {} {..# If t
1de0: 68 65 72 65 20 77 61 73 20 65 76 65 72 20 61 20 here was ever a
1df0: 63 6f 6d 6d 69 74 20 6f 6e 20 74 68 65 20 73 79 commit on the sy
1e00: 6d 62 6f 6c 2c 20 63 6f 6e 76 65 72 74 20 69 74 mbol, convert it
1e10: 20 61 73 20 61 0a 09 23 20 62 72 61 6e 63 68 2e as a..# branch.
1e20: 0a 0a 09 69 66 20 7b 24 6d 79 63 6f 6d 6d 69 74 ...if {$mycommit
1e30: 63 6f 75 6e 74 20 3e 20 30 7d 20 7b 20 72 65 74 count > 0} { ret
1e40: 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 20 7d 0a urn $mybranch }.
1e50: 09 72 65 74 75 72 6e 20 24 6d 79 75 6e 64 65 66 .return $myundef
1e60: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d 65 74 68 . }.. meth
1e70: 6f 64 20 56 6f 74 65 43 6f 75 6e 74 73 20 7b 7d od VoteCounts {}
1e80: 20 7b 0a 09 23 20 43 6f 6e 76 65 72 74 20 74 68 {..# Convert th
1e90: 65 20 73 79 6d 62 6f 6c 20 62 61 73 65 64 20 6f e symbol based o
1ea0: 6e 20 68 6f 77 20 6f 66 74 65 6e 20 69 74 20 77 n how often it w
1eb0: 61 73 20 75 73 65 64 20 61 73 20 61 0a 09 23 20 as used as a..#
1ec0: 62 72 61 6e 63 68 2f 74 61 67 2e 20 57 68 69 63 branch/tag. Whic
1ed0: 68 65 76 65 72 20 68 61 70 70 65 6e 65 64 20 6d hever happened m
1ee0: 6f 72 65 20 6f 66 74 65 6e 20 64 65 74 65 72 6d ore often determ
1ef0: 69 6e 65 73 20 68 6f 77 20 74 68 65 0a 09 23 20 ines how the..#
1f00: 73 79 6d 62 6f 6c 20 69 73 20 63 6f 6e 76 65 72 symbol is conver
1f10: 74 65 64 2e 0a 0a 09 69 66 20 7b 24 6d 79 74 61 ted....if {$myta
1f20: 67 63 6f 75 6e 74 20 3e 20 24 6d 79 62 72 61 6e gcount > $mybran
1f30: 63 68 63 6f 75 6e 74 7d 20 7b 20 72 65 74 75 72 chcount} { retur
1f40: 6e 20 24 6d 79 74 61 67 20 7d 0a 09 69 66 20 7b n $mytag }..if {
1f50: 24 6d 79 74 61 67 63 6f 75 6e 74 20 3c 20 24 6d $mytagcount < $m
1f60: 79 62 72 61 6e 63 68 63 6f 75 6e 74 7d 20 7b 20 ybranchcount} {
1f70: 72 65 74 75 72 6e 20 24 6d 79 62 72 61 6e 63 68 return $mybranch
1f80: 20 7d 0a 09 72 65 74 75 72 6e 20 24 6d 79 75 6e }..return $myun
1f90: 64 65 66 0a 20 20 20 20 7d 0a 0a 20 20 20 20 6d def. }.. m
1fa0: 65 74 68 6f 64 20 4d 61 72 6b 41 73 20 7b 6c 61 ethod MarkAs {la
1fb0: 62 65 6c 20 63 68 6f 73 65 6e 7d 20 7b 0a 09 6c bel chosen} {..l
1fc0: 6f 67 20 77 72 69 74 65 20 33 20 73 79 6d 62 6f og write 3 symbo
1fd0: 6c 20 22 5c 5b 24 6c 61 62 65 6c 5c 5d 20 43 6f l "\[$label\] Co
1fe0: 6e 76 65 72 74 69 6e 67 20 73 79 6d 62 6f 6c 20 nverting symbol
1ff0: 27 24 6d 79 6e 61 6d 65 27 20 61 73 20 24 6d 79 '$myname' as $my
2000: 73 79 6d 74 79 70 65 28 24 63 68 6f 73 65 6e 29 symtype($chosen)
2010: 22 0a 0a 09 73 65 74 20 6d 79 74 79 70 65 20 24 "...set mytype $
2020: 63 68 6f 73 65 6e 0a 09 69 6e 63 72 20 6d 79 72 chosen..incr myr
2030: 75 6c 65 63 6f 75 6e 74 28 24 6c 61 62 65 6c 29 ulecount($label)
2040: 0a 0a 09 23 20 54 68 69 73 20 69 73 20 73 74 6f ...# This is sto
2050: 72 65 64 20 64 69 72 65 63 74 6c 79 20 69 6e 74 red directly int
2060: 6f 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a o the database..
2070: 09 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 .state run {..
2080: 20 20 55 50 44 41 54 45 20 73 79 6d 62 6f 6c 0a UPDATE symbol.
2090: 09 20 20 20 20 53 45 54 20 74 79 70 65 20 3d 20 . SET type =
20a0: 24 63 68 6f 73 65 6e 0a 09 20 20 20 20 57 48 45 $chosen.. WHE
20b0: 52 45 20 73 69 64 20 3d 20 24 6d 79 69 64 0a 09 RE sid = $myid..
20c0: 20 20 20 20 3b 0a 09 7d 0a 09 72 65 74 75 72 6e ;..}..return
20d0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 . }.. # #
20e0: 23 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 ## ### ##### ###
20f0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
2100: 23 23 23 0a 20 20 20 20 23 23 20 43 6f 6e 66 69 ###. ## Confi
2110: 67 75 72 61 74 69 6f 6e 0a 0a 20 20 20 20 70 72 guration.. pr
2120: 61 67 6d 61 20 2d 68 61 73 74 79 70 65 69 6e 66 agma -hastypeinf
2130: 6f 20 20 20 20 6e 6f 20 20 3b 20 23 20 6e 6f 20 o no ; # no
2140: 74 79 70 65 20 69 6e 74 72 6f 73 70 65 63 74 69 type introspecti
2150: 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 on. pragma -h
2160: 61 73 69 6e 66 6f 20 20 20 20 20 20 20 20 6e 6f asinfo no
2170: 20 20 3b 20 23 20 6e 6f 20 6f 62 6a 65 63 74 20 ; # no object
2180: 69 6e 74 72 6f 73 70 65 63 74 69 6f 6e 0a 20 20 introspection.
2190: 20 20 70 72 61 67 6d 61 20 2d 73 69 6d 70 6c 65 pragma -simple
21a0: 64 69 73 70 61 74 63 68 20 79 65 73 20 3b 20 23 dispatch yes ; #
21b0: 20 73 69 6d 70 6c 65 20 66 61 73 74 20 64 69 73 simple fast dis
21c0: 70 61 74 63 68 0a 0a 20 20 20 20 23 20 23 20 23 patch.. # # #
21d0: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
21e0: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
21f0: 23 23 0a 7d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 ##.}..namespace
2200: 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 eval ::vc::fossi
2210: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
2220: 70 72 6f 6a 65 63 74 20 7b 0a 20 20 20 20 6e 61 project {. na
2230: 6d 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 73 mespace export s
2240: 79 6d 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 ym. namespace
2250: 20 65 76 61 6c 20 73 79 6d 20 7b 0a 09 6e 61 6d eval sym {..nam
2260: 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a espace import ::
2270: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f vc::fossil::impo
2280: 72 74 3a 3a 63 76 73 3a 3a 73 74 61 74 65 0a 09 rt::cvs::state..
2290: 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 namespace import
22a0: 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 ::vc::tools::mi
22b0: 73 63 3a 3a 2a 0a 09 6e 61 6d 65 73 70 61 63 65 sc::*..namespace
22c0: 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f import ::vc::to
22d0: 6f 6c 73 3a 3a 74 72 6f 75 62 6c 65 0a 09 6e 61 ols::trouble..na
22e0: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
22f0: 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 0a :vc::tools::log.
2300: 09 6c 6f 67 20 72 65 67 69 73 74 65 72 20 73 79 .log register sy
2310: 6d 62 6f 6c 0a 20 20 20 20 7d 0a 7d 0a 0a 23 20 mbol. }.}..#
2320: 23 20 23 23 20 23 23 23 20 23 23 23 23 23 20 23 # ## ### ##### #
2330: 23 23 23 23 23 23 23 20 23 23 23 23 23 23 23 23 ####### ########
2340: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 ##### ##########
2350: 23 23 23 23 23 23 23 23 23 23 23 0a 23 23 20 52 ###########.## R
2360: 65 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 eady..package pr
2370: 6f 76 69 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c ovide vc::fossil
2380: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 ::import::cvs::p
2390: 72 6f 6a 65 63 74 3a 3a 73 79 6d 20 31 2e 30 0a roject::sym 1.0.
23a0: 72 65 74 75 72 6e 0a return.