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 | trunk |
| Files: | files | file ages | folders |
| SHA1: |
972556826b12aabadc8c0f230b4f0e6e |
| User & Date: | aku 2017-09-12 17:24:08 |
Context
|
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. Leaf 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 ... 263 264 265 266 267 268 269 270 271 272 273 274 275 276 ... 316 317 318 319 320 321 322 323 |
# -*- 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
................................................................................
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]
}
# # ## ### ##### ######## #############
................................................................................
}
# # ## ### ##### ######## #############
}
# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::table 0.1
|
> > > > > > > > > | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 ... 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 ... 325 326 327 328 329 330 331 332 |
# -*- 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 ................................................................................ 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] } # # ## ### ##### ######## ############# ................................................................................ } # # ## ### ##### ######## ############# } # # ## ### ##### ######## ############# ##################### ## Ready package provide cmdr::table 0.2 |