platform{} statement

[René J. V. Bertin]

Gustaf Neumann wrote:

> The code below is more in line with current tcl code practice

Seems to work too

> (untested, using e.g. tcl index expressions).

after correcting a few omissions ;)

>      if {$len < 1} {

My code has 2 here, and I think that's reasonable ("platform darwin" on its own 
doesn't make a lot of sense).

Need to set os and arch before this line:

>      } elseif {$altcode ne ""} {

Purely academic: with the introduction of the consumed variable one can replace 
this with "elseif {$consumed == 3}" ... but if everything is a string in Tcl 
that might actually be a more expensive operation?

R.