Artifact 44f71078463b33427051428288410b62dda2df82:
File
tools/lib/import_map.tcl
part of check-in
[b504674c5f]
- Fixed problems with the untested statistics module.
Moved cset <-> uuid map out of cvs to control layer, separate package.
Currently not really useful, will be needed when handling cvs branches.
Moved some user feedback around, and the import control too.
by
aku on
2007-09-15 03:18:31.
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 4d 61 6e 61 67 65 6d 65 6e 74 20 6f 66 20 # Management of
0060: 74 68 65 20 6d 61 70 70 69 6e 67 20 62 65 74 77 the mapping betw
0070: 65 65 6e 20 63 76 73 20 63 68 61 6e 67 65 73 65 een cvs changese
0080: 74 73 20 61 6e 64 20 66 6f 73 73 69 6c 20 75 75 ts and fossil uu
0090: 69 64 73 2e 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d ids...# --------
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 0a 23 20 52 65 71 75 69 72 65 6d -----.# Requirem
00f0: 65 6e 74 73 0a 0a 70 61 63 6b 61 67 65 20 72 65 ents..package re
0100: 71 75 69 72 65 20 54 63 6c 20 38 2e 34 0a 70 61 quire Tcl 8.4.pa
0110: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 76 63 ckage require vc
0120: 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 20 20 3b 20 ::tools::log ;
0130: 23 20 55 73 65 72 20 66 65 65 64 62 61 63 6b 0a # User feedback.
0140: 0a 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 .namespace eval
0150: 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 6d ::vc::fossil::im
0160: 70 6f 72 74 3a 3a 6d 61 70 20 7b 0a 20 20 20 20 port::map {.
0170: 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 3a 3a vc::tools::log::
0180: 73 79 73 74 65 6d 20 6d 61 70 0a 20 20 20 20 6e system map. n
0190: 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 amespace import
01a0: 3a 3a 76 63 3a 3a 74 6f 6f 6c 73 3a 3a 6c 6f 67 ::vc::tools::log
01b0: 3a 3a 77 72 69 74 65 0a 7d 0a 0a 23 20 2d 2d 2d ::write.}..# ---
01c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 41 50 49 ----------.# API
0210: 0a 0a 23 20 20 20 20 20 76 63 3a 3a 66 6f 73 73 ..# vc::foss
0220: 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 6d 61 70 0a il::import::map.
0230: 23 20 20 20 20 20 20 20 20 20 73 65 74 20 63 73 # set cs
0240: 65 74 20 75 75 69 64 20 20 20 20 2d 20 41 73 73 et uuid - Ass
0250: 6f 63 69 61 74 65 20 63 68 61 6e 67 65 73 65 74 ociate changeset
0260: 20 77 69 74 68 20 75 75 69 64 0a 23 20 20 20 20 with uuid.#
0270: 20 20 20 20 20 67 65 74 20 63 73 65 74 20 2d 3e get cset ->
0280: 20 75 75 69 64 20 2d 20 52 65 74 72 69 65 76 65 uuid - Retrieve
0290: 20 75 75 69 64 20 66 6f 72 20 63 68 61 6e 67 65 uuid for change
02a0: 73 65 74 2e 0a 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d set...# --------
02b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
02f0: 2d 2d 2d 2d 2d 0a 23 20 41 50 49 20 49 6d 70 6c -----.# API Impl
0300: 65 6d 65 6e 74 61 74 69 6f 6e 20 2d 20 46 75 6e ementation - Fun
0310: 63 74 69 6f 6e 61 6c 69 74 79 0a 0a 70 72 6f 63 ctionality..proc
0320: 20 3a 3a 76 63 3a 3a 66 6f 73 73 69 6c 3a 3a 69 ::vc::fossil::i
0330: 6d 70 6f 72 74 3a 3a 6d 61 70 3a 3a 73 65 74 20 mport::map::set
0340: 7b 63 73 65 74 20 75 75 69 64 7d 20 7b 0a 20 20 {cset uuid} {.
0350: 20 20 76 61 72 69 61 62 6c 65 20 6d 61 70 0a 20 variable map.
0360: 20 20 20 3a 3a 73 65 74 20 6d 61 70 28 24 63 73 ::set map($cs
0370: 65 74 29 20 24 75 75 69 64 0a 20 20 20 20 77 72 et) $uuid. wr
0380: 69 74 65 20 32 20 6d 61 70 20 22 3d 3d 20 24 75 ite 2 map "== $u
0390: 75 69 64 22 0a 20 20 20 20 72 65 74 75 72 6e 0a uid". return.
03a0: 7d 0a 0a 70 72 6f 63 20 3a 3a 76 63 3a 3a 66 6f }..proc ::vc::fo
03b0: 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 6d 61 ssil::import::ma
03c0: 70 3a 3a 67 65 74 20 7b 63 73 65 74 7d 20 7b 0a p::get {cset} {.
03d0: 20 20 20 20 76 61 72 69 61 62 6c 65 20 6d 61 70 variable map
03e0: 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6d 61 70 . return $map
03f0: 28 24 63 73 65 74 29 0a 7d 0a 0a 23 20 2d 2d 2d ($cset).}..# ---
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 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 0a 6e 61 6d 65 ----------..name
0450: 73 70 61 63 65 20 65 76 61 6c 20 3a 3a 76 63 3a space eval ::vc:
0460: 3a 66 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a :fossil::import:
0470: 3a 6d 61 70 20 7b 0a 20 20 20 20 76 61 72 69 61 :map {. varia
0480: 62 6c 65 20 20 6d 61 70 20 20 20 20 3b 20 23 20 ble map ; #
0490: 4d 61 70 20 66 72 6f 6d 20 63 73 65 74 73 20 74 Map from csets t
04a0: 6f 20 75 75 69 64 73 0a 20 20 20 20 61 72 72 61 o uuids. arra
04b0: 79 20 73 65 74 20 6d 61 70 20 7b 7d 20 3b 20 23 y set map {} ; #
04c0: 0a 0a 20 20 20 20 6e 61 6d 65 73 70 61 63 65 20 .. namespace
04d0: 65 78 70 6f 72 74 20 67 65 74 20 73 65 74 0a 7d export get set.}
04e0: 0a 0a 23 20 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 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0530: 2d 0a 23 20 52 65 61 64 79 0a 0a 70 61 63 6b 61 -.# Ready..packa
0540: 67 65 20 70 72 6f 76 69 64 65 20 76 63 3a 3a 66 ge provide vc::f
0550: 6f 73 73 69 6c 3a 3a 69 6d 70 6f 72 74 3a 3a 6d ossil::import::m
0560: 61 70 20 31 2e 30 0a 72 65 74 75 72 6e 0a ap 1.0.return.