start.tcl 563 B

1234567891011121314151617181920
  1. #!/usr/bin/env tclsh
  2. #
  3. # Start application from source code.
  4. #
  5. # Copyright 2015-2017 OpenIndex.de.
  6. # Distributed under the MIT License.
  7. # See accompanying LICENSE.txt file or at http://opensource.org/licenses/MIT
  8. #
  9. # initialization
  10. source [file join [file normalize [file dirname $argv0]] init.tcl]
  11. puts ""
  12. puts "========================================================================="
  13. puts " $PROJECT $VERSION: start application"
  14. puts "========================================================================="
  15. puts ""
  16. cd $SRC_DIR
  17. exec $TCLKIT "main.tcl" &