Line | |
---|
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.