From: Vince Darley <vincentdarley@sourceforge.net>
Date: Wed, 19 Feb 2003 10:51:58 +0000 (+0000)
Subject: posix error handling
X-Git-Tag: vfs-1-3~46
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=cef8e61dd67934982250d9feb6bd5efb51e8fee4;p=tclvfs

posix error handling
---

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 1f81d76..8a36c31 100644
--- 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]"
+    }
+}