Rev | Line | |
---|
[97] | 1 | # |
---|
| 2 | # Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana |
---|
| 3 | # University Research and Technology |
---|
| 4 | # Corporation. All rights reserved. |
---|
| 5 | # Copyright (c) 2004-2005 The University of Tennessee and The University |
---|
| 6 | # of Tennessee Research Foundation. All rights |
---|
| 7 | # reserved. |
---|
| 8 | # Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, |
---|
| 9 | # University of Stuttgart. All rights reserved. |
---|
| 10 | # Copyright (c) 2004-2005 The Regents of the University of California. |
---|
| 11 | # All rights reserved. |
---|
| 12 | # $COPYRIGHT$ |
---|
| 13 | # |
---|
| 14 | # Additional copyrights may follow |
---|
| 15 | # |
---|
| 16 | # $HEADER$ |
---|
| 17 | # |
---|
| 18 | |
---|
| 19 | # Check if the newly loaded image is one of the MPI starter programs |
---|
| 20 | # and start it immediately if it is. |
---|
| 21 | |
---|
| 22 | proc mpi_auto_run_starter {loaded_id} { |
---|
| 23 | set starter_programs {mpirun mpiexec orterun} |
---|
| 24 | set executable_name [TV::symbol get $loaded_id full_pathname] |
---|
| 25 | set file_component [file tail $executable_name] |
---|
| 26 | |
---|
| 27 | if {[lsearch -exact $starter_programs $file_component] != -1} { |
---|
| 28 | puts "**************************************" |
---|
| 29 | puts "Automatically starting $file_component" |
---|
| 30 | puts "**************************************" |
---|
| 31 | dgo |
---|
| 32 | } |
---|
| 33 | } |
---|
| 34 | |
---|
| 35 | # Append this function to TotalView's image load callbacks so that |
---|
| 36 | # TotalView run this program automatically. |
---|
| 37 | |
---|
| 38 | dlappend TV::image_load_callbacks mpi_auto_run_starter |
---|
Note: See
TracBrowser
for help on using the repository browser.