Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Bump versions of cmdr::color and cmdr::ask to 1. Fixed a prompt issue in cmdr::ask::string*. Extended debug narrative regarding prompt handling. |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
9d0fa722e9ba9e357f264bffa2bf626e |
User & Date: | andreask 2014-08-27 23:41:25.237 |
Context
2014-08-29
| ||
05:07 | Tweaked output for help --full, added option arguments for options requiring them. check-in: 84658915a6 user: aku tags: trunk | |
2014-08-27
| ||
23:41 | Bump versions of cmdr::color and cmdr::ask to 1. Fixed a prompt issue in cmdr::ask::string*. Extended debug narrative regarding prompt handling. check-in: 9d0fa722e9 user: andreask tags: trunk | |
2014-08-26
| ||
20:56 | Fix another oops. check-in: db22847a09 user: andreask tags: trunk | |
Changes
Changes to ask.tcl.
︙ | ︙ | |||
117 118 119 120 121 122 123 | } return $response } proc ::cmdr::ask::string* {query} { debug.cmdr/ask {} | > | < | 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 | } return $response } proc ::cmdr::ask::string* {query} { debug.cmdr/ask {} Chop query {: } append query {: } ;# TODO: allow customization (string prompt string) try { set response [Interact {*}[Fit $query 10] -hidden 1] } on error {e o} { if {$e eq "aborted"} { error Interrupted error SIGTERM } |
︙ | ︙ | |||
331 332 333 334 335 336 337 338 339 340 341 342 343 344 | # set header [join [lreverse [lassign [lreverse [split $prompt \n]] prompt]] \n] append prompt { } return [list $header $prompt] } proc ::cmdr::ask::Chop {var charset} { upvar 1 $var text set text [::string trimright $text $charset] return } proc ::cmdr::ask::Ensure {var char} { upvar 1 $var text | > > > > | > > > > > | | 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 | # set header [join [lreverse [lassign [lreverse [split $prompt \n]] prompt]] \n] append prompt { } return [list $header $prompt] } proc ::cmdr::ask::Chop {var charset} { debug.cmdr/ask {} upvar 1 $var text set text [::string trimright $text $charset] debug.cmdr/ask {/done ==> ($text)} return } proc ::cmdr::ask::Ensure {var char} { debug.cmdr/ask {} upvar 1 $var text if {[::string index $text end] eq $char} { debug.cmdr/ask {/done, no change} return } append text $char debug.cmdr/ask {/done ==> ($text)} return } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::ask 1 |
Changes to color.tcl.
︙ | ︙ | |||
342 343 344 345 346 347 348 | lappend smap $c $o } lappend smap \127 \\127 } ::cmdr::color} # # ## ### ##### ######## ############# ##################### ## Ready | | | 342 343 344 345 346 347 348 349 | lappend smap $c $o } lappend smap \127 \\127 } ::cmdr::color} # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::color 1 |