| 1 |
capture program drop exit_message |
| 2 |
program exit_message |
| 3 |
syntax, rc(int) progname(str) start_time(str) [CAPture] |
| 4 |
local end_time "$S_TIME $S_DATE" |
| 5 |
local time "Start: `start_time'" _n(1) "End: `end_time'" |
| 6 |
di "" |
| 7 |
if (`rc' == 0) { |
| 8 |
di "End: $S_TIME $S_DATE" |
| 9 |
local paux ran |
| 10 |
local message "`progname' finished running" _n(2) "`time'" |
| 11 |
local subject "`progname' `paux'" |
| 12 |
} |
| 13 |
else if ("`capture'" == "") { |
| 14 |
di "WARNING: $S_TIME $S_DATE" |
| 15 |
local paux ran with non-0 exit status |
| 16 |
local message "`progname' ran but Stata gave error code r(`rc')" _n(2) "`time'" |
| 17 |
local subject "`progname' `paux'" |
| 18 |
} |
| 19 |
else { |
| 20 |
di "ERROR: $S_TIME $S_DATE" |
| 21 |
local paux ran with errors |
| 22 |
local message "`progname' stopped with error code r(`rc')" _n(2) "`time'" |
| 23 |
local subject "`progname' `paux'" |
| 24 |
} |
| 25 |
di "`subject'" |
| 26 |
di "" |
| 27 |
di "`message'" |
| 28 |
end |
| 29 |
|
| 30 |
* From https://github.com/mcaceresb/stata-gtools/blob/fad519ef0454936d450802ac732728ba953957ac/src/test/gtools_tests.do |
| 31 |
|
