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: |
a54d27c3448b6dd80a003bdfb53a7c40 |
| 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
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]]
|