From da7de746ce5fa1d1bbe0a925a1b16941182a781e Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Fri, 2 Nov 2001 12:39:18 +0000 Subject: [PATCH] minor tcl improvements --- Readme.txt | 11 +++++++---- library/mk4vfs.tcl | 8 ++++---- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/Readme.txt b/Readme.txt index c5fc905..54cf645 100644 --- a/Readme.txt +++ b/Readme.txt @@ -24,7 +24,7 @@ do things like: file copy ftp://ftp.foo.com/pub/readme.txt . -With 'tkhtml' and this extension, writing a web-browser in Tcl should be +With 'Tkhtml' and this extension, writing a web-browser in Tcl should be pretty trivial. None of the vfs's included are 100% complete or optimal yet, so if only for @@ -116,7 +116,10 @@ can be used when desired (for example, 'file copy from to -callback foo' would be one approach to handling this). Bugs in Tcl vfs's are hard to track down, since error messages can't -necessarily propagate to the toplevel. Could add a debugging command. -Alternatively the 'reporting' filesystem in Tcl's test suite can be -used to aid debugging. +necessarily propagate to the toplevel (errors of course do propagate and +result in a filesystem action failing, but informative error messages cannot +usually be provided, since Tcl is only expecting one of the standard POSIX +error codes). We could add a debugging command to this extension so +unexpected errors are logged somewhere. Alternatively the 'reporting' +filesystem in Tcl's test suite can be used to aid debugging. diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl index 2815cc0..70092f9 100644 --- a/library/mk4vfs.tcl +++ b/library/mk4vfs.tcl @@ -101,6 +101,10 @@ ############################################################################### +package require Mk4tcl +package require vfs +package require vfslib + namespace eval vfs::mk4 {} proc vfs::mk4::Mount {what local args} { @@ -331,10 +335,6 @@ proc vfs::mk4::fileattributes {db root relative args} { } } -package require Mk4tcl -package require vfs -package require vfslib - package provide mk4vfs 1.0 namespace eval mk4vfs { -- 2.23.0