54d1e3537e 2007-11-10 aku: ## -*- tcl -*- 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# ##################### 54d1e3537e 2007-11-10 aku: ## Copyright (c) 2007 Andreas Kupries. 54d1e3537e 2007-11-10 aku: # 54d1e3537e 2007-11-10 aku: # This software is licensed as described in the file LICENSE, which 54d1e3537e 2007-11-10 aku: # you should have received as part of this distribution. 54d1e3537e 2007-11-10 aku: # 54d1e3537e 2007-11-10 aku: # This software consists of voluntary contributions made by many 54d1e3537e 2007-11-10 aku: # individuals. For exact contribution history, see the revision 54d1e3537e 2007-11-10 aku: # history and logs, available at http://fossil-scm.hwaci.com/fossil 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# ##################### 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: ## Pass V. This pass defines the first approximate set of project 54d1e3537e 2007-11-10 aku: ## level revisions, aka changesets. 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# ##################### 54d1e3537e 2007-11-10 aku: ## Requirements 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: package require Tcl 8.4 ; # Required runtime. 54d1e3537e 2007-11-10 aku: package require snit ; # OO system. 54d1e3537e 2007-11-10 aku: package require vc::tools::misc ; # Text formatting. 54d1e3537e 2007-11-10 aku: package require vc::tools::log ; # User feedback. 54d1e3537e 2007-11-10 aku: package require vc::fossil::import::cvs::state ; # State storage. 54d1e3537e 2007-11-10 aku: package require vc::fossil::import::cvs::project::sym ; # Project level symbols 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# ##################### 54d1e3537e 2007-11-10 aku: ## Register the pass with the management 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: vc::fossil::import::cvs::pass define \ 54d1e3537e 2007-11-10 aku: InitCsets \ 54d1e3537e 2007-11-10 aku: {Initialize ChangeSets} \ 54d1e3537e 2007-11-10 aku: ::vc::fossil::import::cvs::pass::initcsets 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# ##################### 54d1e3537e 2007-11-10 aku: ## 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: snit::type ::vc::fossil::import::cvs::pass::initcsets { 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# 54d1e3537e 2007-11-10 aku: ## Public API 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: typemethod setup {} { 54d1e3537e 2007-11-10 aku: # Define the names and structure of the persistent state of 54d1e3537e 2007-11-10 aku: # this pass. 54d1e3537e 2007-11-10 aku: return 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: typemethod load {} { 54d1e3537e 2007-11-10 aku: # Pass manager interface. Executed to load data computed by 54d1e3537e 2007-11-10 aku: # this pass into memory when this pass is skipped instead of 54d1e3537e 2007-11-10 aku: # executed. 54d1e3537e 2007-11-10 aku: # /TODO/ 54d1e3537e 2007-11-10 aku: return 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: typemethod run {} { 54d1e3537e 2007-11-10 aku: # Pass manager interface. Executed to perform the 54d1e3537e 2007-11-10 aku: # functionality of the pass. 54d1e3537e 2007-11-10 aku: return 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: typemethod discard {} { 54d1e3537e 2007-11-10 aku: # Pass manager interface. Executed for all passes after the 54d1e3537e 2007-11-10 aku: # run passes, to remove all data of this pass from the state, 54d1e3537e 2007-11-10 aku: # as being out of date. 54d1e3537e 2007-11-10 aku: return 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# 54d1e3537e 2007-11-10 aku: ## Internal methods 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# 54d1e3537e 2007-11-10 aku: ## Configuration 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: pragma -hasinstances no ; # singleton 54d1e3537e 2007-11-10 aku: pragma -hastypeinfo no ; # no introspection 54d1e3537e 2007-11-10 aku: pragma -hastypedestroy no ; # immortal 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: namespace eval ::vc::fossil::import::cvs::pass { 54d1e3537e 2007-11-10 aku: namespace export initcsets 54d1e3537e 2007-11-10 aku: namespace eval initcsets { 54d1e3537e 2007-11-10 aku: namespace import ::vc::fossil::import::cvs::state 54d1e3537e 2007-11-10 aku: namespace import ::vc::tools::log 54d1e3537e 2007-11-10 aku: log register initcsets 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: } 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: # # ## ### ##### ######## ############# ##################### 54d1e3537e 2007-11-10 aku: ## Ready 54d1e3537e 2007-11-10 aku: 54d1e3537e 2007-11-10 aku: package provide vc::fossil::import::cvs::pass::initcsets 1.0 54d1e3537e 2007-11-10 aku: return
File Annotation