Artifact e0760f3260ea63c1cabd8a85cbee340316651cd9:
File
tools/lib/importcvs.tcl
part of check-in
[45cd12f05a]
- Continuing namespace changes, fossil backend.
by
aku on
2007-09-13 06:03:30.
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: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 77 73 20 20 vc::fossil::ws
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 76 63 3a 3a 66 6f 73 73 69 }.. vc::fossi
0560: 6c 3a 3a 77 73 3a 3a 64 65 62 75 67 63 6f 6d 6d l::ws::debugcomm
0570: 69 74 20 24 76 61 6c 75 65 0a 09 7d 0a 09 2d 6e it $value..}..-n
0580: 6f 73 69 67 6e 20 7b 0a 09 20 20 20 20 69 66 20 osign {.. if
0590: 7b 21 5b 73 74 72 69 6e 67 20 69 73 20 62 6f 6f {![string is boo
05a0: 6c 65 61 6e 20 2d 73 74 72 69 63 74 20 24 76 61 lean -strict $va
05b0: 6c 75 65 5d 7d 20 7b 0a 09 09 72 65 74 75 72 6e lue]} {...return
05c0: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 45 78 -code error "Ex
05d0: 70 65 63 74 65 64 20 62 6f 6f 6c 65 61 6e 2c 20 pected boolean,
05e0: 67 6f 74 20 5c 22 24 76 61 6c 75 65 5c 22 22 0a got \"$value\"".
05f0: 09 20 20 20 20 7d 0a 09 20 20 20 20 73 65 74 20 . }.. set
0600: 6e 6f 73 69 67 6e 20 24 76 61 6c 75 65 0a 09 7d nosign $value..}
0610: 0a 09 2d 73 74 6f 70 61 74 20 7b 0a 09 20 20 20 ..-stopat {..
0620: 20 73 65 74 20 73 74 6f 70 61 74 20 24 76 61 6c set stopat $val
0630: 75 65 0a 09 7d 0a 09 64 65 66 61 75 6c 74 20 7b ue..}..default {
0640: 0a 09 20 20 20 20 72 65 74 75 72 6e 20 2d 63 6f .. return -co
0650: 64 65 20 65 72 72 6f 72 20 22 55 6e 6b 6e 6f 77 de error "Unknow
0660: 6e 20 73 77 69 74 63 68 20 24 6b 65 79 2c 20 65 n switch $key, e
0670: 78 70 65 63 74 65 64 20 6f 6e 65 20 6f 66 20 5c xpected one of \
0680: 0a 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 20 20 20 20
06a0: 20 20 20 20 2d 64 65 62 75 67 63 6f 6d 6d 69 74 -debugcommit
06b0: 2c 20 2d 6e 6f 73 69 67 6e 2c 20 6f 72 20 2d 73 , -nosign, or -s
06c0: 74 6f 70 61 74 22 0a 09 7d 0a 20 20 20 20 7d 0a topat"..}. }.
06d0: 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 return.}..#
06e0: 49 6d 70 6f 72 74 20 74 68 65 20 43 56 53 20 72 Import the CVS r
06f0: 65 70 6f 73 69 74 6f 72 79 20 66 6f 75 6e 64 20 epository found
0700: 61 74 20 64 69 72 65 63 74 6f 72 79 20 27 73 72 at directory 'sr
0710: 63 27 20 69 6e 74 6f 20 74 68 65 20 6e 65 77 0a c' into the new.
0720: 23 20 66 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 # fossil reposit
0730: 6f 72 79 20 61 74 20 27 64 73 74 27 2e 0a 0a 70 ory at 'dst'...p
0740: 72 6f 63 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c roc ::vc::fossil
0750: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 72 ::import::cvs::r
0760: 75 6e 20 7b 73 72 63 20 64 73 74 7d 20 7b 0a 20 un {src dst} {.
0770: 20 20 20 76 61 72 69 61 62 6c 65 20 73 74 6f 70 variable stop
0780: 61 74 0a 0a 20 20 20 20 63 76 73 3a 3a 61 74 20 at.. cvs::at
0790: 20 20 20 20 20 20 24 73 72 63 20 20 3b 20 23 20 $src ; #
07a0: 44 65 66 69 6e 65 20 6c 6f 63 61 74 69 6f 6e 20 Define location
07b0: 6f 66 20 43 56 53 20 72 65 70 6f 73 69 74 6f 72 of CVS repositor
07c0: 79 0a 0a 20 20 20 20 63 76 73 3a 3a 73 63 61 6e y.. cvs::scan
07d0: 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 47 ; # G
07e0: 61 74 68 65 72 20 72 65 76 69 73 69 6f 6e 20 64 ather revision d
07f0: 61 74 61 20 66 72 6f 6d 20 74 68 65 20 61 72 63 ata from the arc
0800: 68 69 76 65 73 0a 20 20 20 20 63 76 73 3a 3a 63 hives. cvs::c
0810: 73 65 74 73 20 20 20 20 20 20 20 20 20 20 3b 20 sets ;
0820: 23 20 47 72 6f 75 70 20 63 68 61 6e 67 65 73 20 # Group changes
0830: 69 6e 74 6f 20 73 65 74 73 0a 20 20 20 20 63 76 into sets. cv
0840: 73 3a 3a 72 74 72 65 65 20 20 20 20 20 20 20 20 s::rtree
0850: 20 20 3b 20 23 20 42 75 69 6c 64 20 72 65 76 69 ; # Build revi
0860: 73 69 6f 6e 20 74 72 65 65 20 28 74 72 75 6e 6b sion tree (trunk
0870: 20 6f 6e 6c 79 20 72 69 67 68 74 20 6e 6f 77 29 only right now)
0880: 2e 0a 0a 20 20 20 20 73 65 74 20 74 6f 74 20 30 ... set tot 0
0890: 2e 30 0a 20 20 20 20 73 65 74 20 6e 74 6f 20 30 .0. set nto 0
08a0: 0a 0a 20 20 20 20 77 72 69 74 65 20 30 20 69 6d .. write 0 im
08b0: 70 6f 72 74 20 7b 42 65 67 69 6e 20 63 6f 6e 76 port {Begin conv
08c0: 65 72 73 69 6f 6e 7d 0a 20 20 20 20 77 72 69 74 ersion}. writ
08d0: 65 20 30 20 69 6d 70 6f 72 74 20 7b 53 65 74 74 e 0 import {Sett
08e0: 69 6e 67 20 75 70 20 77 6f 72 6b 73 70 61 63 65 ing up workspace
08f0: 73 7d 0a 0a 20 20 20 20 63 76 73 3a 3a 77 6f 72 s}.. cvs::wor
0900: 6b 73 70 61 63 65 20 20 20 20 20 20 3b 20 23 20 kspace ; #
0910: 63 64 27 73 20 74 6f 20 77 6f 72 6b 73 70 61 63 cd's to workspac
0920: 65 0a 20 20 20 20 76 63 3a 3a 66 6f 73 73 69 6c e. vc::fossil
0930: 3a 3a 77 73 3a 3a 6e 65 77 20 3b 20 23 20 55 73 ::ws::new ; # Us
0940: 65 73 20 63 77 64 20 61 73 20 77 6f 72 6b 73 70 es cwd as worksp
0950: 61 63 65 20 74 6f 20 63 6f 6e 6e 65 63 74 20 74 ace to connect t
0960: 6f 2e 0a 0a 20 20 20 20 73 65 74 20 6e 74 72 75 o... set ntru
0970: 6e 6b 20 5b 63 76 73 3a 3a 6e 74 72 75 6e 6b 5d nk [cvs::ntrunk]
0980: 20 3b 20 73 65 74 20 6e 74 66 6d 74 20 25 5b 73 ; set ntfmt %[s
0990: 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 6e 74 tring length $nt
09a0: 72 75 6e 6b 5d 73 0a 20 20 20 20 73 65 74 20 6e runk]s. set n
09b0: 6d 61 78 20 20 20 5b 63 76 73 3a 3a 6e 63 73 65 max [cvs::ncse
09c0: 74 73 5d 20 3b 20 73 65 74 20 6e 6d 66 6d 74 20 ts] ; set nmfmt
09d0: 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 %[string length
09e0: 24 6e 6d 61 78 5d 73 0a 0a 20 20 20 20 63 76 73 $nmax]s.. cvs
09f0: 3a 3a 66 6f 72 65 61 63 68 5f 63 73 65 74 20 63 ::foreach_cset c
0a00: 73 65 74 20 5b 63 76 73 3a 3a 72 6f 6f 74 5d 20 set [cvs::root]
0a10: 7b 0a 09 77 72 69 74 65 20 30 20 69 6d 70 6f 72 {..write 0 impor
0a20: 74 20 22 43 68 61 6e 67 65 53 65 74 20 5b 66 6f t "ChangeSet [fo
0a30: 72 6d 61 74 20 24 6e 6d 66 6d 74 20 24 63 73 65 rmat $nmfmt $cse
0a40: 74 5d 20 40 20 5b 66 6f 72 6d 61 74 20 24 6e 74 t] @ [format $nt
0a50: 66 6d 74 20 24 6e 74 6f 5d 2f 24 6e 74 72 75 6e fmt $nto]/$ntrun
0a60: 6b 20 28 5b 66 6f 72 6d 61 74 20 25 36 2e 32 66 k ([format %6.2f
0a70: 20 5b 65 78 70 72 20 7b 24 6e 74 6f 2a 31 30 30 [expr {$nto*100
0a80: 2e 30 2f 24 6e 74 72 75 6e 6b 7d 5d 5d 25 29 22 .0/$ntrunk}]]%)"
0a90: 0a 09 53 74 61 74 69 73 74 69 63 73 20 5b 4f 6e ..Statistics [On
0aa0: 65 43 68 61 6e 67 65 53 65 74 20 24 63 73 65 74 eChangeSet $cset
0ab0: 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 77 72 69 ]. }.. wri
0ac0: 74 65 20 30 20 69 6d 70 6f 72 74 20 22 3d 3d 3d te 0 import "===
0ad0: 3d 3d 3d 3d 3d 3d 20 5b 73 74 72 69 6e 67 20 72 ====== [string r
0ae0: 65 70 65 61 74 20 3d 20 36 31 5d 22 0a 20 20 20 epeat = 61]".
0af0: 20 77 72 69 74 65 20 30 20 69 6d 70 6f 72 74 20 write 0 import
0b00: 22 49 6d 70 6f 72 74 65 64 20 24 6e 74 6f 20 5b "Imported $nto [
0b10: 65 78 70 72 20 7b 28 24 6e 74 6f 20 3d 3d 20 31 expr {($nto == 1
0b20: 29 20 3f 20 22 63 68 61 6e 67 65 73 65 74 22 20 ) ? "changeset"
0b30: 3a 20 22 63 68 61 6e 67 65 73 65 74 73 22 7d 5d : "changesets"}]
0b40: 22 0a 20 20 20 20 77 72 69 74 65 20 30 20 69 6d ". write 0 im
0b50: 70 6f 72 74 20 22 57 69 74 68 69 6e 20 5b 66 6f port "Within [fo
0b60: 72 6d 61 74 20 25 2e 32 66 20 24 74 6f 74 5d 20 rmat %.2f $tot]
0b70: 73 65 63 6f 6e 64 73 20 28 61 76 67 20 5b 66 6f seconds (avg [fo
0b80: 72 6d 61 74 20 25 2e 32 66 20 5b 65 78 70 72 20 rmat %.2f [expr
0b90: 7b 24 74 6f 74 2f 24 6e 74 6f 7d 5d 5d 20 73 65 {$tot/$nto}]] se
0ba0: 63 6f 6e 64 73 2f 63 68 61 6e 67 65 73 65 74 29 conds/changeset)
0bb0: 22 0a 0a 20 20 20 20 69 66 20 7b 24 73 74 6f 70 ".. if {$stop
0bc0: 61 74 20 3d 3d 20 24 63 73 65 74 7d 20 72 65 74 at == $cset} ret
0bd0: 75 72 6e 0a 0a 20 20 20 20 63 76 73 3a 3a 77 73 urn.. cvs::ws
0be0: 63 6c 65 61 72 0a 20 20 20 20 76 63 3a 3a 66 6f clear. vc::fo
0bf0: 73 73 69 6c 3a 3a 77 73 3a 3a 64 65 73 74 69 6e ssil::ws::destin
0c00: 61 74 69 6f 6e 20 24 64 73 74 0a 20 20 20 20 77 ation $dst. w
0c10: 72 69 74 65 20 30 20 69 6d 70 6f 72 74 20 4f 6b rite 0 import Ok
0c20: 2e 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a .. return.}..
0c30: 23 20 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0c80: 23 20 49 6e 74 65 72 6e 61 6c 20 6f 70 65 72 61 # Internal opera
0c90: 74 69 6f 6e 73 20 2d 20 49 6d 70 6f 72 74 20 61 tions - Import a
0ca0: 20 73 69 6e 67 6c 65 20 63 68 61 6e 67 65 73 65 single changese
0cb0: 74 2e 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 66 t...proc ::vc::f
0cc0: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
0cd0: 76 73 3a 3a 53 74 61 74 69 73 74 69 63 73 20 7b vs::Statistics {
0ce0: 73 65 63 7d 20 7b 0a 20 20 20 20 75 70 76 61 72 sec} {. upvar
0cf0: 20 31 20 74 6f 74 20 74 6f 74 20 6e 74 6f 20 6e 1 tot tot nto n
0d00: 74 6f 20 6e 74 72 75 6e 6b 20 6e 74 72 75 6e 6b to ntrunk ntrunk
0d10: 0a 0a 20 20 20 20 23 20 4e 6f 20 73 74 61 74 69 .. # No stati
0d20: 73 74 69 63 73 20 69 66 20 74 68 65 20 63 6f 6d stics if the com
0d30: 6d 69 74 20 77 61 73 20 73 74 6f 70 70 65 64 20 mit was stopped
0d40: 62 65 66 6f 72 65 20 69 74 20 77 61 73 20 72 75 before it was ru
0d50: 6e 0a 20 20 20 20 69 66 20 7b 24 73 65 63 20 65 n. if {$sec e
0d60: 71 20 22 22 7d 20 72 65 74 75 72 6e 0a 0a 20 20 q ""} return..
0d70: 20 20 69 6e 63 72 20 6e 74 6f 0a 0a 20 20 20 20 incr nto..
0d80: 73 65 74 20 74 6f 74 20 5b 65 78 70 72 20 7b 24 set tot [expr {$
0d90: 74 6f 74 20 2b 20 24 73 65 63 7d 5d 0a 20 20 20 tot + $sec}].
0da0: 20 73 65 74 20 61 76 67 20 5b 65 78 70 72 20 7b set avg [expr {
0db0: 24 74 6f 74 2f 24 6e 74 6f 7d 5d 0a 20 20 20 20 $tot/$nto}].
0dc0: 73 65 74 20 6d 61 78 20 5b 65 78 70 72 20 7b 24 set max [expr {$
0dd0: 6e 74 72 75 6e 6b 20 2a 20 24 61 76 67 7d 5d 0a ntrunk * $avg}].
0de0: 20 20 20 20 73 65 74 20 72 65 6d 20 5b 65 78 70 set rem [exp
0df0: 72 20 7b 24 6d 61 78 20 2d 20 24 74 6f 74 7d 5d r {$max - $tot}]
0e00: 0a 0a 20 20 20 20 77 72 69 74 65 20 33 20 69 6d .. write 3 im
0e10: 70 6f 72 74 20 22 73 74 20 61 76 67 20 5b 66 6f port "st avg [fo
0e20: 72 6d 61 74 20 25 2e 32 66 20 24 61 76 67 5d 20 rmat %.2f $avg]
0e30: 73 65 63 22 0a 20 20 20 20 77 72 69 74 65 20 33 sec". write 3
0e40: 20 69 6d 70 6f 72 74 20 22 73 74 20 72 75 6e 20 import "st run
0e50: 5b 66 6f 72 6d 61 74 20 25 37 2e 32 66 20 24 74 [format %7.2f $t
0e60: 6f 74 5d 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 ot] sec [format
0e70: 25 36 2e 32 66 20 5b 65 78 70 72 20 7b 24 74 6f %6.2f [expr {$to
0e80: 74 2f 36 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 t/60}]] min [for
0e90: 6d 61 74 20 25 35 2e 32 66 20 5b 65 78 70 72 20 mat %5.2f [expr
0ea0: 7b 24 74 6f 74 2f 33 36 30 30 7d 5d 5d 20 68 72 {$tot/3600}]] hr
0eb0: 22 0a 20 20 20 20 77 72 69 74 65 20 33 20 69 6d ". write 3 im
0ec0: 70 6f 72 74 20 22 73 74 20 65 6e 64 20 5b 66 6f port "st end [fo
0ed0: 72 6d 61 74 20 25 37 2e 32 66 20 24 6d 61 78 5d rmat %7.2f $max]
0ee0: 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 25 36 2e sec [format %6.
0ef0: 32 66 20 5b 65 78 70 72 20 7b 24 6d 61 78 2f 36 2f [expr {$max/6
0f00: 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 6d 61 74 0}]] min [format
0f10: 20 25 35 2e 32 66 20 5b 65 78 70 72 20 7b 24 6d %5.2f [expr {$m
0f20: 61 78 2f 33 36 30 30 7d 5d 5d 20 68 72 22 0a 20 ax/3600}]] hr".
0f30: 20 20 20 77 72 69 74 65 20 33 20 69 6d 70 6f 72 write 3 impor
0f40: 74 20 22 73 74 20 72 65 6d 20 5b 66 6f 72 6d 61 t "st rem [forma
0f50: 74 20 25 37 2e 32 66 20 24 72 65 6d 5d 20 73 65 t %7.2f $rem] se
0f60: 63 20 5b 66 6f 72 6d 61 74 20 25 36 2e 32 66 20 c [format %6.2f
0f70: 5b 65 78 70 72 20 7b 24 72 65 6d 2f 36 30 7d 5d [expr {$rem/60}]
0f80: 5d 20 6d 69 6e 20 5b 66 6f 72 6d 61 74 20 25 35 ] min [format %5
0f90: 2e 32 66 20 5b 65 78 70 72 20 7b 24 72 65 6d 2f .2f [expr {$rem/
0fa0: 33 36 30 30 7d 5d 5d 20 68 72 22 0a 20 20 20 20 3600}]] hr".
0fb0: 72 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 3a return.}..proc :
0fc0: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
0fd0: 6f 72 74 3a 3a 63 76 73 3a 3a 4f 6e 65 43 68 61 ort::cvs::OneCha
0fe0: 6e 67 65 53 65 74 20 7b 63 73 65 74 7d 20 7b 0a ngeSet {cset} {.
0ff0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6e 6f 73 variable nos
1000: 69 67 6e 0a 20 20 20 20 76 61 72 69 61 62 6c 65 ign. variable
1010: 20 73 74 6f 70 61 74 0a 0a 20 20 20 20 69 66 20 stopat.. if
1020: 7b 24 73 74 6f 70 61 74 20 3d 3d 20 24 63 73 65 {$stopat == $cse
1030: 74 7d 20 7b 0a 09 76 63 3a 3a 66 6f 73 73 69 6c t} {..vc::fossil
1040: 3a 3a 77 73 3a 3a 63 6f 6d 6d 69 74 20 31 20 63 ::ws::commit 1 c
1050: 76 73 32 66 6f 73 73 69 6c 20 24 6e 6f 73 69 67 vs2fossil $nosig
1060: 6e 20 5c 0a 09 20 20 20 20 5b 63 76 73 3a 3a 77 n \.. [cvs::w
1070: 73 73 65 74 75 70 20 24 63 73 65 74 5d 20 3a 3a ssetup $cset] ::
1080: 63 76 73 3a 3a 77 73 69 67 6e 6f 72 65 0a 09 77 cvs::wsignore..w
1090: 72 69 74 65 20 30 20 69 6d 70 6f 72 74 20 53 74 rite 0 import St
10a0: 6f 70 70 65 64 2e 0a 09 72 65 74 75 72 6e 20 2d opped...return -
10b0: 63 6f 64 65 20 62 72 65 61 6b 0a 20 20 20 20 7d code break. }
10c0: 0a 0a 20 20 20 20 73 65 74 20 75 73 65 63 20 5b .. set usec [
10d0: 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0a 09 lindex [time {..
10e0: 66 6f 72 65 61 63 68 20 7b 75 75 69 64 20 61 64 foreach {uuid ad
10f0: 20 72 6d 20 63 68 7d 20 5c 0a 09 20 20 20 20 5b rm ch} \.. [
1100: 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 77 73 3a 3a vc::fossil::ws::
1110: 63 6f 6d 6d 69 74 20 30 20 63 76 73 32 66 6f 73 commit 0 cvs2fos
1120: 73 69 6c 20 24 6e 6f 73 69 67 6e 20 5c 0a 09 09 sil $nosign \...
1130: 20 5b 63 76 73 3a 3a 77 73 73 65 74 75 70 20 24 [cvs::wssetup $
1140: 63 73 65 74 5d 20 3a 3a 63 76 73 3a 3a 77 73 69 cset] ::cvs::wsi
1150: 67 6e 6f 72 65 5d 20 5c 0a 09 20 20 20 20 62 72 gnore] \.. br
1160: 65 61 6b 0a 20 20 20 20 7d 20 31 5d 20 30 5d 0a eak. } 1] 0].
1170: 20 20 20 20 63 76 73 3a 3a 75 75 69 64 20 24 63 cvs::uuid $c
1180: 73 65 74 20 24 75 75 69 64 0a 0a 20 20 20 20 73 set $uuid.. s
1190: 65 74 20 73 65 63 20 5b 65 78 70 72 20 7b 24 75 et sec [expr {$u
11a0: 73 65 63 2f 31 65 36 7d 5d 0a 0a 20 20 20 20 77 sec/1e6}].. w
11b0: 72 69 74 65 20 32 20 69 6d 70 6f 72 74 20 22 3d rite 2 import "=
11c0: 3d 20 24 75 75 69 64 20 2b 24 7b 61 64 7d 2d 24 = $uuid +${ad}-$
11d0: 7b 72 6d 7d 2a 24 7b 63 68 7d 22 0a 20 20 20 20 {rm}*${ch}".
11e0: 77 72 69 74 65 20 32 20 69 6d 70 6f 72 74 20 22 write 2 import "
11f0: 73 74 20 69 6e 20 20 5b 66 6f 72 6d 61 74 20 25 st in [format %
1200: 2e 32 66 20 24 73 65 63 5d 20 73 65 63 22 0a 0a .2f $sec] sec"..
1210: 20 20 20 20 72 65 74 75 72 6e 20 24 73 65 63 0a return $sec.
1220: 7d 0a 0a 23 20 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 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1260: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1270: 2d 2d 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 --..namespace ev
1280: 61 6c 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a al ::vc::fossil:
1290: 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 20 7b 0a 20 :import::cvs {.
12a0: 20 20 20 76 61 72 69 61 62 6c 65 20 64 65 62 75 variable debu
12b0: 67 63 6f 6d 6d 69 74 20 30 20 20 3b 20 23 20 44 gcommit 0 ; # D
12c0: 65 62 75 67 20 74 68 65 20 63 6f 6d 6d 69 74 20 ebug the commit
12d0: 6f 70 65 72 61 74 69 6f 6e 2e 0a 20 20 20 20 76 operation.. v
12e0: 61 72 69 61 62 6c 65 20 6e 6f 73 69 67 6e 20 20 ariable nosign
12f0: 20 20 20 20 30 20 20 3b 20 23 20 52 65 71 75 69 0 ; # Requi
1300: 72 65 20 73 69 67 6e 69 6e 67 0a 20 20 20 20 76 re signing. v
1310: 61 72 69 61 62 6c 65 20 73 74 6f 70 61 74 20 20 ariable stopat
1320: 20 20 20 20 7b 7d 20 3b 20 23 20 53 74 6f 70 20 {} ; # Stop
1330: 6e 6f 77 68 65 72 65 0a 0a 20 20 20 20 6e 61 6d nowhere.. nam
1340: 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 72 75 espace export ru
1350: 6e 20 63 6f 6e 66 69 67 75 72 65 0a 7d 0a 0a 23 n configure.}..#
1360: 20 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
13a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 --------------.#
13b0: 20 52 65 61 64 79 0a 0a 70 61 63 6b 61 67 65 20 Ready..package
13c0: 70 72 6f 76 69 64 65 20 76 63 3a 3a 66 6f 73 73 provide vc::foss
13d0: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 20 il::import::cvs
13e0: 31 2e 30 0a 72 65 74 75 72 6e 0a 1.0.return.