added execute(cmd,last), execute(data,last), execute(status,last) for post-mortem inspection of last simulation

This commit is contained in:
stefan schippers 2023-03-04 23:22:31 +01:00
parent 4003747667
commit e3d5dc9cd9
1 changed files with 3 additions and 0 deletions

View File

@ -253,6 +253,9 @@ proc execute_fileevent {id} {
uplevel #0 "eval $execute(callback,$id)"
unset execute(callback,$id)
}
set execute(cmd,last) $execute(cmd,$id)
set execute(data,last) $execute(data,$id)
set execute(status,last) $execute(status,$id)
unset execute(pipe,$id)
unset execute(data,$id)
unset execute(status,$id)