New pgm_template.tcl file
Change-Id: Ib1f5a334a9cc66f353148b2acb1e8c6ccfc06e5b
Signed-off-by: Michael Walsh <micwalsh@us.ibm.com>
diff --git a/templates/pgm_template.tcl b/templates/pgm_template.tcl
new file mode 100755
index 0000000..3e67794
--- /dev/null
+++ b/templates/pgm_template.tcl
@@ -0,0 +1,59 @@
+#!/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