Differences From:
File
tools/cvs2fossil/lib/c2f_file.tcl
part of check-in
[3d88cfd05d]
- Started capture of revision information in file objects. Capturing authors and commit messages and repository level. Completed persistence for these latter too. Rearranged the requirements, imports, and exports a bit to handle the new dependency cycle repository <- project <- file <- repository
by
aku on
2007-10-06 21:59:03.
[view]
To:
File
tools/cvs2fossil/lib/c2f_file.tcl
part of check-in
[84871722547960b]
- Broke static dependency cycle repository <- project <- file <- repository, now using dynamic/runtime object references instead. This allows us to keep the nice and readable format for our files, code is readable too.
by
aku on
2007-10-06 22:06:05.
[view]
@@ -17,9 +17,8 @@
## Requirements
package require Tcl 8.4 ; # Required runtime.
package require snit ; # OO system.
-package require vc::fossil::import::cvs::repository ; # Repository management.
# # ## ### ##### ######## ############# #####################
##
@@ -96,16 +95,16 @@
method setdesc {d} {# ignore}
method def {rev date author state next branches} {
set myrev($rev) [list $date $author $state $next $branches]
- repository author $author
+ $myproject author $author
return
}
method extend {rev commitmsg deltarange} {
set cm [string trim $commitmsg]
lappend myrev($rev) $cm $deltarange
- repository cmessage $cm
+ $myproject cmessage $cm
return
}
# # ## ### ##### ######## #############
@@ -129,14 +128,11 @@
}
namespace eval ::vc::fossil::import::cvs {
namespace export file
- namespace eval file {
- namespace import ::vc::fossil::import::cvs::repository
- }
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide vc::fossil::import::cvs::file 1.0
return