You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2322 lines
68 KiB
2322 lines
68 KiB
/*****************************************************************
|
|
|
|
Copyright (c) 1999 Preston Brown <pbrown@kde.org>
|
|
Copyright (c) 1999 Matthias Ettrich <ettrich@kde.org>
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
of this software and associated documentation files (the "Software"), to deal
|
|
in the Software without restriction, including without limitation the rights
|
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
copies of the Software, and to permit persons to whom the Software is
|
|
furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
|
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
|
******************************************************************/
|
|
|
|
// qt <-> dcop integration
|
|
#include <tqobjectlist.h>
|
|
#include <tqmetaobject.h>
|
|
#include <tqvariant.h>
|
|
#include <tqtimer.h>
|
|
#include <tqintdict.h>
|
|
#include <tqeventloop.h>
|
|
// end of qt <-> dcop integration
|
|
|
|
#include "config.h"
|
|
|
|
#include <config.h>
|
|
#include <dcopref.h>
|
|
|
|
#include <sys/time.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <sys/file.h>
|
|
#include <sys/socket.h>
|
|
#include <sys/un.h>
|
|
#include <fcntl.h>
|
|
#include <unistd.h>
|
|
|
|
#include <ctype.h>
|
|
#include <unistd.h>
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
#include <string.h>
|
|
|
|
#ifndef QT_CLEAN_NAMESPACE
|
|
#define QT_CLEAN_NAMESPACE
|
|
#endif
|
|
#include <tqguardedptr.h>
|
|
#include <tqtextstream.h>
|
|
#include <tqfile.h>
|
|
#include <tqdir.h>
|
|
#include <tqapplication.h>
|
|
#include <tqsocketnotifier.h>
|
|
#include <tqregexp.h>
|
|
|
|
#include <tqucomextra_p.h>
|
|
|
|
#include <dcopglobal.h>
|
|
#include <dcopclient.h>
|
|
#include <dcopobject.h>
|
|
|
|
#if defined Q_WS_X11 && ! defined K_WS_QTONLY
|
|
#include <X11/Xmd.h>
|
|
#endif
|
|
extern "C" {
|
|
#include <KDE-ICE/ICElib.h>
|
|
#include <KDE-ICE/ICEutil.h>
|
|
#include <KDE-ICE/ICEmsg.h>
|
|
#include <KDE-ICE/ICEproto.h>
|
|
}
|
|
|
|
// #define DCOPCLIENT_DEBUG 1
|
|
|
|
extern TQMap<TQCString, DCOPObject *> * kde_dcopObjMap; // defined in dcopobject.cpp
|
|
|
|
/*********************************************
|
|
* Keep track of local clients
|
|
*********************************************/
|
|
typedef TQAsciiDict<DCOPClient> client_map_t;
|
|
static client_map_t *DCOPClient_CliMap = 0;
|
|
|
|
static
|
|
client_map_t *cliMap()
|
|
{
|
|
if (!DCOPClient_CliMap)
|
|
DCOPClient_CliMap = new client_map_t;
|
|
return DCOPClient_CliMap;
|
|
}
|
|
|
|
DCOPClient *DCOPClient::findLocalClient( const TQCString &_appId )
|
|
{
|
|
return cliMap()->find(_appId.data());
|
|
}
|
|
|
|
static
|
|
void registerLocalClient( const TQCString &_appId, DCOPClient *client )
|
|
{
|
|
cliMap()->replace(_appId.data(), client);
|
|
}
|
|
|
|
static
|
|
void unregisterLocalClient( const TQCString &_appId )
|
|
{
|
|
client_map_t *map = cliMap();
|
|
map->remove(_appId.data());
|
|
}
|
|
/////////////////////////////////////////////////////////
|
|
|
|
template class TQPtrList<DCOPObjectProxy>;
|
|
template class TQPtrList<DCOPClientTransaction>;
|
|
template class TQPtrList<_IceConn>;
|
|
|
|
struct DCOPClientMessage
|
|
{
|
|
int opcode;
|
|
CARD32 key;
|
|
TQByteArray data;
|
|
};
|
|
|
|
class DCOPClient::ReplyStruct
|
|
{
|
|
public:
|
|
enum ReplyStatus { Pending, Ok, Failed };
|
|
ReplyStruct() {
|
|
status = Pending;
|
|
replyType = 0;
|
|
replyData = 0;
|
|
replyId = -1;
|
|
transactionId = -1;
|
|
replyObject = 0;
|
|
}
|
|
ReplyStatus status;
|
|
TQCString* replyType;
|
|
TQByteArray* replyData;
|
|
int replyId;
|
|
TQ_INT32 transactionId;
|
|
TQCString calledApp;
|
|
TQGuardedPtr<TQObject> replyObject;
|
|
TQCString replySlot;
|
|
};
|
|
|
|
class DCOPClientPrivate
|
|
{
|
|
public:
|
|
DCOPClient *parent;
|
|
TQCString appId;
|
|
IceConn iceConn;
|
|
int majorOpcode; // major opcode negotiated w/server and used to tag all comms.
|
|
|
|
int majorVersion, minorVersion; // protocol versions negotiated w/server
|
|
|
|
static const char* serverAddr; // location of server in ICE-friendly format.
|
|
TQSocketNotifier *notifier;
|
|
bool non_blocking_call_lock;
|
|
bool registered;
|
|
bool foreign_server;
|
|
bool accept_calls;
|
|
bool accept_calls_override; // If true, user has specified policy.
|
|
bool qt_bridge_enabled;
|
|
|
|
TQCString senderId;
|
|
TQCString objId;
|
|
TQCString function;
|
|
|
|
TQCString defaultObject;
|
|
TQPtrList<DCOPClientTransaction> *transactionList;
|
|
bool transaction;
|
|
TQ_INT32 transactionId;
|
|
int opcode;
|
|
|
|
// Special key values:
|
|
// 0 : Not specified
|
|
// 1 : DCOPSend
|
|
// 2 : Priority
|
|
// >= 42: Normal
|
|
CARD32 key;
|
|
CARD32 currentKey;
|
|
CARD32 currentKeySaved;
|
|
|
|
TQTimer postMessageTimer;
|
|
TQPtrList<DCOPClientMessage> messages;
|
|
|
|
TQPtrList<DCOPClient::ReplyStruct> pendingReplies;
|
|
TQPtrList<DCOPClient::ReplyStruct> asyncReplyQueue;
|
|
|
|
struct LocalTransactionResult
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray replyData;
|
|
};
|
|
|
|
TQIntDict<LocalTransactionResult> localTransActionList;
|
|
|
|
TQTimer eventLoopTimer;
|
|
};
|
|
|
|
class DCOPClientTransaction
|
|
{
|
|
public:
|
|
TQ_INT32 id;
|
|
CARD32 key;
|
|
TQCString senderId;
|
|
};
|
|
|
|
TQCString DCOPClient::iceauthPath()
|
|
{
|
|
#if defined(ICEAUTH_PATH)
|
|
if (
|
|
# if defined(Q_WS_WIN)
|
|
access(ICEAUTH_PATH, 0) == 0
|
|
# else
|
|
access(ICEAUTH_PATH, X_OK) == 0
|
|
# endif
|
|
)
|
|
{
|
|
return TQCString(ICEAUTH_PATH);
|
|
}
|
|
|
|
#elif defined(Q_OS_WIN32)
|
|
char szPath[512];
|
|
char * pszFilePart;
|
|
int ret;
|
|
ret = SearchPathA(NULL,"iceauth.exe",NULL,sizeof(szPath)/sizeof(szPath[0]),szPath,&pszFilePart);
|
|
if(ret != 0)
|
|
return TQCString(szPath);
|
|
|
|
#else
|
|
TQCString path = ::getenv("PATH");
|
|
if (path.isEmpty())
|
|
path = "/bin:/usr/bin";
|
|
path += ":/usr/bin/X11:/usr/X11/bin:/usr/X11R6/bin";
|
|
TQCString fPath = strtok(path.data(), ":\b");
|
|
while (!fPath.isNull())
|
|
{
|
|
fPath += "/iceauth";
|
|
if (access(fPath.data(), X_OK) == 0)
|
|
{
|
|
return fPath;
|
|
}
|
|
fPath = strtok(NULL, ":\b");
|
|
}
|
|
|
|
#endif
|
|
return 0;
|
|
}
|
|
|
|
static TQCString dcopServerFile(const TQCString &hostname, bool old)
|
|
{
|
|
TQCString fName = ::getenv("DCOPAUTHORITY");
|
|
if (!old && !fName.isEmpty())
|
|
return fName;
|
|
|
|
fName = TQFile::encodeName( TQDir::homeDirPath() );
|
|
// fName = ::getenv("HOME");
|
|
if (fName.isEmpty())
|
|
{
|
|
fprintf(stderr, "Aborting. $HOME is not set.\n");
|
|
exit(1);
|
|
}
|
|
#ifdef Q_WS_X11
|
|
TQCString disp = getenv("DISPLAY");
|
|
#elif defined(Q_WS_QWS)
|
|
TQCString disp = getenv("QWS_DISPLAY");
|
|
#else
|
|
TQCString disp;
|
|
#endif
|
|
if (disp.isEmpty())
|
|
disp = "NODISPLAY";
|
|
|
|
int i;
|
|
if((i = disp.findRev('.')) > disp.findRev(KPATH_SEPARATOR) && i >= 0)
|
|
disp.truncate(i);
|
|
|
|
if (!old)
|
|
{
|
|
while( (i = disp.find(KPATH_SEPARATOR)) >= 0)
|
|
disp[i] = '_';
|
|
}
|
|
|
|
fName += "/.DCOPserver_";
|
|
if (hostname.isEmpty())
|
|
{
|
|
char hostName[256];
|
|
hostName[0] = '\0';
|
|
if (getenv("XAUTHLOCALHOSTNAME"))
|
|
fName += getenv("XAUTHLOCALHOSTNAME");
|
|
else if (gethostname(hostName, sizeof(hostName)))
|
|
{
|
|
fName += "localhost";
|
|
}
|
|
else
|
|
{
|
|
hostName[sizeof(hostName)-1] = '\0';
|
|
fName += hostName;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
fName += hostname;
|
|
}
|
|
fName += "_"+disp;
|
|
return fName;
|
|
}
|
|
|
|
|
|
// static
|
|
TQCString DCOPClient::dcopServerFile(const TQCString &hostname)
|
|
{
|
|
return ::dcopServerFile(hostname, false);
|
|
}
|
|
|
|
|
|
// static
|
|
TQCString DCOPClient::dcopServerFileOld(const TQCString &hostname)
|
|
{
|
|
return ::dcopServerFile(hostname, true);
|
|
}
|
|
|
|
|
|
const char* DCOPClientPrivate::serverAddr = 0;
|
|
|
|
static void DCOPProcessInternal( DCOPClientPrivate *d, int opcode, CARD32 key, const TQByteArray& dataReceived, bool canPost );
|
|
|
|
void DCOPClient::handleAsyncReply(ReplyStruct *replyStruct)
|
|
{
|
|
if (replyStruct->replyObject)
|
|
{
|
|
TQObject::connect(this, TQT_SIGNAL(callBack(int, const TQCString&, const TQByteArray &)),
|
|
replyStruct->replyObject, replyStruct->replySlot);
|
|
emit callBack(replyStruct->replyId, *(replyStruct->replyType), *(replyStruct->replyData));
|
|
TQObject::disconnect(this, TQT_SIGNAL(callBack(int, const TQCString&, const TQByteArray &)),
|
|
replyStruct->replyObject, replyStruct->replySlot);
|
|
}
|
|
delete replyStruct;
|
|
}
|
|
|
|
/**
|
|
* Callback for ICE.
|
|
*/
|
|
static void DCOPProcessMessage(IceConn iceConn, IcePointer clientObject,
|
|
int opcode, unsigned long length, Bool /*swap*/,
|
|
IceReplyWaitInfo *replyWait,
|
|
Bool *replyWaitRet)
|
|
{
|
|
DCOPMsg *pMsg = 0;
|
|
DCOPClientPrivate *d = static_cast<DCOPClientPrivate *>(clientObject);
|
|
DCOPClient::ReplyStruct *replyStruct = replyWait ? static_cast<DCOPClient::ReplyStruct*>(replyWait->reply) : 0;
|
|
|
|
IceReadMessageHeader(iceConn, sizeof(DCOPMsg), DCOPMsg, pMsg);
|
|
CARD32 key = pMsg->key;
|
|
if ( d->key == 0 )
|
|
d->key = key; // received a key from the server
|
|
|
|
TQByteArray dataReceived( length );
|
|
IceReadData(iceConn, length, dataReceived.data() );
|
|
|
|
d->opcode = opcode;
|
|
switch (opcode ) {
|
|
|
|
case DCOPReplyFailed:
|
|
if ( replyStruct ) {
|
|
replyStruct->status = DCOPClient::ReplyStruct::Failed;
|
|
replyStruct->transactionId = 0;
|
|
*replyWaitRet = True;
|
|
return;
|
|
} else {
|
|
tqWarning("Very strange! got a DCOPReplyFailed opcode, but we were not waiting for a reply!");
|
|
return;
|
|
}
|
|
case DCOPReply:
|
|
if ( replyStruct ) {
|
|
TQByteArray* b = replyStruct->replyData;
|
|
TQCString* t = replyStruct->replyType;
|
|
replyStruct->status = DCOPClient::ReplyStruct::Ok;
|
|
replyStruct->transactionId = 0;
|
|
|
|
TQCString calledApp, app;
|
|
TQDataStream ds( dataReceived, IO_ReadOnly );
|
|
ds >> calledApp >> app >> *t >> *b;
|
|
|
|
*replyWaitRet = True;
|
|
return;
|
|
} else {
|
|
tqWarning("Very strange! got a DCOPReply opcode, but we were not waiting for a reply!");
|
|
return;
|
|
}
|
|
case DCOPReplyWait:
|
|
if ( replyStruct ) {
|
|
TQCString calledApp, app;
|
|
TQ_INT32 id;
|
|
TQDataStream ds( dataReceived, IO_ReadOnly );
|
|
ds >> calledApp >> app >> id;
|
|
replyStruct->transactionId = id;
|
|
replyStruct->calledApp = calledApp;
|
|
d->pendingReplies.append(replyStruct);
|
|
*replyWaitRet = True;
|
|
return;
|
|
} else {
|
|
tqWarning("Very strange! got a DCOPReplyWait opcode, but we were not waiting for a reply!");
|
|
return;
|
|
}
|
|
case DCOPReplyDelayed:
|
|
{
|
|
TQDataStream ds( dataReceived, IO_ReadOnly );
|
|
TQCString calledApp, app;
|
|
TQ_INT32 id;
|
|
|
|
ds >> calledApp >> app >> id;
|
|
if (replyStruct && (id == replyStruct->transactionId) && (calledApp == replyStruct->calledApp))
|
|
{
|
|
*replyWaitRet = True;
|
|
}
|
|
|
|
for(DCOPClient::ReplyStruct *rs = d->pendingReplies.first(); rs;
|
|
rs = d->pendingReplies.next())
|
|
{
|
|
if ((rs->transactionId == id) && (rs->calledApp == calledApp))
|
|
{
|
|
d->pendingReplies.remove();
|
|
TQByteArray* b = rs->replyData;
|
|
TQCString* t = rs->replyType;
|
|
ds >> *t >> *b;
|
|
|
|
rs->status = DCOPClient::ReplyStruct::Ok;
|
|
rs->transactionId = 0;
|
|
if (!rs->replySlot.isEmpty())
|
|
{
|
|
d->parent->handleAsyncReply(rs);
|
|
}
|
|
return;
|
|
}
|
|
}
|
|
tqWarning("Very strange! got a DCOPReplyDelayed opcode, but we were not waiting for a reply!");
|
|
return;
|
|
}
|
|
case DCOPCall:
|
|
case DCOPFind:
|
|
case DCOPSend:
|
|
DCOPProcessInternal( d, opcode, key, dataReceived, true );
|
|
}
|
|
}
|
|
|
|
void DCOPClient::processPostedMessagesInternal()
|
|
{
|
|
if ( d->messages.isEmpty() )
|
|
return;
|
|
TQPtrListIterator<DCOPClientMessage> it (d->messages );
|
|
DCOPClientMessage* msg ;
|
|
while ( ( msg = it.current() ) ) {
|
|
++it;
|
|
if ( d->currentKey && msg->key != d->currentKey )
|
|
continue;
|
|
d->messages.removeRef( msg );
|
|
d->opcode = msg->opcode;
|
|
DCOPProcessInternal( d, msg->opcode, msg->key, msg->data, false );
|
|
delete msg;
|
|
}
|
|
if ( !d->messages.isEmpty() )
|
|
d->postMessageTimer.start( 100, true );
|
|
}
|
|
|
|
/**
|
|
Processes DCOPCall, DCOPFind and DCOPSend
|
|
*/
|
|
void DCOPProcessInternal( DCOPClientPrivate *d, int opcode, CARD32 key, const TQByteArray& dataReceived, bool canPost )
|
|
{
|
|
if (!d->accept_calls && (opcode == DCOPSend))
|
|
return;
|
|
|
|
IceConn iceConn = d->iceConn;
|
|
DCOPMsg *pMsg = 0;
|
|
DCOPClient *c = d->parent;
|
|
TQDataStream ds( dataReceived, IO_ReadOnly );
|
|
|
|
TQCString fromApp;
|
|
ds >> fromApp;
|
|
if (fromApp.isEmpty())
|
|
return; // Reserved for local calls
|
|
|
|
if (!d->accept_calls)
|
|
{
|
|
TQByteArray reply;
|
|
TQDataStream replyStream( reply, IO_WriteOnly );
|
|
// Call rejected.
|
|
replyStream << d->appId << fromApp;
|
|
IceGetHeader( iceConn, d->majorOpcode, DCOPReplyFailed,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg );
|
|
int datalen = reply.size();
|
|
pMsg->key = key;
|
|
pMsg->length += datalen;
|
|
IceSendData( iceConn, datalen, reply.data());
|
|
return;
|
|
}
|
|
|
|
TQCString app, objId, fun;
|
|
TQByteArray data;
|
|
ds >> app >> objId >> fun >> data;
|
|
d->senderId = fromApp;
|
|
d->objId = objId;
|
|
d->function = fun;
|
|
|
|
// tqWarning("DCOP: %s got call: %s:%s:%s key = %d currentKey = %d", d->appId.data(), app.data(), objId.data(), fun.data(), key, d->currentKey);
|
|
|
|
if ( canPost && d->currentKey && key != d->currentKey ) {
|
|
DCOPClientMessage* msg = new DCOPClientMessage;
|
|
msg->opcode = opcode;
|
|
msg->key = key;
|
|
msg->data = dataReceived;
|
|
d->messages.append( msg );
|
|
d->postMessageTimer.start( 0, true );
|
|
return;
|
|
}
|
|
|
|
d->objId = objId;
|
|
d->function = fun;
|
|
|
|
TQCString replyType;
|
|
TQByteArray replyData;
|
|
bool b;
|
|
CARD32 oldCurrentKey = d->currentKey;
|
|
if ( opcode != DCOPSend ) // DCOPSend doesn't change the current key
|
|
d->currentKey = key;
|
|
|
|
if ( opcode == DCOPFind )
|
|
b = c->find(app, objId, fun, data, replyType, replyData );
|
|
else
|
|
b = c->receive( app, objId, fun, data, replyType, replyData );
|
|
// set notifier back to previous state
|
|
|
|
if ( opcode == DCOPSend )
|
|
return;
|
|
|
|
if ((d->currentKey == key) || (oldCurrentKey != 2))
|
|
d->currentKey = oldCurrentKey;
|
|
|
|
TQByteArray reply;
|
|
TQDataStream replyStream( reply, IO_WriteOnly );
|
|
|
|
TQ_INT32 id = c->transactionId();
|
|
if (id) {
|
|
// Call delayed. Send back the transaction ID.
|
|
replyStream << d->appId << fromApp << id;
|
|
|
|
IceGetHeader( iceConn, d->majorOpcode, DCOPReplyWait,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg );
|
|
pMsg->key = key;
|
|
pMsg->length += reply.size();
|
|
IceSendData( iceConn, reply.size(), const_cast<char *>(reply.data()));
|
|
return;
|
|
}
|
|
|
|
if ( !b ) {
|
|
// Call failed. No data send back.
|
|
|
|
replyStream << d->appId << fromApp;
|
|
IceGetHeader( iceConn, d->majorOpcode, DCOPReplyFailed,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg );
|
|
int datalen = reply.size();
|
|
pMsg->key = key;
|
|
pMsg->length += datalen;
|
|
IceSendData( iceConn, datalen, const_cast<char *>(reply.data()));
|
|
return;
|
|
}
|
|
|
|
// Call successful. Send back replyType and replyData.
|
|
replyStream << d->appId << fromApp << replyType << replyData.size();
|
|
|
|
|
|
// we are calling, so we need to set up reply data
|
|
IceGetHeader( iceConn, d->majorOpcode, DCOPReply,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg );
|
|
int datalen = reply.size() + replyData.size();
|
|
pMsg->key = key;
|
|
pMsg->length += datalen;
|
|
// use IceSendData not IceWriteData to avoid a copy. Output buffer
|
|
// shouldn't need to be flushed.
|
|
IceSendData( iceConn, reply.size(), const_cast<char *>(reply.data()));
|
|
IceSendData( iceConn, replyData.size(), const_cast<char *>(replyData.data()));
|
|
}
|
|
|
|
|
|
|
|
static IcePoVersionRec DCOPClientVersions[] = {
|
|
{ DCOPVersionMajor, DCOPVersionMinor, DCOPProcessMessage }
|
|
};
|
|
|
|
|
|
static DCOPClient* dcop_main_client = 0;
|
|
|
|
DCOPClient* DCOPClient::mainClient()
|
|
{
|
|
return dcop_main_client;
|
|
}
|
|
|
|
void DCOPClient::setMainClient( DCOPClient* client )
|
|
{
|
|
dcop_main_client = client;
|
|
}
|
|
|
|
|
|
DCOPClient::DCOPClient()
|
|
{
|
|
d = new DCOPClientPrivate;
|
|
d->parent = this;
|
|
d->iceConn = 0L;
|
|
d->key = 0;
|
|
d->currentKey = 0;
|
|
d->majorOpcode = 0;
|
|
d->appId = 0;
|
|
d->notifier = 0L;
|
|
d->non_blocking_call_lock = false;
|
|
d->registered = false;
|
|
d->foreign_server = true;
|
|
d->accept_calls = true;
|
|
d->accept_calls_override = false;
|
|
d->qt_bridge_enabled = true;
|
|
d->transactionList = 0L;
|
|
d->transactionId = 0;
|
|
TQObject::connect( &d->postMessageTimer, TQT_SIGNAL( timeout() ), this, TQT_SLOT( processPostedMessagesInternal() ) );
|
|
TQObject::connect( &d->eventLoopTimer, TQT_SIGNAL( timeout() ), this, TQT_SLOT( eventLoopTimeout() ) );
|
|
|
|
if ( !mainClient() )
|
|
setMainClient( this );
|
|
}
|
|
|
|
DCOPClient::~DCOPClient()
|
|
{
|
|
#ifdef DCOPCLIENT_DEBUG
|
|
tqWarning("d->messages.count() = %d", d->messages.count());
|
|
TQPtrListIterator<DCOPClientMessage> it (d->messages );
|
|
DCOPClientMessage* msg ;
|
|
while ( ( msg = it.current() ) ) {
|
|
++it;
|
|
d->messages.removeRef( msg );
|
|
tqWarning("DROPPING UNHANDLED DCOP MESSAGE:");
|
|
tqWarning(" opcode = %d key = %d", msg->opcode, msg->key);
|
|
TQDataStream ds( msg->data, IO_ReadOnly );
|
|
|
|
TQCString fromApp, app, objId, fun;
|
|
ds >> fromApp >> app >> objId >> fun;
|
|
tqWarning(" from = %s", fromApp.data());
|
|
tqWarning(" to = %s / %s / %s", app.data(), objId.data(), fun.data());
|
|
delete msg;
|
|
}
|
|
#endif
|
|
if (d->iceConn)
|
|
if (IceConnectionStatus(d->iceConn) == IceConnectAccepted)
|
|
detach();
|
|
|
|
if (d->registered)
|
|
unregisterLocalClient( d->appId );
|
|
|
|
delete d->notifier;
|
|
delete d->transactionList;
|
|
d->messages.setAutoDelete(true);
|
|
delete d;
|
|
|
|
if ( mainClient() == this )
|
|
setMainClient( 0 );
|
|
}
|
|
|
|
void DCOPClient::setServerAddress(const TQCString &addr)
|
|
{
|
|
TQCString env = "DCOPSERVER=" + addr;
|
|
putenv(strdup(env.data()));
|
|
delete [] DCOPClientPrivate::serverAddr;
|
|
DCOPClientPrivate::serverAddr = tqstrdup( addr.data() );
|
|
}
|
|
|
|
bool DCOPClient::attach()
|
|
{
|
|
if (!attachInternal( true ))
|
|
if (!attachInternal( true ))
|
|
return false; // Try two times!
|
|
return true;
|
|
}
|
|
|
|
void DCOPClient::bindToApp()
|
|
{
|
|
// check if we have a tqApp instantiated. If we do,
|
|
// we can create a TQSocketNotifier and use it for receiving data.
|
|
if (tqApp) {
|
|
if ( d->notifier )
|
|
delete d->notifier;
|
|
d->notifier = new TQSocketNotifier(socket(),
|
|
TQSocketNotifier::Read, 0, 0);
|
|
TQObject::connect(d->notifier, TQT_SIGNAL(activated(int)),
|
|
TQT_SLOT(processSocketData(int)));
|
|
}
|
|
}
|
|
|
|
void DCOPClient::suspend()
|
|
{
|
|
#ifdef Q_WS_WIN //TODO: remove (win32 ports sometimes do not create notifiers)
|
|
if (!d->notifier)
|
|
return;
|
|
#endif
|
|
assert(d->notifier); // Suspending makes no sense if we didn't had a tqApp yet
|
|
d->notifier->setEnabled(false);
|
|
}
|
|
|
|
void DCOPClient::resume()
|
|
{
|
|
#ifdef Q_WS_WIN //TODO: remove
|
|
if (!d->notifier)
|
|
return;
|
|
#endif
|
|
assert(d->notifier); // Should never happen
|
|
d->notifier->setEnabled(true);
|
|
}
|
|
|
|
bool DCOPClient::isSuspended() const
|
|
{
|
|
#if defined(Q_WS_WIN) || defined(Q_WS_MAC) //TODO: REMOVE
|
|
if (!d->notifier)
|
|
return false;
|
|
#endif
|
|
return !d->notifier->isEnabled();
|
|
}
|
|
|
|
#if defined(SO_PEERCRED) || defined(LOCAL_PEEREID)
|
|
#define USE_PEER_IS_US
|
|
// Check whether the remote end is owned by the same user.
|
|
static bool peerIsUs(int sockfd)
|
|
{
|
|
#ifdef SO_PEERCRED
|
|
#if defined(__OpenBSD__)
|
|
struct sockpeercred cred;
|
|
#else
|
|
struct ucred cred;
|
|
#endif
|
|
socklen_t siz = sizeof(cred);
|
|
if (getsockopt(sockfd, SOL_SOCKET, SO_PEERCRED, &cred, &siz) != 0)
|
|
return false;
|
|
return (cred.uid == getuid());
|
|
#elif defined LOCAL_PEEREID
|
|
struct unpcbid cred;
|
|
socklen_t siz = sizeof(cred);
|
|
if (getsockopt(sockfd, 0, LOCAL_PEEREID, &cred, &siz) != 0 || siz != sizeof(cred))
|
|
return false;
|
|
return (cred.unp_euid == geteuid());
|
|
#endif
|
|
}
|
|
#else
|
|
// Check whether the socket is owned by the same user.
|
|
static bool isServerSocketOwnedByUser(const char*server)
|
|
{
|
|
#ifdef Q_OS_WIN
|
|
if (strncmp(server, "tcp/", 4) != 0)
|
|
return false; // Not a local socket -> foreign.
|
|
else
|
|
return true;
|
|
#else
|
|
if (strncmp(server, "local/", 6) != 0)
|
|
return false; // Not a local socket -> foreign.
|
|
const char *path = strchr(server, KPATH_SEPARATOR);
|
|
if (!path)
|
|
return false;
|
|
path++;
|
|
|
|
struct stat stat_buf;
|
|
if (stat(path, &stat_buf) != 0)
|
|
return false;
|
|
|
|
return (stat_buf.st_uid == getuid());
|
|
#endif
|
|
}
|
|
#endif
|
|
|
|
|
|
bool DCOPClient::attachInternal( bool registerAsAnonymous )
|
|
{
|
|
char errBuf[1024];
|
|
|
|
if ( isAttached() )
|
|
detach();
|
|
|
|
if ((d->majorOpcode = IceRegisterForProtocolSetup(const_cast<char *>("DCOP"),
|
|
const_cast<char *>(DCOPVendorString),
|
|
const_cast<char *>(DCOPReleaseString),
|
|
1, DCOPClientVersions,
|
|
DCOPAuthCount,
|
|
const_cast<char **>(DCOPAuthNames),
|
|
DCOPClientAuthProcs, 0L)) < 0) {
|
|
emit attachFailed(TQString::fromLatin1( "Communications could not be established." ));
|
|
return false;
|
|
}
|
|
|
|
bool bClearServerAddr = false;
|
|
// first, check if serverAddr was ever set.
|
|
if (!d->serverAddr) {
|
|
// here, we obtain the list of possible DCOP connections,
|
|
// and attach to them.
|
|
TQCString dcopSrv;
|
|
dcopSrv = ::getenv("DCOPSERVER");
|
|
if (dcopSrv.isEmpty()) {
|
|
TQCString fName = dcopServerFile();
|
|
TQFile f(TQFile::decodeName(fName));
|
|
if (!f.open(IO_ReadOnly)) {
|
|
emit attachFailed(TQString::fromLatin1( "Could not read network connection list.\n" )+TQFile::decodeName(fName));
|
|
return false;
|
|
}
|
|
int size = TQMIN( (qint64)1024, f.size() ); // protection against a huge file
|
|
TQCString contents( size+1 );
|
|
if ( f.readBlock( contents.data(), size ) != size )
|
|
{
|
|
tqDebug("Error reading from %s, didn't read the expected %d bytes", fName.data(), size);
|
|
// Should we abort ?
|
|
}
|
|
contents[size] = '\0';
|
|
int pos = contents.find('\n');
|
|
if ( pos == -1 ) // Shouldn't happen
|
|
{
|
|
tqDebug("Only one line in dcopserver file !: %s", contents.data());
|
|
dcopSrv = contents;
|
|
}
|
|
else
|
|
{
|
|
if(contents[pos - 1] == '\r') // check for windows end of line
|
|
pos--;
|
|
dcopSrv = contents.left( pos );
|
|
//#ifndef NDEBUG
|
|
// tqDebug("dcopserver address: %s", dcopSrv.data());
|
|
//#endif
|
|
}
|
|
}
|
|
d->serverAddr = tqstrdup( const_cast<char *>(dcopSrv.data()) );
|
|
bClearServerAddr = true;
|
|
}
|
|
|
|
if ((d->iceConn = IceOpenConnection(const_cast<char*>(d->serverAddr),
|
|
static_cast<IcePointer>(this), False, d->majorOpcode,
|
|
sizeof(errBuf), errBuf)) == 0L) {
|
|
tqDebug("DCOPClient::attachInternal. Attach failed %s", errBuf);
|
|
d->iceConn = 0;
|
|
if (bClearServerAddr) {
|
|
delete [] d->serverAddr;
|
|
d->serverAddr = 0;
|
|
}
|
|
emit attachFailed(TQString::fromLatin1( errBuf ));
|
|
return false;
|
|
}
|
|
fcntl(socket(), F_SETFL, FD_CLOEXEC);
|
|
|
|
IceSetShutdownNegotiation(d->iceConn, False);
|
|
|
|
int setupstat;
|
|
char* vendor = 0;
|
|
char* release = 0;
|
|
setupstat = IceProtocolSetup(d->iceConn, d->majorOpcode,
|
|
static_cast<IcePointer>(d),
|
|
False, /* must authenticate */
|
|
&(d->majorVersion), &(d->minorVersion),
|
|
&(vendor), &(release), 1024, errBuf);
|
|
if (vendor) free(vendor);
|
|
if (release) free(release);
|
|
|
|
if (setupstat == IceProtocolSetupFailure ||
|
|
setupstat == IceProtocolSetupIOError) {
|
|
IceCloseConnection(d->iceConn);
|
|
d->iceConn = 0;
|
|
if (bClearServerAddr) {
|
|
delete [] d->serverAddr;
|
|
d->serverAddr = 0;
|
|
}
|
|
emit attachFailed(TQString::fromLatin1( errBuf ));
|
|
return false;
|
|
} else if (setupstat == IceProtocolAlreadyActive) {
|
|
if (bClearServerAddr) {
|
|
delete [] d->serverAddr;
|
|
d->serverAddr = 0;
|
|
}
|
|
/* should not happen because 3rd arg to IceOpenConnection was 0. */
|
|
emit attachFailed(TQString::fromLatin1( "internal error in IceOpenConnection" ));
|
|
return false;
|
|
}
|
|
|
|
|
|
if (IceConnectionStatus(d->iceConn) != IceConnectAccepted) {
|
|
if (bClearServerAddr) {
|
|
delete [] d->serverAddr;
|
|
d->serverAddr = 0;
|
|
}
|
|
emit attachFailed(TQString::fromLatin1( "DCOP server did not accept the connection." ));
|
|
return false;
|
|
}
|
|
|
|
#ifdef USE_PEER_IS_US
|
|
d->foreign_server = !peerIsUs(socket());
|
|
#else
|
|
d->foreign_server = !isServerSocketOwnedByUser(d->serverAddr);
|
|
#endif
|
|
if (!d->accept_calls_override)
|
|
d->accept_calls = !d->foreign_server;
|
|
|
|
bindToApp();
|
|
|
|
if ( registerAsAnonymous )
|
|
registerAs( "anonymous", true );
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
bool DCOPClient::detach()
|
|
{
|
|
int status;
|
|
|
|
if (d->iceConn) {
|
|
IceProtocolShutdown(d->iceConn, d->majorOpcode);
|
|
status = IceCloseConnection(d->iceConn);
|
|
if (status != IceClosedNow)
|
|
return false;
|
|
else
|
|
d->iceConn = 0L;
|
|
}
|
|
|
|
if (d->registered)
|
|
unregisterLocalClient(d->appId);
|
|
|
|
delete d->notifier;
|
|
d->notifier = 0L;
|
|
d->registered = false;
|
|
d->foreign_server = true;
|
|
return true;
|
|
}
|
|
|
|
bool DCOPClient::isAttached() const
|
|
{
|
|
if (!d->iceConn)
|
|
return false;
|
|
|
|
return (IceConnectionStatus(d->iceConn) == IceConnectAccepted);
|
|
}
|
|
|
|
bool DCOPClient::isAttachedToForeignServer() const
|
|
{
|
|
return isAttached() && d->foreign_server;
|
|
}
|
|
|
|
bool DCOPClient::acceptCalls() const
|
|
{
|
|
return isAttached() && d->accept_calls;
|
|
}
|
|
|
|
void DCOPClient::setAcceptCalls(bool b)
|
|
{
|
|
d->accept_calls = b;
|
|
d->accept_calls_override = true;
|
|
}
|
|
|
|
bool DCOPClient::qtBridgeEnabled()
|
|
{
|
|
return d->qt_bridge_enabled;
|
|
}
|
|
|
|
void DCOPClient::setQtBridgeEnabled(bool b)
|
|
{
|
|
d->qt_bridge_enabled = b;
|
|
}
|
|
|
|
TQCString DCOPClient::registerAs( const TQCString &appId, bool addPID )
|
|
{
|
|
TQCString result;
|
|
|
|
TQCString _appId = appId;
|
|
|
|
if (addPID) {
|
|
TQCString pid;
|
|
pid.sprintf("-%d", getpid());
|
|
_appId = _appId + pid;
|
|
}
|
|
|
|
if( d->appId == _appId )
|
|
return d->appId;
|
|
|
|
#if 0 // no need to detach, dcopserver can handle renaming
|
|
// Detach before reregistering.
|
|
if ( isRegistered() ) {
|
|
detach();
|
|
}
|
|
#endif
|
|
|
|
if ( !isAttached() ) {
|
|
if (!attachInternal( false ))
|
|
if (!attachInternal( false ))
|
|
return result; // Try two times
|
|
}
|
|
|
|
// register the application identifier with the server
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
TQDataStream arg( data, IO_WriteOnly );
|
|
arg << _appId;
|
|
if ( call( "DCOPServer", "", "registerAs(TQCString)", data, replyType, replyData ) ) {
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> result;
|
|
}
|
|
|
|
d->appId = result;
|
|
d->registered = !result.isNull();
|
|
|
|
if (d->registered)
|
|
registerLocalClient( d->appId, this );
|
|
|
|
return result;
|
|
}
|
|
|
|
bool DCOPClient::isRegistered() const
|
|
{
|
|
return d->registered;
|
|
}
|
|
|
|
|
|
TQCString DCOPClient::appId() const
|
|
{
|
|
return d->appId;
|
|
}
|
|
|
|
|
|
int DCOPClient::socket() const
|
|
{
|
|
if (d->iceConn)
|
|
return IceConnectionNumber(d->iceConn);
|
|
return 0;
|
|
}
|
|
|
|
static inline bool isIdentChar( char x )
|
|
{ // Avoid bug in isalnum
|
|
return x == '_' || (x >= '0' && x <= '9') ||
|
|
(x >= 'a' && x <= 'z') || (x >= 'A' && x <= 'Z');
|
|
}
|
|
|
|
TQCString DCOPClient::normalizeFunctionSignature( const TQCString& fun ) {
|
|
if ( fun.isEmpty() ) // nothing to do
|
|
return fun.copy();
|
|
TQCString result( fun.size() );
|
|
char *from = const_cast<TQCString&>(fun).data();
|
|
char *to = result.data();
|
|
char *first = to;
|
|
char last = 0;
|
|
while ( true ) {
|
|
while ( *from && isspace(*from) )
|
|
from++;
|
|
if ( last && isIdentChar( last ) && isIdentChar( *from ) )
|
|
*to++ = 0x20;
|
|
while ( *from && !isspace(*from) ) {
|
|
last = *from++;
|
|
*to++ = last;
|
|
}
|
|
if ( !*from )
|
|
break;
|
|
}
|
|
if ( to > first && *(to-1) == 0x20 )
|
|
to--;
|
|
*to = '\0';
|
|
result.resize( (int)((long)to - (long)result.data()) + 1 );
|
|
return result;
|
|
}
|
|
|
|
|
|
TQCString DCOPClient::senderId() const
|
|
{
|
|
return d->senderId;
|
|
}
|
|
|
|
|
|
bool DCOPClient::send(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data)
|
|
{
|
|
if (remApp.isEmpty())
|
|
return false;
|
|
DCOPClient *localClient = findLocalClient( remApp );
|
|
|
|
if ( localClient ) {
|
|
bool saveTransaction = d->transaction;
|
|
TQ_INT32 saveTransactionId = d->transactionId;
|
|
TQCString saveSenderId = d->senderId;
|
|
|
|
d->senderId = 0; // Local call
|
|
TQCString replyType;
|
|
TQByteArray replyData;
|
|
(void) localClient->receive( remApp, remObjId, remFun, data, replyType, replyData );
|
|
|
|
d->transaction = saveTransaction;
|
|
d->transactionId = saveTransactionId;
|
|
d->senderId = saveSenderId;
|
|
// send() returns true if the data could be send to the DCOPServer,
|
|
// regardles of receiving the data on the other application.
|
|
// So we assume the data is successfully send to the (virtual) server
|
|
// and return true in any case.
|
|
return true;
|
|
}
|
|
|
|
if ( !isAttached() )
|
|
return false;
|
|
|
|
|
|
DCOPMsg *pMsg;
|
|
|
|
TQByteArray ba;
|
|
TQDataStream ds(ba, IO_WriteOnly);
|
|
ds << d->appId << remApp << remObjId << normalizeFunctionSignature(remFun) << data.size();
|
|
|
|
IceGetHeader(d->iceConn, d->majorOpcode, DCOPSend,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg);
|
|
|
|
pMsg->key = 1; // DCOPSend always uses the magic key 1
|
|
int datalen = ba.size() + data.size();
|
|
pMsg->length += datalen;
|
|
|
|
IceSendData( d->iceConn, ba.size(), const_cast<char *>(ba.data()) );
|
|
IceSendData( d->iceConn, data.size(), const_cast<char *>(data.data()) );
|
|
|
|
//IceFlush(d->iceConn);
|
|
|
|
if (IceConnectionStatus(d->iceConn) == IceConnectAccepted)
|
|
return true;
|
|
return false;
|
|
}
|
|
|
|
bool DCOPClient::send(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQString &data)
|
|
{
|
|
TQByteArray ba;
|
|
TQDataStream ds(ba, IO_WriteOnly);
|
|
ds << data;
|
|
return send(remApp, remObjId, remFun, ba);
|
|
}
|
|
|
|
bool DCOPClient::findObject(const TQCString &remApp, const TQCString &remObj,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQCString &foundApp, TQCString &foundObj,
|
|
bool useEventLoop)
|
|
{
|
|
return findObject( remApp, remObj, remFun, data, foundApp, foundObj, useEventLoop, -1 );
|
|
}
|
|
|
|
bool DCOPClient::findObject(const TQCString &remApp, const TQCString &remObj,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQCString &foundApp, TQCString &foundObj,
|
|
bool useEventLoop, int timeout)
|
|
{
|
|
QCStringList appList;
|
|
TQCString app = remApp;
|
|
if (app.isEmpty())
|
|
app = "*";
|
|
|
|
foundApp = 0;
|
|
foundObj = 0;
|
|
|
|
if (app[app.length()-1] == '*')
|
|
{
|
|
// Find all apps that match 'app'.
|
|
// NOTE: It would be more efficient to do the filtering in
|
|
// the dcopserver itself.
|
|
int len = app.length()-1;
|
|
QCStringList apps=registeredApplications();
|
|
for( QCStringList::ConstIterator it = apps.begin();
|
|
it != apps.end();
|
|
++it)
|
|
{
|
|
if ( strncmp( (*it).data(), app.data(), len) == 0)
|
|
appList.append(*it);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
appList.append(app);
|
|
}
|
|
|
|
// We do all the local clients in phase1 and the rest in phase2
|
|
for(int phase=1; phase <= 2; phase++)
|
|
{
|
|
for( QCStringList::ConstIterator it = appList.begin();
|
|
it != appList.end();
|
|
++it)
|
|
{
|
|
TQCString remApp = *it;
|
|
TQCString replyType;
|
|
TQByteArray replyData;
|
|
bool result = false;
|
|
DCOPClient *localClient = findLocalClient( remApp );
|
|
|
|
if ( (phase == 1) && localClient ) {
|
|
// In phase 1 we do all local clients
|
|
bool saveTransaction = d->transaction;
|
|
TQ_INT32 saveTransactionId = d->transactionId;
|
|
TQCString saveSenderId = d->senderId;
|
|
|
|
d->senderId = 0; // Local call
|
|
result = localClient->find( remApp, remObj, remFun, data, replyType, replyData );
|
|
|
|
TQ_INT32 id = localClient->transactionId();
|
|
if (id) {
|
|
// Call delayed. We have to wait till it has been processed.
|
|
do {
|
|
TQApplication::eventLoop()->processEvents( TQEventLoop::WaitForMore);
|
|
} while( !localClient->isLocalTransactionFinished(id, replyType, replyData));
|
|
result = true;
|
|
}
|
|
d->transaction = saveTransaction;
|
|
d->transactionId = saveTransactionId;
|
|
d->senderId = saveSenderId;
|
|
}
|
|
else if ((phase == 2) && !localClient)
|
|
{
|
|
// In phase 2 we do the other clients
|
|
result = callInternal(remApp, remObj, remFun, data,
|
|
replyType, replyData, useEventLoop, timeout, DCOPFind);
|
|
}
|
|
|
|
if (result)
|
|
{
|
|
if (replyType == "DCOPRef")
|
|
{
|
|
DCOPRef ref;
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> ref;
|
|
|
|
if (ref.app() == remApp) // Consistency check
|
|
{
|
|
// replyType contains objId.
|
|
foundApp = ref.app();
|
|
foundObj = ref.object();
|
|
return true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
bool DCOPClient::process(const TQCString &, const TQByteArray &,
|
|
TQCString&, TQByteArray &)
|
|
{
|
|
return false;
|
|
}
|
|
|
|
bool DCOPClient::isApplicationRegistered( const TQCString& remApp)
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
TQDataStream arg( data, IO_WriteOnly );
|
|
arg << remApp;
|
|
int result = false;
|
|
if ( call( "DCOPServer", "", "isApplicationRegistered(TQCString)", data, replyType, replyData ) ) {
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> result;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
QCStringList DCOPClient::registeredApplications()
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
QCStringList result;
|
|
if ( call( "DCOPServer", "", "registeredApplications()", data, replyType, replyData ) ) {
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> result;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
QCStringList DCOPClient::remoteObjects( const TQCString& remApp, bool *ok )
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
QCStringList result;
|
|
if ( ok )
|
|
*ok = false;
|
|
if ( call( remApp, "DCOPClient", "objects()", data, replyType, replyData ) ) {
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> result;
|
|
if ( ok )
|
|
*ok = true;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
QCStringList DCOPClient::remoteInterfaces( const TQCString& remApp, const TQCString& remObj, bool *ok )
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
QCStringList result;
|
|
if ( ok )
|
|
*ok = false;
|
|
if ( call( remApp, remObj, "interfaces()", data, replyType, replyData ) && replyType == "QCStringList") {
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> result;
|
|
if ( ok )
|
|
*ok = true;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
QCStringList DCOPClient::remoteFunctions( const TQCString& remApp, const TQCString& remObj, bool *ok )
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
QCStringList result;
|
|
if ( ok )
|
|
*ok = false;
|
|
if ( call( remApp, remObj, "functions()", data, replyType, replyData ) && replyType == "QCStringList") {
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> result;
|
|
if ( ok )
|
|
*ok = true;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
void DCOPClient::setNotifications(bool enabled)
|
|
{
|
|
TQByteArray data;
|
|
TQDataStream ds(data, IO_WriteOnly);
|
|
ds << static_cast<TQ_INT8>(enabled);
|
|
|
|
TQCString replyType;
|
|
TQByteArray reply;
|
|
if (!call("DCOPServer", "", "setNotifications( bool )", data, replyType, reply))
|
|
tqWarning("I couldn't enable notifications at the dcopserver!");
|
|
}
|
|
|
|
void DCOPClient::setDaemonMode( bool daemonMode )
|
|
{
|
|
TQByteArray data;
|
|
TQDataStream ds(data, IO_WriteOnly);
|
|
ds << static_cast<TQ_INT8>( daemonMode );
|
|
|
|
TQCString replyType;
|
|
TQByteArray reply;
|
|
if (!call("DCOPServer", "", "setDaemonMode(bool)", data, replyType, reply))
|
|
tqWarning("I couldn't enable daemon mode at the dcopserver!");
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
DCOP <-> Qt bridge
|
|
|
|
********************************************************************************
|
|
*/
|
|
static void fillQtObjects( QCStringList& l, TQObject* o, TQCString path )
|
|
{
|
|
if ( !path.isEmpty() )
|
|
path += '/';
|
|
|
|
int unnamed = 0;
|
|
const TQObjectList list = o ? o->childrenListObject() : TQObject::objectTreesListObject();
|
|
if ( !list.isEmpty() ) {
|
|
TQObjectListIt it( list );
|
|
TQObject *obj;
|
|
while ( (obj=it.current()) ) {
|
|
++it;
|
|
TQCString n = obj->name();
|
|
if ( n == "unnamed" || n.isEmpty() )
|
|
{
|
|
n.sprintf("%p", (void *) obj);
|
|
n = TQString(TQString("unnamed%1(%2, %3)").arg(++unnamed).arg(obj->className()).arg(TQString(n))).latin1();
|
|
}
|
|
TQCString fn = path + n;
|
|
l.append( fn );
|
|
if ( !obj->childrenListObject().isEmpty() )
|
|
fillQtObjects( l, obj, fn );
|
|
}
|
|
}
|
|
}
|
|
|
|
namespace
|
|
{
|
|
struct O
|
|
{
|
|
O(): o(0) {}
|
|
O ( const TQCString& str, TQObject* obj ):s(str), o(obj){}
|
|
TQCString s;
|
|
TQObject* o;
|
|
};
|
|
} // namespace
|
|
|
|
static void fillQtObjectsEx( TQValueList<O>& l, TQObject* o, TQCString path )
|
|
{
|
|
if ( !path.isEmpty() )
|
|
path += '/';
|
|
|
|
int unnamed = 0;
|
|
const TQObjectList list = o ? o->childrenListObject() : TQObject::objectTreesListObject();
|
|
if ( !list.isEmpty() ) {
|
|
TQObjectListIt it( list );
|
|
TQObject *obj;
|
|
while ( (obj=it.current()) ) {
|
|
++it;
|
|
TQCString n = obj->name();
|
|
if ( n == "unnamed" || n.isEmpty() )
|
|
{
|
|
n.sprintf("%p", (void *) obj);
|
|
n = TQString(TQString("unnamed%1(%2, %3)").arg(++unnamed).arg(obj->className()).arg(TQString(n))).latin1();
|
|
}
|
|
TQCString fn = path + n;
|
|
l.append( O( fn, obj ) );
|
|
if ( !obj->childrenListObject().isEmpty() )
|
|
fillQtObjectsEx( l, obj, fn );
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
static TQObject* findQtObject( TQCString id )
|
|
{
|
|
TQRegExp expr( id );
|
|
TQValueList<O> l;
|
|
fillQtObjectsEx( l, 0, "qt" );
|
|
// Prefer an exact match, but fall-back on the first that contains the substring
|
|
TQObject* firstContains = 0L;
|
|
for ( TQValueList<O>::ConstIterator it = l.begin(); it != l.end(); ++it ) {
|
|
if ( (*it).s == id ) // exact match
|
|
return (*it).o;
|
|
if ( !firstContains && (*it).s.contains( expr ) ) {
|
|
firstContains = (*it).o;
|
|
}
|
|
}
|
|
return firstContains;
|
|
}
|
|
|
|
static QCStringList findQtObjects( TQCString id )
|
|
{
|
|
TQRegExp expr( id );
|
|
TQValueList<O> l;
|
|
fillQtObjectsEx( l, 0, "qt" );
|
|
QCStringList result;
|
|
for ( TQValueList<O>::ConstIterator it = l.begin(); it != l.end(); ++it ) {
|
|
if ( (*it).s.contains( expr ) )
|
|
result << (*it).s;
|
|
}
|
|
return result;
|
|
}
|
|
|
|
static bool receiveQtObject( const TQCString &objId, const TQCString &fun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData)
|
|
{
|
|
if ( objId == "qt" ) {
|
|
if ( fun == "interfaces()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
l << "DCOPObject";
|
|
l << "Qt";
|
|
reply << l;
|
|
return true;
|
|
} else if ( fun == "functions()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
l << "QCStringList functions()";
|
|
l << "QCStringList interfaces()";
|
|
l << "QCStringList objects()";
|
|
l << "QCStringList find(TQCString)";
|
|
reply << l;
|
|
return true;
|
|
} else if ( fun == "objects()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
fillQtObjects( l, 0, "qt" );
|
|
reply << l;
|
|
return true;
|
|
} else if ( fun == "find(TQCString)" ) {
|
|
TQDataStream ds( data, IO_ReadOnly );
|
|
TQCString id;
|
|
ds >> id ;
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
reply << findQtObjects( id ) ;
|
|
return true;
|
|
}
|
|
} else if ( objId.left(3) == "qt/" ) {
|
|
TQObject* o = findQtObject( objId );
|
|
if ( !o )
|
|
return false;
|
|
if ( fun == "functions()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
l << "QCStringList functions()";
|
|
l << "QCStringList interfaces()";
|
|
l << "QCStringList properties()";
|
|
l << "bool setProperty(TQCString,TQVariant)";
|
|
l << "TQVariant property(TQCString)";
|
|
TQStrList lst = o->metaObject()->slotNames( true );
|
|
int i = 0;
|
|
for ( TQPtrListIterator<char> it( lst ); it.current(); ++it ) {
|
|
if ( o->metaObject()->slot( i++, true )->tqt_mo_access != TQMetaData::Public )
|
|
continue;
|
|
TQCString slot = it.current();
|
|
if ( slot.contains( "()" ) ) {
|
|
slot.prepend("void ");
|
|
l << slot;
|
|
}
|
|
}
|
|
reply << l;
|
|
return true;
|
|
} else if ( fun == "interfaces()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
TQMetaObject *meta = o->metaObject();
|
|
while ( meta ) {
|
|
l.prepend( meta->className() );
|
|
meta = meta->superClass();
|
|
}
|
|
reply << l;
|
|
return true;
|
|
} else if ( fun == "properties()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
TQStrList lst = o->metaObject()->propertyNames( true );
|
|
for ( TQPtrListIterator<char> it( lst ); it.current(); ++it ) {
|
|
TQMetaObject *mo = o->metaObject();
|
|
const TQMetaProperty* p = mo->property( mo->findProperty( it.current(), true ), true );
|
|
if ( !p )
|
|
continue;
|
|
TQCString prop = p->type();
|
|
prop += ' ';
|
|
prop += p->name();
|
|
if ( !p->writable() )
|
|
prop += " readonly";
|
|
l << prop;
|
|
}
|
|
reply << l;
|
|
return true;
|
|
} else if ( fun == "property(TQCString)" ) {
|
|
replyType = "TQVariant";
|
|
TQDataStream ds( data, IO_ReadOnly );
|
|
TQCString name;
|
|
ds >> name ;
|
|
TQVariant result = o->property( name );
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
reply << result;
|
|
return true;
|
|
} else if ( fun == "setProperty(TQCString,TQVariant)" ) {
|
|
TQDataStream ds( data, IO_ReadOnly );
|
|
TQCString name;
|
|
TQVariant value;
|
|
ds >> name >> value;
|
|
replyType = "bool";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
reply << (TQ_INT8) o->setProperty( name, value );
|
|
return true;
|
|
} else {
|
|
int slot = o->metaObject()->findSlot( fun, true );
|
|
if ( slot != -1 ) {
|
|
replyType = "void";
|
|
TQUObject uo[ 1 ];
|
|
o->tqt_invoke( slot, uo );
|
|
return true;
|
|
}
|
|
}
|
|
|
|
|
|
}
|
|
return false;
|
|
}
|
|
|
|
|
|
/*
|
|
********************************************************************************
|
|
End of DCOP <-> Qt bridge
|
|
*/
|
|
|
|
|
|
bool DCOPClient::receive(const TQCString &/*app*/, const TQCString &objId,
|
|
const TQCString &fun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData)
|
|
{
|
|
d->transaction = false; // Assume no transaction.
|
|
if ( objId == "DCOPClient" ) {
|
|
if ( fun == "objects()" ) {
|
|
replyType = "QCStringList";
|
|
TQDataStream reply( replyData, IO_WriteOnly );
|
|
QCStringList l;
|
|
if (d->qt_bridge_enabled)
|
|
{
|
|
l << "qt"; // the Qt bridge object
|
|
}
|
|
if ( kde_dcopObjMap ) {
|
|
TQMap<TQCString, DCOPObject *>::ConstIterator it( kde_dcopObjMap->begin());
|
|
for (; it != kde_dcopObjMap->end(); ++it) {
|
|
if ( !it.key().isEmpty() ) {
|
|
if ( it.key() == d->defaultObject )
|
|
l << "default";
|
|
l << it.key();
|
|
}
|
|
}
|
|
}
|
|
reply << l;
|
|
return true;
|
|
}
|
|
}
|
|
|
|
if ( objId.isEmpty() || objId == "DCOPClient" ) {
|
|
if ( fun == "applicationRegistered(TQCString)" ) {
|
|
TQDataStream ds( data, IO_ReadOnly );
|
|
TQCString r;
|
|
ds >> r;
|
|
emit applicationRegistered( r );
|
|
return true;
|
|
} else if ( fun == "applicationRemoved(TQCString)" ) {
|
|
TQDataStream ds( data, IO_ReadOnly );
|
|
TQCString r;
|
|
ds >> r;
|
|
emit applicationRemoved( r );
|
|
return true;
|
|
}
|
|
|
|
if ( process( fun, data, replyType, replyData ) )
|
|
return true;
|
|
// fall through and send to defaultObject if available
|
|
|
|
} else if (d->qt_bridge_enabled &&
|
|
(objId == "qt" || objId.left(3) == "qt/") ) { // dcop <-> qt bridge
|
|
return receiveQtObject( objId, fun, data, replyType, replyData );
|
|
}
|
|
|
|
if ( objId.isEmpty() || objId == "default" ) {
|
|
if ( !d->defaultObject.isEmpty() && DCOPObject::hasObject( d->defaultObject ) ) {
|
|
DCOPObject *objPtr = DCOPObject::find( d->defaultObject );
|
|
objPtr->setCallingDcopClient(this);
|
|
if (objPtr->process(fun, data, replyType, replyData))
|
|
return true;
|
|
}
|
|
|
|
// fall through and send to object proxies
|
|
}
|
|
|
|
// if (!objId.isEmpty() && objId[objId.length()-1] == '*') {
|
|
if (!objId.isEmpty() && ((objId.length()>0)?(objId[objId.length()-1] == '*'):0)) {
|
|
// handle a multicast to several objects.
|
|
// doesn't handle proxies currently. should it?
|
|
TQPtrList<DCOPObject> matchList =
|
|
DCOPObject::match(objId.left(objId.length()-1));
|
|
for (DCOPObject *objPtr = matchList.first();
|
|
objPtr != 0L; objPtr = matchList.next()) {
|
|
objPtr->setCallingDcopClient(this);
|
|
if (!objPtr->process(fun, data, replyType, replyData))
|
|
return false;
|
|
}
|
|
return true;
|
|
} else if (!DCOPObject::hasObject(objId)) {
|
|
if ( DCOPObjectProxy::proxies ) {
|
|
for ( TQPtrListIterator<DCOPObjectProxy> it( *DCOPObjectProxy::proxies ); it.current(); ++it ) {
|
|
// TODO: it.current()->setCallingDcopClient(this);
|
|
if ( it.current()->process( objId, fun, data, replyType, replyData ) )
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
|
|
} else {
|
|
DCOPObject *objPtr = DCOPObject::find(objId);
|
|
objPtr->setCallingDcopClient(this);
|
|
if (!objPtr->process(fun, data, replyType, replyData)) {
|
|
// obj doesn't understand function or some other error.
|
|
return false;
|
|
}
|
|
}
|
|
|
|
return true;
|
|
}
|
|
|
|
// Check if the function result is a bool with the value "true"
|
|
// If so set the function result to DCOPRef pointing to (app,objId) and
|
|
// return true. Return false otherwise.
|
|
static bool findResultOk(TQCString &replyType, TQByteArray &replyData)
|
|
{
|
|
TQ_INT8 success; // Tsk.. why is there no operator>>(bool)?
|
|
if (replyType != "bool") return false;
|
|
|
|
TQDataStream reply( replyData, IO_ReadOnly );
|
|
reply >> success;
|
|
|
|
if (!success) return false;
|
|
return true;
|
|
}
|
|
|
|
// set the function result to DCOPRef pointing to (app,objId) and
|
|
// return true.
|
|
static bool findSuccess(const TQCString &app, const TQCString objId, TQCString &replyType, TQByteArray &replyData)
|
|
{
|
|
DCOPRef ref(app, objId);
|
|
replyType = "DCOPRef";
|
|
|
|
replyData = TQByteArray();
|
|
TQDataStream final_reply( replyData, IO_WriteOnly );
|
|
final_reply << ref;
|
|
return true;
|
|
}
|
|
|
|
|
|
bool DCOPClient::find(const TQCString &app, const TQCString &objId,
|
|
const TQCString &fun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData)
|
|
{
|
|
d->transaction = false; // Transactions are not allowed.
|
|
if ( !app.isEmpty() && app != d->appId && app[app.length()-1] != '*') {
|
|
tqWarning("WEIRD! we somehow received a DCOP message w/a different appId");
|
|
return false;
|
|
}
|
|
|
|
if (objId.isEmpty() || objId[objId.length()-1] != '*')
|
|
{
|
|
if (fun.isEmpty())
|
|
{
|
|
if (objId.isEmpty() || DCOPObject::hasObject(objId))
|
|
return findSuccess(app, objId, replyType, replyData);
|
|
return false;
|
|
}
|
|
// Message to application or single object...
|
|
if (receive(app, objId, fun, data, replyType, replyData))
|
|
{
|
|
if (findResultOk(replyType, replyData))
|
|
return findSuccess(app, objId, replyType, replyData);
|
|
}
|
|
}
|
|
else {
|
|
// handle a multicast to several objects.
|
|
// doesn't handle proxies currently. should it?
|
|
TQPtrList<DCOPObject> matchList =
|
|
DCOPObject::match(objId.left(objId.length()-1));
|
|
for (DCOPObject *objPtr = matchList.first();
|
|
objPtr != 0L; objPtr = matchList.next())
|
|
{
|
|
replyType = 0;
|
|
replyData = TQByteArray();
|
|
if (fun.isEmpty())
|
|
return findSuccess(app, objPtr->objId(), replyType, replyData);
|
|
objPtr->setCallingDcopClient(this);
|
|
if (objPtr->process(fun, data, replyType, replyData))
|
|
if (findResultOk(replyType, replyData))
|
|
return findSuccess(app, objPtr->objId(), replyType, replyData);
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
|
|
bool DCOPClient::call(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData,
|
|
bool useEventLoop)
|
|
{
|
|
return call( remApp, remObjId, remFun, data, replyType, replyData, useEventLoop, -1, false );
|
|
}
|
|
|
|
bool DCOPClient::call(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData,
|
|
bool useEventLoop, int timeout)
|
|
{
|
|
return call( remApp, remObjId, remFun, data, replyType, replyData, useEventLoop, timeout, false );
|
|
}
|
|
|
|
bool DCOPClient::call(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData,
|
|
bool useEventLoop, int timeout, bool forceRemote)
|
|
{
|
|
if (remApp.isEmpty())
|
|
return false;
|
|
DCOPClient *localClient = findLocalClient( remApp );
|
|
|
|
if ( localClient && !forceRemote ) {
|
|
bool saveTransaction = d->transaction;
|
|
TQ_INT32 saveTransactionId = d->transactionId;
|
|
TQCString saveSenderId = d->senderId;
|
|
|
|
d->senderId = 0; // Local call
|
|
bool b = localClient->receive( remApp, remObjId, remFun, data, replyType, replyData );
|
|
|
|
TQ_INT32 id = localClient->transactionId();
|
|
if (id) {
|
|
// Call delayed. We have to wait till it has been processed.
|
|
do {
|
|
TQApplication::eventLoop()->processEvents(TQEventLoop::WaitForMore);
|
|
} while( !localClient->isLocalTransactionFinished(id, replyType, replyData));
|
|
b = true;
|
|
}
|
|
d->transaction = saveTransaction;
|
|
d->transactionId = saveTransactionId;
|
|
d->senderId = saveSenderId;
|
|
return b;
|
|
}
|
|
|
|
return callInternal(remApp, remObjId, remFun, data,
|
|
replyType, replyData, useEventLoop, timeout, DCOPCall);
|
|
}
|
|
|
|
void DCOPClient::asyncReplyReady()
|
|
{
|
|
while( d->asyncReplyQueue.count() )
|
|
{
|
|
ReplyStruct *replyStruct = d->asyncReplyQueue.take(0);
|
|
handleAsyncReply(replyStruct);
|
|
}
|
|
}
|
|
|
|
int DCOPClient::callAsync(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQObject *callBackObj, const char *callBackSlot)
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray replyData;
|
|
|
|
ReplyStruct *replyStruct = new ReplyStruct;
|
|
replyStruct->replyType = new TQCString;
|
|
replyStruct->replyData = new TQByteArray;
|
|
replyStruct->replyObject = callBackObj;
|
|
replyStruct->replySlot = callBackSlot;
|
|
replyStruct->replyId = ++d->transactionId;
|
|
if (d->transactionId < 0) // Ensure that ids > 0
|
|
d->transactionId = 0;
|
|
|
|
bool b = callInternal(remApp, remObjId, remFun, data,
|
|
replyStruct, false, -1, DCOPCall);
|
|
if (!b)
|
|
{
|
|
delete replyStruct->replyType;
|
|
delete replyStruct->replyData;
|
|
delete replyStruct;
|
|
return 0;
|
|
}
|
|
|
|
if (replyStruct->transactionId == 0)
|
|
{
|
|
// Call is finished already
|
|
TQTimer::singleShot(0, this, TQT_SLOT(asyncReplyReady()));
|
|
d->asyncReplyQueue.append(replyStruct);
|
|
}
|
|
|
|
return replyStruct->replyId;
|
|
}
|
|
|
|
bool DCOPClient::callInternal(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
TQCString& replyType, TQByteArray &replyData,
|
|
bool useEventLoop, int timeout, int minor_opcode)
|
|
{
|
|
ReplyStruct replyStruct;
|
|
replyStruct.replyType = &replyType;
|
|
replyStruct.replyData = &replyData;
|
|
return callInternal(remApp, remObjId, remFun, data, &replyStruct, useEventLoop, timeout, minor_opcode);
|
|
}
|
|
|
|
bool DCOPClient::callInternal(const TQCString &remApp, const TQCString &remObjId,
|
|
const TQCString &remFun, const TQByteArray &data,
|
|
ReplyStruct *replyStruct,
|
|
bool useEventLoop, int timeout, int minor_opcode)
|
|
{
|
|
if ( !isAttached() )
|
|
return false;
|
|
|
|
DCOPMsg *pMsg;
|
|
|
|
CARD32 oldCurrentKey = d->currentKey;
|
|
if ( !d->currentKey )
|
|
d->currentKey = d->key; // no key yet, initiate new call
|
|
|
|
TQByteArray ba;
|
|
TQDataStream ds(ba, IO_WriteOnly);
|
|
ds << d->appId << remApp << remObjId << normalizeFunctionSignature(remFun) << data.size();
|
|
|
|
IceGetHeader(d->iceConn, d->majorOpcode, minor_opcode,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg);
|
|
|
|
pMsg->key = d->currentKey;
|
|
int datalen = ba.size() + data.size();
|
|
pMsg->length += datalen;
|
|
|
|
// tqWarning("DCOP: %s made call %s:%s:%s key = %d", d->appId.data(), remApp.data(), remObjId.data(), remFun.data(), pMsg->key);
|
|
|
|
IceSendData(d->iceConn, ba.size(), const_cast<char *>(ba.data()));
|
|
IceSendData(d->iceConn, data.size(), const_cast<char *>(data.data()));
|
|
|
|
if (IceConnectionStatus(d->iceConn) != IceConnectAccepted)
|
|
return false;
|
|
|
|
IceFlush (d->iceConn);
|
|
|
|
IceReplyWaitInfo waitInfo;
|
|
waitInfo.sequence_of_request = IceLastSentSequenceNumber(d->iceConn);
|
|
waitInfo.major_opcode_of_request = d->majorOpcode;
|
|
waitInfo.minor_opcode_of_request = minor_opcode;
|
|
|
|
replyStruct->transactionId = -1;
|
|
waitInfo.reply = static_cast<IcePointer>(replyStruct);
|
|
|
|
Bool readyRet = False;
|
|
IceProcessMessagesStatus s;
|
|
|
|
timeval time_start;
|
|
int time_left = -1;
|
|
if( timeout >= 0 )
|
|
{
|
|
gettimeofday( &time_start, NULL );
|
|
time_left = timeout;
|
|
}
|
|
for(;;) {
|
|
bool checkMessages = true;
|
|
if ( useEventLoop
|
|
? d->notifier != NULL // useEventLoop needs a socket notifier and a tqApp
|
|
: timeout >= 0 ) { // !useEventLoop doesn't block only for timeout >= 0
|
|
const int guiTimeout = 100;
|
|
checkMessages = false;
|
|
|
|
int msecs = useEventLoop
|
|
? guiTimeout // timeout for the GUI refresh
|
|
: time_left; // time remaining for the whole call
|
|
fd_set fds;
|
|
struct timeval tv;
|
|
FD_ZERO( &fds );
|
|
FD_SET( socket(), &fds );
|
|
tv.tv_sec = msecs / 1000;
|
|
tv.tv_usec = (msecs % 1000) * 1000;
|
|
if ( select( socket() + 1, &fds, 0, 0, &tv ) <= 0 ) {
|
|
if( useEventLoop && (timeout < 0 || time_left > guiTimeout)) {
|
|
// nothing was available, we got a timeout. Reactivate
|
|
// the GUI in blocked state.
|
|
bool old_lock = d->non_blocking_call_lock;
|
|
if ( !old_lock ) {
|
|
d->non_blocking_call_lock = true;
|
|
emit blockUserInput( true );
|
|
}
|
|
if( timeout >= 0 )
|
|
d->eventLoopTimer.start(time_left - guiTimeout, true);
|
|
tqApp->enter_loop();
|
|
d->eventLoopTimer.stop();
|
|
if ( !old_lock ) {
|
|
d->non_blocking_call_lock = false;
|
|
emit blockUserInput( false );
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
checkMessages = true;
|
|
}
|
|
}
|
|
if (!d->iceConn)
|
|
return false;
|
|
|
|
if( replyStruct->transactionId != -1 )
|
|
{
|
|
if (replyStruct->transactionId == 0)
|
|
break; // Call complete
|
|
if (!replyStruct->replySlot.isEmpty())
|
|
break; // Async call
|
|
}
|
|
|
|
if( checkMessages ) { // something is available
|
|
s = IceProcessMessages(d->iceConn, &waitInfo,
|
|
&readyRet);
|
|
if (s == IceProcessMessagesIOError) {
|
|
detach();
|
|
d->currentKey = oldCurrentKey;
|
|
return false;
|
|
}
|
|
}
|
|
|
|
if( replyStruct->transactionId != -1 )
|
|
{
|
|
if (replyStruct->transactionId == 0)
|
|
break; // Call complete
|
|
if (!replyStruct->replySlot.isEmpty())
|
|
break; // Async call
|
|
}
|
|
|
|
if( timeout < 0 )
|
|
continue;
|
|
timeval time_now;
|
|
gettimeofday( &time_now, NULL );
|
|
time_left = timeout -
|
|
((time_now.tv_sec - time_start.tv_sec) * 1000) -
|
|
((time_now.tv_usec - time_start.tv_usec) / 1000);
|
|
if( time_left <= 0)
|
|
{
|
|
if (useEventLoop)
|
|
{
|
|
// Before we fail, check one more time if something is available
|
|
time_left = 0;
|
|
useEventLoop = false;
|
|
continue;
|
|
}
|
|
*(replyStruct->replyType) = TQCString();
|
|
*(replyStruct->replyData) = TQByteArray();
|
|
replyStruct->status = ReplyStruct::Failed;
|
|
break;
|
|
}
|
|
}
|
|
|
|
// Wake up parent call, maybe it's reply is available already.
|
|
if ( d->non_blocking_call_lock ) {
|
|
tqApp->exit_loop();
|
|
}
|
|
|
|
d->currentKey = oldCurrentKey;
|
|
return replyStruct->status != ReplyStruct::Failed;
|
|
}
|
|
|
|
void DCOPClient::eventLoopTimeout()
|
|
{
|
|
tqApp->exit_loop();
|
|
}
|
|
|
|
void DCOPClient::processSocketData(int fd)
|
|
{
|
|
// Make sure there is data to read!
|
|
fd_set fds;
|
|
timeval timeout;
|
|
timeout.tv_sec = 0;
|
|
timeout.tv_usec = 0;
|
|
FD_ZERO(&fds);
|
|
FD_SET(fd, &fds);
|
|
int result = select(fd+1, &fds, 0, 0, &timeout);
|
|
if (result == 0)
|
|
return;
|
|
|
|
if ( d->non_blocking_call_lock ) {
|
|
if( tqApp )
|
|
tqApp->exit_loop();
|
|
return;
|
|
}
|
|
|
|
if (!d->iceConn) {
|
|
if( d->notifier )
|
|
d->notifier->deleteLater();
|
|
d->notifier = 0;
|
|
tqWarning("received an error processing data from the DCOP server!");
|
|
return;
|
|
}
|
|
|
|
IceProcessMessagesStatus s = IceProcessMessages(d->iceConn, 0, 0);
|
|
|
|
if (s == IceProcessMessagesIOError) {
|
|
detach();
|
|
tqWarning("received an error processing data from the DCOP server!");
|
|
return;
|
|
}
|
|
}
|
|
|
|
void DCOPClient::setDefaultObject( const TQCString& objId )
|
|
{
|
|
d->defaultObject = objId;
|
|
}
|
|
|
|
|
|
TQCString DCOPClient::defaultObject() const
|
|
{
|
|
return d->defaultObject;
|
|
}
|
|
|
|
bool
|
|
DCOPClient::isLocalTransactionFinished(TQ_INT32 id, TQCString &replyType, TQByteArray &replyData)
|
|
{
|
|
DCOPClientPrivate::LocalTransactionResult *result = d->localTransActionList.take(id);
|
|
if (!result)
|
|
return false;
|
|
|
|
replyType = result->replyType;
|
|
replyData = result->replyData;
|
|
delete result;
|
|
|
|
return true;
|
|
}
|
|
|
|
DCOPClientTransaction *
|
|
DCOPClient::beginTransaction()
|
|
{
|
|
if (d->opcode == DCOPSend)
|
|
return 0;
|
|
if (!d->transactionList)
|
|
d->transactionList = new TQPtrList<DCOPClientTransaction>;
|
|
|
|
d->transaction = true;
|
|
DCOPClientTransaction *trans = new DCOPClientTransaction();
|
|
trans->senderId = d->senderId;
|
|
trans->id = ++d->transactionId;
|
|
if (d->transactionId < 0) // Ensure that ids > 0
|
|
d->transactionId = 0;
|
|
trans->key = d->currentKey;
|
|
|
|
d->transactionList->append( trans );
|
|
|
|
return trans;
|
|
}
|
|
|
|
TQ_INT32
|
|
DCOPClient::transactionId() const
|
|
{
|
|
if (d->transaction)
|
|
return d->transactionId;
|
|
else
|
|
return 0;
|
|
}
|
|
|
|
void
|
|
DCOPClient::endTransaction( DCOPClientTransaction *trans, TQCString& replyType,
|
|
TQByteArray &replyData)
|
|
{
|
|
if ( !trans )
|
|
return;
|
|
|
|
if ( !isAttached() )
|
|
return;
|
|
|
|
if ( !d->transactionList) {
|
|
tqWarning("Transaction unknown: No pending transactions!");
|
|
return; // No pending transactions!
|
|
}
|
|
|
|
if ( !d->transactionList->removeRef( trans ) ) {
|
|
tqWarning("Transaction unknown: Not on list of pending transactions!");
|
|
return; // Transaction
|
|
}
|
|
|
|
if (trans->senderId.isEmpty())
|
|
{
|
|
// Local transaction
|
|
DCOPClientPrivate::LocalTransactionResult *result = new DCOPClientPrivate::LocalTransactionResult();
|
|
result->replyType = replyType;
|
|
result->replyData = replyData;
|
|
|
|
d->localTransActionList.insert(trans->id, result);
|
|
|
|
delete trans;
|
|
|
|
return;
|
|
}
|
|
|
|
DCOPMsg *pMsg;
|
|
|
|
TQByteArray ba;
|
|
TQDataStream ds(ba, IO_WriteOnly);
|
|
ds << d->appId << trans->senderId << trans->id << replyType << replyData;
|
|
|
|
IceGetHeader(d->iceConn, d->majorOpcode, DCOPReplyDelayed,
|
|
sizeof(DCOPMsg), DCOPMsg, pMsg);
|
|
pMsg->key = trans->key;
|
|
pMsg->length += ba.size();
|
|
|
|
IceSendData( d->iceConn, ba.size(), const_cast<char *>(ba.data()) );
|
|
|
|
delete trans;
|
|
}
|
|
|
|
void
|
|
DCOPClient::emitDCOPSignal( const TQCString &object, const TQCString &signal, const TQByteArray &data)
|
|
{
|
|
// We hack the sending object name into the signal name
|
|
send("DCOPServer", "emit", object+"#"+normalizeFunctionSignature(signal), data);
|
|
}
|
|
|
|
void
|
|
DCOPClient::emitDCOPSignal( const TQCString &signal, const TQByteArray &data)
|
|
{
|
|
emitDCOPSignal(0, signal, data);
|
|
}
|
|
|
|
bool
|
|
DCOPClient::connectDCOPSignal( const TQCString &sender, const TQCString &senderObj,
|
|
const TQCString &signal,
|
|
const TQCString &receiverObj, const TQCString &slot, bool Volatile)
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
TQ_INT8 iVolatile = Volatile ? 1 : 0;
|
|
|
|
TQDataStream args(data, IO_WriteOnly );
|
|
args << sender << senderObj << normalizeFunctionSignature(signal) << receiverObj << normalizeFunctionSignature(slot) << iVolatile;
|
|
|
|
if (!call("DCOPServer", 0,
|
|
"connectSignal(TQCString,TQCString,TQCString,TQCString,TQCString,bool)",
|
|
data, replyType, replyData))
|
|
{
|
|
return false;
|
|
}
|
|
|
|
if (replyType != "bool")
|
|
return false;
|
|
|
|
TQDataStream reply(replyData, IO_ReadOnly );
|
|
TQ_INT8 result;
|
|
reply >> result;
|
|
return (result != 0);
|
|
}
|
|
|
|
bool
|
|
DCOPClient::connectDCOPSignal( const TQCString &sender, const TQCString &signal,
|
|
const TQCString &receiverObj, const TQCString &slot, bool Volatile)
|
|
{
|
|
return connectDCOPSignal( sender, 0, signal, receiverObj, slot, Volatile);
|
|
}
|
|
|
|
bool
|
|
DCOPClient::disconnectDCOPSignal( const TQCString &sender, const TQCString &senderObj,
|
|
const TQCString &signal,
|
|
const TQCString &receiverObj, const TQCString &slot)
|
|
{
|
|
TQCString replyType;
|
|
TQByteArray data, replyData;
|
|
|
|
TQDataStream args(data, IO_WriteOnly );
|
|
args << sender << senderObj << normalizeFunctionSignature(signal) << receiverObj << normalizeFunctionSignature(slot);
|
|
|
|
if (!call("DCOPServer", 0,
|
|
"disconnectSignal(TQCString,TQCString,TQCString,TQCString,TQCString)",
|
|
data, replyType, replyData))
|
|
{
|
|
return false;
|
|
}
|
|
|
|
if (replyType != "bool")
|
|
return false;
|
|
|
|
TQDataStream reply(replyData, IO_ReadOnly );
|
|
TQ_INT8 result;
|
|
reply >> result;
|
|
return (result != 0);
|
|
}
|
|
|
|
bool
|
|
DCOPClient::disconnectDCOPSignal( const TQCString &sender, const TQCString &signal,
|
|
const TQCString &receiverObj, const TQCString &slot)
|
|
{
|
|
return disconnectDCOPSignal( sender, 0, signal, receiverObj, slot);
|
|
}
|
|
|
|
void
|
|
DCOPClient::setPriorityCall(bool b)
|
|
{
|
|
if (b)
|
|
{
|
|
if (d->currentKey == 2)
|
|
return;
|
|
d->currentKeySaved = d->currentKey;
|
|
d->currentKey = 2;
|
|
}
|
|
else
|
|
{
|
|
if (d->currentKey != 2)
|
|
return;
|
|
d->currentKey = d->currentKeySaved;
|
|
if ( !d->messages.isEmpty() )
|
|
d->postMessageTimer.start( 0, true ); // Process queued messages
|
|
}
|
|
}
|
|
|
|
|
|
|
|
void
|
|
DCOPClient::emergencyClose()
|
|
{
|
|
TQPtrList<DCOPClient> list;
|
|
client_map_t *map = DCOPClient_CliMap;
|
|
if (!map) return;
|
|
TQAsciiDictIterator<DCOPClient> it(*map);
|
|
while(it.current()) {
|
|
list.removeRef(it.current());
|
|
list.append(it.current());
|
|
++it;
|
|
}
|
|
for(DCOPClient *cl = list.first(); cl; cl = list.next())
|
|
{
|
|
if (cl->d->iceConn) {
|
|
IceProtocolShutdown(cl->d->iceConn, cl->d->majorOpcode);
|
|
IceCloseConnection(cl->d->iceConn);
|
|
cl->d->iceConn = 0L;
|
|
}
|
|
}
|
|
}
|
|
|
|
const char *
|
|
DCOPClient::postMortemSender()
|
|
{
|
|
if (!dcop_main_client)
|
|
return "";
|
|
if (dcop_main_client->d->senderId.isEmpty())
|
|
return "";
|
|
return dcop_main_client->d->senderId.data();
|
|
}
|
|
|
|
const char *
|
|
DCOPClient::postMortemObject()
|
|
{
|
|
if (!dcop_main_client)
|
|
return "";
|
|
return dcop_main_client->d->objId.data();
|
|
}
|
|
const char *
|
|
DCOPClient::postMortemFunction()
|
|
{
|
|
if (!dcop_main_client)
|
|
return "";
|
|
return dcop_main_client->d->function.data();
|
|
}
|
|
|
|
void DCOPClient::virtual_hook( int, void* )
|
|
{ /*BASE::virtual_hook( id, data );*/ }
|
|
|
|
#include <dcopclient.moc>
|
|
|