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.
133 lines
3.0 KiB
133 lines
3.0 KiB
#include <kuserprofile.h>
|
|
#include <ktrader.h>
|
|
#include <kservice.h>
|
|
#include <kmimetype.h>
|
|
#include <assert.h>
|
|
#include <kstandarddirs.h>
|
|
#include <kservicegroup.h>
|
|
#include <kimageio.h>
|
|
#include <kprotocolinfo.h>
|
|
#include <kprocess.h>
|
|
#include <tqtimer.h>
|
|
|
|
#include "kdcopcheck.h"
|
|
#include <dcopclient.h>
|
|
|
|
#include <kapplication.h>
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
void debug(TQString txt)
|
|
{
|
|
fprintf(stderr, "%s\n", txt.ascii());
|
|
}
|
|
|
|
void debug(const char *txt)
|
|
{
|
|
fprintf(stderr, "%s\n", txt);
|
|
}
|
|
void debug(const char *format, const char *txt)
|
|
{
|
|
fprintf(stderr, format, txt);
|
|
fprintf(stderr, "\n");
|
|
}
|
|
|
|
TestService::TestService(const TQString &exec)
|
|
{
|
|
m_exec = exec;
|
|
proc << exec;
|
|
|
|
proc.start();
|
|
|
|
connect(kapp->dcopClient(), TQT_SIGNAL( applicationRegistered(const TQCString&)),
|
|
this, TQT_SLOT(newApp(const TQCString&)));
|
|
connect(kapp->dcopClient(), TQT_SIGNAL( applicationRemoved(const TQCString&)),
|
|
this, TQT_SLOT(endApp(const TQCString&)));
|
|
connect(&proc, TQT_SIGNAL(processExited(TDEProcess *)),
|
|
this, TQT_SLOT(appExit()));
|
|
|
|
TQTimer::singleShot(20*1000, this, TQT_SLOT(stop()));
|
|
result = KService::DCOP_None;
|
|
}
|
|
|
|
void TestService::newApp(const TQCString &appId)
|
|
{
|
|
TQString id = appId;
|
|
if (id == m_exec)
|
|
{
|
|
result = KService::DCOP_Unique;
|
|
stop();
|
|
}
|
|
else if (id.startsWith(m_exec))
|
|
{
|
|
result = KService::DCOP_Multi;
|
|
stop();
|
|
}
|
|
tqWarning("Register %s", appId.data());
|
|
}
|
|
|
|
void TestService::endApp(const TQCString &appId)
|
|
{
|
|
tqWarning("Unegister %s", appId.data());
|
|
}
|
|
|
|
void TestService::appExit()
|
|
{
|
|
tqWarning("Exit");
|
|
}
|
|
|
|
void TestService::stop()
|
|
{
|
|
kapp->exit_loop();
|
|
}
|
|
|
|
int TestService::exec()
|
|
{
|
|
kapp->enter_loop();
|
|
return result;
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
putenv("IGNORE_SYCOCA_VERSION=true");
|
|
TDEApplication k(argc,argv,"whatever",false/*noGUI*/); // KMessageBox needs KApp for makeStdCaption
|
|
|
|
k.dcopClient()->setNotifications(true);
|
|
|
|
KService::List list = KService::allServices();
|
|
|
|
tqWarning("I found %d services.", list.count());
|
|
int i = 0;
|
|
for(KService::List::ConstIterator it = list.begin(); it != list.end(); ++it)
|
|
{
|
|
if (((*it)->DCOPServiceType() == KService::DCOP_None) &&
|
|
!(*it)->desktopEntryPath().startsWith("SuSE") &&
|
|
(*it)->hasServiceType("Application"))
|
|
{
|
|
if ((*it)->exec().startsWith((*it)->desktopEntryName()))
|
|
{
|
|
i++;
|
|
|
|
TestService *test = new TestService((*it)->desktopEntryName());
|
|
int n = test->exec();
|
|
delete test;
|
|
|
|
TQString result;
|
|
if (n == KService::DCOP_None)
|
|
result = "None";
|
|
else if (n == KService::DCOP_Unique)
|
|
result = "Unique";
|
|
else if (n == KService::DCOP_Multi)
|
|
result = "Multi";
|
|
|
|
tqWarning("%s %s", (*it)->desktopEntryPath().latin1(),
|
|
result.latin1());
|
|
}
|
|
}
|
|
}
|
|
tqWarning("%d left after filtering.", i);
|
|
}
|
|
|
|
#include "kdcopcheck.moc"
|