Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Draft code for additional vtypes: Paths, with appropriate open channels as internal rep. |
|---|---|
| Timelines: | family | ancestors | descendants | both | more-vtypes |
| Files: | files | file ages | folders |
| SHA1: |
209bf08a8617b3e3fa2b4601248bc913 |
| User & Date: | aku 2014-02-19 19:11:17.302 |
Context
|
2014-02-19
| ||
| 19:39 | Modified the checks for wfile/wchan to allow non-existing files which can be created (per permissions). check-in: 9ab661bcd1 user: andreask tags: more-vtypes | |
| 19:11 | Draft code for additional vtypes: Paths, with appropriate open channels as internal rep. check-in: 209bf08a86 user: aku tags: more-vtypes | |
|
2014-02-17
| ||
| 23:29 | Excluded auto-added commands from categorized help. check-in: 7e77c5a0be user: andreask tags: trunk | |
Changes
Changes to validate.tcl.
| ︙ | ︙ | |||
29 30 31 32 33 34 35 |
namespace eval ::cmdr {
namespace export validate
namespace ensemble create
}
namespace eval ::cmdr::validate {
namespace export boolean integer double percent identity \
| | > | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
namespace eval ::cmdr {
namespace export validate
namespace ensemble create
}
namespace eval ::cmdr::validate {
namespace export boolean integer double percent identity \
pass str rfile wfile rwfile rdirectory rwdirectory \
rpath rwpath rchan wchan rwchan
#namespace ensemble create
# For external v-types relying on them here.
namespace import ::cmdr::validate::common::fail
namespace import ::cmdr::validate::common::complete-enum
}
|
| ︙ | ︙ | |||
213 214 215 216 217 218 219 220 221 222 223 224 225 226 |
proc ::cmdr::validate::rfile::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isfile $path]} {return 0}
if {![file readable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## File, existing and read/writable
namespace eval ::cmdr::validate::rwfile {
namespace export default validate complete release
namespace ensemble create
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 |
proc ::cmdr::validate::rfile::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isfile $path]} {return 0}
if {![file readable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## File, existing and writable
namespace eval ::cmdr::validate::wfile {
namespace export default validate complete release
namespace ensemble create
namespace import ::cmdr::validate::common::fail
namespace import ::cmdr::validate::common::complete-glob
}
proc ::cmdr::validate::wfile::release {p x} { return }
proc ::cmdr::validate::wfile::default {p} { return {} }
proc ::cmdr::validate::wfile::complete {p x} {
debug.cmdr/validate {} 10
complete-glob ::cmdr::validate::wfile::Ok $x
}
proc ::cmdr::validate::wfile::validate {p x} {
debug.cmdr/validate {}
if {[Ok $x]} { return $x }
fail $p WFILE "an existing writable file" $x
}
proc ::cmdr::validate::wfile::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isfile $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## File, existing and read/writable
namespace eval ::cmdr::validate::rwfile {
namespace export default validate complete release
namespace ensemble create
|
| ︙ | ︙ | |||
364 365 366 367 368 369 370 371 372 373 374 375 |
proc ::cmdr::validate::rwpath::Ok {path} {
if {![file exists $path]} {return 0}
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 1.2
return
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 |
proc ::cmdr::validate::rwpath::Ok {path} {
if {![file exists $path]} {return 0}
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Channel, for existing and readable file. Defaults to stdin.
namespace eval ::cmdr::validate::rchan {
namespace export default validate complete release
namespace ensemble create
namespace import ::cmdr::validate::common::fail
namespace import ::cmdr::validate::common::complete-glob
}
proc ::cmdr::validate::rchan::release {p x} {
if {$x eq "stdin"} return
close $x
return
}
proc ::cmdr::validate::rchan::default {p} { return stdin }
proc ::cmdr::validate::rchan::complete {p x} {
debug.cmdr/validate {} 10
complete-glob ::cmdr::validate::rchan::Ok $x
}
proc ::cmdr::validate::rchan::validate {p x} {
debug.cmdr/validate {}
if {[Ok $x]} { return [open $x r] }
fail $p RCHAN "an existing readable file" $x
}
proc ::cmdr::validate::rchan::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isfile $path]} {return 0}
if {![file readable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Channel, for existing and writable file. Defaults to stdout.
namespace eval ::cmdr::validate::wchan {
namespace export default validate complete release
namespace ensemble create
namespace import ::cmdr::validate::common::fail
namespace import ::cmdr::validate::common::complete-glob
}
proc ::cmdr::validate::wchan::release {p x} {
if {$x eq "stdout"} return
close $x
return
}
proc ::cmdr::validate::wchan::default {p} { return stdout }
proc ::cmdr::validate::wchan::complete {p x} {
debug.cmdr/validate {} 10
complete-glob ::cmdr::validate::wchan::Ok $x
}
proc ::cmdr::validate::wchan::validate {p x} {
debug.cmdr/validate {}
if {[Ok $x]} { return [open $x w] }
fail $p WCHAN "an existing writable file" $x
}
proc ::cmdr::validate::wchan::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isfile $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Channel, for existing and read/writable file. No default.
namespace eval ::cmdr::validate::rwchan {
namespace export default validate complete release
namespace ensemble create
namespace import ::cmdr::validate::common::fail
namespace import ::cmdr::validate::common::complete-glob
}
proc ::cmdr::validate::rwchan::release {p x} { close $x }
proc ::cmdr::validate::rwchan::default {p} { return {} }
proc ::cmdr::validate::rwchan::complete {p x} {
debug.cmdr/validate {} 10
complete-glob ::cmdr::validate::rwchan::Ok $x
}
proc ::cmdr::validate::rwchan::validate {p x} {
debug.cmdr/validate {}
if {[Ok $x]} { return [open $x w+] }
fail $p RWCHAN "an existing read/writable file" $x
}
proc ::cmdr::validate::rwchan::Ok {path} {
if {![file exists $path]} {return 0}
if {![file isfile $path]} {return 0}
if {![file readable $path]} {return 0}
if {![file writable $path]} {return 0}
return 1
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 1.2
return
|