Artifact b9cf7cd8dfe0e3d7234f6b80bb7b94d79d80c7d4:
File
tools/lib/importcvs.tcl
part of check-in
[9671b65174]
- Continued restructuring of the code (namespace hierarchy, import control).
by
aku on
2007-09-13 05:43:56.
0000: 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d # --------------
0010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0030: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0040: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0050: 23 20 54 6f 6f 6c 20 70 61 63 6b 61 67 65 73 2e # Tool packages.
0060: 20 4d 61 69 6e 20 63 6f 6e 74 72 6f 6c 20 6d 6f Main control mo
0070: 64 75 6c 65 20 66 6f 72 20 69 6d 70 6f 72 74 69 dule for importi
0080: 6e 67 20 66 72 6f 6d 20 61 20 43 56 53 20 72 65 ng from a CVS re
0090: 70 6f 73 69 74 6f 72 79 2e 0a 0a 23 20 2d 2d 2d pository...# ---
00a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
00e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 52 65 71 ----------.# Req
00f0: 75 69 72 65 6d 65 6e 74 73 0a 0a 70 61 63 6b 61 uirements..packa
0100: 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 ge require Tcl 8
0110: 2e 34 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 .4.package requi
0120: 72 65 20 63 76 73 20 20 20 20 20 20 20 20 20 20 re cvs
0130: 20 20 20 3b 20 23 20 46 72 6f 6e 74 65 6e 64 2c ; # Frontend,
0140: 20 72 65 61 64 69 6e 67 20 66 72 6f 6d 20 73 6f reading from so
0150: 75 72 63 65 20 72 65 70 6f 73 69 74 6f 72 79 0a urce repository.
0160: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0170: 66 6f 73 73 69 6c 20 20 20 20 20 20 20 20 20 20 fossil
0180: 3b 20 23 20 42 61 63 6b 65 6e 64 2c 20 20 77 72 ; # Backend, wr
0190: 69 74 69 6e 67 20 74 6f 20 64 65 73 74 69 6e 61 iting to destina
01a0: 74 69 6f 6e 20 72 65 70 6f 73 69 74 6f 72 79 2e tion repository.
01b0: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
01c0: 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 vc::tools::log
01d0: 20 3b 20 23 20 55 73 65 72 20 66 65 65 64 62 61 ; # User feedba
01e0: 63 6b 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 ck..namespace ev
01f0: 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a al ::vc::fossil:
0200: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 20 7b 0a 20 :import::cvs {.
0210: 20 20 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f vc::tools::lo
0220: 67 3a 3a 73 79 73 74 65 6d 20 69 6d 70 6f 72 74 g::system import
0230: 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 . namespace i
0240: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c mport ::vc::tool
0250: 73 3a 3a 6c 6f 67 3a 3a 77 72 69 74 65 0a 7d 0a s::log::write.}.
0260: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .# -------------
0270: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0280: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02b0: 0a 23 20 41 50 49 0a 0a 23 20 43 6f 6e 66 69 67 .# API..# Config
02c0: 75 72 61 74 69 6f 6e 0a 23 0a 23 09 76 63 3a 3a uration.#.#.vc::
02d0: 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a fossil::import::
02e0: 63 76 73 3a 3a 63 6f 6e 66 69 67 75 72 65 20 6b cvs::configure k
02f0: 65 79 20 76 61 6c 75 65 20 2d 20 53 65 74 20 63 ey value - Set c
0300: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 23 0a 23 onfiguration.#.#
0310: 09 4c 65 67 61 6c 20 6b 65 79 73 3a 09 2d 6e 6f .Legal keys:.-no
0320: 73 69 67 6e 09 09 3c 62 6f 6f 6c 3e 2c 20 64 65 sign..<bool>, de
0330: 66 61 75 6c 74 20 66 61 6c 73 65 0a 23 09 09 09 fault false.#...
0340: 2d 64 65 62 75 67 63 6f 6d 6d 69 74 09 3c 62 6f -debugcommit.<bo
0350: 6f 6c 3e 2c 20 64 65 66 61 75 6c 74 20 66 61 6c ol>, default fal
0360: 73 65 0a 23 09 09 09 2d 73 74 6f 70 61 74 09 09 se.#...-stopat..
0370: 3c 69 6e 74 3e 2c 20 20 64 65 66 61 75 6c 74 20 <int>, default
0380: 3a 6e 6f 6e 65 3a 0a 23 0a 23 20 46 75 6e 63 74 :none:.#.# Funct
0390: 69 6f 6e 61 6c 69 74 79 0a 23 0a 23 09 76 63 3a ionality.#.#.vc:
03a0: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
03b0: 3a 63 76 73 3a 3a 72 75 6e 20 73 72 63 20 64 73 :cvs::run src ds
03c0: 74 20 20 20 20 20 20 20 20 20 2d 20 50 65 72 66 t - Perf
03d0: 6f 72 6d 20 61 6e 20 69 6d 70 6f 72 74 2e 0a 0a orm an import...
03e0: 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d # --------------
03f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0400: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0410: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0430: 23 20 41 50 49 20 49 6d 70 6c 65 6d 65 6e 74 61 # API Implementa
0440: 74 69 6f 6e 20 2d 20 46 75 6e 63 74 69 6f 6e 61 tion - Functiona
0450: 6c 69 74 79 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a lity..proc ::vc:
0460: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
0470: 3a 63 76 73 3a 3a 63 6f 6e 66 69 67 75 72 65 20 :cvs::configure
0480: 7b 6b 65 79 20 76 61 6c 75 65 7d 20 7b 0a 20 20 {key value} {.
0490: 20 20 76 61 72 69 61 62 6c 65 20 6e 6f 73 69 67 variable nosig
04a0: 6e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 73 n. variable s
04b0: 74 6f 70 61 74 0a 0a 20 20 20 20 73 77 69 74 63 topat.. switc
04c0: 68 20 2d 65 78 61 63 74 20 2d 2d 20 24 6b 65 79 h -exact -- $key
04d0: 20 7b 0a 09 2d 64 65 62 75 67 63 6f 6d 6d 69 74 {..-debugcommit
04e0: 20 7b 0a 09 20 20 20 20 69 66 20 7b 21 5b 73 74 {.. if {![st
04f0: 72 69 6e 67 20 69 73 20 62 6f 6f 6c 65 61 6e 20 ring is boolean
0500: 2d 73 74 72 69 63 74 20 24 76 61 6c 75 65 5d 7d -strict $value]}
0510: 20 7b 0a 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 {...return -cod
0520: 65 20 65 72 72 6f 72 20 22 45 78 70 65 63 74 65 e error "Expecte
0530: 64 20 62 6f 6f 6c 65 61 6e 2c 20 67 6f 74 20 5c d boolean, got \
0540: 22 24 76 61 6c 75 65 5c 22 22 0a 09 20 20 20 20 "$value\""..
0550: 7d 0a 09 20 20 20 20 66 6f 73 73 69 6c 3a 3a 64 }.. fossil::d
0560: 65 62 75 67 63 6f 6d 6d 69 74 20 24 76 61 6c 75 ebugcommit $valu
0570: 65 0a 09 7d 0a 09 2d 6e 6f 73 69 67 6e 20 7b 0a e..}..-nosign {.
0580: 09 20 20 20 20 69 66 20 7b 21 5b 73 74 72 69 6e . if {![strin
0590: 67 20 69 73 20 62 6f 6f 6c 65 61 6e 20 2d 73 74 g is boolean -st
05a0: 72 69 63 74 20 24 76 61 6c 75 65 5d 7d 20 7b 0a rict $value]} {.
05b0: 09 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
05c0: 72 72 6f 72 20 22 45 78 70 65 63 74 65 64 20 62 rror "Expected b
05d0: 6f 6f 6c 65 61 6e 2c 20 67 6f 74 20 5c 22 24 76 oolean, got \"$v
05e0: 61 6c 75 65 5c 22 22 0a 09 20 20 20 20 7d 0a 09 alue\"".. }..
05f0: 20 20 20 20 73 65 74 20 6e 6f 73 69 67 6e 20 24 set nosign $
0600: 76 61 6c 75 65 0a 09 7d 0a 09 2d 73 74 6f 70 61 value..}..-stopa
0610: 74 20 7b 0a 09 20 20 20 20 73 65 74 20 73 74 6f t {.. set sto
0620: 70 61 74 20 24 76 61 6c 75 65 0a 09 7d 0a 09 64 pat $value..}..d
0630: 65 66 61 75 6c 74 20 7b 0a 09 20 20 20 20 72 65 efault {.. re
0640: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
0650: 20 22 55 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68 "Unknown switch
0660: 20 24 6b 65 79 2c 20 65 78 70 65 63 74 65 64 20 $key, expected
0670: 6f 6e 65 20 6f 66 20 5c 0a 20 20 20 20 20 20 20 one of \.
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0690: 20 20 20 20 20 20 20 20 20 20 20 20 2d 64 65 62 -deb
06a0: 75 67 63 6f 6d 6d 69 74 2c 20 2d 6e 6f 73 69 67 ugcommit, -nosig
06b0: 6e 2c 20 6f 72 20 2d 73 74 6f 70 61 74 22 0a 09 n, or -stopat"..
06c0: 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 }. }. retu
06d0: 72 6e 0a 7d 0a 0a 23 20 49 6d 70 6f 72 74 20 74 rn.}..# Import t
06e0: 68 65 20 43 56 53 20 72 65 70 6f 73 69 74 6f 72 he CVS repositor
06f0: 79 20 66 6f 75 6e 64 20 61 74 20 64 69 72 65 63 y found at direc
0700: 74 6f 72 79 20 27 73 72 63 27 20 69 6e 74 6f 20 tory 'src' into
0710: 74 68 65 20 6e 65 77 0a 23 20 66 6f 73 73 69 6c the new.# fossil
0720: 20 72 65 70 6f 73 69 74 6f 72 79 20 61 74 20 27 repository at '
0730: 64 73 74 27 2e 0a 0a 70 72 6f 63 20 3a 3a 76 63 dst'...proc ::vc
0740: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
0750: 3a 3a 63 76 73 3a 3a 72 75 6e 20 7b 73 72 63 20 ::cvs::run {src
0760: 64 73 74 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 dst} {. varia
0770: 62 6c 65 20 73 74 6f 70 61 74 0a 0a 20 20 20 20 ble stopat..
0780: 63 76 73 3a 3a 61 74 20 20 20 20 20 20 20 24 73 cvs::at $s
0790: 72 63 20 20 3b 20 23 20 44 65 66 69 6e 65 20 6c rc ; # Define l
07a0: 6f 63 61 74 69 6f 6e 20 6f 66 20 43 56 53 20 72 ocation of CVS r
07b0: 65 70 6f 73 69 74 6f 72 79 0a 0a 20 20 20 20 63 epository.. c
07c0: 76 73 3a 3a 73 63 61 6e 20 20 20 20 20 20 20 20 vs::scan
07d0: 20 20 20 3b 20 23 20 47 61 74 68 65 72 20 72 65 ; # Gather re
07e0: 76 69 73 69 6f 6e 20 64 61 74 61 20 66 72 6f 6d vision data from
07f0: 20 74 68 65 20 61 72 63 68 69 76 65 73 0a 20 20 the archives.
0800: 20 20 63 76 73 3a 3a 63 73 65 74 73 20 20 20 20 cvs::csets
0810: 20 20 20 20 20 20 3b 20 23 20 47 72 6f 75 70 20 ; # Group
0820: 63 68 61 6e 67 65 73 20 69 6e 74 6f 20 73 65 74 changes into set
0830: 73 0a 20 20 20 20 63 76 73 3a 3a 72 74 72 65 65 s. cvs::rtree
0840: 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 42 75 ; # Bu
0850: 69 6c 64 20 72 65 76 69 73 69 6f 6e 20 74 72 65 ild revision tre
0860: 65 20 28 74 72 75 6e 6b 20 6f 6e 6c 79 20 72 69 e (trunk only ri
0870: 67 68 74 20 6e 6f 77 29 2e 0a 0a 20 20 20 20 73 ght now)... s
0880: 65 74 20 74 6f 74 20 30 2e 30 0a 20 20 20 20 73 et tot 0.0. s
0890: 65 74 20 6e 74 6f 20 30 0a 0a 20 20 20 20 77 72 et nto 0.. wr
08a0: 69 74 65 20 30 20 69 6d 70 6f 72 74 20 7b 42 65 ite 0 import {Be
08b0: 67 69 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 0a gin conversion}.
08c0: 20 20 20 20 77 72 69 74 65 20 30 20 69 6d 70 6f write 0 impo
08d0: 72 74 20 7b 53 65 74 74 69 6e 67 20 75 70 20 77 rt {Setting up w
08e0: 6f 72 6b 73 70 61 63 65 73 7d 0a 0a 20 20 20 20 orkspaces}..
08f0: 63 76 73 3a 3a 77 6f 72 6b 73 70 61 63 65 20 3b cvs::workspace ;
0900: 20 23 20 63 64 27 73 20 74 6f 20 77 6f 72 6b 73 # cd's to works
0910: 70 61 63 65 0a 20 20 20 20 66 6f 73 73 69 6c 3a pace. fossil:
0920: 3a 6e 65 77 20 20 20 20 3b 20 23 20 55 73 65 73 :new ; # Uses
0930: 20 63 77 64 20 61 73 20 77 6f 72 6b 73 70 61 63 cwd as workspac
0940: 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 2e e to connect to.
0950: 0a 0a 20 20 20 20 73 65 74 20 6e 74 72 75 6e 6b .. set ntrunk
0960: 20 5b 63 76 73 3a 3a 6e 74 72 75 6e 6b 5d 20 3b [cvs::ntrunk] ;
0970: 20 73 65 74 20 6e 74 66 6d 74 20 25 5b 73 74 72 set ntfmt %[str
0980: 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 74 72 75 ing length $ntru
0990: 6e 6b 5d 73 0a 20 20 20 20 73 65 74 20 6e 6d 61 nk]s. set nma
09a0: 78 20 20 20 5b 63 76 73 3a 3a 6e 63 73 65 74 73 x [cvs::ncsets
09b0: 5d 20 3b 20 73 65 74 20 6e 6d 66 6d 74 20 25 5b ] ; set nmfmt %[
09c0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e string length $n
09d0: 6d 61 78 5d 73 0a 0a 20 20 20 20 63 76 73 3a 3a max]s.. cvs::
09e0: 66 6f 72 65 61 63 68 5f 63 73 65 74 20 63 73 65 foreach_cset cse
09f0: 74 20 5b 63 76 73 3a 3a 72 6f 6f 74 5d 20 7b 0a t [cvs::root] {.
0a00: 09 77 72 69 74 65 20 30 20 69 6d 70 6f 72 74 20 .write 0 import
0a10: 22 43 68 61 6e 67 65 53 65 74 20 5b 66 6f 72 6d "ChangeSet [form
0a20: 61 74 20 24 6e 6d 66 6d 74 20 24 63 73 65 74 5d at $nmfmt $cset]
0a30: 20 40 20 5b 66 6f 72 6d 61 74 20 24 6e 74 66 6d @ [format $ntfm
0a40: 74 20 24 6e 74 6f 5d 2f 24 6e 74 72 75 6e 6b 20 t $nto]/$ntrunk
0a50: 28 5b 66 6f 72 6d 61 74 20 25 36 2e 32 66 20 5b ([format %6.2f [
0a60: 65 78 70 72 20 7b 24 6e 74 6f 2a 31 30 30 2e 30 expr {$nto*100.0
0a70: 2f 24 6e 74 72 75 6e 6b 7d 5d 5d 25 29 22 0a 09 /$ntrunk}]]%)"..
0a80: 53 74 61 74 69 73 74 69 63 73 20 5b 4f 6e 65 43 Statistics [OneC
0a90: 68 61 6e 67 65 53 65 74 20 24 63 73 65 74 5d 0a hangeSet $cset].
0aa0: 20 20 20 20 7d 0a 0a 20 20 20 20 77 72 69 74 65 }.. write
0ab0: 20 30 20 69 6d 70 6f 72 74 20 22 3d 3d 3d 3d 3d 0 import "=====
0ac0: 3d 3d 3d 3d 20 5b 73 74 72 69 6e 67 20 72 65 70 ==== [string rep
0ad0: 65 61 74 20 3d 20 36 31 5d 22 0a 20 20 20 20 77 eat = 61]". w
0ae0: 72 69 74 65 20 30 20 69 6d 70 6f 72 74 20 22 49 rite 0 import "I
0af0: 6d 70 6f 72 74 65 64 20 24 6e 74 6f 20 5b 65 78 mported $nto [ex
0b00: 70 72 20 7b 28 24 6e 74 6f 20 3d 3d 20 31 29 20 pr {($nto == 1)
0b10: 3f 20 22 63 68 61 6e 67 65 73 65 74 22 20 3a 20 ? "changeset" :
0b20: 22 63 68 61 6e 67 65 73 65 74 73 22 7d 5d 22 0a "changesets"}]".
0b30: 20 20 20 20 77 72 69 74 65 20 30 20 69 6d 70 6f write 0 impo
0b40: 72 74 20 22 57 69 74 68 69 6e 20 5b 66 6f 72 6d rt "Within [form
0b50: 61 74 20 25 2e 32 66 20 24 74 6f 74 5d 20 73 65 at %.2f $tot] se
0b60: 63 6f 6e 64 73 20 28 61 76 67 20 5b 66 6f 72 6d conds (avg [form
0b70: 61 74 20 25 2e 32 66 20 5b 65 78 70 72 20 7b 24 at %.2f [expr {$
0b80: 74 6f 74 2f 24 6e 74 6f 7d 5d 5d 20 73 65 63 6f tot/$nto}]] seco
0b90: 6e 64 73 2f 63 68 61 6e 67 65 73 65 74 29 22 0a nds/changeset)".
0ba0: 0a 20 20 20 20 69 66 20 7b 24 73 74 6f 70 61 74 . if {$stopat
0bb0: 20 3d 3d 20 24 63 73 65 74 7d 20 72 65 74 75 72 == $cset} retur
0bc0: 6e 0a 0a 20 20 20 20 63 76 73 3a 3a 77 73 63 6c n.. cvs::wscl
0bd0: 65 61 72 0a 20 20 20 20 66 6f 73 73 69 6c 3a 3a ear. fossil::
0be0: 64 65 73 74 69 6e 61 74 69 6f 6e 20 24 64 73 74 destination $dst
0bf0: 0a 20 20 20 20 77 72 69 74 65 20 30 20 69 6d 70 . write 0 imp
0c00: 6f 72 74 20 4f 6b 2e 0a 20 20 20 20 72 65 74 75 ort Ok.. retu
0c10: 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d rn.}..# --------
0c20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c60: 2d 2d 2d 2d 2d 0a 23 20 49 6e 74 65 72 6e 61 6c -----.# Internal
0c70: 20 6f 70 65 72 61 74 69 6f 6e 73 20 2d 20 49 6d operations - Im
0c80: 70 6f 72 74 20 61 20 73 69 6e 67 6c 65 20 63 68 port a single ch
0c90: 61 6e 67 65 73 65 74 2e 0a 0a 70 72 6f 63 20 3a angeset...proc :
0ca0: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
0cb0: 6f 72 74 3a 3a 63 76 73 3a 3a 53 74 61 74 69 73 ort::cvs::Statis
0cc0: 74 69 63 73 20 7b 73 65 63 7d 20 7b 0a 20 20 20 tics {sec} {.
0cd0: 20 75 70 76 61 72 20 31 20 74 6f 74 20 74 6f 74 upvar 1 tot tot
0ce0: 20 6e 74 6f 20 6e 74 6f 20 6e 74 72 75 6e 6b 20 nto nto ntrunk
0cf0: 6e 74 72 75 6e 6b 0a 0a 20 20 20 20 23 20 4e 6f ntrunk.. # No
0d00: 20 73 74 61 74 69 73 74 69 63 73 20 69 66 20 74 statistics if t
0d10: 68 65 20 63 6f 6d 6d 69 74 20 77 61 73 20 73 74 he commit was st
0d20: 6f 70 70 65 64 20 62 65 66 6f 72 65 20 69 74 20 opped before it
0d30: 77 61 73 20 72 75 6e 0a 20 20 20 20 69 66 20 7b was run. if {
0d40: 24 73 65 63 20 65 71 20 22 22 7d 20 72 65 74 75 $sec eq ""} retu
0d50: 72 6e 0a 0a 20 20 20 20 69 6e 63 72 20 6e 74 6f rn.. incr nto
0d60: 0a 0a 20 20 20 20 73 65 74 20 74 6f 74 20 5b 65 .. set tot [e
0d70: 78 70 72 20 7b 24 74 6f 74 20 2b 20 24 73 65 63 xpr {$tot + $sec
0d80: 7d 5d 0a 20 20 20 20 73 65 74 20 61 76 67 20 5b }]. set avg [
0d90: 65 78 70 72 20 7b 24 74 6f 74 2f 24 6e 74 6f 7d expr {$tot/$nto}
0da0: 5d 0a 20 20 20 20 73 65 74 20 6d 61 78 20 5b 65 ]. set max [e
0db0: 78 70 72 20 7b 24 6e 74 72 75 6e 6b 20 2a 20 24 xpr {$ntrunk * $
0dc0: 61 76 67 7d 5d 0a 20 20 20 20 73 65 74 20 72 65 avg}]. set re
0dd0: 6d 20 5b 65 78 70 72 20 7b 24 6d 61 78 20 2d 20 m [expr {$max -
0de0: 24 74 6f 74 7d 5d 0a 0a 20 20 20 20 77 72 69 74 $tot}].. writ
0df0: 65 20 33 20 69 6d 70 6f 72 74 20 22 73 74 20 61 e 3 import "st a
0e00: 76 67 20 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 vg [format %.2f
0e10: 24 61 76 67 5d 20 73 65 63 22 0a 20 20 20 20 77 $avg] sec". w
0e20: 72 69 74 65 20 33 20 69 6d 70 6f 72 74 20 22 73 rite 3 import "s
0e30: 74 20 72 75 6e 20 5b 66 6f 72 6d 61 74 20 25 37 t run [format %7
0e40: 2e 32 66 20 24 74 6f 74 5d 20 73 65 63 20 5b 66 .2f $tot] sec [f
0e50: 6f 72 6d 61 74 20 25 36 2e 32 66 20 5b 65 78 70 ormat %6.2f [exp
0e60: 72 20 7b 24 74 6f 74 2f 36 30 7d 5d 5d 20 6d 69 r {$tot/60}]] mi
0e70: 6e 20 5b 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 n [format %5.2f
0e80: 5b 65 78 70 72 20 7b 24 74 6f 74 2f 33 36 30 30 [expr {$tot/3600
0e90: 7d 5d 5d 20 68 72 22 0a 20 20 20 20 77 72 69 74 }]] hr". writ
0ea0: 65 20 33 20 69 6d 70 6f 72 74 20 22 73 74 20 65 e 3 import "st e
0eb0: 6e 64 20 5b 66 6f 72 6d 61 74 20 25 37 2e 32 66 nd [format %7.2f
0ec0: 20 24 6d 61 78 5d 20 73 65 63 20 5b 66 6f 72 6d $max] sec [form
0ed0: 61 74 20 25 36 2e 32 66 20 5b 65 78 70 72 20 7b at %6.2f [expr {
0ee0: 24 6d 61 78 2f 36 30 7d 5d 5d 20 6d 69 6e 20 5b $max/60}]] min [
0ef0: 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 5b 65 78 format %5.2f [ex
0f00: 70 72 20 7b 24 6d 61 78 2f 33 36 30 30 7d 5d 5d pr {$max/3600}]]
0f10: 20 68 72 22 0a 20 20 20 20 77 72 69 74 65 20 33 hr". write 3
0f20: 20 69 6d 70 6f 72 74 20 22 73 74 20 72 65 6d 20 import "st rem
0f30: 5b 66 6f 72 6d 61 74 20 25 37 2e 32 66 20 24 72 [format %7.2f $r
0f40: 65 6d 5d 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 em] sec [format
0f50: 25 36 2e 32 66 20 5b 65 78 70 72 20 7b 24 72 65 %6.2f [expr {$re
0f60: 6d 2f 36 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 m/60}]] min [for
0f70: 6d 61 74 20 25 35 2e 32 66 20 5b 65 78 70 72 20 mat %5.2f [expr
0f80: 7b 24 72 65 6d 2f 33 36 30 30 7d 5d 5d 20 68 72 {$rem/3600}]] hr
0f90: 22 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a ". return.}..
0fa0: 70 72 6f 63 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 proc ::vc::fossi
0fb0: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
0fc0: 4f 6e 65 43 68 61 6e 67 65 53 65 74 20 7b 63 73 OneChangeSet {cs
0fd0: 65 74 7d 20 7b 0a 20 20 20 20 76 61 72 69 61 62 et} {. variab
0fe0: 6c 65 20 6e 6f 73 69 67 6e 0a 20 20 20 20 76 61 le nosign. va
0ff0: 72 69 61 62 6c 65 20 73 74 6f 70 61 74 0a 0a 20 riable stopat..
1000: 20 20 20 69 66 20 7b 24 73 74 6f 70 61 74 20 3d if {$stopat =
1010: 3d 20 24 63 73 65 74 7d 20 7b 0a 09 66 6f 73 73 = $cset} {..foss
1020: 69 6c 3a 3a 63 6f 6d 6d 69 74 20 31 20 63 76 73 il::commit 1 cvs
1030: 32 66 6f 73 73 69 6c 20 24 6e 6f 73 69 67 6e 20 2fossil $nosign
1040: 5c 0a 09 20 20 20 20 5b 63 76 73 3a 3a 77 73 73 \.. [cvs::wss
1050: 65 74 75 70 20 24 63 73 65 74 5d 20 3a 3a 63 76 etup $cset] ::cv
1060: 73 3a 3a 77 73 69 67 6e 6f 72 65 0a 09 77 72 69 s::wsignore..wri
1070: 74 65 20 30 20 69 6d 70 6f 72 74 20 53 74 6f 70 te 0 import Stop
1080: 70 65 64 2e 0a 09 72 65 74 75 72 6e 20 2d 63 6f ped...return -co
1090: 64 65 20 62 72 65 61 6b 0a 20 20 20 20 7d 0a 0a de break. }..
10a0: 20 20 20 20 73 65 74 20 75 73 65 63 20 5b 6c 69 set usec [li
10b0: 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0a 09 66 6f ndex [time {..fo
10c0: 72 65 61 63 68 20 7b 75 75 69 64 20 61 64 20 72 reach {uuid ad r
10d0: 6d 20 63 68 7d 20 5c 0a 09 20 20 20 20 5b 66 6f m ch} \.. [fo
10e0: 73 73 69 6c 3a 3a 63 6f 6d 6d 69 74 20 30 20 63 ssil::commit 0 c
10f0: 76 73 32 66 6f 73 73 69 6c 20 24 6e 6f 73 69 67 vs2fossil $nosig
1100: 6e 20 5c 0a 09 09 20 5b 63 76 73 3a 3a 77 73 73 n \... [cvs::wss
1110: 65 74 75 70 20 24 63 73 65 74 5d 20 3a 3a 63 76 etup $cset] ::cv
1120: 73 3a 3a 77 73 69 67 6e 6f 72 65 5d 20 5c 0a 09 s::wsignore] \..
1130: 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 7d 20 break. }
1140: 31 5d 20 30 5d 0a 20 20 20 20 63 76 73 3a 3a 75 1] 0]. cvs::u
1150: 75 69 64 20 24 63 73 65 74 20 24 75 75 69 64 0a uid $cset $uuid.
1160: 0a 20 20 20 20 73 65 74 20 73 65 63 20 5b 65 78 . set sec [ex
1170: 70 72 20 7b 24 75 73 65 63 2f 31 65 36 7d 5d 0a pr {$usec/1e6}].
1180: 0a 20 20 20 20 77 72 69 74 65 20 32 20 69 6d 70 . write 2 imp
1190: 6f 72 74 20 22 3d 3d 20 24 75 75 69 64 20 2b 24 ort "== $uuid +$
11a0: 7b 61 64 7d 2d 24 7b 72 6d 7d 2a 24 7b 63 68 7d {ad}-${rm}*${ch}
11b0: 22 0a 20 20 20 20 77 72 69 74 65 20 32 20 69 6d ". write 2 im
11c0: 70 6f 72 74 20 22 73 74 20 69 6e 20 20 5b 66 6f port "st in [fo
11d0: 72 6d 61 74 20 25 2e 32 66 20 24 73 65 63 5d 20 rmat %.2f $sec]
11e0: 73 65 63 22 0a 0a 20 20 20 20 72 65 74 75 72 6e sec".. return
11f0: 20 24 73 65 63 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d $sec.}..# -----
1200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1240: 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 6e 61 6d 65 73 70 --------..namesp
1250: 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 ace eval ::vc::f
1260: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
1270: 76 73 20 7b 0a 20 20 20 20 76 61 72 69 61 62 6c vs {. variabl
1280: 65 20 64 65 62 75 67 63 6f 6d 6d 69 74 20 30 20 e debugcommit 0
1290: 20 3b 20 23 20 44 65 62 75 67 20 74 68 65 20 63 ; # Debug the c
12a0: 6f 6d 6d 69 74 20 6f 70 65 72 61 74 69 6f 6e 2e ommit operation.
12b0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 6e 6f . variable no
12c0: 73 69 67 6e 20 20 20 20 20 20 30 20 20 3b 20 23 sign 0 ; #
12d0: 20 52 65 71 75 69 72 65 20 73 69 67 6e 69 6e 67 Require signing
12e0: 0a 20 20 20 20 76 61 72 69 61 62 6c 65 20 73 74 . variable st
12f0: 6f 70 61 74 20 20 20 20 20 20 7b 7d 20 3b 20 23 opat {} ; #
1300: 20 53 74 6f 70 20 6e 6f 77 68 65 72 65 0a 0a 20 Stop nowhere..
1310: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 78 70 namespace exp
1320: 6f 72 74 20 72 75 6e 20 63 6f 6e 66 69 67 75 72 ort run configur
1330: 65 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d e.}..# ---------
1340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1380: 2d 2d 2d 2d 0a 23 20 52 65 61 64 79 0a 0a 70 61 ----.# Ready..pa
1390: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 76 63 ckage provide vc
13a0: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
13b0: 3a 3a 63 76 73 20 31 2e 30 0a 72 65 74 75 72 6e ::cvs 1.0.return
13c0: 0a .