Artifact 60a9ddc157ed086dbc7a06ef3b3c188148814be0:
File
tools/cvs2fossil/changeset
part of check-in
[1ea319fb67]
- Another helper, textual, write changeset data to stdout.
by
aku on
2007-11-25 07:44:24.
0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 23 20 2d 2a 2d #!/bin/sh.## -*-
0010: 20 74 63 6c 20 2d 2a 2d 20 5c 0a 65 78 65 63 20 tcl -*- \.exec
0020: 74 63 6c 73 68 20 22 24 30 22 20 24 7b 31 2b 22 tclsh "$0" ${1+"
0030: 24 40 22 7d 0a 0a 23 20 23 20 23 23 20 23 23 23 $@"}..# # ## ###
0040: 20 23 23 23 23 23 20 23 23 23 23 23 23 23 23 20 ##### ########
0050: 23 23 23 23 23 23 23 23 23 23 23 23 23 20 23 23 ############# ##
0060: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0070: 23 23 23 0a 23 23 20 43 6f 70 79 72 69 67 68 74 ###.## Copyright
0080: 20 28 63 29 20 32 30 30 37 20 41 6e 64 72 65 61 (c) 2007 Andrea
0090: 73 20 4b 75 70 72 69 65 73 2e 0a 23 0a 23 20 54 s Kupries..#.# T
00a0: 68 69 73 20 73 6f 66 74 77 61 72 65 20 69 73 20 his software is
00b0: 6c 69 63 65 6e 73 65 64 20 61 73 20 64 65 73 63 licensed as desc
00c0: 72 69 62 65 64 20 69 6e 20 74 68 65 20 66 69 6c ribed in the fil
00d0: 65 20 4c 49 43 45 4e 53 45 2c 20 77 68 69 63 68 e LICENSE, which
00e0: 0a 23 20 79 6f 75 20 73 68 6f 75 6c 64 20 68 61 .# you should ha
00f0: 76 65 20 72 65 63 65 69 76 65 64 20 61 73 20 70 ve received as p
0100: 61 72 74 20 6f 66 20 74 68 69 73 20 64 69 73 74 art of this dist
0110: 72 69 62 75 74 69 6f 6e 2e 0a 23 0a 23 20 54 68 ribution..#.# Th
0120: 69 73 20 73 6f 66 74 77 61 72 65 20 63 6f 6e 73 is software cons
0130: 69 73 74 73 20 6f 66 20 76 6f 6c 75 6e 74 61 72 ists of voluntar
0140: 79 20 63 6f 6e 74 72 69 62 75 74 69 6f 6e 73 20 y contributions
0150: 6d 61 64 65 20 62 79 20 6d 61 6e 79 0a 23 20 69 made by many.# i
0160: 6e 64 69 76 69 64 75 61 6c 73 2e 20 20 46 6f 72 ndividuals. For
0170: 20 65 78 61 63 74 20 63 6f 6e 74 72 69 62 75 74 exact contribut
0180: 69 6f 6e 20 68 69 73 74 6f 72 79 2c 20 73 65 65 ion history, see
0190: 20 74 68 65 20 72 65 76 69 73 69 6f 6e 0a 23 20 the revision.#
01a0: 68 69 73 74 6f 72 79 20 61 6e 64 20 6c 6f 67 73 history and logs
01b0: 2c 20 61 76 61 69 6c 61 62 6c 65 20 61 74 20 68 , available at h
01c0: 74 74 70 3a 2f 2f 66 6f 73 73 69 6c 2d 73 63 6d ttp://fossil-scm
01d0: 2e 68 77 61 63 69 2e 63 6f 6d 2f 66 6f 73 73 69 .hwaci.com/fossi
01e0: 6c 0a 23 20 23 20 23 23 20 23 23 23 20 23 23 23 l.# # ## ### ###
01f0: 23 23 20 23 23 23 23 23 23 23 23 20 23 23 23 23 ## ######## ####
0200: 23 23 23 23 23 23 23 23 23 20 23 23 23 23 23 23 ######### ######
0210: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0a ###############.
0220: 0a 23 23 20 48 65 6c 70 65 72 20 61 70 70 6c 69 .## Helper appli
0230: 63 61 74 69 6f 6e 2c 20 64 65 62 75 67 67 69 6e cation, debuggin
0240: 67 20 6f 66 20 63 76 73 32 66 6f 73 73 69 6c 2e g of cvs2fossil.
0250: 20 54 68 69 73 20 61 70 70 6c 69 63 61 74 69 6f This applicatio
0260: 6e 0a 23 23 20 65 78 74 72 61 63 74 73 20 61 6c n.## extracts al
0270: 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 61 62 l information ab
0280: 6f 75 74 20 61 20 63 68 61 6e 67 65 73 65 74 20 out a changeset
0290: 61 6e 64 20 77 72 69 74 65 73 20 69 74 20 6e 69 and writes it ni
02a0: 63 65 6c 79 0a 23 23 20 66 6f 72 6d 61 74 74 65 cely.## formatte
02b0: 64 20 74 6f 20 73 74 64 6f 75 74 2e 20 54 68 65 d to stdout. The
02c0: 20 63 68 61 6e 67 65 73 65 74 20 69 73 20 73 70 changeset is sp
02d0: 65 63 69 66 69 65 64 20 62 79 20 69 74 73 20 69 ecified by its i
02e0: 6e 74 65 72 6e 61 6c 0a 23 23 20 6e 75 6d 65 72 nternal.## numer
02f0: 69 63 61 6c 20 69 64 2e 20 0a 0a 23 20 23 20 23 ical id. ..# # #
0300: 23 20 23 23 23 20 23 23 23 23 23 20 23 23 23 23 # ### ##### ####
0310: 23 23 23 23 20 23 23 23 23 23 23 23 23 23 23 23 #### ###########
0320: 23 23 20 23 23 23 23 23 23 23 23 23 23 23 23 23 ## #############
0330: 23 23 23 23 23 23 23 23 0a 23 23 20 52 65 71 75 ########.## Requ
0340: 69 72 65 6d 65 6e 74 73 2c 20 65 78 74 65 6e 64 irements, extend
0350: 65 64 20 70 61 63 6b 61 67 65 20 6d 61 6e 61 67 ed package manag
0360: 65 6d 65 6e 74 20 66 6f 72 20 6c 6f 63 61 6c 20 ement for local
0370: 70 61 63 6b 61 67 65 73 2e 0a 0a 6c 61 70 70 65 packages...lappe
0380: 6e 64 20 61 75 74 6f 5f 70 61 74 68 20 5b 66 69 nd auto_path [fi
0390: 6c 65 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 le join [file di
03a0: 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 rname [info scri
03b0: 70 74 5d 5d 20 6c 69 62 5d 0a 0a 70 61 63 6b 61 pt]] lib]..packa
03c0: 67 65 20 72 65 71 75 69 72 65 20 54 63 6c 20 38 ge require Tcl 8
03d0: 2e 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .4
03e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
03f0: 20 3b 20 23 20 52 65 71 75 69 72 65 64 20 72 75 ; # Required ru
0400: 6e 74 69 6d 65 2e 0a 70 61 63 6b 61 67 65 20 72 ntime..package r
0410: 65 71 75 69 72 65 20 73 74 72 75 63 74 3a 3a 67 equire struct::g
0420: 72 61 70 68 20 20 20 20 20 20 20 20 20 20 20 20 raph
0430: 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 23 ; #
0440: 20 47 72 61 70 68 20 68 61 6e 64 6c 69 6e 67 2e Graph handling.
0450: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0460: 20 73 74 72 75 63 74 3a 3a 6c 69 73 74 20 20 20 struct::list
0470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0480: 20 20 20 20 20 20 20 3b 20 23 20 48 69 67 68 65 ; # Highe
0490: 72 20 6f 72 64 65 72 20 6c 69 73 74 20 6f 70 73 r order list ops
04a0: 2e 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
04b0: 65 20 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d e vc::fossil::im
04c0: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 port::cvs::proje
04d0: 63 74 3a 3a 72 65 76 20 3b 20 23 20 43 68 61 6e ct::rev ; # Chan
04e0: 67 65 73 65 74 73 0a 70 61 63 6b 61 67 65 20 72 gesets.package r
04f0: 65 71 75 69 72 65 20 76 63 3a 3a 66 6f 73 73 69 equire vc::fossi
0500: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
0510: 73 74 61 74 65 20 20 20 20 20 20 20 20 3b 20 23 state ; #
0520: 20 53 74 61 74 65 20 73 74 6f 72 61 67 65 2e 0a State storage..
0530: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0540: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 63 20 vc::tools::misc
0550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0560: 20 20 20 20 20 20 3b 20 23 20 4d 69 6e 2f 6d 61 ; # Min/ma
0570: 78 2e 0a 0a 6e 61 6d 65 73 70 61 63 65 20 69 6d x...namespace im
0580: 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 port ::vc::fossi
0590: 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 3a 3a l::import::cvs::
05a0: 73 74 61 74 65 0a 6e 61 6d 65 73 70 61 63 65 20 state.namespace
05b0: 69 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 66 6f 73 import ::vc::fos
05c0: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
05d0: 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 0a 6e ::project::rev.n
05e0: 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 amespace import
05f0: 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6d 69 73 ::vc::tools::mis
0600: 63 3a 3a 2a 0a 6e 61 6d 65 73 70 61 63 65 20 69 c::*.namespace i
0610: 6d 70 6f 72 74 20 3a 3a 76 63 3a 3a 74 6f 6f 6c mport ::vc::tool
0620: 73 3a 3a 6c 6f 67 0a 6c 6f 67 20 76 65 72 62 6f s::log.log verbo
0630: 73 69 74 79 20 30 0a 0a 23 20 50 72 6f 63 65 73 sity 0..# Proces
0640: 73 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 s the command li
0650: 6e 65 2c 20 69 2e 65 2e 20 67 65 74 20 74 68 65 ne, i.e. get the
0660: 20 64 61 74 61 62 61 73 65 20 74 6f 20 61 63 63 database to acc
0670: 65 73 73 2c 20 61 6e 64 20 66 69 6c 65 0a 23 20 ess, and file.#
0680: 6f 66 20 69 6e 74 65 72 65 73 74 2e 20 54 68 65 of interest. The
0690: 20 6c 61 74 74 65 72 20 63 61 6e 20 62 65 20 73 latter can be s
06a0: 70 65 63 69 66 69 65 64 20 62 79 20 6e 61 6d 65 pecified by name
06b0: 2c 20 69 64 2c 20 6f 72 20 69 6e 64 69 72 65 63 , id, or indirec
06c0: 74 6c 79 0a 23 20 74 68 72 6f 75 67 68 20 74 68 tly.# through th
06d0: 65 20 69 64 20 6f 66 20 6f 6e 65 20 6f 66 20 74 e id of one of t
06e0: 68 65 20 72 65 76 69 73 69 6f 6e 73 20 69 74 20 he revisions it
06f0: 63 6f 6e 74 61 69 6e 73 2e 0a 0a 73 74 61 74 65 contains...state
0700: 20 75 73 65 20 5b 6c 69 6e 64 65 78 20 24 61 72 use [lindex $ar
0710: 67 76 20 30 5d 0a 73 74 61 74 65 20 72 65 61 64 gv 0].state read
0720: 69 6e 67 20 63 68 61 6e 67 65 73 65 74 0a 73 74 ing changeset.st
0730: 61 74 65 20 72 65 61 64 69 6e 67 20 63 73 74 79 ate reading csty
0740: 70 65 0a 73 74 61 74 65 20 72 65 61 64 69 6e 67 pe.state reading
0750: 20 63 73 72 65 76 69 73 69 6f 6e 0a 73 74 61 74 csrevision.stat
0760: 65 20 72 65 61 64 69 6e 67 20 70 72 6f 6a 65 63 e reading projec
0770: 74 0a 73 74 61 74 65 20 72 65 61 64 69 6e 67 20 t.state reading
0780: 72 65 76 69 73 69 6f 6e 0a 73 74 61 74 65 20 72 revision.state r
0790: 65 61 64 69 6e 67 20 66 69 6c 65 0a 73 74 61 74 eading file.stat
07a0: 65 20 72 65 61 64 69 6e 67 20 73 79 6d 62 6f 6c e reading symbol
07b0: 0a 73 74 61 74 65 20 72 65 61 64 69 6e 67 20 6d .state reading m
07c0: 65 74 61 0a 73 74 61 74 65 20 72 65 61 64 69 6e eta.state readin
07d0: 67 20 61 75 74 68 6f 72 0a 73 74 61 74 65 20 72 g author.state r
07e0: 65 61 64 69 6e 67 20 63 6d 65 73 73 61 67 65 0a eading cmessage.
07f0: 0a 73 65 74 20 63 69 64 20 5b 6c 69 6e 64 65 78 .set cid [lindex
0800: 20 24 61 72 67 76 20 31 5d 0a 0a 73 74 72 75 63 $argv 1]..struc
0810: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b t::list assign [
0820: 73 74 61 74 65 20 72 75 6e 20 7b 0a 20 20 20 20 state run {.
0830: 53 45 4c 45 43 54 20 43 2e 63 69 64 2c 20 43 2e SELECT C.cid, C.
0840: 70 69 64 2c 20 43 2e 73 72 63 2c 20 50 2e 6e 61 pid, C.src, P.na
0850: 6d 65 2c 20 43 54 2e 6e 61 6d 65 0a 20 20 20 20 me, CT.name.
0860: 46 52 4f 4d 20 63 68 61 6e 67 65 73 65 74 20 43 FROM changeset C
0870: 2c 20 70 72 6f 6a 65 63 74 20 50 2c 20 63 73 74 , project P, cst
0880: 79 70 65 20 43 54 0a 20 20 20 20 57 48 45 52 45 ype CT. WHERE
0890: 20 43 2e 63 69 64 20 3d 20 24 63 69 64 0a 20 20 C.cid = $cid.
08a0: 20 20 41 4e 44 20 20 20 50 2e 70 69 64 20 3d 20 AND P.pid =
08b0: 43 2e 70 69 64 0a 20 20 20 20 41 4e 44 20 20 20 C.pid. AND
08c0: 43 54 2e 74 69 64 20 3d 20 43 2e 74 79 70 65 0a CT.tid = C.type.
08d0: 7d 5d 20 63 69 64 20 70 69 64 20 73 72 63 20 70 }] cid pid src p
08e0: 6e 61 6d 65 20 74 6e 61 6d 65 0a 0a 70 75 74 73 name tname..puts
08f0: 20 22 22 0a 70 75 74 73 20 22 43 68 61 6e 67 65 "".puts "Change
0900: 73 65 74 20 3c 24 74 6e 61 6d 65 20 24 63 69 64 set <$tname $cid
0910: 3e 20 69 6e 20 70 72 6f 6a 65 63 74 20 5c 22 24 > in project \"$
0920: 70 6e 61 6d 65 5c 22 20 28 24 70 69 64 29 22 0a pname\" ($pid)".
0930: 0a 69 66 20 7b 24 74 6e 61 6d 65 20 65 71 20 22 .if {$tname eq "
0940: 73 79 6d 22 7d 20 7b 0a 20 20 20 20 70 75 74 73 sym"} {. puts
0950: 20 22 53 79 6d 62 6f 6c 20 5c 22 5b 73 74 61 74 "Symbol \"[stat
0960: 65 20 72 75 6e 20 7b 0a 09 53 45 4c 45 43 54 20 e run {..SELECT
0970: 6e 61 6d 65 0a 09 46 52 4f 4d 20 73 79 6d 62 6f name..FROM symbo
0980: 6c 0a 09 57 48 45 52 45 20 73 69 64 20 3d 20 24 l..WHERE sid = $
0990: 73 72 63 0a 20 20 20 20 7d 5d 5c 22 22 0a 7d 20 src. }]\"".}
09a0: 65 6c 73 65 20 7b 0a 20 20 20 20 73 74 72 75 63 else {. struc
09b0: 74 3a 3a 6c 69 73 74 20 61 73 73 69 67 6e 20 5b t::list assign [
09c0: 73 74 61 74 65 20 72 75 6e 20 7b 0a 09 53 45 4c state run {..SEL
09d0: 45 43 54 20 50 2e 6e 61 6d 65 2c 20 53 2e 6e 61 ECT P.name, S.na
09e0: 6d 65 2c 20 41 2e 6e 61 6d 65 2c 20 4c 2e 74 65 me, A.name, L.te
09f0: 78 74 0a 09 46 52 4f 4d 20 6d 65 74 61 20 4d 2c xt..FROM meta M,
0a00: 20 70 72 6f 6a 65 63 74 20 50 2c 20 73 79 6d 62 project P, symb
0a10: 6f 6c 20 53 2c 20 61 75 74 68 6f 72 20 41 2c 20 ol S, author A,
0a20: 63 6d 65 73 73 61 67 65 20 4c 0a 09 57 48 45 52 cmessage L..WHER
0a30: 45 20 4d 2e 6d 69 64 20 3d 20 24 73 72 63 0a 09 E M.mid = $src..
0a40: 41 4e 44 20 50 2e 70 69 64 20 3d 20 4d 2e 70 69 AND P.pid = M.pi
0a50: 64 0a 09 41 4e 44 20 53 2e 73 69 64 20 3d 20 4d d..AND S.sid = M
0a60: 2e 62 69 64 0a 09 41 4e 44 20 41 2e 61 69 64 20 .bid..AND A.aid
0a70: 3d 20 4d 2e 61 69 64 0a 09 41 4e 44 20 4c 2e 63 = M.aid..AND L.c
0a80: 69 64 20 3d 20 4d 2e 63 69 64 0a 20 20 20 20 7d id = M.cid. }
0a90: 5d 20 70 72 6f 6a 65 63 74 20 6c 6f 64 20 61 75 ] project lod au
0aa0: 74 68 6f 72 20 63 6d 65 73 73 61 67 65 0a 20 20 thor cmessage.
0ab0: 20 20 70 75 74 73 20 22 4d 65 74 61 3a 20 50 72 puts "Meta: Pr
0ac0: 6f 6a 65 63 74 20 3d 20 5c 22 24 70 72 6f 6a 65 oject = \"$proje
0ad0: 63 74 5c 22 22 0a 20 20 20 20 70 75 74 73 20 22 ct\"". puts "
0ae0: 4d 65 74 61 3a 20 4c 4f 44 20 20 20 20 20 3d 20 Meta: LOD =
0af0: 5c 22 24 6c 6f 64 5c 22 22 0a 20 20 20 20 70 75 \"$lod\"". pu
0b00: 74 73 20 22 4d 65 74 61 3a 20 41 75 74 68 6f 72 ts "Meta: Author
0b10: 20 20 3d 20 5c 22 24 61 75 74 68 6f 72 5c 22 22 = \"$author\""
0b20: 0a 20 20 20 20 70 75 74 73 20 22 4d 65 74 61 3a . puts "Meta:
0b30: 20 4c 6f 67 20 20 20 20 20 7c 5b 6a 6f 69 6e 20 Log |[join
0b40: 5b 73 70 6c 69 74 20 24 63 6d 65 73 73 61 67 65 [split $cmessage
0b50: 20 5c 6e 5d 20 22 5c 22 5c 6e 4d 65 74 61 3a 20 \n] "\"\nMeta:
0b60: 4c 6f 67 20 20 20 20 20 7c 22 5d 22 0a 7d 0a 0a Log |"]".}..
0b70: 61 72 72 61 79 20 73 65 74 20 72 65 76 20 7b 7d array set rev {}
0b80: 0a 66 6f 72 65 61 63 68 20 7b 72 69 64 20 64 61 .foreach {rid da
0b90: 74 65 20 70 6f 73 20 66 6e 61 6d 65 20 66 72 65 te pos fname fre
0ba0: 76 20 64 65 66 61 75 6c 74 7d 20 5b 73 74 61 74 v default} [stat
0bb0: 65 20 72 75 6e 20 7b 0a 20 20 20 20 53 45 4c 45 e run {. SELE
0bc0: 43 54 20 52 2e 72 69 64 2c 20 52 2e 64 61 74 65 CT R.rid, R.date
0bd0: 2c 20 43 2e 70 6f 73 2c 20 46 2e 6e 61 6d 65 2c , C.pos, F.name,
0be0: 20 52 2e 72 65 76 2c 20 52 2e 69 73 64 65 66 61 R.rev, R.isdefa
0bf0: 75 6c 74 0a 20 20 20 20 46 52 4f 4d 20 63 73 72 ult. FROM csr
0c00: 65 76 69 73 69 6f 6e 20 43 2c 20 72 65 76 69 73 evision C, revis
0c10: 69 6f 6e 20 52 2c 20 66 69 6c 65 20 46 0a 20 20 ion R, file F.
0c20: 20 20 57 48 45 52 45 20 43 2e 63 69 64 20 3d 20 WHERE C.cid =
0c30: 24 63 69 64 0a 20 20 20 20 41 4e 44 20 20 20 52 $cid. AND R
0c40: 2e 72 69 64 20 3d 20 43 2e 72 69 64 0a 20 20 20 .rid = C.rid.
0c50: 20 41 4e 44 20 20 20 46 2e 66 69 64 20 3d 20 52 AND F.fid = R
0c60: 2e 66 69 64 0a 20 20 20 20 4f 52 44 45 52 20 42 .fid. ORDER B
0c70: 59 20 43 2e 70 6f 73 2c 20 52 2e 64 61 74 65 0a Y C.pos, R.date.
0c80: 7d 5d 20 7b 0a 20 20 20 20 73 65 74 20 72 65 76 }] {. set rev
0c90: 28 24 72 69 64 29 20 5b 6c 69 73 74 20 24 70 6f ($rid) [list $po
0ca0: 73 20 24 64 61 74 65 20 24 66 6e 61 6d 65 20 24 s $date $fname $
0cb0: 66 72 65 76 20 24 64 65 66 61 75 6c 74 5d 0a 20 frev $default].
0cc0: 20 20 20 70 75 74 73 20 22 46 69 6c 65 3a 20 5b puts "File: [
0cd0: 65 78 70 72 20 7b 24 64 65 66 61 75 6c 74 3f 22 expr {$default?"
0ce0: 44 22 3a 22 20 22 7d 5d 20 5b 63 6c 6f 63 6b 20 D":" "}] [clock
0cf0: 66 6f 72 6d 61 74 20 24 64 61 74 65 5d 20 5b 66 format $date] [f
0d00: 6f 72 6d 61 74 20 25 33 64 20 24 70 6f 73 5d 2f ormat %3d $pos]/
0d10: 5b 66 6f 72 6d 61 74 20 25 36 64 20 24 72 69 64 [format %6d $rid
0d20: 5d 20 24 7b 66 72 65 76 7d 3a 3a 24 66 6e 61 6d ] ${frev}::$fnam
0d30: 65 22 0a 7d 0a 0a 0a 3a 3a 76 63 3a 3a 66 6f 73 e".}...::vc::fos
0d40: 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 63 76 73 sil::import::cvs
0d50: 3a 3a 70 72 6f 6a 65 63 74 3a 3a 72 65 76 3a 3a ::project::rev::
0d60: 50 75 6c 6c 50 72 65 64 65 63 65 73 73 6f 72 52 PullPredecessorR
0d70: 65 76 69 73 69 6f 6e 73 20 70 64 65 70 20 5b 61 evisions pdep [a
0d80: 72 72 61 79 20 6e 61 6d 65 73 20 72 65 76 5d 0a rray names rev].
0d90: 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d ::vc::fossil::im
0da0: 70 6f 72 74 3a 3a 63 76 73 3a 3a 70 72 6f 6a 65 port::cvs::proje
0db0: 63 74 3a 3a 72 65 76 3a 3a 50 75 6c 6c 53 75 63 ct::rev::PullSuc
0dc0: 63 65 73 73 6f 72 52 65 76 69 73 69 6f 6e 73 20 cessorRevisions
0dd0: 20 20 73 64 65 70 20 5b 61 72 72 61 79 20 6e 61 sdep [array na
0de0: 6d 65 73 20 72 65 76 5d 0a 0a 0a 0a 70 75 74 73 mes rev]....puts
0df0: 20 22 22 0a 65 78 69 74 0a 0a 0a 0a 0a 0a 0a 0a "".exit........
0e00: 0a 65 78 69 74 0a .exit.