71 lines
2.2 KiB
C++
71 lines
2.2 KiB
C++
|
/*
|
||
|
|
|
||
|
|
*/
|
||
|
|
#include <ListUtils.h>
|
||
|
|
#include <StandardTypes.h>
|
||
|
|
#include "StartLoopbackTESClient.h"
|
||
|
|
#include "../../MessageBroker/MessageBroker.h"
|
||
|
|
|
||
|
|
namespace distributed3 {
|
||
|
|
ListExpr StartLoopbackTESClient::typeMapping(ListExpr args) {
|
||
|
|
if (!nl->HasLength(args, 1)) {
|
||
|
|
return listutils::typeError("You must provide 1 argument.");
|
||
|
|
}
|
||
|
|
const ListExpr workerNr = nl->First(args);
|
||
|
|
|
||
|
|
if (!CcInt::checkType(workerNr)) {
|
||
|
|
return listutils::typeError(
|
||
|
|
"The first argument must be an int");
|
||
|
|
}
|
||
|
|
|
||
|
|
return nl->SymbolAtom(CcBool::BasicType());
|
||
|
|
}
|
||
|
|
|
||
|
|
int StartLoopbackTESClient::valueMapping(Word *args, Word &result, int,
|
||
|
|
Word &, Supplier s) {
|
||
|
|
result = qp->ResultStorage(s);
|
||
|
|
CcInt *workernrWrapper = (CcInt *) args[0].addr;
|
||
|
|
|
||
|
|
PRECONDITION(workernrWrapper->IsDefined(), "workernr is undefined")
|
||
|
|
int workernr = workernrWrapper->GetIntval();
|
||
|
|
PRECONDITION(workernr >= 0, "workernr must not be negative");
|
||
|
|
|
||
|
|
|
||
|
|
bool loopbackProxyStarted =
|
||
|
|
MessageBroker::get().startLoopbackProxy(workernr);
|
||
|
|
|
||
|
|
if (!loopbackProxyStarted) {
|
||
|
|
BOOST_LOG_TRIVIAL(error) << "Couldn't start loopback proxy";
|
||
|
|
((CcBool *) result.addr)->Set(true, false);
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
((CcBool *) result.addr)->Set(true, true);
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
OperatorSpec StartLoopbackTESClient::operatorSpec(
|
||
|
|
"int -> bool",
|
||
|
|
"# (_)",
|
||
|
|
"This operator is used analogous to 'startMessageClient(...)'."
|
||
|
|
"It also starts a message client, although the proxy doesn't send messages "
|
||
|
|
"to other hosts. It queues the messages directly into the input queue of the "
|
||
|
|
"local message broker.",
|
||
|
|
"query startLoopbackMessageClient(1);",
|
||
|
|
"This operator belongs to the TES API."
|
||
|
|
"It may require knowledge of the system to effectively understand and "
|
||
|
|
"use all the operators that are provided."
|
||
|
|
"CAUTION: This operator is used internally by the TES system. "
|
||
|
|
"Hence you must not use it in queries yourself."
|
||
|
|
"Doing so may lead to inconsistent states of the TES system."
|
||
|
|
);
|
||
|
|
|
||
|
|
Operator StartLoopbackTESClient::startLoopbackTESClient(
|
||
|
|
"startLoopbackTESClient",
|
||
|
|
StartLoopbackTESClient::operatorSpec.getStr(),
|
||
|
|
StartLoopbackTESClient::valueMapping,
|
||
|
|
Operator::SimpleSelect,
|
||
|
|
StartLoopbackTESClient::typeMapping
|
||
|
|
);
|
||
|
|
}
|