Differences From:

File tools/lib/fossil.tcl part of check-in [86a7f249c1] - Started to restructure the namespace hierarchy, beginning at the bottom, with the log module. by aku on 2007-09-09 00:58:18. [view]

To:

File tools/lib/fossil.tcl part of check-in [45cd12f05a] - Continuing namespace changes, fossil backend. by aku on 2007-09-13 06:03:30. [view]

@@ -6,9 +6,9 @@
 
 package require Tcl 8.4
 package require vc::tools::log ; # User feedback
 
-namespace eval ::fossil {
+namespace eval ::vc::fossil::ws {
     vc::tools::log::system fossil
     namespace import ::vc::tools::log::write
 }
 
@@ -16,9 +16,9 @@
 # API
 
 # Define repository file, and connect to workspace in CWD.
 
-proc ::fossil::new {} {
+proc ::vc::fossil::ws::new {} {
     variable fr     [file normalize [fileutil::tempfile import2_fsl_rp_]]
     variable fossil
 
     # pwd = workspace
@@ -31,15 +31,15 @@
 }
 
 # Move generated fossil repository to final destination
 
-proc ::fossil::destination {path} {
+proc ::vc::fossil::ws::destination {path} {
     variable fr
     file rename $fr $path
     return
 }
 
-namespace eval ::fossil {
+namespace eval ::vc::fossil::ws {
     # Repository file
     variable fr {}
 
     # Fossil application
@@ -50,17 +50,17 @@
     variable debugcommit 0
     variable dcfile      {}
 }
 
-proc ::fossil::debugcommit {flag} {
+proc ::vc::fossil::ws::debugcommit {flag} {
     variable debugcommit $flag
     if {$debugcommit} {
 	variable dcfile [file normalize cvs2fossil_commit.tcl]
     }
     return
 }
 
-proc ::fossil::commit {break appname nosign meta ignore} {
+proc ::vc::fossil::ws::commit {break appname nosign meta ignore} {
     variable fossil
     variable lastuuid
     variable debugcommit
     variable dcfile
@@ -149,13 +149,13 @@
 
 # -----------------------------------------------------------------------------
 # Internal helper commands
 
-proc ::fossil::IGNORE {ignore path} {
+proc ::vc::fossil::ws::IGNORE {ignore path} {
     return [uplevel #0 [linsert $ignore end $path]]
 }
 
 # -----------------------------------------------------------------------------
 # Ready
 
-package provide fossil 1.0
+package provide vc::fossil::ws 1.0
 return