blob: 3e677944ce883cbeb04422864cc51bad01032ae2 [file] [log] [blame]
#!/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