b504674c5f 2007-09-15       aku: # -----------------------------------------------------------------------------
b504674c5f 2007-09-15       aku: # Management of the mapping between cvs changesets and fossil uuids.
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: # -----------------------------------------------------------------------------
b504674c5f 2007-09-15       aku: # Requirements
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: package require Tcl 8.4
b504674c5f 2007-09-15       aku: package require vc::tools::log  ; # User feedback
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: namespace eval ::vc::fossil::import::map {
b504674c5f 2007-09-15       aku:     vc::tools::log::system map
b504674c5f 2007-09-15       aku:     namespace import ::vc::tools::log::write
b504674c5f 2007-09-15       aku: }
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: # -----------------------------------------------------------------------------
b504674c5f 2007-09-15       aku: # API
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: #     vc::fossil::import::map
b504674c5f 2007-09-15       aku: #         set cset uuid    - Associate changeset with uuid
b504674c5f 2007-09-15       aku: #         get cset -> uuid - Retrieve uuid for changeset.
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: # -----------------------------------------------------------------------------
b504674c5f 2007-09-15       aku: # API Implementation - Functionality
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: proc ::vc::fossil::import::map::set {cset uuid} {
b504674c5f 2007-09-15       aku:     variable map
b504674c5f 2007-09-15       aku:     ::set map($cset) $uuid
b504674c5f 2007-09-15       aku:     write 2 map "== $uuid"
b504674c5f 2007-09-15       aku:     return
b504674c5f 2007-09-15       aku: }
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: proc ::vc::fossil::import::map::get {cset} {
b504674c5f 2007-09-15       aku:     variable map
b504674c5f 2007-09-15       aku:     return $map($cset)
b504674c5f 2007-09-15       aku: }
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: # -----------------------------------------------------------------------------
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: namespace eval ::vc::fossil::import::map {
b504674c5f 2007-09-15       aku:     variable  map    ; # Map from csets to uuids
b504674c5f 2007-09-15       aku:     array set map {} ; #
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku:     namespace export get set
b504674c5f 2007-09-15       aku: }
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: # -----------------------------------------------------------------------------
b504674c5f 2007-09-15       aku: # Ready
b504674c5f 2007-09-15       aku: 
b504674c5f 2007-09-15       aku: package provide vc::fossil::import::map 1.0
b504674c5f 2007-09-15       aku: return