Artifact 0d2f09ecb4c7582010e1e1154c136232e299c2d6:
File
tools/lib/importcvs.tcl
part of check-in
[7b2619b7ef]
- Unhacked the fossil backend.
IOW reworked the API and made it nicer, more structured, better command and option names.
Gave the internals more structure, and simplified the handling of -breakat (old -stopat breakpoint).
Updated users, and updated the user visible switches as well.
Added a -h switch for help.
by
aku on
2007-09-13 08:02:26.
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 76 63 3a 3a 63 76 73 3a 3a 77 73 20 20 re vc::cvs::ws
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 20 20 s::log::write.
0260: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
0270: 20 63 76 73 20 20 20 20 7b 20 6e 61 6d 65 73 70 cvs { namesp
0280: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
0290: 3a 63 76 73 3a 3a 77 73 3a 3a 2a 20 7d 0a 20 20 :cvs::ws::* }.
02a0: 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c namespace eval
02b0: 20 66 6f 73 73 69 6c 20 7b 20 6e 61 6d 65 73 70 fossil { namesp
02c0: 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a ace import ::vc:
02d0: 3a 66 6f 73 73 69 6c 3a 3a 77 73 3a 3a 2a 20 7d :fossil::ws::* }
02e0: 0a 0a 20 20 20 20 66 6f 73 73 69 6c 3a 3a 63 6f .. fossil::co
02f0: 6e 66 69 67 75 72 65 20 2d 61 70 70 6e 61 6d 65 nfigure -appname
0300: 20 63 76 73 32 66 6f 73 73 69 6c 0a 20 20 20 20 cvs2fossil.
0310: 66 6f 73 73 69 6c 3a 3a 63 6f 6e 66 69 67 75 72 fossil::configur
0320: 65 20 2d 69 67 6e 6f 72 65 20 20 3a 3a 76 63 3a e -ignore ::vc:
0330: 3a 63 76 73 3a 3a 77 73 3a 3a 77 73 69 67 6e 6f :cvs::ws::wsigno
0340: 72 65 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d re.}..# --------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0360: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0390: 2d 2d 2d 2d 2d 0a 23 20 41 50 49 0a 0a 23 20 43 -----.# API..# C
03a0: 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 23 0a 23 onfiguration.#.#
03b0: 09 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 .vc::fossil::imp
03c0: 6f 72 74 3a 3a 63 76 73 3a 3a 63 6f 6e 66 69 67 ort::cvs::config
03d0: 75 72 65 20 6b 65 79 20 76 61 6c 75 65 20 2d 20 ure key value -
03e0: 53 65 74 20 63 6f 6e 66 69 67 75 72 61 74 69 6f Set configuratio
03f0: 6e 0a 23 0a 23 09 4c 65 67 61 6c 20 6b 65 79 73 n.#.#.Legal keys
0400: 3a 09 2d 6e 6f 73 69 67 6e 09 09 3c 62 6f 6f 6c :.-nosign..<bool
0410: 3e 2c 20 64 65 66 61 75 6c 74 20 66 61 6c 73 65 >, default false
0420: 0a 23 09 09 09 2d 62 72 65 61 6b 61 74 09 3c 69 .#...-breakat.<i
0430: 6e 74 3e 2c 20 20 64 65 66 61 75 6c 74 20 3a 6e nt>, default :n
0440: 6f 6e 65 3a 0a 23 09 09 09 2d 73 61 76 65 74 6f one:.#...-saveto
0450: 09 09 3c 70 61 74 68 3e 2c 20 64 65 66 61 75 6c ..<path>, defaul
0460: 74 20 3a 6e 6f 6e 65 3a 0a 23 0a 23 20 46 75 6e t :none:.#.# Fun
0470: 63 74 69 6f 6e 61 6c 69 74 79 0a 23 0a 23 09 76 ctionality.#.#.v
0480: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0490: 74 3a 3a 63 76 73 3a 3a 72 75 6e 20 73 72 63 20 t::cvs::run src
04a0: 64 73 74 20 20 20 20 20 20 20 20 20 2d 20 50 65 dst - Pe
04b0: 72 66 6f 72 6d 20 61 6e 20 69 6d 70 6f 72 74 2e rform an import.
04c0: 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..# ------------
04d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
04f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0510: 2d 0a 23 20 41 50 49 20 49 6d 70 6c 65 6d 65 6e -.# API Implemen
0520: 74 61 74 69 6f 6e 20 2d 20 46 75 6e 63 74 69 6f tation - Functio
0530: 6e 61 6c 69 74 79 0a 0a 70 72 6f 63 20 3a 3a 76 nality..proc ::v
0540: 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 c::fossil::impor
0550: 74 3a 3a 63 76 73 3a 3a 63 6f 6e 66 69 67 75 72 t::cvs::configur
0560: 65 20 7b 6b 65 79 20 76 61 6c 75 65 7d 20 7b 0a e {key value} {.
0570: 20 20 20 20 23 20 54 68 65 20 6f 70 74 69 6f 6e # The option
0580: 73 20 61 72 65 20 73 69 6d 70 6c 79 20 70 61 73 s are simply pas
0590: 73 65 64 20 74 68 72 6f 75 67 68 20 74 6f 20 74 sed through to t
05a0: 68 65 20 66 6f 73 73 69 6c 20 69 6d 70 6f 72 74 he fossil import
05b0: 65 72 0a 20 20 20 20 23 20 62 61 63 6b 65 6e 64 er. # backend
05c0: 2e 0a 20 20 20 20 73 77 69 74 63 68 20 2d 65 78 .. switch -ex
05d0: 61 63 74 20 2d 2d 20 24 6b 65 79 20 7b 0a 09 2d act -- $key {..-
05e0: 62 72 65 61 6b 61 74 20 7b 20 66 6f 73 73 69 6c breakat { fossil
05f0: 3a 3a 63 6f 6e 66 69 67 75 72 65 20 2d 62 72 65 ::configure -bre
0600: 61 6b 61 74 20 24 76 61 6c 75 65 20 7d 0a 09 2d akat $value }..-
0610: 6e 6f 73 69 67 6e 20 20 7b 20 66 6f 73 73 69 6c nosign { fossil
0620: 3a 3a 63 6f 6e 66 69 67 75 72 65 20 2d 6e 6f 73 ::configure -nos
0630: 69 67 6e 20 20 24 76 61 6c 75 65 20 7d 0a 09 2d ign $value }..-
0640: 73 61 76 65 74 6f 20 20 7b 20 66 6f 73 73 69 6c saveto { fossil
0650: 3a 3a 63 6f 6e 66 69 67 75 72 65 20 2d 73 61 76 ::configure -sav
0660: 65 74 6f 20 20 24 76 61 6c 75 65 20 7d 0a 09 64 eto $value }..d
0670: 65 66 61 75 6c 74 20 7b 0a 09 20 20 20 20 72 65 efault {.. re
0680: 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 turn -code error
0690: 20 22 55 6e 6b 6e 6f 77 6e 20 73 77 69 74 63 68 "Unknown switch
06a0: 20 24 6b 65 79 2c 20 65 78 70 65 63 74 65 64 20 $key, expected
06b0: 6f 6e 65 20 6f 66 20 5c 0a 20 20 20 20 20 20 20 one of \.
06c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 2d 62 72 65 -bre
06e0: 61 6b 61 74 2c 20 2d 6e 6f 73 69 67 6e 2c 20 6f akat, -nosign, o
06f0: 72 20 2d 73 61 76 65 74 6f 22 0a 09 7d 0a 20 20 r -saveto"..}.
0700: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d }. return.}
0710: 0a 0a 23 20 49 6d 70 6f 72 74 20 74 68 65 20 43 ..# Import the C
0720: 56 53 20 72 65 70 6f 73 69 74 6f 72 79 20 66 6f VS repository fo
0730: 75 6e 64 20 61 74 20 64 69 72 65 63 74 6f 72 79 und at directory
0740: 20 27 73 72 63 27 20 69 6e 74 6f 20 74 68 65 20 'src' into the
0750: 6e 65 77 0a 23 20 66 6f 73 73 69 6c 20 72 65 70 new.# fossil rep
0760: 6f 73 69 74 6f 72 79 20 61 74 20 27 64 73 74 27 ository at 'dst'
0770: 2e 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 66 6f ...proc ::vc::fo
0780: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0790: 73 3a 3a 72 75 6e 20 7b 73 72 63 20 64 73 74 7d s::run {src dst}
07a0: 20 7b 0a 20 20 20 20 63 76 73 3a 3a 61 74 20 24 {. cvs::at $
07b0: 73 72 63 20 20 3b 20 23 20 44 65 66 69 6e 65 20 src ; # Define
07c0: 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 43 56 53 20 location of CVS
07d0: 72 65 70 6f 73 69 74 6f 72 79 0a 20 20 20 20 63 repository. c
07e0: 76 73 3a 3a 73 63 61 6e 20 20 20 20 20 3b 20 23 vs::scan ; #
07f0: 20 47 61 74 68 65 72 20 72 65 76 69 73 69 6f 6e Gather revision
0800: 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 61 data from the a
0810: 72 63 68 69 76 65 73 0a 20 20 20 20 63 76 73 3a rchives. cvs:
0820: 3a 63 73 65 74 73 20 20 20 20 3b 20 23 20 47 72 :csets ; # Gr
0830: 6f 75 70 20 63 68 61 6e 67 65 73 20 69 6e 74 6f oup changes into
0840: 20 73 65 74 73 0a 20 20 20 20 63 76 73 3a 3a 72 sets. cvs::r
0850: 74 72 65 65 20 20 20 20 3b 20 23 20 42 75 69 6c tree ; # Buil
0860: 64 20 72 65 76 69 73 69 6f 6e 20 74 72 65 65 20 d revision tree
0870: 28 74 72 75 6e 6b 20 6f 6e 6c 79 20 72 69 67 68 (trunk only righ
0880: 74 20 6e 6f 77 29 2e 0a 0a 20 20 20 20 73 65 74 t now)... set
0890: 20 74 6f 74 20 30 2e 30 0a 20 20 20 20 73 65 74 tot 0.0. set
08a0: 20 6e 74 6f 20 30 0a 0a 20 20 20 20 77 72 69 74 nto 0.. writ
08b0: 65 20 30 20 69 6d 70 6f 72 74 20 7b 42 65 67 69 e 0 import {Begi
08c0: 6e 20 63 6f 6e 76 65 72 73 69 6f 6e 7d 0a 20 20 n conversion}.
08d0: 20 20 77 72 69 74 65 20 30 20 69 6d 70 6f 72 74 write 0 import
08e0: 20 7b 53 65 74 74 69 6e 67 20 75 70 20 77 6f 72 {Setting up wor
08f0: 6b 73 70 61 63 65 73 7d 0a 0a 20 20 20 20 63 76 kspaces}.. cv
0900: 73 3a 3a 77 6f 72 6b 73 70 61 63 65 20 20 20 20 s::workspace
0910: 20 20 3b 20 23 20 63 64 27 73 20 74 6f 20 77 6f ; # cd's to wo
0920: 72 6b 73 70 61 63 65 0a 20 20 20 20 66 6f 73 73 rkspace. foss
0930: 69 6c 3a 3a 62 65 67 69 6e 20 5b 70 77 64 5d 20 il::begin [pwd]
0940: 3b 20 23 20 55 73 65 73 20 63 77 64 20 61 73 20 ; # Uses cwd as
0950: 77 6f 72 6b 73 70 61 63 65 20 74 6f 20 63 6f 6e workspace to con
0960: 6e 65 63 74 20 74 6f 2e 0a 0a 20 20 20 20 73 65 nect to... se
0970: 74 20 6e 74 72 75 6e 6b 20 5b 63 76 73 3a 3a 6e t ntrunk [cvs::n
0980: 74 72 75 6e 6b 5d 20 3b 20 73 65 74 20 6e 74 66 trunk] ; set ntf
0990: 6d 74 20 25 5b 73 74 72 69 6e 67 20 6c 65 6e 67 mt %[string leng
09a0: 74 68 20 24 6e 74 72 75 6e 6b 5d 73 0a 20 20 20 th $ntrunk]s.
09b0: 20 73 65 74 20 6e 6d 61 78 20 20 20 5b 63 76 73 set nmax [cvs
09c0: 3a 3a 6e 63 73 65 74 73 5d 20 3b 20 73 65 74 20 ::ncsets] ; set
09d0: 6e 6d 66 6d 74 20 25 5b 73 74 72 69 6e 67 20 6c nmfmt %[string l
09e0: 65 6e 67 74 68 20 24 6e 6d 61 78 5d 73 0a 0a 20 ength $nmax]s..
09f0: 20 20 20 63 76 73 3a 3a 66 6f 72 65 61 63 68 5f cvs::foreach_
0a00: 63 73 65 74 20 63 73 65 74 20 5b 63 76 73 3a 3a cset cset [cvs::
0a10: 72 6f 6f 74 5d 20 7b 0a 09 77 72 69 74 65 20 30 root] {..write 0
0a20: 20 69 6d 70 6f 72 74 20 22 43 68 61 6e 67 65 53 import "ChangeS
0a30: 65 74 20 5b 66 6f 72 6d 61 74 20 24 6e 6d 66 6d et [format $nmfm
0a40: 74 20 24 63 73 65 74 5d 20 40 20 5b 66 6f 72 6d t $cset] @ [form
0a50: 61 74 20 24 6e 74 66 6d 74 20 24 6e 74 6f 5d 2f at $ntfmt $nto]/
0a60: 24 6e 74 72 75 6e 6b 20 28 5b 66 6f 72 6d 61 74 $ntrunk ([format
0a70: 20 25 36 2e 32 66 20 5b 65 78 70 72 20 7b 24 6e %6.2f [expr {$n
0a80: 74 6f 2a 31 30 30 2e 30 2f 24 6e 74 72 75 6e 6b to*100.0/$ntrunk
0a90: 7d 5d 5d 25 29 22 0a 09 53 74 61 74 69 73 74 69 }]]%)"..Statisti
0aa0: 63 73 20 5b 4f 6e 65 43 68 61 6e 67 65 53 65 74 cs [OneChangeSet
0ab0: 20 24 63 73 65 74 5d 0a 20 20 20 20 7d 0a 0a 20 $cset]. }..
0ac0: 20 20 20 77 72 69 74 65 20 30 20 69 6d 70 6f 72 write 0 impor
0ad0: 74 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 5b 73 74 t "========= [st
0ae0: 72 69 6e 67 20 72 65 70 65 61 74 20 3d 20 36 31 ring repeat = 61
0af0: 5d 22 0a 20 20 20 20 77 72 69 74 65 20 30 20 69 ]". write 0 i
0b00: 6d 70 6f 72 74 20 22 49 6d 70 6f 72 74 65 64 20 mport "Imported
0b10: 24 6e 74 6f 20 5b 65 78 70 72 20 7b 28 24 6e 74 $nto [expr {($nt
0b20: 6f 20 3d 3d 20 31 29 20 3f 20 22 63 68 61 6e 67 o == 1) ? "chang
0b30: 65 73 65 74 22 20 3a 20 22 63 68 61 6e 67 65 73 eset" : "changes
0b40: 65 74 73 22 7d 5d 22 0a 20 20 20 20 77 72 69 74 ets"}]". writ
0b50: 65 20 30 20 69 6d 70 6f 72 74 20 22 57 69 74 68 e 0 import "With
0b60: 69 6e 20 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 in [format %.2f
0b70: 24 74 6f 74 5d 20 73 65 63 6f 6e 64 73 20 28 61 $tot] seconds (a
0b80: 76 67 20 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 vg [format %.2f
0b90: 5b 65 78 70 72 20 7b 24 74 6f 74 2f 24 6e 74 6f [expr {$tot/$nto
0ba0: 7d 5d 5d 20 73 65 63 6f 6e 64 73 2f 63 68 61 6e }]] seconds/chan
0bb0: 67 65 73 65 74 29 22 0a 0a 20 20 20 20 63 76 73 geset)".. cvs
0bc0: 3a 3a 77 73 63 6c 65 61 72 0a 20 20 20 20 66 6f ::wsclear. fo
0bd0: 73 73 69 6c 3a 3a 63 6c 6f 73 65 20 24 64 73 74 ssil::close $dst
0be0: 0a 20 20 20 20 77 72 69 74 65 20 30 20 69 6d 70 . write 0 imp
0bf0: 6f 72 74 20 4f 6b 2e 0a 20 20 20 20 72 65 74 75 ort Ok.. retu
0c00: 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d rn.}..# --------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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 0a 23 20 49 6e 74 65 72 6e 61 6c -----.# Internal
0c60: 20 6f 70 65 72 61 74 69 6f 6e 73 20 2d 20 49 6d operations - Im
0c70: 70 6f 72 74 20 61 20 73 69 6e 67 6c 65 20 63 68 port a single ch
0c80: 61 6e 67 65 73 65 74 2e 0a 0a 70 72 6f 63 20 3a angeset...proc :
0c90: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
0ca0: 6f 72 74 3a 3a 63 76 73 3a 3a 53 74 61 74 69 73 ort::cvs::Statis
0cb0: 74 69 63 73 20 7b 73 65 63 7d 20 7b 0a 20 20 20 tics {sec} {.
0cc0: 20 75 70 76 61 72 20 31 20 74 6f 74 20 74 6f 74 upvar 1 tot tot
0cd0: 20 6e 74 6f 20 6e 74 6f 20 6e 74 72 75 6e 6b 20 nto nto ntrunk
0ce0: 6e 74 72 75 6e 6b 0a 0a 20 20 20 20 23 20 4e 6f ntrunk.. # No
0cf0: 20 73 74 61 74 69 73 74 69 63 73 20 69 66 20 74 statistics if t
0d00: 68 65 20 63 6f 6d 6d 69 74 20 77 61 73 20 73 74 he commit was st
0d10: 6f 70 70 65 64 20 62 65 66 6f 72 65 20 69 74 20 opped before it
0d20: 77 61 73 20 72 75 6e 0a 20 20 20 20 69 66 20 7b was run. if {
0d30: 24 73 65 63 20 65 71 20 22 22 7d 20 72 65 74 75 $sec eq ""} retu
0d40: 72 6e 0a 0a 20 20 20 20 69 6e 63 72 20 6e 74 6f rn.. incr nto
0d50: 0a 0a 20 20 20 20 73 65 74 20 74 6f 74 20 5b 65 .. set tot [e
0d60: 78 70 72 20 7b 24 74 6f 74 20 2b 20 24 73 65 63 xpr {$tot + $sec
0d70: 7d 5d 0a 20 20 20 20 73 65 74 20 61 76 67 20 5b }]. set avg [
0d80: 65 78 70 72 20 7b 24 74 6f 74 2f 24 6e 74 6f 7d expr {$tot/$nto}
0d90: 5d 0a 20 20 20 20 73 65 74 20 6d 61 78 20 5b 65 ]. set max [e
0da0: 78 70 72 20 7b 24 6e 74 72 75 6e 6b 20 2a 20 24 xpr {$ntrunk * $
0db0: 61 76 67 7d 5d 0a 20 20 20 20 73 65 74 20 72 65 avg}]. set re
0dc0: 6d 20 5b 65 78 70 72 20 7b 24 6d 61 78 20 2d 20 m [expr {$max -
0dd0: 24 74 6f 74 7d 5d 0a 0a 20 20 20 20 77 72 69 74 $tot}].. writ
0de0: 65 20 33 20 69 6d 70 6f 72 74 20 22 73 74 20 61 e 3 import "st a
0df0: 76 67 20 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 vg [format %.2f
0e00: 24 61 76 67 5d 20 73 65 63 22 0a 20 20 20 20 77 $avg] sec". w
0e10: 72 69 74 65 20 33 20 69 6d 70 6f 72 74 20 22 73 rite 3 import "s
0e20: 74 20 72 75 6e 20 5b 66 6f 72 6d 61 74 20 25 37 t run [format %7
0e30: 2e 32 66 20 24 74 6f 74 5d 20 73 65 63 20 5b 66 .2f $tot] sec [f
0e40: 6f 72 6d 61 74 20 25 36 2e 32 66 20 5b 65 78 70 ormat %6.2f [exp
0e50: 72 20 7b 24 74 6f 74 2f 36 30 7d 5d 5d 20 6d 69 r {$tot/60}]] mi
0e60: 6e 20 5b 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 n [format %5.2f
0e70: 5b 65 78 70 72 20 7b 24 74 6f 74 2f 33 36 30 30 [expr {$tot/3600
0e80: 7d 5d 5d 20 68 72 22 0a 20 20 20 20 77 72 69 74 }]] hr". writ
0e90: 65 20 33 20 69 6d 70 6f 72 74 20 22 73 74 20 65 e 3 import "st e
0ea0: 6e 64 20 5b 66 6f 72 6d 61 74 20 25 37 2e 32 66 nd [format %7.2f
0eb0: 20 24 6d 61 78 5d 20 73 65 63 20 5b 66 6f 72 6d $max] sec [form
0ec0: 61 74 20 25 36 2e 32 66 20 5b 65 78 70 72 20 7b at %6.2f [expr {
0ed0: 24 6d 61 78 2f 36 30 7d 5d 5d 20 6d 69 6e 20 5b $max/60}]] min [
0ee0: 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 5b 65 78 format %5.2f [ex
0ef0: 70 72 20 7b 24 6d 61 78 2f 33 36 30 30 7d 5d 5d pr {$max/3600}]]
0f00: 20 68 72 22 0a 20 20 20 20 77 72 69 74 65 20 33 hr". write 3
0f10: 20 69 6d 70 6f 72 74 20 22 73 74 20 72 65 6d 20 import "st rem
0f20: 5b 66 6f 72 6d 61 74 20 25 37 2e 32 66 20 24 72 [format %7.2f $r
0f30: 65 6d 5d 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 em] sec [format
0f40: 25 36 2e 32 66 20 5b 65 78 70 72 20 7b 24 72 65 %6.2f [expr {$re
0f50: 6d 2f 36 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 m/60}]] min [for
0f60: 6d 61 74 20 25 35 2e 32 66 20 5b 65 78 70 72 20 mat %5.2f [expr
0f70: 7b 24 72 65 6d 2f 33 36 30 30 7d 5d 5d 20 68 72 {$rem/3600}]] hr
0f80: 22 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a ". return.}..
0f90: 70 72 6f 63 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 proc ::vc::fossi
0fa0: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
0fb0: 4f 6e 65 43 68 61 6e 67 65 53 65 74 20 7b 63 73 OneChangeSet {cs
0fc0: 65 74 7d 20 7b 0a 20 20 20 20 73 65 74 20 75 73 et} {. set us
0fd0: 65 63 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 ec [lindex [time
0fe0: 20 7b 0a 09 66 6f 72 65 61 63 68 20 7b 75 73 65 {..foreach {use
0ff0: 72 20 6d 65 73 73 61 67 65 20 74 69 6d 65 73 74 r message timest
1000: 61 6d 70 7d 20 5b 63 76 73 3a 3a 77 73 73 65 74 amp} [cvs::wsset
1010: 75 70 20 24 63 73 65 74 5d 20 62 72 65 61 6b 0a up $cset] break.
1020: 09 66 6f 72 65 61 63 68 20 7b 75 75 69 64 20 61 .foreach {uuid a
1030: 64 20 72 6d 20 63 68 7d 20 5b 66 6f 73 73 69 6c d rm ch} [fossil
1040: 3a 3a 63 6f 6d 6d 69 74 20 24 63 73 65 74 20 24 ::commit $cset $
1050: 75 73 65 72 20 24 74 69 6d 65 73 74 61 6d 70 20 user $timestamp
1060: 24 6d 65 73 73 61 67 65 5d 20 62 72 65 61 6b 0a $message] break.
1070: 20 20 20 20 7d 20 31 5d 20 30 5d 0a 20 20 20 20 } 1] 0].
1080: 63 76 73 3a 3a 75 75 69 64 20 24 63 73 65 74 20 cvs::uuid $cset
1090: 24 75 75 69 64 0a 0a 20 20 20 20 73 65 74 20 73 $uuid.. set s
10a0: 65 63 20 5b 65 78 70 72 20 7b 24 75 73 65 63 2f ec [expr {$usec/
10b0: 31 65 36 7d 5d 0a 0a 20 20 20 20 77 72 69 74 65 1e6}].. write
10c0: 20 32 20 69 6d 70 6f 72 74 20 22 3d 3d 20 24 75 2 import "== $u
10d0: 75 69 64 20 2b 24 7b 61 64 7d 2d 24 7b 72 6d 7d uid +${ad}-${rm}
10e0: 2a 24 7b 63 68 7d 22 0a 20 20 20 20 77 72 69 74 *${ch}". writ
10f0: 65 20 32 20 69 6d 70 6f 72 74 20 22 73 74 20 69 e 2 import "st i
1100: 6e 20 20 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 n [format %.2f
1110: 24 73 65 63 5d 20 73 65 63 22 0a 0a 20 20 20 20 $sec] sec"..
1120: 72 65 74 75 72 6e 20 24 73 65 63 0a 7d 0a 0a 23 return $sec.}..#
1130: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
1140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a --------------..
1180: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a namespace eval :
1190: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
11a0: 6f 72 74 3a 3a 63 76 73 20 7b 0a 20 20 20 20 6e ort::cvs {. n
11b0: 61 6d 65 73 70 61 63 65 20 65 78 70 6f 72 74 20 amespace export
11c0: 72 75 6e 20 63 6f 6e 66 69 67 75 72 65 0a 7d 0a run configure.}.
11d0: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .# -------------
11e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
11f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
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: 0a 23 20 52 65 61 64 79 0a 0a 70 61 63 6b 61 67 .# Ready..packag
1230: 65 20 70 72 6f 76 69 64 65 20 76 63 3a 3a 66 6f e provide vc::fo
1240: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
1250: 73 20 31 2e 30 0a 72 65 74 75 72 6e 0a s 1.0.return.