commit 9d3ff32c30b002a3d6afb2dc82db5754add984b6
author Michael Walsh <micwalsh@us.ibm.com> Fri Mar 02 15:37:27 2018 -0600
committer George Keishing <gkeishin@in.ibm.com> Mon Mar 05 17:02:02 2018 +0000
tree 0920d1c968bd05b8caae7b115df68002db2987aa
parent 115842f07ca4ba40b0300fa16da4de53a0186fab

New gen_exit_proc procedure.

Change-Id: Iee9145eca077c46bceb9c767a83011d553d8326b
Signed-off-by: Michael Walsh <micwalsh@us.ibm.com>

lib/opt.tcl

diff --git a/lib/opt.tcl b/lib/opt.tcl
index 0c2a76e..50c8309 100755
--- a/lib/opt.tcl
+++ b/lib/opt.tcl
@@ -540,3 +540,16 @@
   trap { exit_proc } [list SIGTERM SIGINT]
 
 }
+
+
+proc gen_exit_proc { {ret_code 0} } {
+
+  # Call exit_proc if it is defined.  Otherwise, just call exit.
+
+  if { [info procs "exit_proc"] != "" } {
+    exit_proc $ret_code
+  } else {
+    exit $ret_code
+  }
+
+}