mirror of
https://github.com/OPM/ResInsight.git
synced 2025-01-01 03:37:15 -06:00
b050cac1d2
The building of Octave plugins within main ResInsight build on RHEL8 cause the build to use gcc-12, and gcc-12 is extremely slow when building opm-common. Adjust the CMake configuration so it is possible to build the Octave plugins as an independent build job. The plugin binaries can then be uploaded to an external server. The main ResInsight build can download the binaries and include them in the install package for ResInsight. Use the flag RESINSIGHT_USE_EXTERNAL_OCTAVE_PLUGINS to download external Octave plugin binaries.
139 lines
3.5 KiB
C++
139 lines
3.5 KiB
C++
#include <QtNetwork>
|
||
#include <QStringList>
|
||
|
||
#include <octave/oct.h>
|
||
|
||
#include "riSettings.h"
|
||
#include "RiaSocketDataTransfer.cpp" // NB! Include cpp-file to avoid linking of additional file in oct-compile configuration
|
||
|
||
|
||
|
||
|
||
void getCellCorners(NDArray& cellCornerValues, const QString &hostName, quint16 port, const qint32& caseId, const quint32& gridIndex)
|
||
{
|
||
QString serverName = hostName;
|
||
quint16 serverPort = port;
|
||
|
||
QTcpSocket socket;
|
||
socket.connectToHost(serverName, serverPort);
|
||
|
||
if (!socket.waitForConnected(riOctavePlugin::connectTimeOutMilliSecs))
|
||
{
|
||
error("Connection: %s",socket.errorString().toLatin1().data());
|
||
return;
|
||
}
|
||
|
||
// Create command and send it:
|
||
|
||
QString command = QString("GetCellCorners %1 %2").arg(caseId).arg(gridIndex);
|
||
QByteArray cmdBytes = command.toLatin1();
|
||
|
||
QDataStream socketStream(&socket);
|
||
socketStream.setVersion(riOctavePlugin::qtDataStreamVersion);
|
||
|
||
socketStream << (qint64)(cmdBytes.size());
|
||
socket.write(cmdBytes);
|
||
|
||
// Get response. First wait for the header
|
||
|
||
while (socket.bytesAvailable() < (int)(5 * sizeof(quint64)))
|
||
{
|
||
if (!socket.waitForReadyRead(riOctavePlugin::longTimeOutMilliSecs))
|
||
{
|
||
error("Waiting for header: %s",socket.errorString().toLatin1().data());
|
||
return;
|
||
}
|
||
}
|
||
|
||
quint64 cellCountI;
|
||
quint64 cellCountJ;
|
||
quint64 cellCountK;
|
||
quint64 cellCount;
|
||
quint64 byteCount;
|
||
|
||
socketStream >> cellCount;
|
||
socketStream >> cellCountI;
|
||
socketStream >> cellCountJ;
|
||
socketStream >> cellCountK;
|
||
socketStream >> byteCount;
|
||
|
||
if (!(byteCount && cellCount))
|
||
{
|
||
error ("Could not find the requested data in ResInsight");
|
||
return;
|
||
}
|
||
|
||
dim_vector dv;
|
||
dv.resize(5);
|
||
dv(0) = cellCountI;
|
||
dv(1) = cellCountJ;
|
||
dv(2) = cellCountK;
|
||
dv(3) = 8;
|
||
dv(4) = 3;
|
||
cellCornerValues.resize(dv);
|
||
|
||
double* internalMatrixData = cellCornerValues.fortran_vec();
|
||
QStringList errorMessages;
|
||
if (!RiaSocketDataTransfer::readBlockDataFromSocket(&socket, (char*)(internalMatrixData), byteCount, errorMessages))
|
||
{
|
||
for (int i = 0; i < errorMessages.size(); i++)
|
||
{
|
||
error("%s",errorMessages[i].toLatin1().data());
|
||
}
|
||
|
||
OCTAVE_QUIT;
|
||
}
|
||
|
||
return;
|
||
}
|
||
|
||
|
||
|
||
DEFUN_DLD (riGetCellCorners, args, nargout,
|
||
"Usage:\n"
|
||
"\n"
|
||
" riGetCellCorners([CaseId], GridIndex )\n"
|
||
"\n"
|
||
"This function returns the UTM coordinates (X, Y, Z) of the 8 corners of all the cells in the grid.\n"
|
||
"If the CaseId is not defined, ResInsight<68>s Current Case is used.\n"
|
||
)
|
||
{
|
||
int nargin = args.length ();
|
||
if (nargin > 2)
|
||
{
|
||
error("riGetCellCorners: Too many arguments. CaseId is optional input argument.\n");
|
||
print_usage();
|
||
}
|
||
else if (nargout < 1)
|
||
{
|
||
error("riGetCellCorners: Missing output argument.\n");
|
||
print_usage();
|
||
}
|
||
else
|
||
{
|
||
NDArray cellCornerValues;
|
||
|
||
qint32 caseId = -1;
|
||
quint32 gridIndex = 0;
|
||
|
||
if (nargin == 1)
|
||
{
|
||
gridIndex = args(0).uint_value();
|
||
}
|
||
else if (nargin == 2)
|
||
{
|
||
unsigned int argCaseId = args(0).uint_value();
|
||
caseId = argCaseId;
|
||
|
||
gridIndex = args(1).uint_value();
|
||
}
|
||
|
||
getCellCorners(cellCornerValues, "127.0.0.1", riOctavePlugin::portNumber(), caseId, gridIndex);
|
||
|
||
return octave_value(cellCornerValues);
|
||
}
|
||
|
||
return octave_value();
|
||
}
|
||
|