templates/pgm_template.tcl

#!/bin/bash
#\
exec wish "$0" -- ${1+"$@"}

source [exec bash -c "which source.tcl"]
my_source [list print.tcl opt.tcl]

longoptions test_mode:=0 quiet:=0
pos_parms


# Create help dictionary for call to gen_print_help.
set help_dict [dict create\
  ${program_name} [list "${program_name} will..."]\
]


proc help {} {

  gen_print_help

}


proc exit_proc { {ret_code 0} } {

  # Execute whenever the program ends normally or with the signals that we
  # catch (i.e. TERM, INT).

  dprint_executing
  dprint_var ret_code

  # Your code here.

  qprint_pgm_footer

  exit $ret_code

}


proc validate_parms {} {

  trap { exit_proc } [list SIGTERM SIGINT]

  # Your code here.

}


# Main

  gen_get_options $argv

  validate_parms

  qprint_pgm_header

  exit_proc