posix error handling

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 1f81d7690090e721d5003ffcca66f0cda2ca8d71..8a36c3157abe60eeb9794c31981eecc88293f566 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -288,8 +288,6 @@ namespace eval mk4vfs {
        array set mode {exe translucent}
     }
 
-    namespace export mount umount
-
     proc init {db} {
        mk::view layout $db.dirs \
                {name:S parent:I {files {name:S size:I date:I contents:M}}}
@@ -302,11 +300,6 @@ namespace eval mk4vfs {
        mk::set $db.dirs!0 parent -1
     }
 
-    # deprecated, use vfs::mk4::Mount (first two args are reversed!)
-    proc mount {local mkfile args} {
-       uplevel [list ::vfs::mk4::Mount $mkfile $local] $args
-    }
-
     proc _mount {{file ""} args} {
        set db mk4vfs[incr v::seq]
 
@@ -335,22 +328,10 @@ namespace eval mk4vfs {
 
     proc periodicCommit {db} {
        variable flush
-       set v::timer($db) [after $flush [list mk4vfs::periodicCommit $db]]
+       set v::timer($db) [after $flush [list :mk4vfs::periodicCommit $db]]
        mk::file commit $db
     }
 
-    # deprecated: unmounts, but only if vfs was mounted on itself
-    proc umount {local} {
-       foreach {db path} [mk::file open] {
-           if {[string equal $local $path]} {
-               vfs::filesystem unmount $local
-               _umount $db
-               return
-           }
-       }
-       tclLog "umount $local? [mk::file open]"
-    }
-
     proc _umount {db args} {
        after cancel [list mk4vfs::periodicCommit $db]
        array unset v::mode $db
@@ -592,3 +573,26 @@ namespace eval mk4vfs {
     }
 }
 
+# DEPRECATED - please don't use.
+
+namespace eval mk4vfs {
+
+    namespace export mount umount
+
+    # deprecated, use vfs::mk4::Mount (first two args are reversed!)
+    proc mount {local mkfile args} {
+       uplevel [list ::vfs::mk4::Mount $mkfile $local] $args
+    }
+
+    # deprecated: unmounts, but only if vfs was mounted on itself
+    proc umount {local} {
+       foreach {db path} [mk::file open] {
+           if {[string equal $local $path]} {
+               vfs::filesystem unmount $local
+               _umount $db
+               return
+           }
+       }
+       tclLog "umount $local? [mk::file open]"
+    }
+}