tnt 497 B

12345678910111213141516171819202122
  1. #! /bin/sh
  2. #------------------------------------------------------------
  3. #
  4. # tnt
  5. #
  6. # TNT Transmission Line Analysis Tool suite
  7. #
  8. # Main program - initial script.
  9. # This script acts as a front end to tnt.tcl.
  10. #
  11. # Copyright (C) Mayo Foundation. All Rights Reserved.
  12. #
  13. # $Id: tnt,v 1.1 2004/07/21 16:32:26 techenti Exp $
  14. #
  15. #------------------------------------------------------------
  16. # Restart using wish \
  17. exec wish "$0" ${1+"$@"}
  18. source [file join [file dirname [info script]] tnt.tcl]