TclVFS

Check-in [a54d27c344]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: * library/template/collatevfs.tcl: Added missing provide command. * library/template/templatevfs.tcl: Fixed missing default status 0 in * pkgIndex.tcl.in: overriden exit command. Bumped to 1.5.5
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a54d27c3448b6dd80a003bdfb53a7c40768ba7a6
User & Date: andreas_kupries 2012-12-12 21:41:20
Context
2013-02-05
13:18
2013-02-05 Wojciech Kocjan <[email protected]> * library/zipvfs.tcl: vfs::zip unable to read zip archives with wrong modes, bug 3603414 check-in: 811432f961 user: zoro2 tags: trunk
2012-12-12
21:41
* library/template/collatevfs.tcl: Added missing provide command. * library/template/templatevfs.tcl: Fixed missing default status 0 in * pkgIndex.tcl.in: overriden exit command. Bumped to 1.5.5 check-in: a54d27c344 user: andreas_kupries tags: trunk
21:35
Added the various template filesystems to the package index. check-in: f576d6ecd1 user: andreas_kupries tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2





3
4
5
6
7
8
9
2012-12-12  Andreas Kupries <[email protected]>






	* pkgIndex.tcl.in: Added the various template filesystems to the
	  index.

	* pkgIndex.tcl.in: Long overdue bump of vfs::zip to
	* library/zipvfs.tcl: 1.0.4. (Since 2009-02-07 or earlier).

	* configure.in: Long overdue bump to version 1.4.2.

>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
2012-12-12  Andreas Kupries <[email protected]>

	* library/template/collatevfs.tcl: Added missing provide command.

	* library/template/templatevfs.tcl: Fixed missing default status 0 in
	* pkgIndex.tcl.in: overriden exit command. Bumped to 1.5.5
	
	* pkgIndex.tcl.in: Added the various template filesystems to the
	  index.

	* pkgIndex.tcl.in: Long overdue bump of vfs::zip to
	* library/zipvfs.tcl: 1.0.4. (Since 2009-02-07 or earlier).

	* configure.in: Long overdue bump to version 1.4.2.

Changes to library/template/collatevfs.tcl.

74
75
76
77
78
79
80

81
82
83
84
85
86
87
mount -read C:/install/package/images FTP:/pub/releases/package/images -collect C:/install/package/images C:/collate/images


########################
}

package require vfs::template 1.5


namespace eval ::vfs::template::collate {

# read template procedures into current namespace. Do not edit:
foreach templateProc [namespace eval ::vfs::template {info procs}] {
	set infoArgs [info args ::vfs::template::$templateProc]
	set infoBody [info body ::vfs::template::$templateProc]






>







74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
mount -read C:/install/package/images FTP:/pub/releases/package/images -collect C:/install/package/images C:/collate/images


########################
}

package require vfs::template 1.5
package provide vfs::template::collate 1.5.3

namespace eval ::vfs::template::collate {

# read template procedures into current namespace. Do not edit:
foreach templateProc [namespace eval ::vfs::template {info procs}] {
	set infoArgs [info args ::vfs::template::$templateProc]
	set infoBody [info body ::vfs::template::$templateProc]

Changes to library/template/templatevfs.tcl.

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
...
567
568
569
570
571
572
573
574
575
576
577
578

579
580
581
package require vfs 1.0

# force sourcing of vfsUtils.tcl: 
set vfs::posix(load) x
vfs::posixError load
unset vfs::posix(load)

package provide vfs::template 1.5.4

namespace eval ::vfs::template {

if 0 {
########################

In order to create a new virtual filesystem:
................................................................................

# overload exit command so that all vfs's are explicitly 
# unmounted before program termination:
 
catch {rename ::exit ::vfs::template::exit}

proc ::exit {args} {
	foreach vfs [::vfs::filesystem info] {
		if [catch {$::vfs::_unmountCmd([file normalize $vfs]) $vfs} result] {
			puts "$vfs: $result"
		}		
	}

	::vfs::template::exit [lindex $args 0]
}







|







 







|
|
|
|
|
>
|


50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
...
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
package require vfs 1.0

# force sourcing of vfsUtils.tcl: 
set vfs::posix(load) x
vfs::posixError load
unset vfs::posix(load)

package provide vfs::template 1.5.5

namespace eval ::vfs::template {

if 0 {
########################

In order to create a new virtual filesystem:
................................................................................

# overload exit command so that all vfs's are explicitly 
# unmounted before program termination:
 
catch {rename ::exit ::vfs::template::exit}

proc ::exit {args} {
    foreach vfs [::vfs::filesystem info] {
	if [catch {$::vfs::_unmountCmd([file normalize $vfs]) $vfs} result] {
	    puts "$vfs: $result"
	}		
    }
    if {![llength $args]} { lappend args 0}
    ::vfs::template::exit [lindex $args 0]
}

Changes to pkgIndex.tcl.in.

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    [list source [file join $dir template versionvfs.tcl]]
package ifneeded vfs::template::version::delta 1.5.2 \
    [list source [file join $dir template deltavfs.tcl]]
package ifneeded vfs::template::fish 1.5.2 \
    [list source [file join $dir template fishvfs.tcl]]
package ifneeded vfs::template::quota 1.5.2 \
    [list source [file join $dir template quotavfs.tcl]]
package ifneeded vfs::template 1.5.4 \
    [list source [file join $dir template templatevfs.tcl]]
#
# Helpers
#
package ifneeded fileutil::globfind 1.5 \
    [list source [file join $dir template globfind.tcl]]
package ifneeded trsync 1.0 [list source [file join $dir template tdelta.tcl]]






|







36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    [list source [file join $dir template versionvfs.tcl]]
package ifneeded vfs::template::version::delta 1.5.2 \
    [list source [file join $dir template deltavfs.tcl]]
package ifneeded vfs::template::fish 1.5.2 \
    [list source [file join $dir template fishvfs.tcl]]
package ifneeded vfs::template::quota 1.5.2 \
    [list source [file join $dir template quotavfs.tcl]]
package ifneeded vfs::template 1.5.5 \
    [list source [file join $dir template templatevfs.tcl]]
#
# Helpers
#
package ifneeded fileutil::globfind 1.5 \
    [list source [file join $dir template globfind.tcl]]
package ifneeded trsync 1.0 [list source [file join $dir template tdelta.tcl]]