SecuritySNACCRuntime/tcl-lib/make-snacced

   1 #!/bin/sh
   2
   3 if [ $# -ne 3 ]; then
   4   echo "usage: $0 script wish tcldir" 1>&2
   5   exit 1
   6 fi
   7
   8 set -e
   9
  10 exec 1> "$1"
  11
  12 echo "#!$2 -f"
  13 echo "set auto_path [linsert \$auto_path 0 $3]"
  14 echo "snacced"
  15
  16 chmod +x "$1"