cmdr
Check-in [b191a41b17]
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 [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:cmdr::table - Bump to version 0.3 - Modified table output generator to trim trailing whitepace from all generated lines, per line.
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA3-256: b191a41b176d65c4d1c3a1816ceb0ccb73f1c106e7c49a1919cbe43b74f2f300
User & Date: aku 2019-07-06 00:21:30
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to doc/cmdr_table.man.

1
2
3
4
5
6
7
8
9
10
[comment {-*- tcl -*- doctools manpage}]
[include parts/definitions.inc]
[vset VERSION 0.1]
[manpage_begin [vset LABEL_TABLE] [vset MAN_SECTION] [vset VERSION]]
[include parts/module.inc]
[require cmdr::util]
[titledesc [vset TITLE_TABLE]]
[description]
[include parts/welcome.inc]


|







1
2
3
4
5
6
7
8
9
10
[comment {-*- tcl -*- doctools manpage}]
[include parts/definitions.inc]
[vset VERSION 0.3]
[manpage_begin [vset LABEL_TABLE] [vset MAN_SECTION] [vset VERSION]]
[include parts/module.inc]
[require cmdr::util]
[titledesc [vset TITLE_TABLE]]
[description]
[include parts/welcome.inc]

Changes to utilities/table.tcl.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
275
276
277
278
279
280
281







282
283
284
285
286
287
288
...
325
326
327
328
329
330
331
332
# # ## ### ##### ######## ############# #####################
## 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
# Meta subject {command line} table matrix report
# Meta require {Tcl 8.5-}
................................................................................
	    # 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]
    }

    # # ## ### ##### ######## #############
    ## Internal commands.

    # # ## ### ##### ######## #############
................................................................................
    }

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

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::table 0.2






|







 







>
>
>
>
>
>
>







 







|
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
...
332
333
334
335
336
337
338
339
# # ## ### ##### ######## ############# #####################
## Easy table generation

# TODO: control colorization a bit more - Allow for global and
# per-table suppression.

# @@ Meta Begin
# Package cmdr::table 0.3
# 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
# Meta subject {command line} table matrix report
# Meta require {Tcl 8.5-}
................................................................................
	    # 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

	set tmp {}
	foreach line [split $str \n] {
	    lappend tmp [string trimright $line]
	}
	set str [join $tmp \n]
	
	return [string trimright $str]
    }

    # # ## ### ##### ######## #############
    ## Internal commands.

    # # ## ### ##### ######## #############
................................................................................
    }

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

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::table 0.3