summaryrefslogtreecommitdiffstats
path: root/kdoctools/xslt.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'kdoctools/xslt.cpp')
-rw-r--r--kdoctools/xslt.cpp359
1 files changed, 359 insertions, 0 deletions
diff --git a/kdoctools/xslt.cpp b/kdoctools/xslt.cpp
new file mode 100644
index 000000000..fc1fd4546
--- /dev/null
+++ b/kdoctools/xslt.cpp
@@ -0,0 +1,359 @@
+#include <libxslt/xsltconfig.h>
+#include <libxslt/xsltInternals.h>
+#include <libxslt/transform.h>
+#include <libxslt/xsltutils.h>
+#include <libxml/xmlIO.h>
+#include <libxml/parserInternals.h>
+#include <libxml/catalog.h>
+#include <kdebug.h>
+#include <kstandarddirs.h>
+#include <qdir.h>
+#include <qregexp.h>
+#include <xslt.h>
+#include <kinstance.h>
+#include "kio_help.h"
+#include <klocale.h>
+#include <assert.h>
+#include <kfilterbase.h>
+#include <kfilterdev.h>
+#include <qtextcodec.h>
+#include <stdlib.h>
+#include <config.h>
+#include <stdarg.h>
+#include <klibloader.h>
+#include <kcharsets.h>
+#include <gzip/kgzipfilter.h>
+#include <bzip2/kbzip2filter.h>
+#include <klibloader.h>
+#include <qvaluevector.h>
+
+#if !defined( SIMPLE_XSLT )
+extern HelpProtocol *slave;
+#define INFO( x ) if (slave) slave->infoMessage(x);
+#else
+#define INFO( x )
+#endif
+
+int writeToQString(void * context, const char * buffer, int len)
+{
+ QString *t = (QString*)context;
+ *t += QString::fromUtf8(buffer, len);
+ return len;
+}
+
+int closeQString(void * context) {
+ QString *t = (QString*)context;
+ *t += '\n';
+ return 0;
+}
+
+QString transform( const QString &pat, const QString& tss,
+ const QValueVector<const char *> &params )
+{
+ QString parsed;
+
+ INFO(i18n("Parsing stylesheet"));
+
+ xsltStylesheetPtr style_sheet =
+ xsltParseStylesheetFile((const xmlChar *)tss.latin1());
+
+ if ( !style_sheet ) {
+ return parsed;
+ }
+
+ if (style_sheet->indent == 1)
+ xmlIndentTreeOutput = 1;
+ else
+ xmlIndentTreeOutput = 0;
+
+ INFO(i18n("Parsing document"));
+
+ xmlDocPtr doc = xmlParseFile( pat.latin1() );
+ xsltTransformContextPtr ctxt;
+
+ ctxt = xsltNewTransformContext(style_sheet, doc);
+ if (ctxt == NULL)
+ return parsed;
+
+ INFO(i18n("Applying stylesheet"));
+ QValueVector<const char *> p = params;
+ p.append( NULL );
+ xmlDocPtr res = xsltApplyStylesheet(style_sheet, doc, const_cast<const char **>(&p[0]));
+ xmlFreeDoc(doc);
+ if (res != NULL) {
+ xmlOutputBufferPtr outp = xmlOutputBufferCreateIO(writeToQString, (xmlOutputCloseCallback)closeQString, &parsed, 0);
+ outp->written = 0;
+ INFO(i18n("Writing document"));
+ xsltSaveResultTo ( outp, res, style_sheet );
+ xmlOutputBufferFlush(outp);
+ xmlFreeDoc(res);
+ }
+ xsltFreeStylesheet(style_sheet);
+
+ if (parsed.isEmpty())
+ parsed = " "; // avoid error message
+ return parsed;
+}
+
+/*
+xmlParserInputPtr meinExternalEntityLoader(const char *URL, const char *ID,
+ xmlParserCtxtPtr ctxt) {
+ xmlParserInputPtr ret = NULL;
+
+ // fprintf(stderr, "loading %s %s %s\n", URL, ID, ctxt->directory);
+
+ if (URL == NULL) {
+ if ((ctxt->sax != NULL) && (ctxt->sax->warning != NULL))
+ ctxt->sax->warning(ctxt,
+ "failed to load external entity \"%s\"\n", ID);
+ return(NULL);
+ }
+ if (!qstrcmp(ID, "-//OASIS//DTD DocBook XML V4.1.2//EN"))
+ URL = "docbook/xml-dtd-4.1.2/docbookx.dtd";
+ if (!qstrcmp(ID, "-//OASIS//DTD XML DocBook V4.1.2//EN"))
+ URL = "docbook/xml-dtd-4.1.2/docbookx.dtd";
+
+ QString file;
+ if (KStandardDirs::exists( QDir::currentDirPath() + "/" + URL ) )
+ file = QDir::currentDirPath() + "/" + URL;
+ else
+ file = locate("dtd", URL);
+
+ ret = xmlNewInputFromFile(ctxt, file.latin1());
+ if (ret == NULL) {
+ if ((ctxt->sax != NULL) && (ctxt->sax->warning != NULL))
+ ctxt->sax->warning(ctxt,
+
+ "failed to load external entity \"%s\"\n", URL);
+ }
+ return(ret);
+}
+*/
+
+QString splitOut(const QString &parsed, int index)
+{
+ int start_index = index + 1;
+ while (parsed.at(start_index - 1) != '>') start_index++;
+
+ int inside = 0;
+
+ QString filedata;
+
+ while (true) {
+ int endindex = parsed.find("</FILENAME>", index);
+ int startindex = parsed.find("<FILENAME ", index) + 1;
+
+// kdDebug() << "FILENAME " << startindex << " " << endindex << " " << inside << " " << parsed.mid(startindex + 18, 15)<< " " << parsed.length() << endl;
+
+ if (startindex > 0) {
+ if (startindex < endindex) {
+ // kdDebug() << "finding another" << endl;
+ index = startindex + 8;
+ inside++;
+ } else {
+ index = endindex + 8;
+ inside--;
+ }
+ } else {
+ inside--;
+ index = endindex + 1;
+ }
+
+ if (inside == 0) {
+ filedata = parsed.mid(start_index, endindex - start_index);
+ break;
+ }
+
+ }
+
+ index = filedata.find("<FILENAME ");
+
+ if (index > 0) {
+ int endindex = filedata.findRev("</FILENAME>");
+ while (filedata.at(endindex) != '>') endindex++;
+ endindex++;
+ filedata = filedata.left(index) + filedata.mid(endindex);
+ }
+
+ // filedata.replace(QRegExp(">"), "\n>");
+ return filedata;
+}
+
+void fillInstance(KInstance &ins, const QString &srcdir) {
+ QString catalogs;
+
+ if ( srcdir.isEmpty() ) {
+ catalogs += ins.dirs()->findResource("data", "ksgmltools2/customization/catalog");
+ catalogs += ':';
+ catalogs += ins.dirs()->findResource("data", "ksgmltools2/docbook/xml-dtd-4.2/docbook.cat");
+ ins.dirs()->addResourceType("dtd", KStandardDirs::kde_default("data") + "ksgmltools2");
+ } else {
+ catalogs += srcdir +"/customization/catalog:" + srcdir + "/docbook/xml-dtd-4.2/docbook.cat";
+ ins.dirs()->addResourceDir("dtd", srcdir);
+ }
+
+ xmlLoadCatalogs(catalogs.latin1());
+}
+
+extern "C" void *init_kbzip2filter();
+
+static QIODevice *getBZip2device(const QString &fileName )
+{
+ QFile * f = new QFile( fileName );
+ KLibFactory * factory = static_cast<KLibFactory*>(init_kbzip2filter());
+ KFilterBase * base = static_cast<KFilterBase*>( factory->create(0, "bzip2" ) );
+
+ if ( base )
+ {
+ base->setDevice(f, true);
+ return new KFilterDev(base, true);
+ }
+ return 0;
+}
+
+bool saveToCache( const QString &contents, const QString &filename )
+{
+ QIODevice *fd = ::getBZip2device(filename);
+ if ( !fd )
+ return false;
+
+ if (!fd->open(IO_WriteOnly))
+ {
+ delete fd;
+ return false;
+ }
+
+ fd->writeBlock( contents.utf8() );
+ fd->close();
+ delete fd;
+ return true;
+}
+
+static bool readCache( const QString &filename,
+ const QString &cache, QString &output)
+{
+ kdDebug( 7119 ) << "verifyCache " << filename << " " << cache << endl;
+ if ( !compareTimeStamps( filename, cache ) )
+ return false;
+ if ( !compareTimeStamps( locate( "dtd", "customization/kde-chunk.xsl"), cache ) )
+ return false;
+
+ kdDebug( 7119 ) << "create filter" << endl;
+ QIODevice *fd = ::getBZip2device(cache);
+ if ( !fd )
+ return false;
+
+ if (!fd->open(IO_ReadOnly))
+ {
+ delete fd;
+ QFile::remove(cache);
+ return false;
+ }
+
+ kdDebug( 7119 ) << "reading" << endl;
+
+ char buffer[32000];
+ int n;
+ QCString text;
+ // Also end loop in case of error, when -1 is returned
+ while ( ( n = fd->readBlock(buffer, 31900) ) > 0)
+ {
+ buffer[n] = 0;
+ text += buffer;
+ }
+ kdDebug( 7119 ) << "read " << text.length() << endl;
+ fd->close();
+
+ output = QString::fromUtf8( text );
+ delete fd;
+
+ if (n == -1)
+ return false;
+
+ kdDebug( 7119 ) << "finished " << endl;
+
+ return true;
+}
+
+QString lookForCache( const QString &filename )
+{
+ kdDebug() << "lookForCache " << filename << endl;
+ assert( filename.endsWith( ".docbook" ) );
+ assert( filename.at( 0 ) == '/' );
+
+ QString cache = filename.left( filename.length() - 7 );
+ QString output;
+ if ( readCache( filename, cache + "cache.bz2", output) )
+ return output;
+ if ( readCache( filename,
+ locateLocal( "cache",
+ "kio_help" + cache +
+ "cache.bz2" ), output ) )
+ return output;
+
+ return QString::null;
+}
+
+bool compareTimeStamps( const QString &older, const QString &newer )
+{
+ QFileInfo _older( older );
+ QFileInfo _newer( newer );
+ assert( _older.exists() );
+ if ( !_newer.exists() )
+ return false;
+ return ( _newer.lastModified() > _older.lastModified() );
+}
+
+QCString fromUnicode( const QString &data )
+{
+ QTextCodec *locale = QTextCodec::codecForLocale();
+ QCString result;
+ char buffer[30000];
+ uint buffer_len = 0;
+ uint len = 0;
+ uint offset = 0;
+ const int part_len = 5000;
+
+ QString part;
+
+ while ( offset < data.length() )
+ {
+ part = data.mid( offset, part_len );
+ QCString test = locale->fromUnicode( part );
+ if ( locale->toUnicode( test ) == part ) {
+ result += test;
+ offset += part_len;
+ continue;
+ }
+ len = part.length();
+ buffer_len = 0;
+ for ( uint i = 0; i < len; i++ ) {
+ QCString test = locale->fromUnicode( part.mid( i, 1 ) );
+ if ( locale->toUnicode( test ) == part.mid( i, 1 ) ) {
+ if (buffer_len + test.length() + 1 > sizeof(buffer))
+ break;
+ strcpy( buffer + buffer_len, test.data() );
+ buffer_len += test.length();
+ } else {
+ QString res;
+ res.sprintf( "&#%d;", part.at( i ).unicode() );
+ test = locale->fromUnicode( res );
+ if (buffer_len + test.length() + 1 > sizeof(buffer))
+ break;
+ strcpy( buffer + buffer_len, test.data() );
+ buffer_len += test.length();
+ }
+ }
+ result += QCString( buffer, buffer_len + 1);
+ offset += part_len;
+ }
+ return result;
+}
+
+void replaceCharsetHeader( QString &output )
+{
+ QString name = QTextCodec::codecForLocale()->name();
+ name.replace( QString( "ISO " ), "iso-" );
+ output.replace( QString( "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">" ),
+ QString( "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=%1\">" ).arg( name ) );
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-11-05 13:14:50 +0000