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 50 61 73 ########..## Pas
0200: 73 20 56 2e 20 54 68 69 73 20 70 61 73 73 20 63 s V. This pass c
0210: 72 65 61 74 65 73 20 74 68 65 20 69 6e 69 74 69 reates the initi
0220: 61 6c 20 73 65 74 20 6f 66 20 70 72 6f 6a 65 63 al set of projec
0230: 74 20 6c 65 76 65 6c 0a 23 23 20 72 65 76 69 73 t level.## revis
0240: 69 6f 6e 73 2c 20 61 6b 61 20 63 68 61 6e 67 65 ions, aka change
0250: 73 65 74 73 2e 20 4c 61 74 65 72 20 70 61 73 73 sets. Later pass
0260: 65 73 20 77 69 6c 6c 20 72 65 66 69 6e 65 20 74 es will refine t
0270: 68 65 6d 2c 20 70 75 74 73 20 74 68 65 6d 0a 23 hem, puts them.#
0280: 23 20 69 6e 74 6f 20 70 72 6f 70 65 72 20 6f 72 # into proper or
0290: 64 65 72 2c 20 73 65 74 20 74 68 65 69 72 20 64 der, set their d
02a0: 65 70 65 6e 64 65 6e 63 69 65 73 2c 20 65 74 63 ependencies, etc
02b0: 2e 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 ...# # ## ### ##
02c0: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
02d0: 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 ########## #####
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
02f0: 0a 23 23 20 52 65 71 75 69 72 65 6d 65 6e 74 73 .## Requirements
0300: 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0310: 65 20 54 63 6c 20 38 2e 34 20 20 20 20 20 20 20 e Tcl 8.4
0320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0330: 20 20 20 20 20 20 20 20 3b 20 23 20 52 65 71 75 ; # Requ
0340: 69 72 65 64 20 72 75 6e 74 69 6d 65 2e 0a 70 61 ired runtime..pa
0350: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 73 6e ckage require sn
0360: 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 it
0370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0380: 20 20 20 20 3b 20 23 20 4f 4f 20 73 79 73 74 65 ; # OO syste
0390: 6d 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 m..package requi
03a0: 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 re vc::tools::mi
03b0: 73 63 20 20 20 20 20 20 20 20 20 20 20 20 20 20 sc
03c0: 20 20 20 20 20 20 20 20 20 3b 20 23 20 54 65 78 ; # Tex
03d0: 74 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0a 70 61 t formatting..pa
03e0: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
03f0: 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 20 20 20 ::tools::log
0400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0410: 20 20 20 20 3b 20 23 20 55 73 65 72 20 66 65 65 ; # User fee
0420: 64 62 61 63 6b 2e 0a 70 61 63 6b 61 67 65 20 72 dback..package r
0430: 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 equire vc::fossi
0440: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
0450: 72 65 70 6f 73 69 74 6f 72 79 20 20 20 3b 20 23 repository ; #
0460: 20 52 65 70 6f 73 69 74 6f 72 79 20 6d 61 6e 61 Repository mana
0470: 67 65 6d 65 6e 74 2e 0a 70 61 63 6b 61 67 65 20 gement..package
0480: 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 require vc::foss
0490: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a il::import::cvs:
04a0: 3a 73 74 61 74 65 20 20 20 20 20 20 20 20 3b 20 :state ;
04b0: 23 20 53 74 61 74 65 20 73 74 6f 72 61 67 65 2e # State storage.
04c0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
04d0: 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 vc::fossil::imp
04e0: 6f 72 74 3a 3a 63 76 73 3a 3a 69 6e 74 65 67 72 ort::cvs::integr
04f0: 69 74 79 20 20 20 20 3b 20 23 20 53 74 61 74 65 ity ; # State
0500: 20 69 6e 74 65 67 72 69 74 79 20 63 68 65 63 6b integrity check
0510: 73 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 s..package requi
0520: 72 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 re vc::fossil::i
0530: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a mport::cvs::proj
0540: 65 63 74 3a 3a 72 65 76 20 3b 20 23 20 50 72 6f ect::rev ; # Pro
0550: 6a 65 63 74 20 6c 65 76 65 6c 20 63 68 61 6e 67 ject level chang
0560: 65 73 65 74 73 0a 0a 23 20 23 20 23 23 20 23 23 esets..# # ## ##
0570: 23 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 # ##### ########
0580: 20 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 ############# #
0590: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
05a0: 23 23 23 23 0a 23 23 20 52 65 67 69 73 74 65 72 ####.## Register
05b0: 20 74 68 65 20 70 61 73 73 20 77 69 74 68 20 74 the pass with t
05c0: 68 65 20 6d 61 6e 61 67 65 6d 65 6e 74 0a 0a 76 he management..v
05d0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
05e0: 74 3a 3a 63 76 73 3a 3a 70 61 73 73 20 64 65 66 t::cvs::pass def
05f0: 69 6e 65 20 5c 0a 20 20 20 20 49 6e 69 74 43 73 ine \. InitCs
0600: 65 74 73 20 5c 0a 20 20 20 20 7b 49 6e 69 74 69 ets \. {Initi
0610: 61 6c 69 7a 65 20 43 68 61 6e 67 65 53 65 74 73 alize ChangeSets
0620: 7d 20 5c 0a 20 20 20 20 3a 3a 76 63 3a 3a 66 6f } \. ::vc::fo
0630: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0640: 73 3a 3a 70 61 73 73 3a 3a 69 6e 69 74 63 73 65 s::pass::initcse
0650: 74 73 0a 0a 23 20 23 20 23 23 20 23 23 23 20 23 ts..# # ## ### #
0660: 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 #### ######## ##
0670: 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 23 ########### ####
0680: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0690: 23 0a 23 23 0a 0a 73 6e 69 74 3a 3a 74 79 70 65 #.##..snit::type
06a0: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
06b0: 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 61 73 73 mport::cvs::pass
06c0: 3a 3a 69 6e 69 74 63 73 65 74 73 20 7b 0a 20 20 ::initcsets {.
06d0: 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 23 # # ## ### ###
06e0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
06f0: 23 23 23 23 23 23 23 23 23 0a 20 20 20 20 23 23 #########. ##
0700: 20 50 75 62 6c 69 63 20 41 50 49 0a 0a 20 20 20 Public API..
0710: 20 74 79 70 65 6d 65 74 68 6f 64 20 73 65 74 75 typemethod setu
0720: 70 20 7b 7d 20 7b 0a 09 23 20 44 65 66 69 6e 65 p {} {..# Define
0730: 20 74 68 65 20 6e 61 6d 65 73 20 61 6e 64 20 73 the names and s
0740: 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 tructure of the
0750: 70 65 72 73 69 73 74 65 6e 74 20 73 74 61 74 65 persistent state
0760: 20 6f 66 0a 09 23 20 74 68 69 73 20 70 61 73 73 of..# this pass
0770: 2e 0a 0a 09 73 74 61 74 65 20 75 73 65 20 70 72 ....state use pr
0780: 6f 6a 65 63 74 0a 09 73 74 61 74 65 20 75 73 65 oject..state use
0790: 20 66 69 6c 65 0a 09 73 74 61 74 65 20 75 73 65 file..state use
07a0: 20 72 65 76 69 73 69 6f 6e 0a 09 73 74 61 74 65 revision..state
07b0: 20 75 73 65 20 72 65 76 69 73 69 6f 6e 62 72 61 use revisionbra
07c0: 6e 63 68 63 68 69 6c 64 72 65 6e 0a 09 73 74 61 nchchildren..sta
07d0: 74 65 20 75 73 65 20 62 72 61 6e 63 68 0a 09 73 te use branch..s
07e0: 74 61 74 65 20 75 73 65 20 74 61 67 0a 09 73 74 tate use tag..st
07f0: 61 74 65 20 75 73 65 20 73 79 6d 62 6f 6c 0a 09 ate use symbol..
0800: 73 74 61 74 65 20 75 73 65 20 6d 65 74 61 0a 0a state use meta..
0810: 09 23 20 44 61 74 61 20 70 65 72 20 63 68 61 6e .# Data per chan
0820: 67 65 73 65 74 2c 20 6e 61 6d 65 6c 79 20 74 68 geset, namely th
0830: 65 20 70 72 6f 6a 65 63 74 20 69 74 20 62 65 6c e project it bel
0840: 6f 6e 67 73 20 74 6f 2c 20 68 6f 77 20 69 74 0a ongs to, how it.
0850: 09 23 20 77 61 73 20 69 6e 64 75 63 65 64 20 28 .# was induced (
0860: 72 65 76 69 73 69 6f 6e 20 6f 72 20 73 79 6d 62 revision or symb
0870: 6f 6c 29 2c 20 70 6c 75 73 20 72 65 66 65 72 65 ol), plus refere
0880: 6e 63 65 20 74 6f 20 74 68 65 0a 09 23 20 70 72 nce to the..# pr
0890: 69 6d 61 72 79 20 65 6e 74 72 79 20 63 61 75 73 imary entry caus
08a0: 69 6e 67 20 69 74 20 28 6d 65 74 61 20 65 6e 74 ing it (meta ent
08b0: 72 79 20 6f 72 20 73 79 6d 62 6f 6c 29 2e 20 41 ry or symbol). A
08c0: 6e 20 61 64 6a 75 6e 63 74 0a 09 23 20 74 61 62 n adjunct..# tab
08d0: 6c 65 20 74 72 61 6e 73 6c 61 74 65 73 20 74 68 le translates th
08e0: 65 20 74 79 70 65 20 69 64 27 73 20 69 6e 74 6f e type id's into
08f0: 20 68 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 20 human readable
0900: 6c 61 62 65 6c 73 2e 0a 0a 09 73 74 61 74 65 20 labels....state
0910: 65 78 74 65 6e 64 20 63 68 61 6e 67 65 73 65 74 extend changeset
0920: 20 7b 0a 09 20 20 20 20 63 69 64 20 20 20 49 4e {.. cid IN
0930: 54 45 47 45 52 20 20 4e 4f 54 20 4e 55 4c 4c 20 TEGER NOT NULL
0940: 20 50 52 49 4d 41 52 59 20 4b 45 59 20 20 41 55 PRIMARY KEY AU
0950: 54 4f 49 4e 43 52 45 4d 45 4e 54 2c 0a 09 20 20 TOINCREMENT,..
0960: 20 20 70 69 64 20 20 20 49 4e 54 45 47 45 52 20 pid INTEGER
0970: 20 4e 4f 54 20 4e 55 4c 4c 20 20 52 45 46 45 52 NOT NULL REFER
0980: 45 4e 43 45 53 20 70 72 6f 6a 65 63 74 2c 0a 09 ENCES project,..
0990: 20 20 20 20 74 79 70 65 20 20 49 4e 54 45 47 45 type INTEGE
09a0: 52 20 20 4e 4f 54 20 4e 55 4c 4c 20 20 52 45 46 R NOT NULL REF
09b0: 45 52 45 4e 43 45 53 20 63 73 74 79 70 65 2c 0a ERENCES cstype,.
09c0: 09 20 20 20 20 73 72 63 20 20 20 49 4e 54 45 47 . src INTEG
09d0: 45 52 20 20 4e 4f 54 20 4e 55 4c 4c 20 2d 2d 20 ER NOT NULL --
09e0: 52 45 46 45 52 45 4e 43 45 53 20 6d 65 74 61 7c REFERENCES meta|
09f0: 73 79 6d 62 6f 6c 20 28 74 79 70 65 20 64 65 70 symbol (type dep
0a00: 65 6e 64 65 6e 74 29 0a 09 7d 0a 09 73 74 61 74 endent)..}..stat
0a10: 65 20 65 78 74 65 6e 64 20 63 73 74 79 70 65 20 e extend cstype
0a20: 7b 0a 09 20 20 20 20 74 69 64 20 20 20 49 4e 54 {.. tid INT
0a30: 45 47 45 52 20 20 4e 4f 54 20 4e 55 4c 4c 20 20 EGER NOT NULL
0a40: 50 52 49 4d 41 52 59 20 4b 45 59 20 20 41 55 54 PRIMARY KEY AUT
0a50: 4f 49 4e 43 52 45 4d 45 4e 54 2c 0a 09 20 20 20 OINCREMENT,..
0a60: 20 6e 61 6d 65 20 20 54 45 58 54 20 20 20 20 20 name TEXT
0a70: 4e 4f 54 20 4e 55 4c 4c 2c 0a 09 20 20 20 20 55 NOT NULL,.. U
0a80: 4e 49 51 55 45 20 28 6e 61 6d 65 29 0a 09 7d 0a NIQUE (name)..}.
0a90: 09 23 20 4e 6f 74 65 3a 20 4b 65 65 70 20 74 68 .# Note: Keep th
0aa0: 65 20 6c 61 62 65 6c 73 20 75 73 65 64 20 68 65 e labels used he
0ab0: 72 65 20 69 6e 20 73 79 6e 63 20 77 69 74 68 20 re in sync with
0ac0: 74 68 65 20 6e 61 6d 65 73 20 66 6f 72 0a 09 23 the names for..#
0ad0: 20 20 20 20 20 20 20 73 69 6e 67 6c 65 74 6f 6e singleton
0ae0: 20 68 65 6c 70 65 72 20 63 6c 61 73 73 65 73 20 helper classes
0af0: 66 6f 72 20 27 70 72 6f 6a 65 63 74 3a 3a 72 65 for 'project::re
0b00: 76 27 2e 20 54 68 65 79 20 61 72 65 0a 09 23 20 v'. They are..#
0b10: 20 20 20 20 20 20 74 68 65 20 76 61 6c 69 64 20 the valid
0b20: 74 79 70 65 20 6e 61 6d 65 73 20 66 6f 72 20 63 type names for c
0b30: 68 61 6e 67 65 73 65 74 73 20 61 6e 64 20 61 6c hangesets and al
0b40: 73 6f 20 68 61 72 64 77 69 72 65 64 0a 09 23 20 so hardwired..#
0b50: 20 20 20 20 20 20 69 6e 20 73 6f 6d 65 20 63 6f in some co
0b60: 64 65 2e 0a 09 73 74 61 74 65 20 72 75 6e 20 7b de...state run {
0b70: 0a 09 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 .. INSERT INT
0b80: 4f 20 63 73 74 79 70 65 20 56 41 4c 55 45 53 20 O cstype VALUES
0b90: 28 30 2c 27 72 65 76 27 29 3b 0a 09 20 20 20 20 (0,'rev');..
0ba0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 63 73 74 79 INSERT INTO csty
0bb0: 70 65 20 56 41 4c 55 45 53 20 28 31 2c 27 73 79 pe VALUES (1,'sy
0bc0: 6d 3a 3a 74 61 67 27 29 3b 0a 09 20 20 20 20 49 m::tag');.. I
0bd0: 4e 53 45 52 54 20 49 4e 54 4f 20 63 73 74 79 70 NSERT INTO cstyp
0be0: 65 20 56 41 4c 55 45 53 20 28 32 2c 27 73 79 6d e VALUES (2,'sym
0bf0: 3a 3a 62 72 61 6e 63 68 27 29 3b 0a 09 7d 0a 0a ::branch');..}..
0c00: 09 23 20 4d 61 70 20 66 72 6f 6d 20 63 68 61 6e .# Map from chan
0c10: 67 65 73 65 74 73 20 74 6f 20 74 68 65 20 28 66 gesets to the (f
0c20: 69 6c 65 20 6c 65 76 65 6c 29 20 72 65 76 69 73 ile level) revis
0c30: 69 6f 6e 73 2c 20 74 61 67 73 2c 20 6f 72 0a 09 ions, tags, or..
0c40: 23 20 62 72 61 6e 63 68 65 73 20 74 68 65 79 20 # branches they
0c50: 63 6f 6e 74 61 69 6e 2e 20 54 68 65 20 70 6f 73 contain. The pos
0c60: 27 69 74 69 6f 6e 20 70 72 6f 76 69 64 65 73 20 'ition provides
0c70: 61 6e 20 6f 72 64 65 72 20 6f 66 0a 09 23 20 74 an order of..# t
0c80: 68 65 20 69 74 65 6d 73 20 77 69 74 68 69 6e 20 he items within
0c90: 61 20 63 68 61 6e 67 65 73 65 74 2e 20 54 68 65 a changeset. The
0ca0: 79 20 61 72 65 20 75 6e 69 71 75 65 20 77 69 74 y are unique wit
0cb0: 68 69 6e 20 74 68 65 0a 09 23 20 63 68 61 6e 67 hin the..# chang
0cc0: 65 73 65 74 2e 20 20 54 68 65 20 69 74 65 6d 73 eset. The items
0cd0: 20 61 72 65 20 69 6e 20 70 72 69 6e 63 69 70 6c are in principl
0ce0: 65 20 75 6e 69 71 75 65 2c 20 69 66 20 77 65 20 e unique, if we
0cf0: 77 65 72 65 0a 09 23 20 6c 6f 6f 6b 69 6e 67 20 were..# looking
0d00: 6f 6e 6c 79 20 61 74 20 72 65 6c 65 76 61 6e 74 only at relevant
0d10: 20 63 68 61 6e 67 65 73 65 74 73 2e 20 48 6f 77 changesets. How
0d20: 65 76 65 72 20 61 73 20 74 68 65 79 20 63 6f 6d ever as they com
0d30: 65 0a 09 23 20 66 72 6f 6d 20 64 69 73 70 61 72 e..# from dispar
0d40: 61 74 65 20 73 6f 75 72 63 65 73 20 74 68 65 20 ate sources the
0d50: 73 61 6d 65 20 69 64 20 6d 61 79 20 68 61 76 65 same id may have
0d60: 20 64 69 66 66 65 72 65 6e 74 0a 09 23 20 6d 65 different..# me
0d70: 61 6e 69 6e 67 2c 20 62 65 20 69 6e 20 64 69 66 aning, be in dif
0d80: 66 65 72 65 6e 74 20 63 68 61 6e 67 65 73 65 74 ferent changeset
0d90: 73 20 61 6e 64 20 73 6f 20 69 73 20 66 6f 72 6d s and so is form
0da0: 61 6c 6c 79 20 6e 6f 74 0a 09 23 20 75 6e 69 71 ally not..# uniq
0db0: 75 65 2e 20 53 6f 20 77 65 20 63 61 6e 20 6f 6e ue. So we can on
0dc0: 6c 79 20 73 61 79 20 74 68 61 74 20 69 74 20 69 ly say that it i
0dd0: 73 20 75 6e 69 71 75 65 20 77 69 74 68 69 6e 20 s unique within
0de0: 74 68 65 0a 09 23 20 63 68 61 6e 67 65 73 65 74 the..# changeset
0df0: 2e 20 54 68 65 20 69 6e 74 65 67 72 69 74 79 20 . The integrity
0e00: 6d 6f 64 75 6c 65 20 68 61 73 20 73 74 72 6f 6e module has stron
0e10: 67 65 72 20 63 68 65 63 6b 73 2e 0a 0a 09 73 74 ger checks....st
0e20: 61 74 65 20 65 78 74 65 6e 64 20 63 73 69 74 65 ate extend csite
0e30: 6d 20 7b 0a 09 20 20 20 20 63 69 64 20 20 49 4e m {.. cid IN
0e40: 54 45 47 45 52 20 20 4e 4f 54 20 4e 55 4c 4c 20 TEGER NOT NULL
0e50: 20 52 45 46 45 52 45 4e 43 45 53 20 63 68 61 6e REFERENCES chan
0e60: 67 65 73 65 74 2c 0a 09 20 20 20 20 70 6f 73 20 geset,.. pos
0e70: 20 49 4e 54 45 47 45 52 20 20 4e 4f 54 20 4e 55 INTEGER NOT NU
0e80: 4c 4c 2c 0a 09 20 20 20 20 69 69 64 20 20 49 4e LL,.. iid IN
0e90: 54 45 47 45 52 20 20 4e 4f 54 20 4e 55 4c 4c 2c TEGER NOT NULL,
0ea0: 20 2d 2d 20 52 45 46 45 52 45 4e 43 45 53 20 72 -- REFERENCES r
0eb0: 65 76 69 73 69 6f 6e 7c 74 61 67 7c 62 72 61 6e evision|tag|bran
0ec0: 63 68 0a 09 20 20 20 20 55 4e 49 51 55 45 20 28 ch.. UNIQUE (
0ed0: 63 69 64 2c 20 70 6f 73 29 2c 0a 09 20 20 20 20 cid, pos),..
0ee0: 55 4e 49 51 55 45 20 28 63 69 64 2c 20 69 69 64 UNIQUE (cid, iid
0ef0: 29 0a 09 7d 20 7b 20 69 69 64 20 7d 0a 09 23 20 )..} { iid }..#
0f00: 49 6e 64 65 78 20 6f 6e 3a 20 69 69 64 20 28 73 Index on: iid (s
0f10: 75 63 63 65 73 73 6f 72 2f 70 72 65 64 65 63 65 uccessor/predece
0f20: 73 73 6f 72 20 72 65 74 72 69 65 76 61 6c 29 0a ssor retrieval).
0f30: 0a 09 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 67 ..project::rev g
0f40: 65 74 63 73 74 79 70 65 73 0a 09 72 65 74 75 72 etcstypes..retur
0f50: 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 74 79 70 n. }.. typ
0f60: 65 6d 65 74 68 6f 64 20 6c 6f 61 64 20 7b 7d 20 emethod load {}
0f70: 7b 0a 09 23 20 50 61 73 73 20 6d 61 6e 61 67 65 {..# Pass manage
0f80: 72 20 69 6e 74 65 72 66 61 63 65 2e 20 45 78 65 r interface. Exe
0f90: 63 75 74 65 64 20 74 6f 20 6c 6f 61 64 20 64 61 cuted to load da
0fa0: 74 61 20 63 6f 6d 70 75 74 65 64 20 62 79 0a 09 ta computed by..
0fb0: 23 20 74 68 69 73 20 70 61 73 73 20 69 6e 74 6f # this pass into
0fc0: 20 6d 65 6d 6f 72 79 20 77 68 65 6e 20 74 68 69 memory when thi
0fd0: 73 20 70 61 73 73 20 69 73 20 73 6b 69 70 70 65 s pass is skippe
0fe0: 64 20 69 6e 73 74 65 61 64 20 6f 66 0a 09 23 20 d instead of..#
0ff0: 65 78 65 63 75 74 65 64 2e 0a 0a 09 73 74 61 74 executed....stat
1000: 65 20 75 73 65 20 63 68 61 6e 67 65 73 65 74 0a e use changeset.
1010: 09 73 74 61 74 65 20 75 73 65 20 63 73 69 74 65 .state use csite
1020: 6d 0a 09 73 74 61 74 65 20 75 73 65 20 63 73 74 m..state use cst
1030: 79 70 65 0a 0a 09 23 20 4e 65 65 64 20 74 68 65 ype...# Need the
1040: 20 74 79 70 65 73 20 66 69 72 73 74 2c 20 74 68 types first, th
1050: 65 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 75 73 e constructor us
1060: 65 64 20 69 6e 73 69 64 65 20 6f 66 20 74 68 65 ed inside of the
1070: 0a 09 23 20 27 6c 6f 61 64 27 20 62 65 6c 6f 77 ..# 'load' below
1080: 20 75 73 65 73 20 74 68 65 6d 20 74 6f 20 61 73 uses them to as
1090: 73 65 72 74 20 74 68 65 20 63 6f 72 72 65 63 74 sert the correct
10a0: 6e 65 73 73 20 6f 66 20 74 79 70 65 0a 09 23 20 ness of type..#
10b0: 6e 61 6d 65 73 2e 0a 09 70 72 6f 6a 65 63 74 3a names...project:
10c0: 3a 72 65 76 20 67 65 74 63 73 74 79 70 65 73 0a :rev getcstypes.
10d0: 09 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 6c 6f .project::rev lo
10e0: 61 64 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a ad ::vc::fossil:
10f0: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 72 65 :import::cvs::re
1100: 70 6f 73 69 74 6f 72 79 0a 09 70 72 6f 6a 65 63 pository..projec
1110: 74 3a 3a 72 65 76 20 6c 6f 61 64 63 6f 75 6e 74 t::rev loadcount
1120: 65 72 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d er..return. }
1130: 0a 0a 20 20 20 20 74 79 70 65 6d 65 74 68 6f 64 .. typemethod
1140: 20 72 75 6e 20 7b 7d 20 7b 0a 09 23 20 50 61 73 run {} {..# Pas
1150: 73 20 6d 61 6e 61 67 65 72 20 69 6e 74 65 72 66 s manager interf
1160: 61 63 65 2e 20 45 78 65 63 75 74 65 64 20 74 6f ace. Executed to
1170: 20 70 65 72 66 6f 72 6d 20 74 68 65 0a 09 23 20 perform the..#
1180: 66 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 6f 66 functionality of
1190: 20 74 68 65 20 70 61 73 73 2e 0a 0a 09 73 74 61 the pass....sta
11a0: 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b te transaction {
11b0: 0a 09 20 20 20 20 43 72 65 61 74 65 52 65 76 69 .. CreateRevi
11c0: 73 69 6f 6e 43 68 61 6e 67 65 73 65 74 73 20 20 sionChangesets
11d0: 3b 20 23 20 47 72 6f 75 70 20 66 69 6c 65 20 72 ; # Group file r
11e0: 65 76 69 73 69 6f 6e 73 20 69 6e 74 6f 20 63 73 evisions into cs
11f0: 65 74 73 2e 0a 09 20 20 20 20 42 72 65 61 6b 49 ets... BreakI
1200: 6e 74 65 72 6e 61 6c 44 65 70 65 6e 64 65 6e 63 nternalDependenc
1210: 69 65 73 20 3b 20 23 20 53 70 6c 69 74 20 74 68 ies ; # Split th
1220: 65 20 63 73 65 74 73 20 62 61 73 65 64 20 6f 6e e csets based on
1230: 20 69 6e 74 65 72 6e 61 6c 20 63 6f 6e 66 6c 69 internal confli
1240: 63 74 73 2e 0a 09 20 20 20 20 43 72 65 61 74 65 cts... Create
1250: 53 79 6d 62 6f 6c 43 68 61 6e 67 65 73 65 74 73 SymbolChangesets
1260: 20 20 20 20 3b 20 23 20 43 72 65 61 74 65 20 63 ; # Create c
1270: 73 65 74 73 20 66 6f 72 20 74 61 67 73 20 61 6e sets for tags an
1280: 64 20 62 72 61 6e 63 68 65 73 2e 0a 09 20 20 20 d branches...
1290: 20 50 65 72 73 69 73 74 54 68 65 43 68 61 6e 67 PersistTheChang
12a0: 65 73 65 74 73 0a 09 7d 0a 0a 09 72 65 70 6f 73 esets..}...repos
12b0: 69 74 6f 72 79 20 70 72 69 6e 74 63 73 65 74 73 itory printcsets
12c0: 74 61 74 69 73 74 69 63 73 0a 09 69 6e 74 65 67 tatistics..integ
12d0: 72 69 74 79 20 63 68 61 6e 67 65 73 65 74 73 0a rity changesets.
12e0: 09 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 .return. }..
12f0: 20 20 20 74 79 70 65 6d 65 74 68 6f 64 20 64 69 typemethod di
1300: 73 63 61 72 64 20 7b 7d 20 7b 0a 09 23 20 50 61 scard {} {..# Pa
1310: 73 73 20 6d 61 6e 61 67 65 72 20 69 6e 74 65 72 ss manager inter
1320: 66 61 63 65 2e 20 45 78 65 63 75 74 65 64 20 66 face. Executed f
1330: 6f 72 20 61 6c 6c 20 70 61 73 73 65 73 20 61 66 or all passes af
1340: 74 65 72 20 74 68 65 0a 09 23 20 72 75 6e 20 70 ter the..# run p
1350: 61 73 73 65 73 2c 20 74 6f 20 72 65 6d 6f 76 65 asses, to remove
1360: 20 61 6c 6c 20 64 61 74 61 20 6f 66 20 74 68 69 all data of thi
1370: 73 20 70 61 73 73 20 66 72 6f 6d 20 74 68 65 20 s pass from the
1380: 73 74 61 74 65 2c 0a 09 23 20 61 73 20 62 65 69 state,..# as bei
1390: 6e 67 20 6f 75 74 20 6f 66 20 64 61 74 65 2e 0a ng out of date..
13a0: 0a 09 73 74 61 74 65 20 64 69 73 63 61 72 64 20 ..state discard
13b0: 63 68 61 6e 67 65 73 65 74 0a 09 73 74 61 74 65 changeset..state
13c0: 20 64 69 73 63 61 72 64 20 63 73 74 79 70 65 0a discard cstype.
13d0: 09 73 74 61 74 65 20 64 69 73 63 61 72 64 20 63 .state discard c
13e0: 73 69 74 65 6d 0a 09 72 65 74 75 72 6e 0a 20 20 sitem..return.
13f0: 20 20 7d 0a 0a 20 20 20 20 23 20 23 20 23 23 20 }.. # # ##
1400: 23 23 23 20 23 23 23 23 23 20 23 23 23 23 23 23 ### ##### ######
1410: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
1420: 0a 20 20 20 20 23 23 20 49 6e 74 65 72 6e 61 6c . ## Internal
1430: 20 6d 65 74 68 6f 64 73 0a 0a 20 20 20 20 70 72 methods.. pr
1440: 6f 63 20 43 72 65 61 74 65 52 65 76 69 73 69 6f oc CreateRevisio
1450: 6e 43 68 61 6e 67 65 73 65 74 73 20 7b 7d 20 7b nChangesets {} {
1460: 0a 09 6c 6f 67 20 77 72 69 74 65 20 33 20 69 6e ..log write 3 in
1470: 69 74 63 73 65 74 73 20 7b 43 72 65 61 74 65 20 itcsets {Create
1480: 63 68 61 6e 67 65 73 65 74 73 20 62 61 73 65 64 changesets based
1490: 20 6f 6e 20 72 65 76 69 73 69 6f 6e 73 7d 0a 0a on revisions}..
14a0: 09 23 20 54 6f 20 67 65 74 20 74 68 65 20 69 6e .# To get the in
14b0: 69 74 69 61 6c 20 6f 66 20 63 68 61 6e 67 65 73 itial of changes
14c0: 65 74 73 20 77 65 20 66 69 72 73 74 20 67 72 6f ets we first gro
14d0: 75 70 20 61 6c 6c 20 66 69 6c 65 0a 09 23 20 6c up all file..# l
14e0: 65 76 65 6c 20 72 65 76 69 73 69 6f 6e 73 20 75 evel revisions u
14f0: 73 69 6e 67 20 74 68 65 20 73 61 6d 65 20 6d 65 sing the same me
1500: 74 61 20 64 61 74 61 20 65 6e 74 72 79 20 74 6f ta data entry to
1510: 67 65 74 68 65 72 2e 20 41 73 0a 09 23 20 74 68 gether. As..# th
1520: 65 20 6d 65 74 61 20 64 61 74 61 20 65 6e 63 6f e meta data enco
1530: 64 65 73 20 6e 6f 74 20 6f 6e 6c 79 20 61 75 74 des not only aut
1540: 68 6f 72 20 61 6e 64 20 6c 6f 67 20 6d 65 73 73 hor and log mess
1550: 61 67 65 2c 20 62 75 74 0a 09 23 20 61 6c 73 6f age, but..# also
1560: 20 6c 69 6e 65 20 6f 66 20 64 65 76 65 6c 6f 70 line of develop
1570: 6d 65 6e 74 20 61 6e 64 20 70 72 6f 6a 65 63 74 ment and project
1580: 20 77 65 20 63 61 6e 20 62 65 20 73 75 72 65 20 we can be sure
1590: 74 68 61 74 0a 09 23 20 72 65 76 69 73 69 6f 6e that..# revision
15a0: 73 20 69 6e 20 64 69 66 66 65 72 65 6e 74 20 70 s in different p
15b0: 72 6f 6a 65 63 74 20 61 6e 64 20 6c 69 6e 65 73 roject and lines
15c0: 20 6f 66 20 64 65 76 65 6c 6f 70 6d 65 6e 74 20 of development
15d0: 61 72 65 0a 09 23 20 6e 6f 74 20 67 72 6f 75 70 are..# not group
15e0: 65 64 20 74 6f 67 65 74 68 65 72 2e 20 49 6e 20 ed together. In
15f0: 63 6f 6e 74 72 61 73 74 20 74 6f 20 63 76 73 32 contrast to cvs2
1600: 73 76 6e 20 77 65 20 64 6f 20 5f 5f 6e 6f 74 5f svn we do __not_
1610: 5f 0a 09 23 20 75 73 65 20 64 69 73 74 61 6e 63 _..# use distanc
1620: 65 20 69 6e 20 74 69 6d 65 20 62 65 74 77 65 65 e in time betwee
1630: 6e 20 72 65 76 69 73 69 6f 6e 73 20 74 6f 20 62 n revisions to b
1640: 72 65 61 6b 20 74 68 65 6d 0a 09 23 20 61 70 61 reak them..# apa
1650: 72 74 2e 20 57 65 20 68 61 76 65 20 73 65 65 6e rt. We have seen
1660: 20 43 56 53 20 72 65 70 6f 73 69 74 6f 72 69 65 CVS repositorie
1670: 73 20 28 66 72 6f 6d 20 53 46 29 20 77 68 65 72 s (from SF) wher
1680: 65 20 61 0a 09 23 20 73 69 6e 67 6c 65 20 63 6f e a..# single co
1690: 6d 6d 69 74 20 63 6f 6e 74 61 69 6e 65 64 20 72 mmit contained r
16a0: 65 76 69 73 69 6f 6e 73 20 73 65 76 65 72 61 6c evisions several
16b0: 20 68 6f 75 72 73 20 61 70 61 72 74 2c 0a 09 23 hours apart,..#
16c0: 20 6c 69 6b 65 6c 79 20 64 75 65 20 74 6f 20 74 likely due to t
16d0: 72 6f 75 62 6c 65 20 6f 6e 20 74 68 65 20 73 65 rouble on the se
16e0: 72 76 65 72 20 68 6f 73 74 69 6e 67 20 74 68 65 rver hosting the
16f0: 20 72 65 70 6f 73 69 74 6f 72 79 2e 0a 0a 09 23 repository....#
1700: 20 57 65 20 6f 72 64 65 72 20 74 68 65 20 72 65 We order the re
1710: 76 69 73 69 6f 6e 73 20 68 65 72 65 20 62 79 20 visions here by
1720: 74 69 6d 65 2c 20 74 68 69 73 20 77 69 6c 6c 20 time, this will
1730: 68 65 6c 70 20 74 68 65 0a 09 23 20 6c 61 74 65 help the..# late
1740: 72 20 70 61 73 73 65 73 20 28 61 76 6f 69 64 73 r passes (avoids
1750: 20 6a 6f 69 6e 73 20 6c 61 74 65 72 20 74 6f 20 joins later to
1760: 67 65 74 20 61 74 20 74 68 65 20 6f 72 64 65 72 get at the order
1770: 69 6e 67 0a 09 23 20 69 6e 66 6f 29 2e 0a 0a 09 ing..# info)....
1780: 73 65 74 20 6e 20 30 0a 0a 09 73 65 74 20 6c 61 set n 0...set la
1790: 73 74 6d 65 74 61 20 20 20 20 7b 7d 0a 09 73 65 stmeta {}..se
17a0: 74 20 6c 61 73 74 70 72 6f 6a 65 63 74 20 7b 7d t lastproject {}
17b0: 0a 09 73 65 74 20 72 65 76 69 73 69 6f 6e 73 20 ..set revisions
17c0: 20 20 7b 7d 0a 0a 09 23 20 4e 6f 74 65 3a 20 57 {}...# Note: W
17d0: 65 20 63 6f 75 6c 64 20 68 61 76 65 20 77 72 69 e could have wri
17e0: 74 74 65 6e 20 74 68 69 73 20 6c 6f 6f 70 20 74 tten this loop t
17f0: 6f 20 63 72 65 61 74 65 20 74 68 65 20 63 73 65 o create the cse
1800: 74 73 0a 09 23 20 20 20 20 20 20 20 65 61 72 6c ts..# earl
1810: 79 2c 20 65 78 74 65 6e 64 69 6e 67 20 74 68 65 y, extending the
1820: 6d 20 77 69 74 68 20 61 6c 6c 20 74 68 65 69 72 m with all their
1830: 20 72 65 76 69 73 69 6f 6e 73 2e 20 54 68 69 73 revisions. This
1840: 0a 09 23 20 20 20 20 20 20 20 68 6f 77 65 76 65 ..# howeve
1850: 72 20 77 6f 75 6c 64 20 6d 65 61 6e 20 6c 6f 74 r would mean lot
1860: 73 20 6f 66 20 28 73 6c 6f 77 29 20 6d 65 74 68 s of (slow) meth
1870: 6f 64 20 69 6e 76 6f 6b 61 74 69 6f 6e 73 0a 09 od invokations..
1880: 23 20 20 20 20 20 20 20 6f 6e 20 74 68 65 20 63 # on the c
1890: 73 65 74 73 2e 20 44 6f 69 6e 67 20 69 74 20 6c sets. Doing it l
18a0: 69 6b 65 20 74 68 69 73 2c 20 6c 61 74 65 20 63 ike this, late c
18b0: 72 65 61 74 69 6f 6e 2c 20 6d 65 61 6e 73 0a 09 reation, means..
18c0: 23 20 20 20 20 20 20 20 6c 65 73 73 20 73 75 63 # less suc
18d0: 68 20 63 61 6c 6c 73 2e 20 4e 6f 6e 65 2c 20 62 h calls. None, b
18e0: 75 74 20 74 68 65 20 63 72 65 61 74 69 6f 6e 20 ut the creation
18f0: 69 74 73 65 6c 66 2e 0a 0a 09 66 6f 72 65 61 63 itself....foreac
1900: 68 20 7b 6d 69 64 20 72 69 64 20 70 69 64 7d 20 h {mid rid pid}
1910: 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 [state run {..
1920: 20 20 53 45 4c 45 43 54 20 4d 2e 6d 69 64 2c 20 SELECT M.mid,
1930: 52 2e 72 69 64 2c 20 4d 2e 70 69 64 0a 09 20 20 R.rid, M.pid..
1940: 20 20 46 52 4f 4d 20 20 20 72 65 76 69 73 69 6f FROM revisio
1950: 6e 20 52 2c 20 6d 65 74 61 20 4d 20 20 20 2d 2d n R, meta M --
1960: 20 52 20 3d 3d 3e 20 4d 2c 20 75 73 69 6e 67 20 R ==> M, using
1970: 50 4b 20 69 6e 64 65 78 20 6f 66 20 4d 2e 0a 09 PK index of M...
1980: 20 20 20 20 57 48 45 52 45 20 20 52 2e 6d 69 64 WHERE R.mid
1990: 20 3d 20 4d 2e 6d 69 64 0a 09 20 20 20 20 4f 52 = M.mid.. OR
19a0: 44 45 52 20 20 42 59 20 4d 2e 6d 69 64 2c 20 52 DER BY M.mid, R
19b0: 2e 64 61 74 65 0a 09 7d 5d 20 7b 0a 09 20 20 20 .date..}] {..
19c0: 20 69 66 20 7b 24 6c 61 73 74 6d 65 74 61 20 21 if {$lastmeta !
19d0: 3d 20 24 6d 69 64 7d 20 7b 0a 09 09 69 66 20 7b = $mid} {...if {
19e0: 5b 6c 6c 65 6e 67 74 68 20 24 72 65 76 69 73 69 [llength $revisi
19f0: 6f 6e 73 5d 7d 20 7b 0a 09 09 20 20 20 20 69 6e ons]} {... in
1a00: 63 72 20 6e 0a 09 09 20 20 20 20 73 65 74 20 20 cr n... set
1a10: 70 20 5b 72 65 70 6f 73 69 74 6f 72 79 20 70 72 p [repository pr
1a20: 6f 6a 65 63 74 6f 66 20 24 6c 61 73 74 70 72 6f ojectof $lastpro
1a30: 6a 65 63 74 5d 0a 09 09 20 20 20 20 70 72 6f 6a ject]... proj
1a40: 65 63 74 3a 3a 72 65 76 20 25 41 55 54 4f 25 20 ect::rev %AUTO%
1a50: 24 70 20 72 65 76 20 24 6c 61 73 74 6d 65 74 61 $p rev $lastmeta
1a60: 20 24 72 65 76 69 73 69 6f 6e 73 0a 09 09 20 20 $revisions...
1a70: 20 20 73 65 74 20 72 65 76 69 73 69 6f 6e 73 20 set revisions
1a80: 7b 7d 0a 09 09 7d 0a 09 09 73 65 74 20 6c 61 73 {}...}...set las
1a90: 74 6d 65 74 61 20 20 20 20 24 6d 69 64 0a 09 09 tmeta $mid...
1aa0: 73 65 74 20 6c 61 73 74 70 72 6f 6a 65 63 74 20 set lastproject
1ab0: 24 70 69 64 0a 09 20 20 20 20 7d 0a 09 20 20 20 $pid.. }..
1ac0: 20 6c 61 70 70 65 6e 64 20 72 65 76 69 73 69 6f lappend revisio
1ad0: 6e 73 20 24 72 69 64 0a 09 7d 0a 0a 09 69 66 20 ns $rid..}...if
1ae0: 7b 5b 6c 6c 65 6e 67 74 68 20 24 72 65 76 69 73 {[llength $revis
1af0: 69 6f 6e 73 5d 7d 20 7b 0a 09 20 20 20 20 69 6e ions]} {.. in
1b00: 63 72 20 6e 0a 09 20 20 20 20 73 65 74 20 20 70 cr n.. set p
1b10: 20 5b 72 65 70 6f 73 69 74 6f 72 79 20 70 72 6f [repository pro
1b20: 6a 65 63 74 6f 66 20 24 6c 61 73 74 70 72 6f 6a jectof $lastproj
1b30: 65 63 74 5d 0a 09 20 20 20 20 70 72 6f 6a 65 63 ect].. projec
1b40: 74 3a 3a 72 65 76 20 25 41 55 54 4f 25 20 24 70 t::rev %AUTO% $p
1b50: 20 72 65 76 20 24 6c 61 73 74 6d 65 74 61 20 24 rev $lastmeta $
1b60: 72 65 76 69 73 69 6f 6e 73 0a 09 7d 0a 0a 09 6c revisions..}...l
1b70: 6f 67 20 77 72 69 74 65 20 34 20 69 6e 69 74 63 og write 4 initc
1b80: 73 65 74 73 20 22 43 72 65 61 74 65 64 20 5b 6e sets "Created [n
1b90: 73 70 20 24 6e 20 7b 72 65 76 69 73 69 6f 6e 20 sp $n {revision
1ba0: 63 68 61 6e 67 65 73 65 74 7d 5d 22 0a 09 72 65 changeset}]"..re
1bb0: 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 turn. }..
1bc0: 70 72 6f 63 20 43 72 65 61 74 65 53 79 6d 62 6f proc CreateSymbo
1bd0: 6c 43 68 61 6e 67 65 73 65 74 73 20 7b 7d 20 7b lChangesets {} {
1be0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 33 20 69 6e ..log write 3 in
1bf0: 69 74 63 73 65 74 73 20 7b 43 72 65 61 74 65 20 itcsets {Create
1c00: 63 68 61 6e 67 65 73 65 74 73 20 62 61 73 65 64 changesets based
1c10: 20 6f 6e 20 73 79 6d 62 6f 6c 73 7d 0a 0a 09 23 on symbols}...#
1c20: 20 54 61 67 73 20 61 6e 64 20 62 72 61 6e 63 68 Tags and branch
1c30: 65 73 20 69 6e 64 75 63 65 20 63 68 61 6e 67 65 es induce change
1c40: 73 65 74 73 20 61 73 20 77 65 6c 6c 2c 20 63 6f sets as well, co
1c50: 6e 74 61 69 6e 69 6e 67 20 74 68 65 0a 09 23 20 ntaining the..#
1c60: 72 65 76 69 73 69 6f 6e 73 20 74 68 65 79 20 61 revisions they a
1c70: 72 65 20 61 74 74 61 63 68 65 64 20 74 6f 20 28 re attached to (
1c80: 74 61 67 73 29 2c 20 6f 72 20 73 70 61 77 6e 65 tags), or spawne
1c90: 64 20 66 72 6f 6d 0a 09 23 20 28 62 72 61 6e 63 d from..# (branc
1ca0: 68 65 73 29 2e 0a 0a 09 73 65 74 20 6e 20 30 0a hes)....set n 0.
1cb0: 0a 09 23 20 46 69 72 73 74 20 70 72 6f 63 65 73 ..# First proces
1cc0: 73 20 74 68 65 20 74 61 67 73 2c 20 74 68 65 6e s the tags, then
1cd0: 20 74 68 65 20 62 72 61 6e 63 68 65 73 2e 20 57 the branches. W
1ce0: 65 20 6b 6e 6f 77 20 74 68 61 74 0a 09 23 20 74 e know that..# t
1cf0: 68 65 69 72 20 69 64 73 20 64 6f 20 6e 6f 74 20 heir ids do not
1d00: 6f 76 65 72 6c 61 70 20 77 69 74 68 20 65 61 63 overlap with eac
1d10: 68 20 6f 74 68 65 72 2e 0a 0a 09 73 65 74 20 6c h other....set l
1d20: 61 73 74 73 79 6d 62 6f 6c 20 20 7b 7d 0a 09 73 astsymbol {}..s
1d30: 65 74 20 6c 61 73 74 70 72 6f 6a 65 63 74 20 7b et lastproject {
1d40: 7d 0a 09 73 65 74 20 74 61 67 73 20 20 20 20 20 }..set tags
1d50: 20 20 20 7b 7d 0a 0a 09 66 6f 72 65 61 63 68 20 {}...foreach
1d60: 7b 73 69 64 20 74 69 64 20 70 69 64 7d 20 5b 73 {sid tid pid} [s
1d70: 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 20 20 20 tate run {..
1d80: 53 45 4c 45 43 54 20 53 2e 73 69 64 2c 20 54 2e SELECT S.sid, T.
1d90: 74 69 64 2c 20 53 2e 70 69 64 0a 09 20 20 20 20 tid, S.pid..
1da0: 46 52 4f 4d 20 20 74 61 67 20 54 2c 20 73 79 6d FROM tag T, sym
1db0: 62 6f 6c 20 53 20 20 20 20 20 2d 2d 20 54 20 3d bol S -- T =
1dc0: 3d 3e 20 52 2f 53 2c 20 75 73 69 6e 67 20 50 4b => R/S, using PK
1dd0: 20 69 6e 64 69 63 65 73 20 6f 66 20 52 2c 20 53 indices of R, S
1de0: 2e 0a 09 20 20 20 20 57 48 45 52 45 20 54 2e 73 ... WHERE T.s
1df0: 69 64 20 3d 20 53 2e 73 69 64 0a 09 20 20 20 20 id = S.sid..
1e00: 4f 52 44 45 52 20 42 59 20 53 2e 73 69 64 2c 20 ORDER BY S.sid,
1e10: 54 2e 74 69 64 0a 09 7d 5d 20 7b 0a 09 20 20 20 T.tid..}] {..
1e20: 20 69 66 20 7b 24 6c 61 73 74 73 79 6d 62 6f 6c if {$lastsymbol
1e30: 20 21 3d 20 24 73 69 64 7d 20 7b 0a 09 09 69 66 != $sid} {...if
1e40: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 74 61 67 73 {[llength $tags
1e50: 5d 7d 20 7b 0a 09 09 20 20 20 20 69 6e 63 72 20 ]} {... incr
1e60: 6e 0a 09 09 20 20 20 20 73 65 74 20 20 70 20 5b n... set p [
1e70: 72 65 70 6f 73 69 74 6f 72 79 20 70 72 6f 6a 65 repository proje
1e80: 63 74 6f 66 20 24 6c 61 73 74 70 72 6f 6a 65 63 ctof $lastprojec
1e90: 74 5d 0a 09 09 20 20 20 20 70 72 6f 6a 65 63 74 t]... project
1ea0: 3a 3a 72 65 76 20 25 41 55 54 4f 25 20 24 70 20 ::rev %AUTO% $p
1eb0: 73 79 6d 3a 3a 74 61 67 20 24 6c 61 73 74 73 79 sym::tag $lastsy
1ec0: 6d 62 6f 6c 20 24 74 61 67 73 0a 09 09 20 20 20 mbol $tags...
1ed0: 20 73 65 74 20 74 61 67 73 20 7b 7d 0a 09 09 7d set tags {}...}
1ee0: 0a 09 09 73 65 74 20 6c 61 73 74 73 79 6d 62 6f ...set lastsymbo
1ef0: 6c 20 20 24 73 69 64 0a 09 09 73 65 74 20 6c 61 l $sid...set la
1f00: 73 74 70 72 6f 6a 65 63 74 20 24 70 69 64 0a 09 stproject $pid..
1f10: 20 20 20 20 7d 0a 09 20 20 20 20 6c 61 70 70 65 }.. lappe
1f20: 6e 64 20 74 61 67 73 20 24 74 69 64 0a 09 7d 0a nd tags $tid..}.
1f30: 0a 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 ..if {[llength $
1f40: 74 61 67 73 5d 7d 20 7b 0a 09 20 20 20 20 69 6e tags]} {.. in
1f50: 63 72 20 6e 0a 09 20 20 20 20 73 65 74 20 20 70 cr n.. set p
1f60: 20 5b 72 65 70 6f 73 69 74 6f 72 79 20 70 72 6f [repository pro
1f70: 6a 65 63 74 6f 66 20 24 6c 61 73 74 70 72 6f 6a jectof $lastproj
1f80: 65 63 74 5d 0a 09 20 20 20 20 70 72 6f 6a 65 63 ect].. projec
1f90: 74 3a 3a 72 65 76 20 25 41 55 54 4f 25 20 24 70 t::rev %AUTO% $p
1fa0: 20 73 79 6d 3a 3a 74 61 67 20 24 6c 61 73 74 73 sym::tag $lasts
1fb0: 79 6d 62 6f 6c 20 24 74 61 67 73 0a 09 7d 0a 0a ymbol $tags..}..
1fc0: 09 73 65 74 20 6c 61 73 74 73 79 6d 62 6f 6c 20 .set lastsymbol
1fd0: 7b 7d 0a 09 73 65 74 20 6c 61 73 70 72 6f 6a 65 {}..set lasproje
1fe0: 63 74 20 7b 7d 0a 09 73 65 74 20 62 72 61 6e 63 ct {}..set branc
1ff0: 68 65 73 20 20 20 7b 7d 0a 0a 09 66 6f 72 65 61 hes {}...forea
2000: 63 68 20 7b 73 69 64 20 62 69 64 20 70 69 64 7d ch {sid bid pid}
2010: 20 5b 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 20 [state run {..
2020: 20 20 20 53 45 4c 45 43 54 20 53 2e 73 69 64 2c SELECT S.sid,
2030: 20 42 2e 62 69 64 2c 20 53 2e 70 69 64 0a 09 20 B.bid, S.pid..
2040: 20 20 20 46 52 4f 4d 20 20 62 72 61 6e 63 68 20 FROM branch
2050: 42 2c 20 73 79 6d 62 6f 6c 20 53 20 20 2d 2d 20 B, symbol S --
2060: 42 20 3d 3d 3e 20 52 2f 53 2c 20 75 73 69 6e 67 B ==> R/S, using
2070: 20 50 4b 20 69 6e 64 69 63 65 73 20 6f 66 20 52 PK indices of R
2080: 2c 20 53 2e 0a 09 20 20 20 20 57 48 45 52 45 20 , S... WHERE
2090: 42 2e 73 69 64 20 20 3d 20 53 2e 73 69 64 0a 09 B.sid = S.sid..
20a0: 20 20 20 20 4f 52 44 45 52 20 42 59 20 53 2e 73 ORDER BY S.s
20b0: 69 64 2c 20 42 2e 62 69 64 0a 09 7d 5d 20 7b 0a id, B.bid..}] {.
20c0: 09 20 20 20 20 69 66 20 7b 24 6c 61 73 74 73 79 . if {$lastsy
20d0: 6d 62 6f 6c 20 21 3d 20 24 73 69 64 7d 20 7b 0a mbol != $sid} {.
20e0: 09 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 ..if {[llength $
20f0: 62 72 61 6e 63 68 65 73 5d 7d 20 7b 0a 09 09 20 branches]} {...
2100: 20 20 20 69 6e 63 72 20 6e 0a 09 09 20 20 20 20 incr n...
2110: 73 65 74 20 20 70 20 5b 72 65 70 6f 73 69 74 6f set p [reposito
2120: 72 79 20 70 72 6f 6a 65 63 74 6f 66 20 24 6c 61 ry projectof $la
2130: 73 74 70 72 6f 6a 65 63 74 5d 0a 09 09 20 20 20 stproject]...
2140: 20 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 25 41 project::rev %A
2150: 55 54 4f 25 20 24 70 20 73 79 6d 3a 3a 62 72 61 UTO% $p sym::bra
2160: 6e 63 68 20 24 6c 61 73 74 73 79 6d 62 6f 6c 20 nch $lastsymbol
2170: 24 62 72 61 6e 63 68 65 73 0a 09 09 20 20 20 20 $branches...
2180: 73 65 74 20 62 72 61 6e 63 68 65 73 20 7b 7d 0a set branches {}.
2190: 09 09 7d 0a 09 09 73 65 74 20 6c 61 73 74 73 79 ..}...set lastsy
21a0: 6d 62 6f 6c 20 20 24 73 69 64 0a 09 09 73 65 74 mbol $sid...set
21b0: 20 6c 61 73 74 70 72 6f 6a 65 63 74 20 24 70 69 lastproject $pi
21c0: 64 0a 09 20 20 20 20 7d 0a 09 20 20 20 20 6c 61 d.. }.. la
21d0: 70 70 65 6e 64 20 62 72 61 6e 63 68 65 73 20 24 ppend branches $
21e0: 62 69 64 0a 09 7d 0a 0a 09 69 66 20 7b 5b 6c 6c bid..}...if {[ll
21f0: 65 6e 67 74 68 20 24 62 72 61 6e 63 68 65 73 5d ength $branches]
2200: 7d 20 7b 0a 09 20 20 20 20 69 6e 63 72 20 6e 0a } {.. incr n.
2210: 09 20 20 20 20 73 65 74 20 20 70 20 5b 72 65 70 . set p [rep
2220: 6f 73 69 74 6f 72 79 20 70 72 6f 6a 65 63 74 6f ository projecto
2230: 66 20 24 6c 61 73 74 70 72 6f 6a 65 63 74 5d 0a f $lastproject].
2240: 09 20 20 20 20 70 72 6f 6a 65 63 74 3a 3a 72 65 . project::re
2250: 76 20 25 41 55 54 4f 25 20 24 70 20 73 79 6d 3a v %AUTO% $p sym:
2260: 3a 62 72 61 6e 63 68 20 24 6c 61 73 74 73 79 6d :branch $lastsym
2270: 62 6f 6c 20 24 62 72 61 6e 63 68 65 73 0a 09 7d bol $branches..}
2280: 0a 0a 09 6c 6f 67 20 77 72 69 74 65 20 34 20 69 ...log write 4 i
2290: 6e 69 74 63 73 65 74 73 20 22 43 72 65 61 74 65 nitcsets "Create
22a0: 64 20 5b 6e 73 70 20 24 6e 20 7b 73 79 6d 62 6f d [nsp $n {symbo
22b0: 6c 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 0a 09 l changeset}]"..
22c0: 72 65 74 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 return. }..
22d0: 20 20 70 72 6f 63 20 42 72 65 61 6b 49 6e 74 65 proc BreakInte
22e0: 72 6e 61 6c 44 65 70 65 6e 64 65 6e 63 69 65 73 rnalDependencies
22f0: 20 7b 7d 20 7b 0a 09 23 20 54 68 69 73 20 63 6f {} {..# This co
2300: 64 65 20 6f 70 65 72 61 74 65 73 20 6f 6e 20 74 de operates on t
2310: 68 65 20 72 65 76 69 73 69 6f 6e 20 63 68 61 6e he revision chan
2320: 67 65 73 65 74 73 20 63 72 65 61 74 65 64 20 62 gesets created b
2330: 79 0a 09 23 20 27 43 72 65 61 74 65 52 65 76 69 y..# 'CreateRevi
2340: 73 69 6f 6e 43 68 61 6e 67 65 73 65 74 73 27 2e sionChangesets'.
2350: 20 41 73 20 73 75 63 68 20 69 74 20 68 61 73 20 As such it has
2360: 74 6f 20 66 6f 6c 6c 6f 77 20 61 66 74 65 72 0a to follow after.
2370: 09 23 20 69 74 2c 20 62 65 66 6f 72 65 20 74 68 .# it, before th
2380: 65 20 73 79 6d 62 6f 6c 20 63 68 61 6e 67 65 73 e symbol changes
2390: 65 74 73 20 61 72 65 20 6d 61 64 65 2e 20 54 68 ets are made. Th
23a0: 65 20 63 68 61 6e 67 65 73 65 74 73 0a 09 23 20 e changesets..#
23b0: 61 72 65 20 69 6e 73 70 65 63 74 65 64 20 66 6f are inspected fo
23c0: 72 20 69 6e 74 65 72 6e 61 6c 20 63 6f 6e 66 6c r internal confl
23d0: 69 63 74 73 20 61 6e 64 20 61 6e 79 20 73 75 63 icts and any suc
23e0: 68 20 61 72 65 20 62 72 6f 6b 65 6e 0a 09 23 20 h are broken..#
23f0: 62 79 20 73 70 6c 69 74 74 69 6e 67 20 74 68 65 by splitting the
2400: 20 70 72 6f 62 6c 65 6d 61 74 69 63 20 63 68 61 problematic cha
2410: 6e 67 65 73 65 74 20 69 6e 74 6f 20 6d 75 6c 74 ngeset into mult
2420: 69 70 6c 65 0a 09 23 20 66 72 61 67 6d 65 6e 74 iple..# fragment
2430: 73 2e 20 54 68 65 20 72 65 73 75 6c 74 73 20 61 s. The results a
2440: 72 65 20 63 68 61 6e 67 65 73 65 74 73 20 77 68 re changesets wh
2450: 69 63 68 20 68 61 76 65 20 6e 6f 20 69 6e 74 65 ich have no inte
2460: 72 6e 61 6c 0a 09 23 20 64 65 70 65 6e 64 65 6e rnal..# dependen
2470: 63 69 65 73 2c 20 6f 6e 6c 79 20 65 78 74 65 72 cies, only exter
2480: 6e 61 6c 20 6f 6e 65 73 2e 0a 0a 09 6c 6f 67 20 nal ones....log
2490: 77 72 69 74 65 20 33 20 69 6e 69 74 63 73 65 74 write 3 initcset
24a0: 73 20 7b 42 72 65 61 6b 20 69 6e 74 65 72 6e 61 s {Break interna
24b0: 6c 20 64 65 70 65 6e 64 65 6e 63 69 65 73 7d 0a l dependencies}.
24c0: 09 73 65 74 20 6f 6c 64 20 5b 6c 6c 65 6e 67 74 .set old [llengt
24d0: 68 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 65 76 20 h [project::rev
24e0: 61 6c 6c 5d 5d 0a 0a 09 66 6f 72 65 61 63 68 20 all]]...foreach
24f0: 63 73 65 74 20 5b 70 72 6f 6a 65 63 74 3a 3a 72 cset [project::r
2500: 65 76 20 61 6c 6c 5d 20 7b 0a 09 20 20 20 20 24 ev all] {.. $
2510: 63 73 65 74 20 62 72 65 61 6b 69 6e 74 65 72 6e cset breakintern
2520: 61 6c 64 65 70 65 6e 64 65 6e 63 69 65 73 0a 09 aldependencies..
2530: 7d 0a 0a 09 73 65 74 20 6e 20 5b 65 78 70 72 20 }...set n [expr
2540: 7b 5b 6c 6c 65 6e 67 74 68 20 5b 70 72 6f 6a 65 {[llength [proje
2550: 63 74 3a 3a 72 65 76 20 61 6c 6c 5d 5d 20 2d 20 ct::rev all]] -
2560: 24 6f 6c 64 7d 5d 0a 09 6c 6f 67 20 77 72 69 74 $old}]..log writ
2570: 65 20 34 20 69 6e 69 74 63 73 65 74 73 20 22 43 e 4 initcsets "C
2580: 72 65 61 74 65 64 20 5b 6e 73 70 20 24 6e 20 7b reated [nsp $n {
2590: 61 64 64 69 74 69 6f 6e 61 6c 20 72 65 76 69 73 additional revis
25a0: 69 6f 6e 20 63 68 61 6e 67 65 73 65 74 7d 5d 22 ion changeset}]"
25b0: 0a 09 6c 6f 67 20 77 72 69 74 65 20 34 20 69 6e ..log write 4 in
25c0: 69 74 63 73 65 74 73 20 4f 6b 2e 0a 09 72 65 74 itcsets Ok...ret
25d0: 75 72 6e 0a 20 20 20 20 7d 0a 0a 20 20 20 20 70 urn. }.. p
25e0: 72 6f 63 20 50 65 72 73 69 73 74 54 68 65 43 68 roc PersistTheCh
25f0: 61 6e 67 65 73 65 74 73 20 7b 7d 20 7b 0a 09 6c angesets {} {..l
2600: 6f 67 20 77 72 69 74 65 20 33 20 69 6e 69 74 63 og write 3 initc
2610: 73 65 74 73 20 22 53 61 76 69 6e 67 20 5b 6e 73 sets "Saving [ns
2620: 70 20 5b 6c 6c 65 6e 67 74 68 20 5b 70 72 6f 6a p [llength [proj
2630: 65 63 74 3a 3a 72 65 76 20 61 6c 6c 5d 5d 20 7b ect::rev all]] {
2640: 69 6e 69 74 69 61 6c 20 63 68 61 6e 67 65 73 65 initial changese
2650: 74 7d 5d 20 74 6f 20 74 68 65 20 70 65 72 73 69 t}] to the persi
2660: 73 74 65 6e 74 20 73 74 61 74 65 22 0a 0a 09 66 stent state"...f
2670: 6f 72 65 61 63 68 20 63 73 65 74 20 5b 70 72 6f oreach cset [pro
2680: 6a 65 63 74 3a 3a 72 65 76 20 61 6c 6c 5d 20 7b ject::rev all] {
2690: 0a 09 20 20 20 20 24 63 73 65 74 20 70 65 72 73 .. $cset pers
26a0: 69 73 74 0a 09 7d 0a 0a 09 6c 6f 67 20 77 72 69 ist..}...log wri
26b0: 74 65 20 34 20 69 6e 69 74 63 73 65 74 73 20 4f te 4 initcsets O
26c0: 6b 2e 0a 09 72 65 74 75 72 6e 0a 20 20 20 20 7d k...return. }
26d0: 0a 0a 20 20 20 20 23 20 23 20 23 23 20 23 23 23 .. # # ## ###
26e0: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
26f0: 23 23 23 23 23 23 23 23 23 23 23 23 23 0a 20 20 #############.
2700: 20 20 23 23 20 43 6f 6e 66 69 67 75 72 61 74 69 ## Configurati
2710: 6f 6e 0a 0a 20 20 20 20 70 72 61 67 6d 61 20 2d on.. pragma -
2720: 68 61 73 69 6e 73 74 61 6e 63 65 73 20 20 20 6e hasinstances n
2730: 6f 20 3b 20 23 20 73 69 6e 67 6c 65 74 6f 6e 0a o ; # singleton.
2740: 20 20 20 20 70 72 61 67 6d 61 20 2d 68 61 73 74 pragma -hast
2750: 79 70 65 69 6e 66 6f 20 20 20 20 6e 6f 20 3b 20 ypeinfo no ;
2760: 23 20 6e 6f 20 69 6e 74 72 6f 73 70 65 63 74 69 # no introspecti
2770: 6f 6e 0a 20 20 20 20 70 72 61 67 6d 61 20 2d 68 on. pragma -h
2780: 61 73 74 79 70 65 64 65 73 74 72 6f 79 20 6e 6f astypedestroy no
2790: 20 3b 20 23 20 69 6d 6d 6f 72 74 61 6c 0a 0a 20 ; # immortal..
27a0: 20 20 20 23 20 23 20 23 23 20 23 23 23 20 23 23 # # ## ### ##
27b0: 23 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 ### ######## ###
27c0: 23 23 23 23 23 23 23 23 23 23 0a 7d 0a 0a 6e 61 ##########.}..na
27d0: 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 mespace eval ::v
27e0: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
27f0: 74 3a 3a 63 76 73 3a 3a 70 61 73 73 20 7b 0a 20 t::cvs::pass {.
2800: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 namespace exp
2810: 6f 72 74 20 69 6e 69 74 63 73 65 74 73 0a 20 20 ort initcsets.
2820: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
2830: 20 69 6e 69 74 63 73 65 74 73 20 7b 0a 09 6e 61 initcsets {..na
2840: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
2850: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
2860: 6f 72 74 3a 3a 63 76 73 3a 3a 72 65 70 6f 73 69 ort::cvs::reposi
2870: 74 6f 72 79 0a 09 6e 61 6d 65 73 70 61 63 65 20 tory..namespace
2880: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
2890: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
28a0: 3a 3a 73 74 61 74 65 0a 09 6e 61 6d 65 73 70 61 ::state..namespa
28b0: 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a ce import ::vc::
28c0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
28d0: 63 76 73 3a 3a 69 6e 74 65 67 72 69 74 79 0a 09 cvs::integrity..
28e0: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 70 namespace eval p
28f0: 72 6f 6a 65 63 74 20 7b 0a 09 20 20 20 20 6e 61 roject {.. na
2900: 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 3a mespace import :
2910: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
2920: 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 63 ort::cvs::projec
2930: 74 3a 3a 72 65 76 0a 09 7d 0a 09 6e 61 6d 65 73 t::rev..}..names
2940: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
2950: 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 3a 3a 2a ::tools::misc::*
2960: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
2970: 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a rt ::vc::tools::
2980: 6c 6f 67 0a 09 6c 6f 67 20 72 65 67 69 73 74 65 log..log registe
2990: 72 20 69 6e 69 74 63 73 65 74 73 0a 20 20 20 20 r initcsets.
29a0: 7d 0a 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 20 }.}..# # ## ###
29b0: 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 23 ##### ######## #
29c0: 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 23 ############ ###
29d0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
29e0: 23 23 0a 23 23 20 52 65 61 64 79 0a 0a 70 61 63 ##.## Ready..pac
29f0: 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 3a kage provide vc:
2a00: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
2a10: 3a 63 76 73 3a 3a 70 61 73 73 3a 3a 69 6e 69 74 :cvs::pass::init
2a20: 63 73 65 74 73 20 31 2e 30 0a 72 65 74 75 72 6e csets 1.0.return
2a30: 0a .