85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
-
+
|
set format [namespace tail $c]
lappend formats --$format
lappend options [string map [list @c@ $format] {
option @c@ {
Activate @c@ form of the help.
} {
presence
when-set [lambda {x} { cmdr::parameter config @format set @c@ }]
when-set [lambda {p x} { $p config @format set @c@ }]
}}]
}
lappend map @formats@ [linsert [join $formats {, }] end-1 and]
lappend map @options@ [join $options \n]
lappend map @actor@ $actor
|
