|
|
|
|
@ -3765,7 +3765,7 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
|
|
|
|
|
#per-subcommand-flags reality the declaration cannot. |
|
|
|
|
@form -synopsis "make.tcl ?subcommand? ?flags?" |
|
|
|
|
@leaders -min 1 -max 1 |
|
|
|
|
subcommand -type string -optional 0 -choicecolumns 2 -& |
|
|
|
|
subcommand -type string -optional 0 -choicecolumns 1 -& |
|
|
|
|
-choicegroups {${$SUBGROUPS}} -& |
|
|
|
|
-choicelabels {${$SUMMARIES}} -& |
|
|
|
|
-help "Use 'make.tcl help <subcommand>' or 'make.tcl <subcommand> -help' for details of a subcommand." |
|
|
|
|
@ -3773,9 +3773,13 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
|
|
|
|
|
#Rich top-level overview (2026-08-02, the 'i info' style): each subcommand |
|
|
|
|
#cell carries its one-line summary plus the auto-generated bracket-notation |
|
|
|
|
#synopsis line(s) of that subcommand's OWN definition (per-form lines for |
|
|
|
|
#the multi-form tool/buildsuite), grouped by SUBGROUPS in two columns - |
|
|
|
|
#the same punk::args choices-table machinery punk::ns::cmdhelp uses for |
|
|
|
|
#built-in ensembles. Hung on a SEPARATE id so the label cost (a synopsis |
|
|
|
|
#the multi-form tool/buildsuite), grouped by SUBGROUPS - the same |
|
|
|
|
#punk::args choices-table machinery punk::ns::cmdhelp uses for built-in |
|
|
|
|
#ensembles. -choicecolumns is 1 for now: the one-line summaries are long |
|
|
|
|
#and a 2-column layout is too wide without table CELL WRAPPING - revisit |
|
|
|
|
#-choicecolumns 2 when that lands (user decision 2026-08-02; the '## FORM' |
|
|
|
|
#header lines are likewise deliberately dropped from the cells for |
|
|
|
|
#compactness). Hung on a SEPARATE id so the label cost (a synopsis |
|
|
|
|
#render per subcommand, a few ms total) is paid only when the top-level |
|
|
|
|
#help actually renders: the lean (script)::punkboot definition above stays |
|
|
|
|
#the dispatch surface, and overview_labels runs at lazy resolve time |
|
|
|
|
@ -3806,7 +3810,7 @@ if {[info exists ::env(PUNKBOOT_PLAIN)] && [string is true -strict $::env(PUNKBO
|
|
|
|
|
{${$TOPLEVEL_HELP}} |
|
|
|
|
@form -synopsis "make.tcl ?subcommand? ?flags?" |
|
|
|
|
@leaders -min 1 -max 1 |
|
|
|
|
subcommand -type string -optional 0 -choicecolumns 2 -& |
|
|
|
|
subcommand -type string -optional 0 -choicecolumns 1 -& |
|
|
|
|
-choicegroups {${$SUBGROUPS}} -& |
|
|
|
|
-choicelabels {${[::punkboot::argdoc::overview_labels]}} -& |
|
|
|
|
-help "Use 'make.tcl help <subcommand>' or 'make.tcl <subcommand> -help' for details of a subcommand." |
|
|
|
|
|