Table creation: Difference between revisions
Content added Content deleted
(→{{header|PostgreSQL}}: + Tcl) |
m (→{{header|Tcl}}) |
||
Line 38:
=={{header|Tcl}}==
Tables, as used in relational databases, seem far away conceptually from Tcl. However, the following code demonstrates how a table (implemented as a list of lists, the first being the header line) can be type-checked and rendered:
<lang Tcl>proc table_update {_tbl row args} {
upvar $_tbl tbl
set heads [lindex $tbl 0]
Line 110 ⟶ 109:
balance 0.0 \
created 2009-05-14
puts [table_format $mytbl]</lang>
Output:
<pre>
| |||