Differences From:

File tools/cvs2fossil/lib/c2f_project.tcl part of check-in [82e35d3304] - Extended project class with method return full path of the project, i.e. inclusive its repository base path. by aku on 2007-12-05 07:47:36. [view]

To:

File tools/cvs2fossil/lib/c2f_project.tcl part of check-in [348e45b0d6] - Added basic import of changesets. Note that this code is incomplete with regard to handling the various possible interactions between a vendor-branh and trunk. by aku on 2008-01-30 08:28:34. [view]

@@ -18,8 +18,9 @@
 package require Tcl 8.4                                 ; # Required runtime.
 package require snit                                    ; # OO system.
 package require vc::fossil::import::cvs::file           ; # CVS archive file.
 package require vc::fossil::import::cvs::state          ; # State storage.
+package require vc::fossil::import::cvs::project::rev   ; # Changesets.
 package require vc::fossil::import::cvs::project::sym   ; # Per project symbols.
 package require vc::fossil::import::cvs::project::trunk ; # Per project trunk, main lod
 package require vc::tools::log                          ; # User feedback
 package require struct::list                            ; # Advanced list operations..
@@ -157,8 +158,14 @@
 	}
 	return
     }
 
+    method revisionsinorder {} {
+	return [rev inorder $myid]
+    }
+
+    delegate method getmeta to myrepository
+
     # # ## ### ##### ######## #############
     ## State
 
     variable mybase           {} ; # Project directory.
@@ -168,9 +175,9 @@
     variable myfiles   -array {} ; # Maps the rcs archive paths to
 				   # their user-visible files.
     variable myfobj           {} ; # File objects for the rcs archives
     variable myfmap    -array {} ; # Map rcs archive to their object.
-    variable myrepository     {} ; # Repository the prject belongs to.
+    variable myrepository     {} ; # Repository the project belongs to.
     variable mysymbol  -array {} ; # Map symbol names to project-level
 				   # symbol objects.
 
     # # ## ### ##### ######## #############
@@ -213,8 +220,10 @@
 	namespace import ::vc::fossil::import::cvs::file
 	namespace import ::vc::fossil::import::cvs::state
 	# Import not required, already a child namespace.
 	# namespace import ::vc::fossil::import::cvs::project::sym
+	# Import not required, already a child namespace.
+	# namespace import ::vc::fossil::import::cvs::project::rev
     }
 }
 
 # # ## ### ##### ######## ############# #####################