cmdr
Check-in [41becb3194]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Bumped cmdr version to 0.5
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:41becb31949be7f7ee87621f1c41c4c97ea7e057
User & Date: andreask 2013-10-16 19:21:43
Context
2013-10-17
18:16
Tweaked the formatting of arguments in the generated help. check-in: fe780034dd user: andreask tags: trunk
2013-10-16
19:21
Bumped cmdr version to 0.5 check-in: 41becb3194 user: andreask tags: trunk
19:20
Extended DSL for privates with command to record category/section information for help. Extended the help system with a by-category format, and made it default when not looking for a specific command. ATTENTION: The API between help core and formats did change, the root actor of the command tree is now supplied. New common block *category-order* to declare a bespoke ordering of categories. check-in: 465f1bd7c6 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to actor.tcl.

309
310
311
312
313
314
315
316

    ##
    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::actor 0.4







|
309
310
311
312
313
314
315
316

    ##
    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::actor 0.5

Changes to cmdr.tcl.

71
72
73
74
75
76
77
78
proc ::cmdr::interactive? {} {
    variable interactive
    return  $interactive
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr 0.4







|
71
72
73
74
75
76
77
78
proc ::cmdr::interactive? {} {
    variable interactive
    return  $interactive
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr 0.5

Changes to config.tcl.

1347
1348
1349
1350
1351
1352
1353
1354
    }

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::config 0.4







|
1347
1348
1349
1350
1351
1352
1353
1354
    }

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::config 0.5

Changes to help.tcl.

493
494
495
496
497
498
499
500
    } else {
	return {}
    }
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 0.4







|
493
494
495
496
497
498
499
500
    } else {
	return {}
    }
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::help 0.5

Changes to officer.tcl.

612
613
614
615
616
617
618
619
	myreplexit myhandler

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::officer 0.4







|
612
613
614
615
616
617
618
619
	myreplexit myhandler

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::officer 0.5

Changes to parameter.tcl.

1139
1140
1141
1142
1143
1144
1145
1146
	myisdocumented myonlypresence myisdefered

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::parameter 0.4







|
1139
1140
1141
1142
1143
1144
1145
1146
	myisdocumented myonlypresence myisdefered

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::parameter 0.5

Changes to private.tcl.

165
166
167
168
169
170
171
172
    variable myarguments mycmd myinit myconfig myhandler

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::private 0.4







|
165
166
167
168
169
170
171
172
    variable myarguments mycmd myinit myconfig myhandler

    # # ## ### ##### ######## #############
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::private 0.5

Changes to util.tcl.

58
59
60
61
62
63
64
65
    set res {}
    foreach str $list { lappend res [format "%-*s" $maxl $str] }
    return $res
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::util 0.4







|
58
59
60
61
62
63
64
65
    set res {}
    foreach str $list { lappend res [format "%-*s" $maxl $str] }
    return $res
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::util 0.5

Changes to validate.tcl.

316
317
318
319
320
321
322
323
324
    if {![file readable    $path]} {return 0}
    if {![file writable    $path]} {return 0}
    return 1
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 0.4
return







|

316
317
318
319
320
321
322
323
324
    if {![file readable    $path]} {return 0}
    if {![file writable    $path]} {return 0}
    return 1
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate 0.5
return

Changes to vcommon.tcl.

105
106
107
108
109
110
111
112
113

    debug.cmdr/validate/common {= [join $candidates "\n= "]} 10
    return $candidates
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate::common 0.4
return







|

105
106
107
108
109
110
111
112
113

    debug.cmdr/validate/common {= [join $candidates "\n= "]} 10
    return $candidates
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::validate::common 0.5
return