archive/bin/make-exe

   1 #!/bin/sh
   2 # comment \
   3 exec tclsh8.0 "$0" "$@"
   4
   5 proc getFile { file } {
   6  set f [open $file r]
   7  fconfigure $f -translation binary
   8  while { ![eof $f]  } {
   9   append data [read $f]
  10   }
  11  close $f
  12  return $data
  13 }
  14
  15
  16
  17 if { $argc < 1 } {
  18   error "make-exe foo.exe"
  19 }
  20
  21 set fi [open [lindex $argv 0] w]
  22 fconfigure $fi -translation binary
  23
  24
  25
  26
  27
  28
  29
  30