Artifact 77cdacb9e51b0f7c83a8245d40a24a911bad8c1e:
File
tools/lib/importcvs.tcl
part of check-in
[18251642f3]
- Moved the handling of the import statistics into its own package. Untested.
by
aku on
2007-09-14 23:23:48.
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 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
0140: 20 46 72 6f 6e 74 65 6e 64 2c 20 72 65 61 64 69 Frontend, readi
0150: 6e 67 20 66 72 6f 6d 20 73 6f 75 72 63 65 20 72 ng from source r
0160: 65 70 6f 73 69 74 6f 72 79 0a 70 61 63 6b 61 67 epository.packag
0170: 65 20 72 65 71 75 69 72 65 20 76 63 3a 3a 66 6f e require vc::fo
0180: 73 73 69 6c 3a 3a 77 73 20 20 20 20 20 20 20 20 ssil::ws
0190: 20 20 20 20 3b 20 23 20 42 61 63 6b 65 6e 64 2c ; # Backend,
01a0: 20 20 77 72 69 74 69 6e 67 20 74 6f 20 64 65 73 writing to des
01b0: 74 69 6e 61 74 69 6f 6e 20 72 65 70 6f 73 69 74 tination reposit
01c0: 6f 72 79 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 ory..package req
01d0: 75 69 72 65 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a uire vc::tools::
01e0: 6c 6f 67 20 20 20 20 20 20 20 20 20 20 20 20 3b log ;
01f0: 20 23 20 55 73 65 72 20 66 65 65 64 62 61 63 6b # User feedback
0200: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0210: 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 vc::fossil::imp
0220: 6f 72 74 3a 3a 73 74 61 74 73 20 3b 20 23 20 49 ort::stats ; # I
0230: 6d 70 6f 72 74 20 53 74 61 74 69 73 74 69 63 73 mport Statistics
0240: 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c ..namespace eval
0250: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
0260: 6d 70 6f 72 74 3a 3a 63 76 73 20 7b 0a 20 20 20 mport::cvs {.
0270: 20 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a vc::tools::log:
0280: 3a 73 79 73 74 65 6d 20 69 6d 70 6f 72 74 0a 20 :system import.
0290: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 namespace imp
02a0: 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a ort ::vc::tools:
02b0: 3a 6c 6f 67 3a 3a 77 72 69 74 65 0a 20 20 20 20 :log::write.
02c0: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 63 namespace eval c
02d0: 76 73 20 20 20 20 7b 20 6e 61 6d 65 73 70 61 63 vs { namespac
02e0: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 63 e import ::vc::c
02f0: 76 73 3a 3a 77 73 3a 3a 2a 20 7d 0a 20 20 20 20 vs::ws::* }.
0300: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 66 namespace eval f
0310: 6f 73 73 69 6c 20 7b 20 6e 61 6d 65 73 70 61 63 ossil { namespac
0320: 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 e import ::vc::f
0330: 6f 73 73 69 6c 3a 3a 77 73 3a 3a 2a 20 7d 0a 20 ossil::ws::* }.
0340: 20 20 20 6e 61 6d 65 73 70 61 63 65 20 65 76 61 namespace eva
0350: 6c 20 73 74 61 74 73 20 20 7b 20 6e 61 6d 65 73 l stats { names
0360: 70 61 63 65 20 69 6d 70 6f 72 74 20 3a 3a 76 63 pace import ::vc
0370: 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 ::fossil::import
0380: 3a 3a 73 74 61 74 73 3a 3a 2a 20 7d 0a 0a 20 20 ::stats::* }..
0390: 20 20 66 6f 73 73 69 6c 3a 3a 63 6f 6e 66 69 67 fossil::config
03a0: 75 72 65 20 2d 61 70 70 6e 61 6d 65 20 63 76 73 ure -appname cvs
03b0: 32 66 6f 73 73 69 6c 0a 20 20 20 20 66 6f 73 73 2fossil. foss
03c0: 69 6c 3a 3a 63 6f 6e 66 69 67 75 72 65 20 2d 69 il::configure -i
03d0: 67 6e 6f 72 65 20 20 3a 3a 76 63 3a 3a 63 76 73 gnore ::vc::cvs
03e0: 3a 3a 77 73 3a 3a 77 73 69 67 6e 6f 72 65 0a 7d ::ws::wsignore.}
03f0: 0a 0a 23 20 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 2d ----------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0440: 2d 0a 23 20 41 50 49 0a 0a 23 20 43 6f 6e 66 69 -.# API..# Confi
0450: 67 75 72 61 74 69 6f 6e 0a 23 0a 23 09 76 63 3a guration.#.#.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: 6b 65 79 20 76 61 6c 75 65 20 2d 20 53 65 74 20 key value - Set
0490: 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 0a 23 0a configuration.#.
04a0: 23 09 4c 65 67 61 6c 20 6b 65 79 73 3a 09 2d 6e #.Legal keys:.-n
04b0: 6f 73 69 67 6e 09 09 3c 62 6f 6f 6c 3e 2c 20 64 osign..<bool>, d
04c0: 65 66 61 75 6c 74 20 66 61 6c 73 65 0a 23 09 09 efault false.#..
04d0: 09 2d 62 72 65 61 6b 61 74 09 3c 69 6e 74 3e 2c .-breakat.<int>,
04e0: 20 20 64 65 66 61 75 6c 74 20 3a 6e 6f 6e 65 3a default :none:
04f0: 0a 23 09 09 09 2d 73 61 76 65 74 6f 09 09 3c 70 .#...-saveto..<p
0500: 61 74 68 3e 2c 20 64 65 66 61 75 6c 74 20 3a 6e ath>, default :n
0510: 6f 6e 65 3a 0a 23 0a 23 20 46 75 6e 63 74 69 6f one:.#.# Functio
0520: 6e 61 6c 69 74 79 0a 23 0a 23 09 76 63 3a 3a 66 nality.#.#.vc::f
0530: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
0540: 76 73 3a 3a 72 75 6e 20 73 72 63 20 64 73 74 20 vs::run src dst
0550: 20 20 20 20 20 20 20 20 2d 20 50 65 72 66 6f 72 - Perfor
0560: 6d 20 61 6e 20 69 6d 70 6f 72 74 2e 0a 0a 23 20 m an import...#
0570: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0580: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 -------------.#
05c0: 41 50 49 20 49 6d 70 6c 65 6d 65 6e 74 61 74 69 API Implementati
05d0: 6f 6e 20 2d 20 46 75 6e 63 74 69 6f 6e 61 6c 69 on - Functionali
05e0: 74 79 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 66 ty..proc ::vc::f
05f0: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 ossil::import::c
0600: 76 73 3a 3a 63 6f 6e 66 69 67 75 72 65 20 7b 6b vs::configure {k
0610: 65 79 20 76 61 6c 75 65 7d 20 7b 0a 20 20 20 20 ey value} {.
0620: 23 20 54 68 65 20 6f 70 74 69 6f 6e 73 20 61 72 # The options ar
0630: 65 20 73 69 6d 70 6c 79 20 70 61 73 73 65 64 20 e simply passed
0640: 74 68 72 6f 75 67 68 20 74 6f 20 74 68 65 20 66 through to the f
0650: 6f 73 73 69 6c 20 69 6d 70 6f 72 74 65 72 0a 20 ossil importer.
0660: 20 20 20 23 20 62 61 63 6b 65 6e 64 2e 0a 20 20 # backend..
0670: 20 20 73 77 69 74 63 68 20 2d 65 78 61 63 74 20 switch -exact
0680: 2d 2d 20 24 6b 65 79 20 7b 0a 09 2d 62 72 65 61 -- $key {..-brea
0690: 6b 61 74 20 7b 20 66 6f 73 73 69 6c 3a 3a 63 6f kat { fossil::co
06a0: 6e 66 69 67 75 72 65 20 2d 62 72 65 61 6b 61 74 nfigure -breakat
06b0: 20 24 76 61 6c 75 65 20 7d 0a 09 2d 6e 6f 73 69 $value }..-nosi
06c0: 67 6e 20 20 7b 20 66 6f 73 73 69 6c 3a 3a 63 6f gn { fossil::co
06d0: 6e 66 69 67 75 72 65 20 2d 6e 6f 73 69 67 6e 20 nfigure -nosign
06e0: 20 24 76 61 6c 75 65 20 7d 0a 09 2d 73 61 76 65 $value }..-save
06f0: 74 6f 20 20 7b 20 66 6f 73 73 69 6c 3a 3a 63 6f to { fossil::co
0700: 6e 66 69 67 75 72 65 20 2d 73 61 76 65 74 6f 20 nfigure -saveto
0710: 20 24 76 61 6c 75 65 20 7d 0a 09 64 65 66 61 75 $value }..defau
0720: 6c 74 20 7b 0a 09 20 20 20 20 72 65 74 75 72 6e lt {.. return
0730: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 22 55 6e -code error "Un
0740: 6b 6e 6f 77 6e 20 73 77 69 74 63 68 20 24 6b 65 known switch $ke
0750: 79 2c 20 65 78 70 65 63 74 65 64 20 6f 6e 65 20 y, expected one
0760: 6f 66 20 5c 0a 20 20 20 20 20 20 20 20 20 20 20 of \.
0770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0780: 20 20 20 20 20 20 20 20 2d 62 72 65 61 6b 61 74 -breakat
0790: 2c 20 2d 6e 6f 73 69 67 6e 2c 20 6f 72 20 2d 73 , -nosign, or -s
07a0: 61 76 65 74 6f 22 0a 09 7d 0a 20 20 20 20 7d 0a aveto"..}. }.
07b0: 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 return.}..#
07c0: 49 6d 70 6f 72 74 20 74 68 65 20 43 56 53 20 72 Import the CVS r
07d0: 65 70 6f 73 69 74 6f 72 79 20 66 6f 75 6e 64 20 epository found
07e0: 61 74 20 64 69 72 65 63 74 6f 72 79 20 27 73 72 at directory 'sr
07f0: 63 27 20 69 6e 74 6f 20 74 68 65 20 6e 65 77 0a c' into the new.
0800: 23 20 66 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 # fossil reposit
0810: 6f 72 79 20 61 74 20 27 64 73 74 27 2e 0a 0a 70 ory at 'dst'...p
0820: 72 6f 63 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c roc ::vc::fossil
0830: 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a 72 ::import::cvs::r
0840: 75 6e 20 7b 73 72 63 20 64 73 74 7d 20 7b 0a 20 un {src dst} {.
0850: 20 20 20 63 76 73 3a 3a 61 74 20 24 73 72 63 20 cvs::at $src
0860: 20 3b 20 23 20 44 65 66 69 6e 65 20 6c 6f 63 61 ; # Define loca
0870: 74 69 6f 6e 20 6f 66 20 43 56 53 20 72 65 70 6f tion of CVS repo
0880: 73 69 74 6f 72 79 0a 20 20 20 20 63 76 73 3a 3a sitory. cvs::
0890: 73 63 61 6e 20 20 20 20 20 3b 20 23 20 47 61 74 scan ; # Gat
08a0: 68 65 72 20 72 65 76 69 73 69 6f 6e 20 64 61 74 her revision dat
08b0: 61 20 66 72 6f 6d 20 74 68 65 20 61 72 63 68 69 a from the archi
08c0: 76 65 73 0a 20 20 20 20 63 76 73 3a 3a 63 73 65 ves. cvs::cse
08d0: 74 73 20 20 20 20 3b 20 23 20 47 72 6f 75 70 20 ts ; # Group
08e0: 63 68 61 6e 67 65 73 20 69 6e 74 6f 20 73 65 74 changes into set
08f0: 73 0a 20 20 20 20 63 76 73 3a 3a 72 74 72 65 65 s. cvs::rtree
0900: 20 20 20 20 3b 20 23 20 42 75 69 6c 64 20 72 65 ; # Build re
0910: 76 69 73 69 6f 6e 20 74 72 65 65 20 28 74 72 75 vision tree (tru
0920: 6e 6b 20 6f 6e 6c 79 20 72 69 67 68 74 20 6e 6f nk only right no
0930: 77 29 2e 0a 0a 20 20 20 20 77 72 69 74 65 20 30 w)... write 0
0940: 20 69 6d 70 6f 72 74 20 7b 42 65 67 69 6e 20 63 import {Begin c
0950: 6f 6e 76 65 72 73 69 6f 6e 7d 0a 20 20 20 20 77 onversion}. w
0960: 72 69 74 65 20 30 20 69 6d 70 6f 72 74 20 7b 53 rite 0 import {S
0970: 65 74 74 69 6e 67 20 75 70 20 77 6f 72 6b 73 70 etting up worksp
0980: 61 63 65 73 7d 0a 0a 20 20 20 20 63 76 73 3a 3a aces}.. cvs::
0990: 77 6f 72 6b 73 70 61 63 65 20 20 20 20 20 20 3b workspace ;
09a0: 20 23 20 63 64 27 73 20 74 6f 20 77 6f 72 6b 73 # cd's to works
09b0: 70 61 63 65 0a 20 20 20 20 66 6f 73 73 69 6c 3a pace. fossil:
09c0: 3a 62 65 67 69 6e 20 5b 70 77 64 5d 20 3b 20 23 :begin [pwd] ; #
09d0: 20 55 73 65 73 20 63 77 64 20 61 73 20 77 6f 72 Uses cwd as wor
09e0: 6b 73 70 61 63 65 20 74 6f 20 63 6f 6e 6e 65 63 kspace to connec
09f0: 74 20 74 6f 2e 0a 20 20 20 20 73 74 61 74 73 3a t to.. stats:
0a00: 3a 73 65 74 75 70 20 5b 63 76 73 3a 3a 6e 74 72 :setup [cvs::ntr
0a10: 75 6e 6b 5d 20 5b 63 76 73 3a 3a 6e 63 73 65 74 unk] [cvs::ncset
0a20: 73 5d 0a 0a 20 20 20 20 63 76 73 3a 3a 66 6f 72 s].. cvs::for
0a30: 65 61 63 68 5f 63 73 65 74 20 63 73 65 74 20 5b each_cset cset [
0a40: 63 76 73 3a 3a 72 6f 6f 74 5d 20 7b 0a 09 4f 6e cvs::root] {..On
0a50: 65 43 68 61 6e 67 65 53 65 74 20 24 63 73 65 74 eChangeSet $cset
0a60: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 73 74 61 74 . }.. stat
0a70: 73 3a 3a 64 6f 6e 65 0a 20 20 20 20 63 76 73 3a s::done. cvs:
0a80: 3a 77 73 63 6c 65 61 72 0a 20 20 20 20 66 6f 73 :wsclear. fos
0a90: 73 69 6c 3a 3a 63 6c 6f 73 65 20 24 64 73 74 0a sil::close $dst.
0aa0: 0a 20 20 20 20 77 72 69 74 65 20 30 20 69 6d 70 . write 0 imp
0ab0: 6f 72 74 20 4f 6b 2e 0a 20 20 20 20 72 65 74 75 ort Ok.. retu
0ac0: 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d rn.}..# --------
0ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0b10: 2d 2d 2d 2d 2d 0a 23 20 49 6e 74 65 72 6e 61 6c -----.# Internal
0b20: 20 6f 70 65 72 61 74 69 6f 6e 73 20 2d 20 49 6d operations - Im
0b30: 70 6f 72 74 20 61 20 73 69 6e 67 6c 65 20 63 68 port a single ch
0b40: 61 6e 67 65 73 65 74 2e 0a 0a 70 72 6f 63 20 3a angeset...proc :
0b50: 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 :vc::fossil::imp
0b60: 6f 72 74 3a 3a 63 76 73 3a 3a 4f 6e 65 43 68 61 ort::cvs::OneCha
0b70: 6e 67 65 53 65 74 20 7b 63 73 65 74 7d 20 7b 0a ngeSet {cset} {.
0b80: 20 20 20 20 73 74 61 74 73 3a 3a 63 73 62 65 67 stats::csbeg
0b90: 69 6e 20 24 63 73 65 74 0a 0a 20 20 20 20 73 65 in $cset.. se
0ba0: 74 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 5b t microseconds [
0bb0: 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 7b 0a 09 lindex [time {..
0bc0: 66 6f 72 65 61 63 68 20 7b 75 73 65 72 20 6d 65 foreach {user me
0bd0: 73 73 61 67 65 20 74 69 6d 65 73 74 61 6d 70 7d ssage timestamp}
0be0: 20 5b 63 76 73 3a 3a 77 73 73 65 74 75 70 20 24 [cvs::wssetup $
0bf0: 63 73 65 74 5d 20 62 72 65 61 6b 0a 09 66 6f 72 cset] break..for
0c00: 65 61 63 68 20 7b 75 75 69 64 20 61 64 20 72 6d each {uuid ad rm
0c10: 20 63 68 7d 20 5b 66 6f 73 73 69 6c 3a 3a 63 6f ch} [fossil::co
0c20: 6d 6d 69 74 20 24 63 73 65 74 20 24 75 73 65 72 mmit $cset $user
0c30: 20 24 74 69 6d 65 73 74 61 6d 70 20 24 6d 65 73 $timestamp $mes
0c40: 73 61 67 65 5d 20 62 72 65 61 6b 0a 20 20 20 20 sage] break.
0c50: 7d 20 31 5d 20 30 5d 0a 20 20 20 20 73 65 74 20 } 1] 0]. set
0c60: 73 65 63 6f 6e 64 73 20 5b 65 78 70 72 20 7b 24 seconds [expr {$
0c70: 6d 69 63 72 6f 73 65 63 6f 6e 64 73 2f 31 65 36 microseconds/1e6
0c80: 7d 5d 0a 0a 20 20 20 20 63 76 73 3a 3a 75 75 69 }].. cvs::uui
0c90: 64 20 24 63 73 65 74 20 24 75 75 69 64 0a 20 20 d $cset $uuid.
0ca0: 20 20 77 72 69 74 65 20 32 20 69 6d 70 6f 72 74 write 2 import
0cb0: 20 22 3d 3d 20 24 75 75 69 64 20 2b 24 7b 61 64 "== $uuid +${ad
0cc0: 7d 2d 24 7b 72 6d 7d 2a 24 7b 63 68 7d 22 0a 0a }-${rm}*${ch}"..
0cd0: 20 20 20 20 73 74 61 74 73 3a 3a 63 73 65 6e 64 stats::csend
0ce0: 20 24 73 65 63 6f 6e 64 73 0a 20 20 20 20 72 65 $seconds. re
0cf0: 74 75 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d turn.}..# ------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d40: 2d 2d 2d 2d 2d 2d 2d 0a 0a 6e 61 6d 65 73 70 61 -------..namespa
0d50: 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a 3a 66 6f ce eval ::vc::fo
0d60: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 ssil::import::cv
0d70: 73 20 7b 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 s {. namespac
0d80: 65 20 65 78 70 6f 72 74 20 72 75 6e 20 63 6f 6e e export run con
0d90: 66 69 67 75 72 65 0a 7d 0a 0a 23 20 2d 2d 2d 2d figure.}..# ----
0da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0dd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0de0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 52 65 61 64 ---------.# Read
0df0: 79 0a 0a 70 61 63 6b 61 67 65 20 70 72 6f 76 69 y..package provi
0e00: 64 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 de vc::fossil::i
0e10: 6d 70 6f 72 74 3a 3a 63 76 73 20 31 2e 30 0a 72 mport::cvs 1.0.r
0e20: 65 74 75 72 6e 0a eturn.