Differences From:

File tools/lib/fossil.tcl part of check-in [d8c18fc148] - Reworked the CVS handling code to have a simpler API, more like the reworked Fossil API. The API now has a form where adding the handling of branches should not require complex changes in the import controller any longer. Extended the system to allow the user to restrict the importing to a sub-directory of the chosen repository, via the new switch --project. This is required to pull a SF CVS repository apart into the various projects it may have. Example: Under Tcl we have 3 projects, namely Tcl itself, sampleextension, and Thread. by aku on 2007-09-17 00:56:40. [view]

To:

File tools/lib/fossil.tcl part of check-in [cbbf9a7575] - Got rid of the explicit revision tree and rephrased the trunk processing to use a loop which is more self-explanatory. Started to add in code needed when we process the branches as well, currently they will have now effect. by aku on 2007-09-20 07:14:44. [view]

@@ -20,8 +20,9 @@
 
 # vc::fossil::ws::configure key value         - Configure the subsystem.
 # vc::fossil::ws::begin     src               - Start new workspace for directory
 # vc::fossil::ws::done      dst               - Close workspace and copy to destination.
+# vc::fossil::ws::setup     uuid              - Move workspace to an older revision.
 # vc::fossil::ws::commit    cset usr time msg - Look for changes and commit as new revision.
 
 # Configuration keys:
 #
@@ -79,8 +80,17 @@
 proc ::vc::fossil::ws::done {destination} {
     variable rp
     file rename -force $rp $destination
     set rp {}
+    return
+}
+
+proc ::vc::fossil::ws::setup {uuid} {
+    variable lastuuid
+    if {$uuid eq $lastuuid} return
+    write 1 fossil "=> goto $uuid"
+    dova update $uuid
+    set lastuuid $uuid
     return
 }
 
 proc ::vc::fossil::ws::commit {cset user timestamp message} {
@@ -210,12 +220,12 @@
     variable base     {} ; # Workspace directory
     variable rp       {} ; # Repository the package works on.
     variable lastuuid {} ; # Uuid of last imported changeset.
 
-    namespace export configure begin done commit
+    namespace export configure begin done setup commit
 }
 
 # -----------------------------------------------------------------------------
 # Ready
 
 package provide vc::fossil::ws 1.0
 return