|
|
|
/* This file is part of the KDE project
|
|
|
|
Copyright (C) 2002 Werner Trobin <trobin@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 as published by the Free Software Foundation; either
|
|
|
|
version 2 of the License, or (at your option) any later version.
|
|
|
|
|
|
|
|
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 <tqfile.h>
|
|
|
|
#include <KoQueryTrader.h>
|
|
|
|
#include <KoFilterManager.h>
|
|
|
|
#include <kinstance.h>
|
|
|
|
#include <kdebug.h>
|
|
|
|
|
|
|
|
int main( int /*argc*/, char ** /*argv*/ )
|
|
|
|
{
|
|
|
|
TDEInstance instance( "filter_graph" ); // we need an instance when using the trader
|
|
|
|
|
|
|
|
TQCString output = "digraph filters {\n";
|
|
|
|
|
|
|
|
// The following code is shamelessly copied over from KOffice::Graph::buildGraph
|
|
|
|
// It wasn't feasible to do some serious changes in the lib for that tiny bit
|
|
|
|
// of duplicated code in a test file.
|
|
|
|
|
|
|
|
TQValueList<TQString> vertices; // to keep track of already inserted values, not performance critical
|
|
|
|
|
|
|
|
// Make sure that all available parts are added to the graph
|
|
|
|
TQValueList<KoDocumentEntry> parts( KoDocumentEntry::query() );
|
|
|
|
TQValueList<KoDocumentEntry>::ConstIterator partIt( parts.begin() );
|
|
|
|
TQValueList<KoDocumentEntry>::ConstIterator partEnd( parts.end() );
|
|
|
|
|
|
|
|
while ( partIt != partEnd ) {
|
|
|
|
//kdDebug() << ( *partIt ).service()->desktopEntryName() << endl;
|
|
|
|
TQStringList nativeMimeTypes = ( *partIt ).service()->property( "X-TDE-ExtraNativeMimeTypes" ).toStringList();
|
|
|
|
nativeMimeTypes += ( *partIt ).service()->property( "X-TDE-NativeMimeType" ).toString();
|
|
|
|
TQStringList::ConstIterator it = nativeMimeTypes.begin();
|
|
|
|
TQStringList::ConstIterator end = nativeMimeTypes.end();
|
|
|
|
for ( ; it != end; ++it ) {
|
|
|
|
TQString key = *it;
|
|
|
|
//kdDebug() << " " << key << endl;
|
|
|
|
if ( !key.isEmpty() ) {
|
|
|
|
output += " \"";
|
|
|
|
output += key.latin1();
|
|
|
|
output += "\" [shape=box, style=filled, fillcolor=lightblue];\n";
|
|
|
|
if ( vertices.find( key ) == vertices.end() )
|
|
|
|
vertices.append( key );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
++partIt;
|
|
|
|
}
|
|
|
|
|
|
|
|
TQValueList<KoFilterEntry::Ptr> filters( KoFilterEntry::query() ); // no constraint here - we want *all* :)
|
|
|
|
TQValueList<KoFilterEntry::Ptr>::ConstIterator it = filters.begin();
|
|
|
|
TQValueList<KoFilterEntry::Ptr>::ConstIterator end = filters.end();
|
|
|
|
|
|
|
|
for ( ; it != end; ++it ) {
|
|
|
|
kdDebug() << "import " << ( *it )->import << " export " << ( *it )->export_ << endl;
|
|
|
|
// First add the "starting points"
|
|
|
|
TQStringList::ConstIterator importIt = ( *it )->import.begin();
|
|
|
|
TQStringList::ConstIterator importEnd = ( *it )->import.end();
|
|
|
|
for ( ; importIt != importEnd; ++importIt ) {
|
|
|
|
// already there?
|
|
|
|
if ( vertices.find( *importIt ) == vertices.end() ) {
|
|
|
|
vertices.append( *importIt );
|
|
|
|
output += " \"";
|
|
|
|
output += ( *importIt ).latin1();
|
|
|
|
output += "\";\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
TQStringList::ConstIterator exportIt = ( *it )->export_.begin();
|
|
|
|
TQStringList::ConstIterator exportEnd = ( *it )->export_.end();
|
|
|
|
|
|
|
|
for ( ; exportIt != exportEnd; ++exportIt ) {
|
|
|
|
// First make sure the export vertex is in place
|
|
|
|
if ( vertices.find( *exportIt ) == vertices.end() ) {
|
|
|
|
output += " \"";
|
|
|
|
output += ( *exportIt ).latin1();
|
|
|
|
output += "\";\n";
|
|
|
|
vertices.append( *exportIt );
|
|
|
|
}
|
|
|
|
// Then create the appropriate edges
|
|
|
|
importIt = ( *it )->import.begin();
|
|
|
|
for ( ; importIt != importEnd; ++importIt ) {
|
|
|
|
output += " \"";
|
|
|
|
output += ( *importIt ).latin1();
|
|
|
|
output += "\" -> \"";
|
|
|
|
output += ( *exportIt ).latin1();
|
|
|
|
if ( KoFilterManager::filterAvailable( *it ) )
|
|
|
|
output += "\";\n";
|
|
|
|
else
|
|
|
|
output += "\" [style=dotted];\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
output += "}\n";
|
|
|
|
|
|
|
|
TQFile f( "graph.dot" );
|
|
|
|
if ( f.open( IO_WriteOnly ) )
|
|
|
|
f.writeBlock( output.data(), output.size() - 1 );
|
|
|
|
f.close();
|
|
|
|
return 0;
|
|
|
|
}
|