Tcl is a lovely engineers language ... but goodness you can do some nasty things with it, and write some unmaintainable code.

set count 1
foreach type {if while} {
  $type {$count < 5} {
    puts "yay $type $count"
    incr count
  }
}

Which runs as follows:

earth-wind-and-fire:~ grahamellis$ tclsh tty
yay if 1
yay while 2
yay while 3
yay while 4
earth-wind-and-fire:~

A sign of a pure interpretative language ... the code changing from an if to a while as it runs. Is this:
a) An example of how you should NOT write code
b) An example of polymorphism when you least expect it
c) A feature looking for a benefit
d) All three of the above
And the answer is, of course, (d)
(written 2009-06-29, updated 2009-06-30)

 T203 - Tcl/Tk - Conditionals and Loops
  [3571] Comparing loop commands in Tcl - (2012-01-06)
  [3570] Trapping errors in Tcl - the safety net that catch provides - (2012-01-06)
  [3397] Does a for loop evaluate its end condition once, or on every iteration? - (2011-08-18)
  [3189] Tcl - the danger of square brackets in a while command - (2011-03-02)
  [2681] Tcl - a great engineering language - (2010-03-17)
  [2471] A short form of if ... then ... else - (2009-10-23)
  [1696] Saying NOT in Perl, PHP, Python, Lua ... - (2008-07-04)
  [1477] Decisions - small ones, or big ones? - (2007-12-18)
  [1401] Tcl - using [] or {} for conditions in an if (and while) - (2007-10-23)
  [210] Joining lists in Tcl. Indirect variables in Tcl. - (2005-02-12)

Back to Important - the future of Melksham / Chamber of Commerce

Previous and next or Horse's mouth home

Forward to History is not always pretty

A chance to do the tourist thing
Learning about others private lives
Mysqldump fails as a cron job - a work around
History is not always pretty
Tcl - nice and nasty
Important - the future of Melksham / Chamber of Commerce
Grouping rows for a summary report - MySQL and PHP
Questions I have been asked on answering the phone
Ramblings on church and state linkage in Melksham
Is it Python past cheetah already?