1 files changed, 97 insertions, 0 deletions
diff --git a/tdeio/tdeio/kdcopservicestarter.cpp b/tdeio/tdeio/kdcopservicestarter.cpp
new file mode 100644
index 000000000..3c9b55501
--- /dev/null
+++ b/tdeio/tdeio/kdcopservicestarter.cpp
@@ -0,0 +1,97 @@
+/* This file is part of the KDE libraries
+   Copyright (C) 2003 David Faure <faure@kde.org>
+
+   This library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public
+   License version 2 as published by the Free Software Foundation.
+
+   This library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public License
+   along with this library; see the file COPYING.LIB.  If not, write to
+   the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+   Boston, MA 02110-1301, USA.
+*/
+
+#include "kdcopservicestarter.h"
+#include "ktrader.h"
+#include <kapplication.h>
+#include "kservice.h"
+#include <kstaticdeleter.h>
+#include <kdebug.h>
+#include <klocale.h>
+#include <dcopclient.h>
+
+static KStaticDeleter<KDCOPServiceStarter> dss_sd;
+KDCOPServiceStarter* KDCOPServiceStarter::s_self;
+
+KDCOPServiceStarter* KDCOPServiceStarter::self()
+{
+    if ( !s_self )
+        dss_sd.setObject( s_self, new KDCOPServiceStarter );
+    return s_self;
+}
+
+KDCOPServiceStarter::KDCOPServiceStarter()
+{
+    // Set the singleton instance - useful when a derived KDCOPServiceStarter
+    // was created (before self() was called)
+    s_self = this;
+}
+
+KDCOPServiceStarter::~KDCOPServiceStarter()
+{
+}
+
+int KDCOPServiceStarter::findServiceFor( const TQString& serviceType,
+                                         const TQString& _constraint,
+                                         const TQString& preferences,
+                                         TQString *error, TQCString* pDcopService,
+                                         int flags )
+{
+    // Ask the trader which service is preferred for this servicetype
+    // We want one that provides a DCOP interface
+    TQString constraint = _constraint;
+    if ( !constraint.isEmpty() )
+        constraint += " and ";
+    constraint += "exist [X-DCOP-ServiceName]";
+    KTrader::OfferList offers = KTrader::self()->query(serviceType, "Application", constraint, preferences);
+    if ( offers.isEmpty() ) {
+        if ( error )
+            *error = i18n("No service implementing %1").arg( serviceType );
+        kdWarning() << "KDCOPServiceStarter: No service implementing " << serviceType << endl;
+        return -1;
+    }
+    KService::Ptr ptr = offers.first();
+    TQCString dcopService = ptr->property("X-DCOP-ServiceName").toString().latin1();
+
+    if ( !kapp->dcopClient()->isApplicationRegistered( dcopService ) )
+    {
+        TQString error;
+        if ( startServiceFor( serviceType, constraint, preferences, &error, &dcopService, flags ) != 0 )
+        {
+            kdDebug() << "KDCOPServiceStarter: Couldn't start service: " << error << endl;
+            return -2;
+        }
+    }
+    kdDebug() << "KDCOPServiceStarter: DCOP service is available now, as " << dcopService << endl;
+    if ( pDcopService )
+        *pDcopService = dcopService;
+    return 0;
+}
+
+int KDCOPServiceStarter::startServiceFor( const TQString& serviceType,
+                                          const TQString& constraint,
+                                          const TQString& preferences,
+                                          TQString *error, TQCString* dcopService, int /*flags*/ )
+{
+    KTrader::OfferList offers = KTrader::self()->query(serviceType, "Application", constraint, preferences);
+    if ( offers.isEmpty() )
+        return -1;
+    KService::Ptr ptr = offers.first();
+    kdDebug() << "KDCOPServiceStarter: starting " << ptr->desktopEntryPath() << endl;
+    return kapp->startServiceByDesktopPath( ptr->desktopEntryPath(), TQStringList(), error, dcopService );
+}