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
|
// SPDX-FileCopyrightText: Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
// SPDX-License-Identifier: BSD-3-Clause
#include <vtk_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(nullptr);
controller->Finalize();
return retVal;
}
|
