tcl scipt

if { ![clength $line] || [cequal $line x20] || [regexp ^x02+$ $line] }

        { set line “.”            ; # for empty lines support in itn01 }

       else

        { set line [split [string trimright $line x02] ” “] }

![clength $line]  = is saying that as long as the length of $line is not equal to zero

[cequal $line x20] = is checking to see if $line is equal to space

[regexp ^x02+$ $line] = checks for (I think) if there are multiple start of text characters in $line.  I believe the ^ and the $ is having it check for it either at the beginning of the line or the end of the line.

Any of you tcl experts, by all means, correct me where I may be mistaken.

Thanks…Tom

if { ![clength $line] || [cequal $line x20] || [regexp ^x02+$ $line] }

       { set line “.”            ; # for empty lines support in itn01 }

      else

       { set line [split [string trimright $line x02] ” “] }

What it does in very poor fashion  🙂

If the line is not empty OR the line is equal to a single space OR the line starts with an STX (Hex 02) character set the line to period.  ELSE

set the line to a list splitting on the STX character and ad a space at the end.  (I assume he wants to add an element?)

The ORs do not make sense since if line contains a space or a STX it will not  be empty.  I would assume it should read

 if { ![clength $line] && ( [cequal $line x20] || [regexp ^x02+$ $line]) }

Even then it is poor code

I’ve spent too much time on this but it was fun.

Here’s what I suggest:

1) There is a typo, (s)he never meant x02, they meant x20 (space).

And what you actually get is:

If there is no length to line (empty) OR line is a single space OR line is all spaces, then set line to a period OTHERWISE split the line into words (in list form after removing all trailing spaces).

Excercise:

But to answer the orginal question, it is doing the following:

If there is no length to line (empty) OR line is a single space OR line is all characters, then set line to a period OTHERWISE split the line into words based on spaces (in list form after removing all trailing characters).

You can look up ascii table on the web or here’s a link:

http://www.asciitable.com

Hex is usually represented as maybe x02 in code so you would remove the x part and the rest is the number to look up (02). The tables usually don’t zero fill the value so look up 2.

There is also EBCDIC which is another can of worms.

I found this interesting blurb at http://en.wikipedia.org/wiki/Extended_Binary_Coded_Decimal_Interchange_Code

Open source software advocate and hacker Eric S. Raymond writes in his Jargon File that EBCDIC was almost universally loathed by early hackers and programmers because of its multitude of different versions, none of which resembled the other versions, and that IBM produced it in direct competition with the already-established ASCII.

The Jargon file 4.4.7 gives the following definition:

There is tool called HEX editor that my collegue suggested. You can look into that too. You can use it for editing binary files of any size, searching and replacing your data in a binary file etc

http://www.hhdsoftware.com/Products/home/hex-editor-free.html