Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
# This file:
# (find-angg "LUA/vectors.lua")

# From:
# (find-angg "DAVINCI/tcmd.tcl")
package require Expect
proc writefile {fname s} {
  set f [open $fname w]; puts -nonewline $f $s; close $f
}
proc readfile {fname} {
  set f [open $fname r]; set s [read $f]; close $f
  return $s
}
proc pidfile {} { return /tmp/ee.tcmd.pid }
proc tclfile {} { return /tmp/ee.tcmd.tcl }
writefile [pidfile] "[pid]\n"
trap {source [tclfile]} USR2

package require Tk