Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Bump cmdr::table to v0.2. The rewrite to the (no)header logic left the header row in the output, and now even colorized. Noted with the CM website generation, where these color control sequences leaked into HTML output. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
972556826b12aabadc8c0f230b4f0e6e |
| User & Date: | aku 2017-09-12 17:24:08.622 |
Context
|
2019-07-06
| ||
| 00:21 | cmdr::table - Bump to version 0.3 - Modified table output generator to trim trailing whitepace from all generated lines, per line. Leaf check-in: b191a41b17 user: aku tags: trunk | |
|
2017-09-12
| ||
| 17:24 | Bump cmdr::table to v0.2. The rewrite to the (no)header logic left the header row in the output, and now even colorized. Noted with the CM website generation, where these color control sequences leaked into HTML output. check-in: 972556826b user: aku tags: trunk | |
|
2017-09-02
| ||
| 21:21 | Additional tracing of command prefix resolution check-in: 7bf67db33e user: aku tags: trunk | |
Changes
Changes to utilities/table.tcl.
1 2 3 4 5 6 7 8 9 10 11 |
# -*- tcl -*-
# # ## ### ##### ######## ############# #####################
## Easy table generation
# @@ Meta Begin
# Package cmdr::table 0.1
# Meta author {Andreas Kupries}
# Meta location https://core.tcl.tk/akupries/cmdr
# Meta platform tcl
# Meta summary Easy generation of tables
# Meta description Easy generation of tables
| > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
# -*- tcl -*-
# # ## ### ##### ######## ############# #####################
## Easy table generation
# TODO: control colorization a bit more - Allow for global and
# per-table suppression.
# @@ Meta Begin
# Package cmdr::table 0.1
# Meta author {Andreas Kupries}
# Meta location https://core.tcl.tk/akupries/cmdr
# Meta platform tcl
# Meta summary Easy generation of tables
# Meta description Easy generation of tables
|
| ︙ | ︙ | |||
263 264 265 266 267 268 269 270 271 272 273 274 275 276 |
debug.cmdr/table {==> ($thestyle)}
return $thestyle
}
method String {} {
debug.cmdr/table {}
set r [report::report [self namespace]::R [M columns] style [my Style]]
set str [M format 2string $r]
$r destroy
return [string trimright $str]
}
# # ## ### ##### ######## #############
| > > > > > > | 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 |
debug.cmdr/table {==> ($thestyle)}
return $thestyle
}
method String {} {
debug.cmdr/table {}
if {!$myheaders} {
# Remove the header row pushed by the constructor.
M delete row 0
}
set r [report::report [self namespace]::R [M columns] style [my Style]]
set str [M format 2string $r]
$r destroy
return [string trimright $str]
}
# # ## ### ##### ######## #############
|
| ︙ | ︙ | |||
316 317 318 319 320 321 322 |
}
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
| | | 325 326 327 328 329 330 331 332 |
}
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::table 0.2
|