1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
/*=========================================================================
Program: Visualization Toolkit
Module: PSystemTools.cxx
Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
All rights reserved.
See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
This software is distributed WITHOUT ANY WARRANTY; without even
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE. See the above copyright notice for more information.
=========================================================================*/
#include <mpi.h>
#include "vtkMPIController.h"
#include "vtkPSystemTools.h"
#include "vtkSmartPointer.h"
#define VTK_CREATE(type, name) \
vtkSmartPointer<type> name = vtkSmartPointer<type>::New()
int PSystemTools(int argc, char* argv[])
{
// This is here to avoid false leak messages from vtkDebugLeaks when
// using mpich. It appears that the root process which spawns all the
// main processes waits in MPI_Init() and calls exit() when
// the others are done, causing apparent memory leaks for any objects
// created before MPI_Init().
MPI_Init(&argc, &argv);
VTK_CREATE(vtkMPIController, controller);
controller->Initialize(&argc, &argv, 1);
controller->SetGlobalController(controller);
int retVal = 0; // success
std::string str;
if(controller->GetLocalProcessId() == 0)
{
str = "test";
}
vtkPSystemTools::BroadcastString(str, 0);
if(str != "test")
{
vtkGenericWarningMacro("BroadcastString failed for process " <<
controller->GetLocalProcessId());
retVal++;
}
str = vtkPSystemTools::GetCurrentWorkingDirectory();
std::string substr = str.substr(str.size()-24, str.size());
if(substr != "Parallel/MPI/Testing/Cxx")
{
vtkGenericWarningMacro("GetCurrentWorkingDirectory failed for process " <<
controller->GetLocalProcessId());
retVal++;
}
if(!vtkPSystemTools::FileIsDirectory(str))
{
vtkGenericWarningMacro("FileIsDirectory failed for process " <<
controller->GetLocalProcessId());
retVal++;
}
str += "/cmake_install.cmake";
if(!vtkPSystemTools::FileExists(str))
{
vtkGenericWarningMacro("FileExists failed for process " <<
controller->GetLocalProcessId());
retVal++;
}
controller->SetGlobalController(NULL);
controller->Finalize();
return retVal;
}
|
