Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 315 insertions, 0 deletions

diff --git a/kdoctools/meinproc.cpp b/kdoctools/meinproc.cpp
new file mode 100644
index 000000000..f6796194d
--- /dev/null
+++ b/kdoctools/meinproc.cpp
@@ -0,0 +1,315 @@
+#include <config.h>
+#include <string.h>
+#include <sys/time.h>
+#include <unistd.h>
+#include <libxml/xmlversion.h>
+#include <libxml/xmlmemory.h>
+#include <libxml/debugXML.h>
+#include <libxml/HTMLtree.h>
+#include <libxml/xmlIO.h>
+#include <libxml/parserInternals.h>
+#include <libxslt/xsltconfig.h>
+#include <libxslt/xsltInternals.h>
+#include <libxslt/transform.h>
+#include <libxslt/xsltutils.h>
+#include <qstring.h>
+#include <kstandarddirs.h>
+#include <kinstance.h>
+#include <xslt.h>
+#include <qfile.h>
+#include <qdir.h>
+#include <kcmdlineargs.h>
+#include <klocale.h>
+#include <kaboutdata.h>
+#include <stdlib.h>
+#include <kdebug.h>
+#include <qtextcodec.h>
+#include <qfileinfo.h>
+#include <kprocess.h>
+#include <qvaluevector.h>
+
+extern int xmlLoadExtDtdDefaultValue;
+
+class MyPair {
+public:
+    QString word;
+    int base;};
+
+typedef QValueList<MyPair> PairList;
+
+void parseEntry(PairList &list, xmlNodePtr cur, int base)
+{
+    if ( !cur )
+        return;
+
+    base += atoi( ( const char* )xmlGetProp(cur, ( const xmlChar* )"header") );
+    if ( base > 10 ) // 10 is the maximum
+        base = 10;
+
+    /* We don't care what the top level element name is */
+    cur = cur->xmlChildrenNode;
+    while (cur != NULL) {
+
+        if ( cur->type == XML_TEXT_NODE ) {
+            QString words = QString::fromUtf8( ( char* )cur->content );
+            QStringList wlist = QStringList::split( ' ',  words.simplifyWhiteSpace() );
+            for ( QStringList::ConstIterator it = wlist.begin();
+                  it != wlist.end(); ++it )
+            {
+                MyPair m;
+                m.word = *it;
+                m.base = base;
+                list.append( m );
+            }
+        } else if ( !xmlStrcmp( cur->name, (const xmlChar *) "entry") )
+            parseEntry( list, cur, base );
+
+    	cur = cur->next;
+    }
+
+}
+
+static KCmdLineOptions options[] =
+{
+    { "stylesheet <xsl>",  I18N_NOOP( "Stylesheet to use" ), 0 },
+    { "stdout", I18N_NOOP( "Output whole document to stdout" ), 0 },
+    { "o", 0, 0 },
+    { "output <file>", I18N_NOOP("Output whole document to file" ), 0 },
+    { "htdig", I18N_NOOP( "Create a ht://dig compatible index" ), 0 },
+    { "check", I18N_NOOP( "Check the document for validity" ), 0 },
+    { "cache <file>", I18N_NOOP( "Create a cache file for the document" ), 0},
+    { "srcdir <dir>", I18N_NOOP( "Set the srcdir, for kdelibs" ), 0},
+    { "param <key>=<value>", I18N_NOOP( "Parameters to pass to the stylesheet" ), 0},
+    { "+xml", I18N_NOOP("The file to transform"), 0},
+    KCmdLineLastOption // End of options.
+};
+
+
+
+
+int main(int argc, char **argv) {
+
+    // xsltSetGenericDebugFunc(stderr, NULL);
+
+    KAboutData aboutData( "meinproc", I18N_NOOP("XML-Translator" ),
+	"$Revision$",
+	I18N_NOOP("KDE Translator for XML"));
+
+    KCmdLineArgs::init(argc, argv, &aboutData);
+    KCmdLineArgs::addCmdLineOptions( options );
+
+    KLocale::setMainCatalogue("kio_help");
+    KInstance ins("meinproc");
+    KGlobal::locale();
+
+
+    KCmdLineArgs *args = KCmdLineArgs::parsedArgs();
+    if ( args->count() != 1 ) {
+        args->usage();
+        return ( 1 );
+    }
+
+    // Need to set SRCDIR before calling fillInstance
+    QString srcdir;
+    if ( args->isSet( "srcdir" ) )
+        srcdir = QDir( QFile::decodeName( args->getOption( "srcdir" ) ) ).absPath();
+    fillInstance(ins,srcdir);
+
+    LIBXML_TEST_VERSION
+
+    QString checkFilename = QFile::decodeName(args->arg( 0 ));
+    QFileInfo checkFile(checkFilename);
+    if (!checkFile.exists())
+    {
+        kdError() << "File '" << checkFilename << "' does not exist." << endl;
+        return ( 2 );
+    }
+    if (!checkFile.isFile())
+    {
+        kdError() << "'" << checkFilename << "' is not a file." << endl;
+        return ( 2 );
+    }
+    if (!checkFile.isReadable())
+    {
+        kdError() << "File '" << checkFilename << "' is not readable." << endl;
+        return ( 2 );
+    }
+
+    if ( args->isSet( "check" ) ) {
+        char pwd_buffer[PATH_MAX];
+        QFileInfo file( QFile::decodeName(args->arg( 0 )) );
+        if ( !getcwd( pwd_buffer, sizeof(pwd_buffer) - 1 ) ) {
+	     kdError() << "getcwd failed." << endl;
+             return 2;
+	}
+
+        QString catalogs;
+        catalogs += locate( "dtd", "customization/catalog" );
+        catalogs += " ";
+        catalogs += locate( "dtd", "docbook/xml-dtd-4.1.2/docbook.cat" );
+
+        setenv( "SGML_CATALOG_FILES", QFile::encodeName( catalogs ).data(), 1);
+        QString exe;
+#if defined( XMLLINT )
+        exe = XMLLINT;
+#endif
+        if ( (::access( QFile::encodeName( exe ), X_OK )!=0) ) {
+            exe = KStandardDirs::findExe( "xmllint" );
+            if (exe.isEmpty())
+                exe = locate( "exe", "xmllint" );
+        }
+        if ( ::access( QFile::encodeName( exe ), X_OK )==0 ) {
+            chdir( QFile::encodeName( file.dirPath( true ) ) );
+            QString cmd = exe;
+            cmd += " --catalogs --valid --noout ";
+            cmd += KProcess::quote(file.fileName());
+            cmd += " 2>&1";
+            FILE *xmllint = popen( QFile::encodeName( cmd ), "r");
+            char buf[ 512 ];
+            bool noout = true;
+            unsigned int n;
+            while ( ( n = fread(buf, 1, sizeof( buf ), xmllint ) ) ) {
+                noout = false;
+                buf[ n ] = '\0';
+                fputs( buf, stderr );
+            }
+            pclose( xmllint );
+            chdir( pwd_buffer );
+            if ( !noout )
+                return 1;
+        } else {
+            kdWarning() << "couldn't find xmllint" << endl;
+        }
+    }
+
+    xmlSubstituteEntitiesDefault(1);
+    xmlLoadExtDtdDefaultValue = 1;
+
+    QValueVector<const char *> params;
+    if (args->isSet( "output" ) ) {
+        params.append( qstrdup( "outputFile" ) );
+        params.append( qstrdup( QFile::decodeName( args->getOption( "output" ) ).latin1() ) );
+    }
+    {
+        const QCStringList paramList = args->getOptionList( "param" );
+        QCStringList::ConstIterator it = paramList.begin();
+        QCStringList::ConstIterator end = paramList.end();
+        for ( ; it != end; ++it ) {
+            const QCString tuple = *it;
+            const int ch = tuple.find( '=' );
+            if ( ch == -1 ) {
+                kdError() << "Key-Value tuple '" << tuple << "' lacks a '='!" << endl;
+                return( 2 );
+            }
+            params.append( qstrdup( tuple.left( ch ) ) );
+            params.append( qstrdup( tuple.mid( ch + 1 ) )  );
+        }
+    }
+    params.append( NULL );
+
+    bool index = args->isSet( "htdig" );
+    QString tss = args->getOption( "stylesheet" );
+    if ( tss.isEmpty() )
+        tss =  "customization/kde-chunk.xsl";
+    if ( index )
+        tss = "customization/htdig_index.xsl" ;
+
+    tss = locate( "dtd", tss );
+
+    if ( index ) {
+        xsltStylesheetPtr style_sheet =
+            xsltParseStylesheetFile((const xmlChar *)tss.latin1());
+
+        if (style_sheet != NULL) {
+
+            xmlDocPtr doc = xmlParseFile( QFile::encodeName( args->arg( 0 ) ) );
+
+            xmlDocPtr res = xsltApplyStylesheet(style_sheet, doc, &params[0]);
+
+            xmlFreeDoc(doc);
+            xsltFreeStylesheet(style_sheet);
+            if (res != NULL) {
+                xmlNodePtr cur = xmlDocGetRootElement(res);
+                if (!cur || xmlStrcmp(cur->name, (const xmlChar *) "entry")) {
+                    fprintf(stderr,"document of the wrong type, root node != entry");
+                    xmlFreeDoc(res);
+                    return(1);
+                }
+                PairList list;
+                parseEntry( list, cur, 0 );
+                int wi = 0;
+                for ( PairList::ConstIterator it = list.begin(); it != list.end();
+                      ++it, ++wi )
+                    fprintf( stdout, "w\t%s\t%d\t%d\n", ( *it ).word.utf8().data(),
+                             1000*wi/(int)list.count(), ( *it ).base );
+
+                xmlFreeDoc(res);
+            } else {
+                kdDebug() << "couldn't parse document " << args->arg( 0 ) << endl;
+            }
+        } else {
+            kdDebug() << "couldn't parse style sheet " << tss << endl;
+        }
+
+    } else {
+        QString output = transform(args->arg( 0 ) , tss, params);
+        if (output.isEmpty()) {
+            fprintf(stderr, "unable to parse %s\n", args->arg( 0 ));
+            return(1);
+        }
+
+        QString cache = args->getOption( "cache" );
+        if ( !cache.isEmpty() ) {
+            if ( !saveToCache( output, cache ) ) {
+                kdError() << i18n( "Could not write to cache file %1." ).arg( cache ) << endl;
+            }
+            goto end;
+        }
+
+        if (output.find( "<FILENAME " ) == -1 || args->isSet( "stdout" ) || args->isSet("output") )
+        {
+            QFile file;
+            if (args->isSet( "stdout" ) ) {
+                file.open( IO_WriteOnly, stdout );
+            } else {
+                if (args->isSet( "output" ) )
+                   file.setName( QFile::decodeName(args->getOption( "output" )));
+                else
+                   file.setName( "index.html" );
+                file.open(IO_WriteOnly);
+            }
+            replaceCharsetHeader( output );
+
+            QCString data = output.local8Bit();
+            file.writeBlock(data.data(), data.length());
+            file.close();
+        } else {
+            int index = 0;
+            while (true) {
+                index = output.find("<FILENAME ", index);
+                if (index == -1)
+                    break;
+                int filename_index = index + strlen("<FILENAME filename=\"");
+
+                QString filename = output.mid(filename_index,
+                                              output.find("\"", filename_index) -
+                                              filename_index);
+
+                QString filedata = splitOut(output, index);
+                QFile file(filename);
+                file.open(IO_WriteOnly);
+                replaceCharsetHeader( filedata );
+                QCString data = fromUnicode( filedata );
+                file.writeBlock(data.data(), data.length());
+                file.close();
+
+                index += 8;
+            }
+        }
+    }
+ end:
+    xmlCleanupParser();
+    xmlMemoryDump();
+    return(0);
+}
+