To little endian

This shell script is useful for C defines or character arrays where you want a little-endian representation of some value in octal or hex. For example:

 $ tle 153
 \231\000

or if you're initializing a word:

 $ tle 70053 4
  \245\021\001\000

I hardlink it to tlex and it will output in hex format:

 $  tlex 153
 \x99\x00
 $ tlex 70053 4
 \xa5\x11\x01\x00

 #!/bin/sh
 # don't exec tclsh from tclsh \
  exec tclsh $0 ${1+"$@"}

 proc to_little_endian {n {size 2}} {
 
     set lsb 0;
     for {set x $n; set s [expr {$size - 1}]} {$s >= 0}  {incr s -1} {
         set msb($s) [expr $x >> (8 * $s)]
         set x [expr $x - ($msb($s) << (8 * $s))]
     }
     set out ""
     for {set s 0} {$s < $size} {incr s} {
         append out [format "\\%03o" $msb($s)]
     }
     set out
 }
 
 proc to_little_endian_hex {n {size 2}} {
 
     set lsb 0;
     array set msb {}
     for {set x $n; set s [expr {$size - 1}]} {$s >= 0}  {incr s -1} {
         set msb($s) [expr $x >> (8 * $s)]
         set x [expr $x - ($msb($s) << (8 * $s))]
     }
 
     set out ""
     for {set s 0} {$s < $size} {incr s} {
         append out [format "\\x%02x" $msb($s)]
     }
     set out
 }
 
 proc tle {n {size 2}} {to_little_endian $n $size}
 proc tlex {n {size 2}} {to_little_endian_hex $n $size}
 
 if {$argc} {
     if {[string match *x  $argv0]} {
         set r [eval [concat tlex $argv]]
     } else {
         set r [eval [concat tle $argv]]
     }
     puts $r
 } else {
     puts "usage:"
     puts "   Convert a decimal number to oct or hex in little endian format"
     puts "   tle output an octal value in little endian"
     puts "   tle output a hex value in little endian"
     puts "   tle <n> \[<size>\] where n is a decimal number and size is number of bytes"
     puts "   or tle x <n> \[<size>\] where n is a decimal number and size is number of bytes"
 }