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.990 |
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 |
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} {
| | < | | 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 |
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 {
|
| ︙ | ︙ | |||
536 537 538 539 540 541 542 |
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 535 536 537 538 539 540 541 542 543 |
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 1.3.1
return
|