Artifact f419734d964379d6b17d7b6019ac6fbfb4298e08:
File
tools/import-cvs.tcl
part of check-in
[8469631cc9]
- Extended import app with switch to stop execution just before a specific changeset, to aid in debugging problems.
by
aku on
2007-09-08 03:48:40.
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 20 s fossil ntrunk
07c0: 73 74 6f 70 61 74 0a 0a 20 20 20 20 63 6f 6d 6d stopat.. comm
07d0: 61 6e 64 6c 69 6e 65 0a 0a 20 20 20 20 66 6f 73 andline.. fos
07e0: 73 69 6c 3a 3a 66 65 65 64 62 61 63 6b 20 57 72 sil::feedback Wr
07f0: 69 74 65 20 3b 20 23 20 53 65 74 75 70 20 70 72 ite ; # Setup pr
0800: 6f 67 72 65 73 73 20 66 65 65 64 62 61 63 6b 20 ogress feedback
0810: 66 72 6f 6d 20 74 68 65 20 6c 69 62 72 61 72 69 from the librari
0820: 65 73 0a 20 20 20 20 63 76 73 3a 3a 66 65 65 64 es. cvs::feed
0830: 62 61 63 6b 20 20 20 20 57 72 69 74 65 0a 0a 20 back Write..
0840: 20 20 20 63 76 73 3a 3a 61 74 20 20 20 20 20 20 cvs::at
0850: 20 24 63 76 73 20 20 3b 20 23 20 44 65 66 69 6e $cvs ; # Defin
0860: 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 43 56 e location of CV
0870: 53 20 72 65 70 6f 73 69 74 6f 72 79 0a 20 20 20 S repository.
0880: 20 63 76 73 3a 3a 73 63 61 6e 20 20 20 20 20 20 cvs::scan
0890: 20 20 20 20 20 3b 20 23 20 47 61 74 68 65 72 20 ; # Gather
08a0: 72 65 76 69 73 69 6f 6e 20 64 61 74 61 20 66 72 revision data fr
08b0: 6f 6d 20 74 68 65 20 61 72 63 68 69 76 65 73 0a om the archives.
08c0: 20 20 20 20 63 76 73 3a 3a 63 73 65 74 73 20 20 cvs::csets
08d0: 20 20 20 20 20 20 20 20 3b 20 23 20 47 72 6f 75 ; # Grou
08e0: 70 20 63 68 61 6e 67 65 73 20 69 6e 74 6f 20 73 p changes into s
08f0: 65 74 73 0a 20 20 20 20 63 76 73 3a 3a 72 74 72 ets. cvs::rtr
0900: 65 65 20 20 20 20 20 20 20 20 20 20 3b 20 23 20 ee ; #
0910: 42 75 69 6c 64 20 72 65 76 69 73 69 6f 6e 20 74 Build revision t
0920: 72 65 65 20 28 74 72 75 6e 6b 20 6f 6e 6c 79 20 ree (trunk only
0930: 72 69 67 68 74 20 6e 6f 77 29 2e 0a 0a 20 20 20 right now)...
0940: 20 73 65 74 20 74 6f 74 20 30 2e 30 0a 20 20 20 set tot 0.0.
0950: 20 73 65 74 20 6e 74 6f 20 30 0a 0a 20 20 20 20 set nto 0..
0960: 57 72 69 74 65 20 69 6e 66 6f 20 7b 49 6d 70 6f Write info {Impo
0970: 72 74 69 6e 67 20 2e 2e 2e 7d 0a 20 20 20 20 57 rting ...}. W
0980: 72 69 74 65 20 69 6e 66 6f 20 7b 20 20 20 20 53 rite info { S
0990: 65 74 74 69 6e 67 20 75 70 20 63 76 73 20 77 6f etting up cvs wo
09a0: 72 6b 73 70 61 63 65 20 61 6e 64 20 74 65 6d 70 rkspace and temp
09b0: 6f 72 61 72 79 20 66 6f 73 73 69 6c 20 72 65 70 orary fossil rep
09c0: 6f 73 69 74 6f 72 79 7d 0a 0a 20 20 20 20 63 76 ository}.. cv
09d0: 73 3a 3a 77 6f 72 6b 73 70 61 63 65 20 3b 20 23 s::workspace ; #
09e0: 20 63 64 27 73 20 74 6f 20 77 6f 72 6b 73 70 61 cd's to workspa
09f0: 63 65 0a 20 20 20 20 66 6f 73 73 69 6c 3a 3a 6e ce. fossil::n
0a00: 65 77 20 20 20 20 3b 20 23 20 55 73 65 73 20 63 ew ; # Uses c
0a10: 77 64 20 61 73 20 77 6f 72 6b 73 70 61 63 65 20 wd as workspace
0a20: 74 6f 20 63 6f 6e 6e 65 63 74 20 74 6f 2e 0a 0a to connect to...
0a30: 20 20 20 20 73 65 74 20 6e 74 72 75 6e 6b 20 5b set ntrunk [
0a40: 63 76 73 3a 3a 6e 74 72 75 6e 6b 5d 0a 20 20 20 cvs::ntrunk].
0a50: 20 63 76 73 3a 3a 66 6f 72 65 61 63 68 5f 63 73 cvs::foreach_cs
0a60: 65 74 20 63 73 65 74 20 5b 63 76 73 3a 3a 72 6f et cset [cvs::ro
0a70: 6f 74 5d 20 7b 0a 09 69 6d 70 6f 72 74 20 24 63 ot] {..import $c
0a80: 73 65 74 0a 09 69 66 20 7b 24 73 74 6f 70 61 74 set..if {$stopat
0a90: 20 3d 3d 20 24 63 73 65 74 7d 20 65 78 69 74 0a == $cset} exit.
0aa0: 20 20 20 20 7d 0a 20 20 20 20 63 76 73 3a 3a 77 }. cvs::w
0ab0: 73 63 6c 65 61 72 0a 0a 20 20 20 20 57 72 69 74 sclear.. Writ
0ac0: 65 20 69 6e 66 6f 20 22 20 20 20 20 3d 3d 3d 3d e info " ====
0ad0: 3d 3d 3d 3d 3d 20 5b 73 74 72 69 6e 67 20 72 65 ===== [string re
0ae0: 70 65 61 74 20 3d 20 36 31 5d 22 0a 20 20 20 20 peat = 61]".
0af0: 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 20 20 Write info "
0b00: 49 6d 70 6f 72 74 65 64 20 24 6e 74 6f 20 5b 65 Imported $nto [e
0b10: 78 70 72 20 7b 28 24 6e 74 6f 20 3d 3d 20 31 29 xpr {($nto == 1)
0b20: 20 3f 20 22 63 68 61 6e 67 65 73 65 74 22 20 3a ? "changeset" :
0b30: 20 22 63 68 61 6e 67 65 73 65 74 73 22 7d 5d 22 "changesets"}]"
0b40: 0a 20 20 20 20 57 72 69 74 65 20 69 6e 66 6f 20 . Write info
0b50: 22 20 20 20 20 57 69 74 68 69 6e 20 5b 66 6f 72 " Within [for
0b60: 6d 61 74 20 25 2e 32 66 20 24 74 6f 74 5d 20 73 mat %.2f $tot] s
0b70: 65 63 6f 6e 64 73 20 28 61 76 67 20 5b 66 6f 72 econds (avg [for
0b80: 6d 61 74 20 25 2e 32 66 20 5b 65 78 70 72 20 7b mat %.2f [expr {
0b90: 24 74 6f 74 2f 24 6e 74 6f 7d 5d 5d 20 73 65 63 $tot/$nto}]] sec
0ba0: 6f 6e 64 73 2f 63 68 61 6e 67 65 73 65 74 29 22 onds/changeset)"
0bb0: 0a 0a 20 20 20 20 57 72 69 74 65 20 69 6e 66 6f .. Write info
0bc0: 20 7b 20 20 20 20 4d 6f 76 69 6e 67 20 74 6f 20 { Moving to
0bd0: 66 69 6e 61 6c 20 64 65 73 74 69 6e 61 74 69 6f final destinatio
0be0: 6e 7d 0a 0a 20 20 20 20 66 6f 73 73 69 6c 3a 3a n}.. fossil::
0bf0: 64 65 73 74 69 6e 61 74 69 6f 6e 20 24 66 6f 73 destination $fos
0c00: 73 69 6c 0a 0a 20 20 20 20 57 72 69 74 65 20 69 sil.. Write i
0c10: 6e 66 6f 20 4f 6b 2e 0a 20 20 20 20 72 65 74 75 nfo Ok.. retu
0c20: 72 6e 0a 7d 0a 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d rn.}...# -------
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c70: 2d 2d 2d 2d 2d 2d 0a 0a 70 72 6f 63 20 63 6f 6d ------..proc com
0c80: 6d 61 6e 64 6c 69 6e 65 20 7b 7d 20 7b 0a 20 20 mandline {} {.
0c90: 20 20 67 6c 6f 62 61 6c 20 61 72 67 76 20 63 76 global argv cv
0ca0: 73 20 66 6f 73 73 69 6c 20 6e 6f 73 69 67 6e 20 s fossil nosign
0cb0: 6c 6f 67 20 64 65 62 75 67 63 6f 6d 6d 69 74 20 log debugcommit
0cc0: 73 74 6f 70 61 74 0a 0a 20 20 20 20 73 65 74 20 stopat.. set
0cd0: 6e 6f 73 69 67 6e 20 30 0a 20 20 20 20 73 65 74 nosign 0. set
0ce0: 20 64 65 62 75 67 63 6f 6d 6d 69 74 20 30 0a 20 debugcommit 0.
0cf0: 20 20 20 73 65 74 20 73 74 6f 70 61 74 20 7b 7d set stopat {}
0d00: 0a 0a 20 20 20 20 77 68 69 6c 65 20 7b 5b 73 74 .. while {[st
0d10: 72 69 6e 67 20 6d 61 74 63 68 20 22 2d 2a 22 20 ring match "-*"
0d20: 5b 73 65 74 20 6f 70 74 20 5b 6c 69 6e 64 65 78 [set opt [lindex
0d30: 20 24 61 72 67 76 20 30 5d 5d 5d 7d 20 7b 0a 09 $argv 0]]]} {..
0d40: 69 66 20 7b 24 6f 70 74 20 65 71 20 22 2d 2d 6e if {$opt eq "--n
0d50: 6f 73 69 67 6e 22 7d 20 7b 0a 09 20 20 20 20 73 osign"} {.. s
0d60: 65 74 20 6e 6f 73 69 67 6e 20 31 0a 09 20 20 20 et nosign 1..
0d70: 20 73 65 74 20 61 72 67 76 20 5b 6c 72 61 6e 67 set argv [lrang
0d80: 65 20 24 61 72 67 76 20 31 20 65 6e 64 5d 0a 09 e $argv 1 end]..
0d90: 20 20 20 20 63 6f 6e 74 69 6e 75 65 0a 09 7d 0a continue..}.
0da0: 09 69 66 20 7b 24 6f 70 74 20 65 71 20 22 2d 2d .if {$opt eq "--
0db0: 64 65 62 75 67 63 6f 6d 6d 69 74 22 7d 20 7b 0a debugcommit"} {.
0dc0: 09 20 20 20 20 73 65 74 20 64 65 62 75 67 63 6f . set debugco
0dd0: 6d 6d 69 74 20 31 0a 09 20 20 20 20 73 65 74 20 mmit 1.. set
0de0: 61 72 67 76 20 5b 6c 72 61 6e 67 65 20 24 61 72 argv [lrange $ar
0df0: 67 76 20 31 20 65 6e 64 5d 0a 09 20 20 20 20 63 gv 1 end].. c
0e00: 6f 6e 74 69 6e 75 65 0a 09 7d 0a 09 69 66 20 7b ontinue..}..if {
0e10: 24 6f 70 74 20 65 71 20 22 2d 2d 73 74 6f 70 61 $opt eq "--stopa
0e20: 74 22 7d 20 7b 0a 09 20 20 20 20 73 65 74 20 73 t"} {.. set s
0e30: 74 6f 70 61 74 20 5b 6c 69 6e 64 65 78 20 24 61 topat [lindex $a
0e40: 72 67 76 20 31 5d 20 0a 09 20 20 20 20 73 65 74 rgv 1] .. set
0e50: 20 61 72 67 76 20 20 20 5b 6c 72 61 6e 67 65 20 argv [lrange
0e60: 24 61 72 67 76 20 32 20 65 6e 64 5d 0a 09 20 20 $argv 2 end]..
0e70: 20 20 63 6f 6e 74 69 6e 75 65 0a 09 7d 0a 09 75 continue..}..u
0e80: 73 61 67 65 0a 20 20 20 20 7d 0a 20 20 20 20 69 sage. }. i
0e90: 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 f {[llength $arg
0ea0: 76 5d 20 21 3d 20 32 7d 20 75 73 61 67 65 0a 20 v] != 2} usage.
0eb0: 20 20 20 66 6f 72 65 61 63 68 20 7b 63 76 73 20 foreach {cvs
0ec0: 66 6f 73 73 69 6c 7d 20 24 61 72 67 76 20 62 72 fossil} $argv br
0ed0: 65 61 6b 0a 0a 20 20 20 20 69 66 20 7b 0a 09 21 eak.. if {..!
0ee0: 5b 66 69 6c 65 20 65 78 69 73 74 73 20 20 20 20 [file exists
0ef0: 20 20 24 63 76 73 5d 20 7c 7c 0a 09 21 5b 66 69 $cvs] ||..![fi
0f00: 6c 65 20 72 65 61 64 61 62 6c 65 20 20 20 20 24 le readable $
0f10: 63 76 73 5d 20 7c 7c 0a 09 21 5b 66 69 6c 65 20 cvs] ||..![file
0f20: 69 73 64 69 72 65 63 74 6f 72 79 20 24 63 76 73 isdirectory $cvs
0f30: 5d 0a 20 20 20 20 7d 20 7b 0a 09 75 73 61 67 65 ]. } {..usage
0f40: 20 22 43 56 53 20 64 69 72 65 63 74 6f 72 79 20 "CVS directory
0f50: 6d 69 73 73 69 6e 67 2c 20 6e 6f 74 20 72 65 61 missing, not rea
0f60: 64 61 62 6c 65 2c 20 6f 72 20 6e 6f 74 20 61 20 dable, or not a
0f70: 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 20 20 directory.".
0f80: 7d 20 65 6c 73 65 69 66 20 7b 5b 66 69 6c 65 20 } elseif {[file
0f90: 65 78 69 73 74 73 20 24 66 6f 73 73 69 6c 5d 7d exists $fossil]}
0fa0: 20 7b 0a 09 75 73 61 67 65 20 22 46 6f 73 73 69 {..usage "Fossi
0fb0: 6c 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 72 65 l destination re
0fc0: 70 6f 73 69 74 6f 72 79 20 65 78 69 73 74 73 20 pository exists
0fd0: 61 6c 72 65 61 64 79 2e 22 0a 20 20 20 20 7d 0a already.". }.
0fe0: 0a 20 20 20 20 73 65 74 20 6c 6f 67 20 5b 6f 70 . set log [op
0ff0: 65 6e 20 24 7b 66 6f 73 73 69 6c 7d 2e 6c 6f 67 en ${fossil}.log
1000: 20 77 5d 0a 0a 20 20 20 20 66 6f 73 73 69 6c 3a w].. fossil:
1010: 3a 64 65 62 75 67 63 6f 6d 6d 69 74 20 24 64 65 :debugcommit $de
1020: 62 75 67 63 6f 6d 6d 69 74 0a 20 20 20 20 72 65 bugcommit. re
1030: 74 75 72 6e 0a 7d 0a 0a 70 72 6f 63 20 75 73 61 turn.}..proc usa
1040: 67 65 20 7b 7b 74 65 78 74 20 7b 7d 7d 7d 20 7b ge {{text {}}} {
1050: 0a 20 20 20 20 67 6c 6f 62 61 6c 20 61 72 67 76 . global argv
1060: 30 0a 20 20 20 20 70 75 74 73 20 73 74 64 65 72 0. puts stder
1070: 72 20 22 55 73 61 67 65 3a 20 24 61 72 67 76 30 r "Usage: $argv0
1080: 20 3f 2d 2d 6e 6f 73 69 67 6e 3f 20 63 76 73 2d ?--nosign? cvs-
1090: 72 65 70 6f 73 69 74 6f 72 79 20 66 6f 73 73 69 repository fossi
10a0: 6c 2d 72 70 65 6f 73 69 74 6f 72 79 22 0a 20 20 l-rpeository".
10b0: 20 20 69 66 20 7b 24 74 65 78 74 20 65 71 20 22 if {$text eq "
10c0: 22 7d 20 72 65 74 75 72 6e 0a 20 20 20 20 70 75 "} return. pu
10d0: 74 73 20 73 74 64 65 72 72 20 22 20 20 20 20 20 ts stderr "
10e0: 20 20 24 74 65 78 74 22 0a 20 20 20 20 65 78 69 $text". exi
10f0: 74 0a 7d 0a 0a 70 72 6f 63 20 69 6d 70 6f 72 74 t.}..proc import
1100: 20 7b 63 73 65 74 7d 20 7b 0a 20 20 20 20 67 6c {cset} {. gl
1110: 6f 62 61 6c 20 74 6f 74 20 6e 74 6f 20 6e 6f 73 obal tot nto nos
1120: 69 67 6e 20 6e 74 72 75 6e 6b 20 73 74 6f 70 61 ign ntrunk stopa
1130: 74 0a 20 20 20 20 57 72 69 74 65 20 69 6e 66 6f t. Write info
1140: 20 22 20 20 20 20 49 6d 70 6f 72 74 69 6e 67 20 " Importing
1150: 24 63 73 65 74 20 5b 73 74 72 69 6e 67 20 72 65 $cset [string re
1160: 70 65 61 74 20 3d 20 5b 65 78 70 72 20 7b 36 30 peat = [expr {60
1170: 20 2d 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 - [string lengt
1180: 68 20 24 63 73 65 74 5d 7d 5d 5d 22 0a 20 20 20 h $cset]}]]".
1190: 20 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 20 Write info "
11a0: 20 20 20 20 20 41 74 20 24 6e 74 6f 2f 24 6e 74 At $nto/$nt
11b0: 72 75 6e 6b 20 28 5b 66 6f 72 6d 61 74 20 25 2e runk ([format %.
11c0: 32 66 20 5b 65 78 70 72 20 7b 24 6e 74 6f 2a 31 2f [expr {$nto*1
11d0: 30 30 2e 30 2f 24 6e 74 72 75 6e 6b 7d 5d 5d 25 00.0/$ntrunk}]]%
11e0: 29 22 0a 0a 20 20 20 20 69 66 20 7b 24 73 74 6f )".. if {$sto
11f0: 70 61 74 20 3d 3d 20 24 63 73 65 74 7d 20 7b 0a pat == $cset} {.
1200: 09 66 6f 73 73 69 6c 3a 3a 63 6f 6d 6d 69 74 20 .fossil::commit
1210: 31 20 63 76 73 32 66 6f 73 73 69 6c 20 24 6e 6f 1 cvs2fossil $no
1220: 73 69 67 6e 20 5c 0a 09 20 20 20 20 5b 63 76 73 sign \.. [cvs
1230: 3a 3a 77 73 73 65 74 75 70 20 24 63 73 65 74 5d ::wssetup $cset]
1240: 20 5c 0a 09 20 20 20 20 3a 3a 63 76 73 3a 3a 77 \.. ::cvs::w
1250: 73 69 67 6e 6f 72 65 0a 09 57 72 69 74 65 20 69 signore..Write i
1260: 6e 66 6f 20 22 20 20 20 20 20 20 20 20 25 25 20 nfo " %%
1270: 53 54 4f 50 22 0a 09 72 65 74 75 72 6e 0a 20 20 STOP"..return.
1280: 20 20 7d 0a 0a 20 20 20 20 73 65 74 20 75 73 65 }.. set use
1290: 63 20 5b 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 c [lindex [time
12a0: 7b 0a 09 66 6f 72 65 61 63 68 20 7b 75 75 69 64 {..foreach {uuid
12b0: 20 61 64 20 72 6d 20 63 68 7d 20 5b 66 6f 73 73 ad rm ch} [foss
12c0: 69 6c 3a 3a 63 6f 6d 6d 69 74 20 30 20 63 76 73 il::commit 0 cvs
12d0: 32 66 6f 73 73 69 6c 20 24 6e 6f 73 69 67 6e 20 2fossil $nosign
12e0: 5c 0a 09 09 09 09 20 20 20 20 20 5b 63 76 73 3a \..... [cvs:
12f0: 3a 77 73 73 65 74 75 70 20 24 63 73 65 74 5d 20 :wssetup $cset]
1300: 5c 0a 09 09 09 09 20 20 20 20 20 3a 3a 63 76 73 \..... ::cvs
1310: 3a 3a 77 73 69 67 6e 6f 72 65 5d 20 62 72 65 61 ::wsignore] brea
1320: 6b 0a 20 20 20 20 7d 20 31 5d 20 30 5d 0a 20 20 k. } 1] 0].
1330: 20 20 63 76 73 3a 3a 75 75 69 64 20 24 63 73 65 cvs::uuid $cse
1340: 74 20 24 75 75 69 64 0a 0a 20 20 20 20 73 65 74 t $uuid.. set
1350: 20 73 65 63 20 5b 65 78 70 72 20 7b 24 75 73 65 sec [expr {$use
1360: 63 2f 31 65 36 7d 5d 0a 20 20 20 20 73 65 74 20 c/1e6}]. set
1370: 74 6f 74 20 5b 65 78 70 72 20 7b 24 74 6f 74 20 tot [expr {$tot
1380: 2b 20 24 73 65 63 7d 5d 0a 20 20 20 20 69 6e 63 + $sec}]. inc
1390: 72 20 6e 74 6f 0a 0a 20 20 20 20 57 72 69 74 65 r nto.. Write
13a0: 20 69 6e 66 6f 20 22 20 20 20 20 20 20 20 20 3d info " =
13b0: 3d 20 24 75 75 69 64 20 2b 24 7b 61 64 7d 2d 24 = $uuid +${ad}-$
13c0: 7b 72 6d 7d 2a 24 7b 63 68 7d 22 0a 20 20 20 20 {rm}*${ch}".
13d0: 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 20 20 Write info "
13e0: 20 20 20 20 69 6e 20 24 73 65 63 20 73 65 63 6f in $sec seco
13f0: 6e 64 73 22 0a 0a 20 20 20 20 73 65 74 20 61 76 nds".. set av
1400: 67 20 5b 65 78 70 72 20 7b 24 74 6f 74 2f 24 6e g [expr {$tot/$n
1410: 74 6f 7d 5d 0a 20 20 20 20 73 65 74 20 6d 61 78 to}]. set max
1420: 20 5b 65 78 70 72 20 7b 24 6e 74 72 75 6e 6b 20 [expr {$ntrunk
1430: 2a 20 24 61 76 67 7d 5d 0a 20 20 20 20 73 65 74 * $avg}]. set
1440: 20 72 65 6d 20 5b 65 78 70 72 20 7b 24 6d 61 78 rem [expr {$max
1450: 20 2d 20 24 74 6f 74 7d 5d 0a 0a 20 20 20 20 57 - $tot}].. W
1460: 72 69 74 65 20 69 6e 66 6f 20 22 20 20 20 20 20 rite info "
1470: 20 20 20 73 74 20 61 76 67 20 5b 66 6f 72 6d 61 st avg [forma
1480: 74 20 25 2e 32 66 20 24 61 76 67 5d 22 0a 20 20 t %.2f $avg]".
1490: 20 20 57 72 69 74 65 20 69 6e 66 6f 20 22 20 20 Write info "
14a0: 20 20 20 20 20 20 73 74 20 72 75 6e 20 5b 66 6f st run [fo
14b0: 72 6d 61 74 20 25 37 2e 32 66 20 24 74 6f 74 5d rmat %7.2f $tot]
14c0: 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 25 36 2e sec [format %6.
14d0: 32 66 20 5b 65 78 70 72 20 7b 24 74 6f 74 2f 36 2f [expr {$tot/6
14e0: 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 6d 61 74 0}]] min [format
14f0: 20 25 35 2e 32 66 20 5b 65 78 70 72 20 7b 24 74 %5.2f [expr {$t
1500: 6f 74 2f 33 36 30 30 7d 5d 5d 20 68 72 22 0a 20 ot/3600}]] hr".
1510: 20 20 20 57 72 69 74 65 20 69 6e 66 6f 20 22 20 Write info "
1520: 20 20 20 20 20 20 20 73 74 20 65 6e 64 20 5b 66 st end [f
1530: 6f 72 6d 61 74 20 25 37 2e 32 66 20 24 6d 61 78 ormat %7.2f $max
1540: 5d 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 25 36 ] sec [format %6
1550: 2e 32 66 20 5b 65 78 70 72 20 7b 24 6d 61 78 2f .2f [expr {$max/
1560: 36 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 6d 61 60}]] min [forma
1570: 74 20 25 35 2e 32 66 20 5b 65 78 70 72 20 7b 24 t %5.2f [expr {$
1580: 6d 61 78 2f 33 36 30 30 7d 5d 5d 20 68 72 22 0a max/3600}]] hr".
1590: 20 20 20 20 57 72 69 74 65 20 69 6e 66 6f 20 22 Write info "
15a0: 20 20 20 20 20 20 20 20 73 74 20 72 65 6d 20 5b st rem [
15b0: 66 6f 72 6d 61 74 20 25 37 2e 32 66 20 24 72 65 format %7.2f $re
15c0: 6d 5d 20 73 65 63 20 5b 66 6f 72 6d 61 74 20 25 m] sec [format %
15d0: 36 2e 32 66 20 5b 65 78 70 72 20 7b 24 72 65 6d 6.2f [expr {$rem
15e0: 2f 36 30 7d 5d 5d 20 6d 69 6e 20 5b 66 6f 72 6d /60}]] min [form
15f0: 61 74 20 25 35 2e 32 66 20 5b 65 78 70 72 20 7b at %5.2f [expr {
1600: 24 72 65 6d 2f 33 36 30 30 7d 5d 5d 20 68 72 22 $rem/3600}]] hr"
1610: 0a 20 20 20 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 . return.}..#
1620: 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ---------------
1630: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1640: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1650: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1660: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a --------------..
1670: 61 72 72 61 79 20 73 65 74 20 66 6c 20 7b 0a 20 array set fl {.
1680: 20 20 20 64 65 62 75 67 20 20 20 7b 44 45 42 55 debug {DEBU
1690: 47 20 20 7d 0a 20 20 20 20 69 6e 66 6f 20 20 20 G }. info
16a0: 20 7b 20 20 20 20 20 20 20 7d 0a 20 20 20 20 77 { }. w
16b0: 61 72 6e 69 6e 67 20 7b 57 61 72 6e 69 6e 67 7d arning {Warning}
16c0: 0a 20 20 20 20 65 72 72 6f 72 20 20 20 7b 45 52 . error {ER
16d0: 52 4f 52 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 57 ROR }.}..proc W
16e0: 72 69 74 65 20 7b 6c 20 74 7d 20 7b 0a 20 20 20 rite {l t} {.
16f0: 20 67 6c 6f 62 61 6c 20 66 6c 20 6c 6f 67 0a 0a global fl log..
1700: 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 if {[string
1710: 69 6e 64 65 78 20 24 74 20 30 5d 20 65 71 20 22 index $t 0] eq "
1720: 5c 72 22 7d 20 7b 0a 09 70 75 74 73 20 2d 6e 6f \r"} {..puts -no
1730: 6e 65 77 6c 69 6e 65 20 73 74 64 6f 75 74 20 22 newline stdout "
1740: 5c 72 24 66 6c 28 24 6c 29 20 5b 73 74 72 69 6e \r$fl($l) [strin
1750: 67 20 72 61 6e 67 65 20 24 74 20 30 20 65 6e 64 g range $t 0 end
1760: 2d 31 5d 22 0a 20 20 20 20 7d 20 65 6c 73 65 20 -1]". } else
1770: 7b 0a 09 70 75 74 73 20 73 74 64 6f 75 74 20 22 {..puts stdout "
1780: 24 66 6c 28 24 6c 29 20 24 74 22 0a 09 70 75 74 $fl($l) $t"..put
1790: 73 20 24 6c 6f 67 20 20 20 22 24 66 6c 28 24 6c s $log "$fl($l
17a0: 29 20 24 74 22 0a 20 20 20 20 7d 0a 20 20 20 20 ) $t". }.
17b0: 66 6c 75 73 68 20 73 74 64 6f 75 74 0a 20 20 20 flush stdout.
17c0: 20 72 65 74 75 72 6e 0a 7d 0a 0a 23 20 2d 2d 2d return.}..# ---
17d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
17f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1810: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 6d 61 69 6e ----------..main
1820: 0a 65 78 69 74 0a .exit.