Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | cmdr::validate (rpath) - Fixed bug in the path check. Removed bogus test for directory. This VT accepts files too. Bumped to version 1.3.1. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e7ed76dd065298acb9bfb2edf6d22906 |
| User & Date: | andreask 2014-05-07 21:58:18 |
Context
|
2014-05-16
| ||
| 00:44 | Fix inadvertent split of trunk check-in: 8ff369076f user: andreask tags: trunk | |
|
2014-05-07
| ||
| 21:58 | cmdr::validate (rpath) - Fixed bug in the path check. Removed bogus test for directory. This VT accepts files too. Bumped to version 1.3.1. check-in: e7ed76dd06 user: andreask tags: trunk | |
|
2014-05-05
| ||
| 18:52 | cmdr::help::json, cmdr::help::tcl - Fixed handling of category with sub-categories, but no commands. Bumped to version 1.0.1. check-in: b5c4809789 user: andreask tags: trunk | |
Changes
Changes to validate.tcl.
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
...
536
537
538
539
540
541
542
543
544
|
proc ::cmdr::validate::rpath::validate {p x} {
debug.cmdr/validate {}
if {[Ok $x]} { return $x }
fail $p RPATH "an existing readable path" $x
}
proc ::cmdr::validate::rpath::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isdirectory $path]} {return 0}
if {![file readable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Any path, existing and read/writable.
namespace eval ::cmdr::validate::rwpath {
................................................................................
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 1.3
return
|
|
<
|
|
|
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
...
535
536
537
538
539
540
541
542
543
|
proc ::cmdr::validate::rpath::validate {p x} {
debug.cmdr/validate {}
if {[Ok $x]} { return $x }
fail $p RPATH "an existing readable path" $x
}
proc ::cmdr::validate::rpath::Ok {path} {
if {![file exists $path]} {return 0}
if {![file readable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Any path, existing and read/writable.
namespace eval ::cmdr::validate::rwpath {
................................................................................
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 1.3.1
return
|