Artifact 8b0ca8d137ec1f59e4fd80272cb939333721ac74:
File
tools/import-cvs.tcl
part of check-in
[734febe649]
- Fix calculating percentage of committed changesets.
by
aku on
2007-09-05 02:03:31.
0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 20 2d 2a 2d 20 #!/bin/sh.# -*-
0010: 74 63 6c 20 2d 2a 2d 20 5c 0a 65 78 65 63 20 74 tcl -*- \.exec t
0020: 63 6c 73 68 20 22 24 30 22 20 24 7b 31 2b 22 24 clsh "$0" ${1+"$
0030: 40 22 7d 0a 0a 23 20 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 2d ----------------
0050: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0060: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0070: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0080: 2d 2d 2d 2d 0a 0a 23 20 49 6d 70 6f 72 74 20 74 ----..# Import t
0090: 68 65 20 74 72 75 6e 6b 20 6f 66 20 61 20 43 56 he trunk of a CV
00a0: 53 20 72 65 70 6f 73 69 74 6f 72 79 20 77 68 6f S repository who
00b0: 6c 65 73 61 6c 65 20 69 6e 74 6f 20 61 20 66 6f lesale into a fo
00c0: 73 73 69 6c 20 72 65 70 6f 73 69 74 6f 72 79 2e ssil repository.
00d0: 0a 0a 23 20 4c 69 6d 69 74 61 74 69 6f 6e 73 20 ..# Limitations
00e0: 69 6d 70 6c 69 63 69 74 6c 79 20 6d 65 6e 74 69 implicitly menti
00f0: 6f 6e 65 64 3a 0a 23 20 2d 20 4e 6f 20 69 6e 63 oned:.# - No inc
0100: 72 65 6d 65 6e 74 61 6c 20 69 6d 70 6f 72 74 2e remental import.
0110: 0a 23 20 2d 20 4e 6f 20 69 6d 70 6f 72 74 20 6f .# - No import o
0120: 66 20 62 72 61 6e 63 68 65 73 2e 0a 0a 23 20 57 f branches...# W
0130: 49 42 4e 49 20 66 65 61 74 75 72 65 73 20 28 62 IBNI features (b
0140: 65 79 6f 6e 64 20 65 6c 69 6d 69 6e 61 74 69 6e eyond eliminatin
0150: 67 20 74 68 65 20 6c 69 6d 69 74 61 74 69 6f 6e g the limitation
0160: 73 29 3a 0a 23 20 2d 20 52 65 73 74 72 69 63 74 s):.# - Restrict
0170: 20 69 6d 70 6f 72 74 20 74 6f 20 73 70 65 63 69 import to speci
0180: 66 69 63 20 64 69 72 65 63 74 6f 72 79 20 73 75 fic directory su
0190: 62 74 72 65 65 73 20 28 53 46 20 70 72 6f 6a 65 btrees (SF proje
01a0: 63 74 73 20 75 73 65 0a 23 20 20 20 6f 6e 65 20 cts use.# one
01b0: 72 65 70 6f 73 69 74 6f 72 79 20 66 6f 72 20 73 repository for s
01c0: 65 76 65 72 61 6c 20 69 6e 64 65 70 65 6e 64 65 everal independe
01d0: 6e 74 20 6d 6f 64 75 6c 65 73 2e 20 45 78 61 6d nt modules. Exam
01e0: 70 6c 65 73 3a 20 74 63 6c 6c 69 62 0a 23 20 20 ples: tcllib.#
01f0: 20 2d 3e 20 74 63 6c 6c 69 62 2c 20 74 6b 6c 69 -> tcllib, tkli
0200: 62 2c 20 74 63 6c 61 70 70 73 2c 20 65 74 63 2e b, tclapps, etc.
0210: 29 2e 20 54 68 65 20 72 65 73 74 72 69 63 74 69 ). The restricti
0220: 6f 6e 20 77 6f 75 6c 64 20 61 6c 6c 6f 77 20 69 on would allow i
0230: 6d 70 6f 72 74 0a 23 20 20 20 6f 66 20 6f 6e 6c mport.# of onl
0240: 79 20 61 20 73 70 65 63 69 66 69 63 20 6d 6f 64 y a specific mod
0250: 75 6c 65 2e 0a 23 20 2d 20 52 65 6c 61 74 65 64 ule..# - Related
0260: 20 74 6f 20 74 68 65 20 70 72 65 76 69 6f 75 73 to the previous
0270: 2c 20 73 74 72 69 70 20 65 6c 65 6d 65 6e 74 73 , strip elements
0280: 20 66 72 6f 6d 20 74 68 65 20 62 61 73 65 20 70 from the base p
0290: 61 74 68 20 74 6f 20 6b 65 65 70 0a 23 20 20 20 ath to keep.#
02a0: 69 74 20 73 68 6f 72 74 2e 0a 23 20 2d 20 45 78 it short..# - Ex
02b0: 70 6f 72 74 20 74 6f 20 43 56 53 2c 20 74 72 75 port to CVS, tru
02c0: 6e 6b 2c 20 70 6f 73 73 69 62 6c 79 20 62 72 61 nk, possibly bra
02d0: 6e 63 68 65 73 2e 20 49 2e 65 2e 20 65 78 74 65 nches. I.e. exte
02e0: 6e 64 20 74 68 65 20 73 79 73 74 65 6d 20 74 6f nd the system to
02f0: 20 62 65 0a 23 20 20 20 61 20 66 75 6c 6c 20 62 be.# a full b
0300: 72 69 64 67 65 2e 20 45 69 74 68 65 72 20 46 6f ridge. Either Fo
0310: 73 73 69 6c 20 6f 72 20 43 56 53 20 63 6f 75 6c ssil or CVS coul
0320: 64 20 62 65 20 74 68 65 20 6d 61 73 74 65 72 20 d be the master
0330: 72 65 70 6f 73 69 74 6f 72 79 2e 0a 0a 23 20 48 repository...# H
0340: 41 43 4b 53 2e 20 49 2e 65 2e 20 49 20 64 6f 20 ACKS. I.e. I do
0350: 6e 6f 74 20 6b 6e 6f 77 20 69 66 20 74 68 65 20 not know if the
0360: 27 66 69 78 65 73 27 20 49 20 75 73 65 20 61 72 'fixes' I use ar
0370: 65 20 74 68 65 20 63 6f 72 72 65 63 74 20 77 61 e the correct wa
0380: 79 0a 23 20 20 20 20 20 20 20 20 6f 66 20 68 61 y.# of ha
0390: 6e 64 6c 69 6e 67 20 74 68 65 20 65 6e 63 6f 75 ndling the encou
03a0: 6e 74 65 72 65 64 20 73 69 74 75 61 74 69 6f 6e ntered situation
03b0: 73 2e 0a 23 0a 23 20 2d 20 46 69 6c 65 20 46 20 s..#.# - File F
03c0: 68 61 73 20 61 72 63 68 69 76 65 73 20 46 2c 76 has archives F,v
03d0: 20 61 6e 64 20 41 74 74 69 63 2f 46 2c 76 2e 20 and Attic/F,v.
03e0: 43 75 72 72 65 6e 74 6c 79 20 49 20 77 69 6c 6c Currently I will
03f0: 20 69 67 6e 6f 72 65 20 74 68 65 0a 23 20 20 20 ignore the.#
0400: 66 69 6c 65 20 69 6e 20 74 68 65 20 41 74 74 69 file in the Atti
0410: 63 2e 0a 23 20 20 20 45 78 61 6d 70 6c 65 73 3a c..# Examples:
0420: 20 73 71 6c 69 74 65 2f 6f 73 5f 75 6e 69 78 2e sqlite/os_unix.
0430: 68 0a 23 0a 23 20 2d 20 41 20 73 70 65 63 69 66 h.#.# - A specif
0440: 69 63 20 72 65 76 69 73 69 6f 6e 20 6f 66 20 61 ic revision of a
0450: 20 66 69 6c 65 20 46 20 63 61 6e 6e 6f 74 20 62 file F cannot b
0460: 65 20 63 68 65 63 6b 65 64 20 6f 75 74 20 28 72 e checked out (r
0470: 65 70 6f 72 74 65 64 0a 23 20 20 20 65 72 72 6f eported.# erro
0480: 72 20 69 73 20 27 69 6e 76 61 6c 69 64 20 63 68 r is 'invalid ch
0490: 61 6e 67 65 20 74 65 78 74 27 29 2e 20 54 68 69 ange text'). Thi
04a0: 73 20 69 6e 64 69 63 61 74 65 73 20 61 20 63 6f s indicates a co
04b0: 72 72 75 70 74 20 52 43 53 0a 23 20 20 20 66 69 rrupt RCS.# fi
04c0: 6c 65 2c 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 le, one or more
04d0: 64 65 6c 74 61 20 61 72 65 20 62 61 64 2e 20 57 delta are bad. W
04e0: 65 20 72 65 70 6f 72 74 20 62 75 74 20 69 67 6e e report but ign
04f0: 6f 72 65 20 74 68 65 20 70 72 6f 62 6c 65 6d 0a ore the problem.
0500: 23 20 20 20 69 6e 20 61 20 62 65 73 74 2d 65 66 # in a best-ef
0510: 66 6f 72 74 20 61 74 74 65 6d 70 74 20 61 74 20 fort attempt at
0520: 67 65 74 74 69 6e 67 20 61 73 20 6d 75 63 68 20 getting as much
0530: 68 69 73 74 6f 72 79 20 61 73 20 70 6f 73 73 69 history as possi
0540: 62 6c 65 2e 0a 23 20 20 20 45 78 61 6d 70 6c 65 ble..# Example
0550: 73 3a 20 74 63 6c 6c 69 62 2f 74 6b 6c 69 62 2f s: tcllib/tklib/
0560: 6d 6f 64 75 6c 65 73 2f 74 6b 70 69 65 63 68 61 modules/tkpiecha
0570: 72 74 2f 70 69 65 2e 74 63 6c 0a 0a 23 20 2d 2d rt/pie.tcl..# --
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 2d 2d 2d ----------------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 4d 61 -----------.# Ma
05d0: 6b 65 20 70 72 69 76 61 74 65 20 70 61 63 6b 61 ke private packa
05e0: 67 65 73 20 61 63 63 65 73 73 69 62 6c 65 2e 0a ges accessible..
05f0: 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 .lappend auto_pa
0600: 74 68 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 66 th [file join [f
0610: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 ile dirname [inf
0620: 6f 20 73 63 72 69 70 74 5d 5d 20 6c 69 62 5d 0a o script]] lib].
0630: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .# -------------
0640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0670: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0680: 0a 23 20 52 65 71 75 69 72 65 6d 65 6e 74 73 0a .# Requirements.
0690: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
06a0: 20 54 63 6c 20 38 2e 34 0a 70 61 63 6b 61 67 65 Tcl 8.4.package
06b0: 20 72 65 71 75 69 72 65 20 63 76 73 20 20 20 20 require cvs
06c0: 3b 20 23 20 46 72 6f 6e 74 65 6e 64 2c 20 72 65 ; # Frontend, re
06d0: 61 64 69 6e 67 20 66 72 6f 6d 20 73 6f 75 72 63 ading from sourc
06e0: 65 20 72 65 70 6f 73 69 74 6f 72 79 0a 70 61 63 e repository.pac
06f0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 66 6f 73 kage require fos
0700: 73 69 6c 20 3b 20 23 20 42 61 63 6b 65 6e 64 2c sil ; # Backend,
0710: 20 20 77 72 69 74 69 6e 67 20 74 6f 20 64 65 73 writing to des
0720: 74 69 6e 61 74 69 6f 6e 20 72 65 70 6f 73 69 74 tination reposit
0730: 6f 72 79 2e 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d ory...# --------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0770: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0780: 2d 2d 2d 2d 2d 0a 0a 70 72 6f 63 20 6d 61 69 6e -----..proc main
0790: 20 7b 7d 20 7b 0a 20 20 20 20 67 6c 6f 62 61 6c {} {. global
07a0: 20 61 72 67 76 20 74 6f 74 20 6e 74 6f 20 63 76 argv tot nto cv
07b0: 73 20 66 6f 73 73 69 6c 20 6e 74 72 75 6e 6b 0a s fossil ntrunk.
07c0: 0a 20 20 20 20 63 6f 6d 6d 61 6e 64 6c 69 6e 65 . commandline
07d0: 0a 0a 20 20 20 20 66 6f 73 73 69 6c 3a 3a 66 65 .. fossil::fe
07e0: 65 64 62 61 63 6b 20 57 72 69 74 65 20 3b 20 23 edback Write ; #
07f0: 20 53 65 74 75 70 20 70 72 6f 67 72 65 73 73 20 Setup progress
0800: 66 65 65 64 62 61 63 6b 20 66 72 6f 6d 20 74 68 feedback from th
0810: 65 20 6c 69 62 72 61 72 69 65 73 0a 20 20 20 20 e libraries.
0820: 63 76 73 3a 3a 66 65 65 64 62 61 63 6b 20 20 20 cvs::feedback
0830: 20 57 72 69 74 65 0a 0a 20 20 20 20 63 76 73 3a Write.. cvs:
0840: 3a 61 74 20 20 20 20 20 20 20 24 63 76 73 20 20 :at $cvs
0850: 3b 20 23 20 44 65 66 69 6e 65 20 6c 6f 63 61 74 ; # Define locat
0860: 69 6f 6e 20 6f 66 20 43 56 53 20 72 65 70 6f 73 ion of CVS repos
0870: 69 74 6f 72 79 0a 20 20 20 20 63 76 73 3a 3a 73 itory. cvs::s
0880: 63 61 6e 20 20 20 20 20 20 20 20 20 20 20 3b 20 can ;
0890: 23 20 47 61 74 68 65 72 20 72 65 76 69 73 69 6f # Gather revisio
08a0: 6e 20 64 61 74 61 20 66 72 6f 6d 20 74 68 65 20 n data from the
08b0: 61 72 63 68 69 76 65 73 0a 20 20 20 20 63 76 73 archives. cvs
08c0: 3a 3a 63 73 65 74 73 20 20 20 20 20 20 20 20 20 ::csets
08d0: 20 3b 20 23 20 47 72 6f 75 70 20 63 68 61 6e 67 ; # Group chang
08e0: 65 73 20 69 6e 74 6f 20 73 65 74 73 0a 20 20 20 es into sets.
08f0: 20 63 76 73 3a 3a 72 74 72 65 65 20 20 20 20 20 cvs::rtree
0900: 20 20 20 20 20 3b 20 23 20 42 75 69 6c 64 20 72 ; # Build r
0910: 65 76 69 73 69 6f 6e 20 74 72 65 65 20 28 74 72 evision tree (tr
0920: 75 6e 6b 20 6f 6e 6c 79 20 72 69 67 68 74 20 6e unk only right n
0930: 6f 77 29 2e 0a 0a 20 20 20 20 73 65 74 20 74 6f ow)... set to
0940: 74 20 30 2e 30 0a 20 20 20 20 73 65 74 20 6e 74 t 0.0. set nt
0950: 6f 20 30 0a 0a 20 20 20 20 57 72 69 74 65 20 69 o 0.. Write i
0960: 6e 66 6f 20 7b 49 6d 70 6f 72 74 69 6e 67 20 2e nfo {Importing .
0970: 2e 2e 7d 0a 20 20 20 20 57 72 69 74 65 20 69 6e ..}. Write in
0980: 66 6f 20 7b 20 20 20 20 53 65 74 74 69 6e 67 20 fo { Setting
0990: 75 70 20 63 76 73 20 77 6f 72 6b 73 70 61 63 65 up cvs workspace
09a0: 20 61 6e 64 20 74 65 6d 70 6f 72 61 72 79 20 66 and temporary f
09b0: 6f 73 73 69 6c 20 72 65 70 6f 73 69 74 6f 72 79 ossil repository
09c0: 7d 0a 0a 20 20 20 20 63 76 73 3a 3a 77 6f 72 6b }.. cvs::work
09d0: 73 70 61 63 65 20 3b 20 23 20 63 64 27 73 20 74 space ; # cd's t
09e0: 6f 20 77 6f 72 6b 73 70 61 63 65 0a 20 20 20 20 o workspace.
09f0: 66 6f 73 73 69 6c 3a 3a 6e 65 77 20 20 20 20 3b fossil::new ;
0a00: 20 23 20 55 73 65 73 20 63 77 64 20 61 73 20 77 # Uses cwd as w
0a10: 6f 72 6b 73 70 61 63 65 20 74 6f 20 63 6f 6e 6e orkspace to conn
0a20: 65 63 74 20 74 6f 2e 0a 0a 20 20 20 20 73 65 74 ect to... set
0a30: 20 6e 74 72 75 6e 6b 20 5b 63 76 73 3a 3a 6e 74 ntrunk [cvs::nt
0a40: 72 75 6e 6b 5d 0a 20 20 20 20 63 76 73 3a 3a 66 runk]. cvs::f
0a50: 6f 72 65 61 63 68 5f 63 73 65 74 20 63 73 65 74 oreach_cset cset
0a60: 20 5b 63 76 73 3a 3a 72 6f 6f 74 5d 20 7b 0a 09 [cvs::root] {..
0a70: 69 6d 70 6f 72 74 20 24 63 73 65 74 0a 20 20 20 import $cset.
0a80: 20 7d 0a 20 20 20 20 63 76 73 3a 3a 77 73 63 6c }. cvs::wscl
0a90: 65 61 72 0a 0a 20 20 20 20 57 72 69 74 65 20 69 ear.. Write i
0aa0: 6e 66 6f 20 22 20 20 20 20 3d 3d 3d 3d 3d 3d 3d nfo " =======
0ab0: 3d 3d 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 == [string repea
0ac0: 74 20 3d 20 36 31 5d 22 0a 20 20 20 20 57 72 69 t = 61]". Wri
0ad0: 74 65 20 69 6e 66 6f 20 22 20 20 20 20 49 6d 70 te info " Imp
0ae0: 6f 72 74 65 64 20 24 6e 74 6f 20 5b 65 78 70 72 orted $nto [expr
0af0: 20 7b 28 24 6e 74 6f 20 3d 3d 20 31 29 20 3f 20 {($nto == 1) ?
0b00: 22 63 68 61 6e 67 65 73 65 74 22 20 3a 20 22 63 "changeset" : "c
0b10: 68 61 6e 67 65 73 65 74 73 22 7d 5d 22 0a 20 20 hangesets"}]".
0b20: 20 20 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 Write info "
0b30: 20 20 57 69 74 68 69 6e 20 5b 66 6f 72 6d 61 74 Within [format
0b40: 20 25 2e 32 66 20 24 74 6f 74 5d 20 73 65 63 6f %.2f $tot] seco
0b50: 6e 64 73 20 28 61 76 67 20 5b 66 6f 72 6d 61 74 nds (avg [format
0b60: 20 25 2e 32 66 20 5b 65 78 70 72 20 7b 24 74 6f %.2f [expr {$to
0b70: 74 2f 24 6e 74 6f 7d 5d 5d 20 73 65 63 6f 6e 64 t/$nto}]] second
0b80: 73 2f 63 68 61 6e 67 65 73 65 74 29 22 0a 0a 20 s/changeset)"..
0b90: 20 20 20 57 72 69 74 65 20 69 6e 66 6f 20 7b 20 Write info {
0ba0: 20 20 20 4d 6f 76 69 6e 67 20 74 6f 20 66 69 6e Moving to fin
0bb0: 61 6c 20 64 65 73 74 69 6e 61 74 69 6f 6e 7d 0a al destination}.
0bc0: 0a 20 20 20 20 66 6f 73 73 69 6c 3a 3a 64 65 73 . fossil::des
0bd0: 74 69 6e 61 74 69 6f 6e 20 24 66 6f 73 73 69 6c tination $fossil
0be0: 0a 0a 20 20 20 20 57 72 69 74 65 20 69 6e 66 6f .. Write info
0bf0: 20 4f 6b 2e 0a 20 20 20 20 72 65 74 75 72 6e 0a Ok.. return.
0c00: 7d 0a 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }...# ----------
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 0a 0a 70 72 6f 63 20 63 6f 6d 6d 61 6e ---..proc comman
0c60: 64 6c 69 6e 65 20 7b 7d 20 7b 0a 20 20 20 20 67 dline {} {. g
0c70: 6c 6f 62 61 6c 20 61 72 67 76 20 63 76 73 20 66 lobal argv cvs f
0c80: 6f 73 73 69 6c 20 6e 6f 73 69 67 6e 20 6c 6f 67 ossil nosign log
0c90: 20 64 65 62 75 67 63 6f 6d 6d 69 74 0a 0a 20 20 debugcommit..
0ca0: 20 20 73 65 74 20 6e 6f 73 69 67 6e 20 30 0a 20 set nosign 0.
0cb0: 20 20 20 73 65 74 20 64 65 62 75 67 63 6f 6d 6d set debugcomm
0cc0: 69 74 20 30 0a 0a 20 20 20 20 77 68 69 6c 65 20 it 0.. while
0cd0: 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 22 {[string match "
0ce0: 2d 2a 22 20 5b 73 65 74 20 6f 70 74 20 5b 6c 69 -*" [set opt [li
0cf0: 6e 64 65 78 20 24 61 72 67 76 20 30 5d 5d 5d 7d ndex $argv 0]]]}
0d00: 20 7b 0a 09 69 66 20 7b 24 6f 70 74 20 65 71 20 {..if {$opt eq
0d10: 22 2d 2d 6e 6f 73 69 67 6e 22 7d 20 7b 0a 09 20 "--nosign"} {..
0d20: 20 20 20 73 65 74 20 6e 6f 73 69 67 6e 20 31 0a set nosign 1.
0d30: 09 20 20 20 20 73 65 74 20 61 72 67 76 20 5b 6c . set argv [l
0d40: 72 61 6e 67 65 20 24 61 72 67 76 20 31 20 65 6e range $argv 1 en
0d50: 64 5d 0a 09 20 20 20 20 63 6f 6e 74 69 6e 75 65 d].. continue
0d60: 0a 09 7d 0a 09 69 66 20 7b 24 6f 70 74 20 65 71 ..}..if {$opt eq
0d70: 20 22 2d 2d 64 65 62 75 67 63 6f 6d 6d 69 74 22 "--debugcommit"
0d80: 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 64 65 62 } {.. set deb
0d90: 75 67 63 6f 6d 6d 69 74 20 31 0a 09 20 20 20 20 ugcommit 1..
0da0: 73 65 74 20 61 72 67 76 20 5b 6c 72 61 6e 67 65 set argv [lrange
0db0: 20 24 61 72 67 76 20 31 20 65 6e 64 5d 0a 09 20 $argv 1 end]..
0dc0: 20 20 20 63 6f 6e 74 69 6e 75 65 0a 09 7d 0a 09 continue..}..
0dd0: 75 73 61 67 65 0a 20 20 20 20 7d 0a 20 20 20 20 usage. }.
0de0: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 if {[llength $ar
0df0: 67 76 5d 20 21 3d 20 32 7d 20 75 73 61 67 65 0a gv] != 2} usage.
0e00: 20 20 20 20 66 6f 72 65 61 63 68 20 7b 63 76 73 foreach {cvs
0e10: 20 66 6f 73 73 69 6c 7d 20 24 61 72 67 76 20 62 fossil} $argv b
0e20: 72 65 61 6b 0a 0a 20 20 20 20 69 66 20 7b 0a 09 reak.. if {..
0e30: 21 5b 66 69 6c 65 20 65 78 69 73 74 73 20 20 20 ![file exists
0e40: 20 20 20 24 63 76 73 5d 20 7c 7c 0a 09 21 5b 66 $cvs] ||..![f
0e50: 69 6c 65 20 72 65 61 64 61 62 6c 65 20 20 20 20 ile readable
0e60: 24 63 76 73 5d 20 7c 7c 0a 09 21 5b 66 69 6c 65 $cvs] ||..![file
0e70: 20 69 73 64 69 72 65 63 74 6f 72 79 20 24 63 76 isdirectory $cv
0e80: 73 5d 0a 20 20 20 20 7d 20 7b 0a 09 75 73 61 67 s]. } {..usag
0e90: 65 20 22 43 56 53 20 64 69 72 65 63 74 6f 72 79 e "CVS directory
0ea0: 20 6d 69 73 73 69 6e 67 2c 20 6e 6f 74 20 72 65 missing, not re
0eb0: 61 64 61 62 6c 65 2c 20 6f 72 20 6e 6f 74 20 61 adable, or not a
0ec0: 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 20 directory.".
0ed0: 20 7d 20 65 6c 73 65 69 66 20 7b 5b 66 69 6c 65 } elseif {[file
0ee0: 20 65 78 69 73 74 73 20 24 66 6f 73 73 69 6c 5d exists $fossil]
0ef0: 7d 20 7b 0a 09 75 73 61 67 65 20 22 46 6f 73 73 } {..usage "Foss
0f00: 69 6c 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 72 il destination r
0f10: 65 70 6f 73 69 74 6f 72 79 20 65 78 69 73 74 73 epository exists
0f20: 20 61 6c 72 65 61 64 79 2e 22 0a 20 20 20 20 7d already.". }
0f30: 0a 0a 20 20 20 20 73 65 74 20 6c 6f 67 20 5b 6f .. set log [o
0f40: 70 65 6e 20 24 7b 66 6f 73 73 69 6c 7d 2e 6c 6f pen ${fossil}.lo
0f50: 67 20 77 5d 0a 0a 20 20 20 20 66 6f 73 73 69 6c g w].. fossil
0f60: 3a 3a 64 65 62 75 67 63 6f 6d 6d 69 74 20 24 64 ::debugcommit $d
0f70: 65 62 75 67 63 6f 6d 6d 69 74 0a 20 20 20 20 72 ebugcommit. r
0f80: 65 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 75 73 eturn.}..proc us
0f90: 61 67 65 20 7b 7b 74 65 78 74 20 7b 7d 7d 7d 20 age {{text {}}}
0fa0: 7b 0a 20 20 20 20 67 6c 6f 62 61 6c 20 61 72 67 {. global arg
0fb0: 76 30 0a 20 20 20 20 70 75 74 73 20 73 74 64 65 v0. puts stde
0fc0: 72 72 20 22 55 73 61 67 65 3a 20 24 61 72 67 76 rr "Usage: $argv
0fd0: 30 20 3f 2d 2d 6e 6f 73 69 67 6e 3f 20 63 76 73 0 ?--nosign? cvs
0fe0: 2d 72 65 70 6f 73 69 74 6f 72 79 20 66 6f 73 73 -repository foss
0ff0: 69 6c 2d 72 70 65 6f 73 69 74 6f 72 79 22 0a 20 il-rpeository".
1000: 20 20 20 69 66 20 7b 24 74 65 78 74 20 65 71 20 if {$text eq
1010: 22 22 7d 20 72 65 74 75 72 6e 0a 20 20 20 20 70 ""} return. p
1020: 75 74 73 20 73 74 64 65 72 72 20 22 20 20 20 20 uts stderr "
1030: 20 20 20 24 74 65 78 74 22 0a 20 20 20 20 65 78 $text". ex
1040: 69 74 0a 7d 0a 0a 70 72 6f 63 20 69 6d 70 6f 72 it.}..proc impor
1050: 74 20 7b 63 73 65 74 7d 20 7b 0a 20 20 20 20 67 t {cset} {. g
1060: 6c 6f 62 61 6c 20 74 6f 74 20 6e 74 6f 20 6e 6f lobal tot nto no
1070: 73 69 67 6e 20 6e 74 72 75 6e 6b 0a 20 20 20 20 sign ntrunk.
1080: 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 20 20 Write info "
1090: 49 6d 70 6f 72 74 69 6e 67 20 24 63 73 65 74 20 Importing $cset
10a0: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 3d [string repeat =
10b0: 20 5b 65 78 70 72 20 7b 36 30 20 2d 20 5b 73 74 [expr {60 - [st
10c0: 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 63 73 65 ring length $cse
10d0: 74 5d 7d 5d 5d 22 0a 20 20 20 20 57 72 69 74 65 t]}]]". Write
10e0: 20 69 6e 66 6f 20 22 20 20 20 20 20 20 20 20 41 info " A
10f0: 74 20 24 6e 74 6f 2f 24 6e 74 72 75 6e 6b 20 28 t $nto/$ntrunk (
1100: 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 5b 65 78 [format %.2f [ex
1110: 70 72 20 7b 24 6e 74 6f 2a 31 30 30 2e 30 2f 24 pr {$nto*100.0/$
1120: 6e 74 72 75 6e 6b 7d 5d 5d 25 29 22 0a 0a 20 20 ntrunk}]]%)"..
1130: 20 20 73 65 74 20 75 73 65 63 20 5b 6c 69 6e 64 set usec [lind
1140: 65 78 20 5b 74 69 6d 65 20 7b 0a 09 66 6f 72 65 ex [time {..fore
1150: 61 63 68 20 7b 75 75 69 64 20 61 64 20 72 6d 20 ach {uuid ad rm
1160: 63 68 7d 20 5b 66 6f 73 73 69 6c 3a 3a 63 6f 6d ch} [fossil::com
1170: 6d 69 74 20 63 76 73 32 66 6f 73 73 69 6c 20 24 mit cvs2fossil $
1180: 6e 6f 73 69 67 6e 20 5c 0a 09 09 09 09 20 20 20 nosign \.....
1190: 20 20 5b 63 76 73 3a 3a 77 73 73 65 74 75 70 20 [cvs::wssetup
11a0: 24 63 73 65 74 5d 20 5c 0a 09 09 09 09 20 20 20 $cset] \.....
11b0: 20 20 3a 3a 63 76 73 3a 3a 77 73 69 67 6e 6f 72 ::cvs::wsignor
11c0: 65 5d 20 62 72 65 61 6b 0a 20 20 20 20 7d 20 31 e] break. } 1
11d0: 5d 20 30 5d 0a 20 20 20 20 63 76 73 3a 3a 75 75 ] 0]. cvs::uu
11e0: 69 64 20 24 63 73 65 74 20 24 75 75 69 64 0a 0a id $cset $uuid..
11f0: 20 20 20 20 73 65 74 20 73 65 63 20 5b 65 78 70 set sec [exp
1200: 72 20 7b 24 75 73 65 63 2f 31 65 36 7d 5d 0a 20 r {$usec/1e6}].
1210: 20 20 20 73 65 74 20 74 6f 74 20 5b 65 78 70 72 set tot [expr
1220: 20 7b 24 74 6f 74 20 2b 20 24 73 65 63 7d 5d 0a {$tot + $sec}].
1230: 20 20 20 20 69 6e 63 72 20 6e 74 6f 0a 0a 20 20 incr nto..
1240: 20 20 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 Write info "
1250: 20 20 20 20 20 20 3d 3d 20 24 75 75 69 64 20 2b == $uuid +
1260: 24 7b 61 64 7d 2d 24 7b 72 6d 7d 2a 24 7b 63 68 ${ad}-${rm}*${ch
1270: 7d 22 0a 20 20 20 20 57 72 69 74 65 20 69 6e 66 }". Write inf
1280: 6f 20 22 20 20 20 20 20 20 20 20 69 6e 20 24 73 o " in $s
1290: 65 63 20 73 65 63 6f 6e 64 73 22 0a 0a 20 20 20 ec seconds"..
12a0: 20 73 65 74 20 61 76 67 20 5b 65 78 70 72 20 7b set avg [expr {
12b0: 24 74 6f 74 2f 24 6e 74 6f 7d 5d 0a 20 20 20 20 $tot/$nto}].
12c0: 73 65 74 20 6d 61 78 20 5b 65 78 70 72 20 7b 24 set max [expr {$
12d0: 6e 74 72 75 6e 6b 20 2a 20 24 61 76 67 7d 5d 0a ntrunk * $avg}].
12e0: 20 20 20 20 73 65 74 20 72 65 6d 20 5b 65 78 70 set rem [exp
12f0: 72 20 7b 24 6d 61 78 20 2d 20 24 74 6f 74 7d 5d r {$max - $tot}]
1300: 0a 0a 20 20 20 20 57 72 69 74 65 20 69 6e 66 6f .. Write info
1310: 20 22 20 20 20 20 20 20 20 20 73 74 20 61 76 67 " st avg
1320: 20 5b 66 6f 72 6d 61 74 20 25 2e 32 66 20 24 61 [format %.2f $a
1330: 76 67 5d 22 0a 20 20 20 20 57 72 69 74 65 20 69 vg]". Write i
1340: 6e 66 6f 20 22 20 20 20 20 20 20 20 20 73 74 20 nfo " st
1350: 72 75 6e 20 5b 66 6f 72 6d 61 74 20 25 37 2e 32 run [format %7.2
1360: 66 20 24 74 6f 74 5d 20 73 65 63 20 5b 66 6f 72 f $tot] sec [for
1370: 6d 61 74 20 25 36 2e 32 66 20 5b 65 78 70 72 20 mat %6.2f [expr
1380: 7b 24 74 6f 74 2f 36 30 7d 5d 5d 20 6d 69 6e 20 {$tot/60}]] min
1390: 5b 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 5b 65 [format %5.2f [e
13a0: 78 70 72 20 7b 24 74 6f 74 2f 33 36 30 30 7d 5d xpr {$tot/3600}]
13b0: 5d 20 68 72 22 0a 20 20 20 20 57 72 69 74 65 20 ] hr". Write
13c0: 69 6e 66 6f 20 22 20 20 20 20 20 20 20 20 73 74 info " st
13d0: 20 65 6e 64 20 5b 66 6f 72 6d 61 74 20 25 37 2e end [format %7.
13e0: 32 66 20 24 6d 61 78 5d 20 73 65 63 20 5b 66 6f 2f $max] sec [fo
13f0: 72 6d 61 74 20 25 36 2e 32 66 20 5b 65 78 70 72 rmat %6.2f [expr
1400: 20 7b 24 6d 61 78 2f 36 30 7d 5d 5d 20 6d 69 6e {$max/60}]] min
1410: 20 5b 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 5b [format %5.2f [
1420: 65 78 70 72 20 7b 24 6d 61 78 2f 33 36 30 30 7d expr {$max/3600}
1430: 5d 5d 20 68 72 22 0a 20 20 20 20 57 72 69 74 65 ]] hr". Write
1440: 20 69 6e 66 6f 20 22 20 20 20 20 20 20 20 20 73 info " s
1450: 74 20 72 65 6d 20 5b 66 6f 72 6d 61 74 20 25 37 t rem [format %7
1460: 2e 32 66 20 24 72 65 6d 5d 20 73 65 63 20 5b 66 .2f $rem] sec [f
1470: 6f 72 6d 61 74 20 25 36 2e 32 66 20 5b 65 78 70 ormat %6.2f [exp
1480: 72 20 7b 24 72 65 6d 2f 36 30 7d 5d 5d 20 6d 69 r {$rem/60}]] mi
1490: 6e 20 5b 66 6f 72 6d 61 74 20 25 35 2e 32 66 20 n [format %5.2f
14a0: 5b 65 78 70 72 20 7b 24 72 65 6d 2f 33 36 30 30 [expr {$rem/3600
14b0: 7d 5d 5d 20 68 72 22 0a 20 20 20 20 72 65 74 75 }]] hr". retu
14c0: 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d rn.}..# --------
14d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
14f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1500: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1510: 2d 2d 2d 2d 2d 0a 0a 61 72 72 61 79 20 73 65 74 -----..array set
1520: 20 66 6c 20 7b 0a 20 20 20 20 64 65 62 75 67 20 fl {. debug
1530: 20 20 7b 44 45 42 55 47 20 20 7d 0a 20 20 20 20 {DEBUG }.
1540: 69 6e 66 6f 20 20 20 20 7b 20 20 20 20 20 20 20 info {
1550: 7d 0a 20 20 20 20 77 61 72 6e 69 6e 67 20 7b 57 }. warning {W
1560: 61 72 6e 69 6e 67 7d 0a 20 20 20 20 65 72 72 6f arning}. erro
1570: 72 20 20 20 7b 45 52 52 4f 52 20 20 7d 0a 7d 0a r {ERROR }.}.
1580: 0a 70 72 6f 63 20 57 72 69 74 65 20 7b 6c 20 74 .proc Write {l t
1590: 7d 20 7b 0a 20 20 20 20 67 6c 6f 62 61 6c 20 66 } {. global f
15a0: 6c 20 6c 6f 67 0a 0a 20 20 20 20 69 66 20 7b 5b l log.. if {[
15b0: 73 74 72 69 6e 67 20 69 6e 64 65 78 20 24 74 20 string index $t
15c0: 30 5d 20 65 71 20 22 5c 72 22 7d 20 7b 0a 09 70 0] eq "\r"} {..p
15d0: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 73 uts -nonewline s
15e0: 74 64 6f 75 74 20 22 5c 72 24 66 6c 28 24 6c 29 tdout "\r$fl($l)
15f0: 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 [string range $
1600: 74 20 30 20 65 6e 64 2d 31 5d 22 0a 20 20 20 20 t 0 end-1]".
1610: 7d 20 65 6c 73 65 20 7b 0a 09 70 75 74 73 20 73 } else {..puts s
1620: 74 64 6f 75 74 20 22 24 66 6c 28 24 6c 29 20 24 tdout "$fl($l) $
1630: 74 22 0a 09 70 75 74 73 20 24 6c 6f 67 20 20 20 t"..puts $log
1640: 22 24 66 6c 28 24 6c 29 20 24 74 22 0a 20 20 20 "$fl($l) $t".
1650: 20 7d 0a 20 20 20 20 66 6c 75 73 68 20 73 74 64 }. flush std
1660: 6f 75 74 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d out. return.}
1670: 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ..# ------------
1680: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1690: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
16c0: 2d 0a 0a 6d 61 69 6e 0a 65 78 69 74 0a -..main.exit.