filesystem configuration first cut

diff --git a/library/vfsUtils.tcl b/library/vfsUtils.tcl
index 330f6875963f593950227d6d59f3f88cd70c9f30..880728334c070f48458e23993a4606b5a9f2199b 100644 (file)
--- a/library/vfsUtils.tcl
+++ b/library/vfsUtils.tcl
@@ -94,12 +94,14 @@ proc ::vfs::attributes {mountpoint args} {
        return -code error "filesystem not known or not configurable"
     }
     
-    while {1} {
-       foreach {attr val} $args {
-           set args [lrange $args 2 end]
-           break
-       }
+    while {[llength $args] > 1} {
+       set attr [string range [lindex $args 0] 1 end]
+       set val [lindex $args 1]
+       set args [lrange $args 2 end]
        if {[info commands ::vfs::${ns}::$attr] != ""} {
+           if {![llength [info args ::vfs::${ns}::$attr]]} {
+               return -code error "filesystem attribute \"$attr\" is read-only"
+           }
            if {[catch {::vfs::${ns}::$attr $val} err]} {
                return -code error "error setting filesystem attribute\
                  \"$attr\": $err"