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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a54d27c3448b6dd80a003bdfb53a7c40 |
| User & Date: | andreas_kupries 2012-12-12 21:41:20.000 |
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 | package require vfs 1.0 # force sourcing of vfsUtils.tcl: set vfs::posix(load) x vfs::posixError load unset vfs::posix(load) | | | 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
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:
|
| ︙ | ︙ | |||
567 568 569 570 571 572 573 |
# overload exit command so that all vfs's are explicitly
# unmounted before program termination:
catch {rename ::exit ::vfs::template::exit}
proc ::exit {args} {
| | | | | | > | | 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 |
# 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 |
[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]]
| | | 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]]
|