TABLE OF CONTENTS
::pwtk::prerun
SYNOPSIS
proc ::pwtk::prerun {prog args} {
USAGE
prerun PROG ... get the prerun script for the PROG program prerun PROG { SCRIPT } ... set the prerun script for the PROG program prerun PROG {} --+ prerun PROG clear --+-- ... clear the prerun script for the PROG program prerun PROG append { SCRIPT } ... append SCRIPT to the prerun script for the PROG program
PURPOSE
Get, set, append, or clear a script that is executed just before running the PROG program.
Example:
prerun pw.x { puts "Time before the pw.x execution: [clock format [clock seconds]]" }
ARGUMENTS
- PROG -- canonical name of the QE program, i.e., pw.x, pp.x...
- SCRIPT -- script code to execute before running the PROG program.
RETURN VALUE
The prerun script for the PROG program or empty string if the script does not exist.
SOURCE
return [::pwtk::xxxrun_ prerun $prog {*}$args] }