xsltimportdia.cpp

/* This file is part of the KDE project
   Copyright (C) 2000 Robert JACOLIN <rjacolin@ifrance.com>
 
   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 "xsltimportdia.h"
#include "xsltimportdia.moc"
 
//#include <stdio.h>
 
#include <tqcombobox.h>
#include <tqcursor.h>
#include <tqstringlist.h>
#include <tqdir.h>
 
#include <tdeapplication.h>
#include <tdelocale.h>
#include <kstandarddirs.h>
#include <tdeglobal.h>
#include <tderecentdocument.h>
#include <KoFilterManager.h>
#include <tdetempfile.h>
#include <kdebug.h>
 
#include <xsltproc.h>
 
/*
 *  Constructs a XSLTImportDia which is a child of 'parent', with the
 *  name 'name' and widget flags set to 'f'.
 *
 *  The dialog will by default be modeless, unless you set 'modal' to
 *  true to construct a modal dialog.
 */
XSLTImportDia::XSLTImportDia(KoStore* out, const TQCString &format, TQWidget* parent,  const char* name_, bool modal, WFlags fl )
    : XSLTDialog( parent, name_, modal, fl )
{
    int i = 0;
    _out = out;
    _format = format;
    setCaption(i18n("Import XSLT Configuration"));
    
    /* Recent files */
    _config = new TDEConfig("xsltdialog");
    _config->setGroup( "XSLT import filter" );
    TQString value;
    while(i < 10)
    {
        value = _config->readPathEntry( TQString("Recent%1").arg(i) );
        kdDebug() << "recent : " << value << endl;
        if(!value.isEmpty())
        {
            _recentList.append( value );
            recentBox->insertItem(value);
        }
        else
            i = 10;
        i = i + 1;
    }
 
    /* Common xslt files box */
    TQString appName = (const char*) TDEGlobal::instance()->instanceName();
    kdDebug() << "app name = " << appName << endl;
    
    TQString filenames = TQString("xsltfilter") + TQDir::separator() + TQString("import") +
            TQDir::separator() + appName + TQDir::separator() + "*/*.xsl";
    TQStringList commonFilesList = TDEGlobal::dirs()->findAllResources("data", filenames, true);
    kdDebug() << "There are " << commonFilesList.size() << " entries like  " << filenames << endl;
    
    TQStringList tempList;
    TQString name;
    TQString file;
 
    for(TQStringList::Iterator it = commonFilesList.begin(); it != commonFilesList.end(); ++it)
    {
        tempList = TQStringList::split("/", (*it));
        file = tempList.last();
        tempList.pop_back();
        name = tempList.last();
        tempList.pop_back();
        kdDebug() << name << " " << file << endl;
        if(!_namesList.contains(name) && file == "main.xsl")
        {
            _filesList.append(file);
            _namesList.append(name);
            _dirsList.append(tempList.join("/"));
            kdDebug() << file << " get" << endl;
        }
    }
    
    xsltList->insertStringList(_namesList);
    kapp->restoreOverrideCursor();
}
 
/*
 *  Destroys the object and frees any allocated resources
 */
XSLTImportDia::~XSLTImportDia()
{
    // no need to delete child widgets, TQt does it all for us
    delete _config;
}

void XSLTImportDia::cancelSlot()
{
    kdDebug() << "import cancelled" << endl;
    reject();
}

void XSLTImportDia::chooseSlot()
{
 
    /* Use dir from currently selected file */
    TQString dir = TQString();
    if ( _currentFile.isLocalFile() && TQFile::exists( _currentFile.path() ) )
        dir = TQFileInfo( _currentFile.path() ).absFilePath();
 
    KFileDialog *dialog = new KFileDialog(dir, TQString(), 0L, "file dialog", true);
    dialog->setCaption( i18n("Open Document") );
    dialog->setMimeFilter( KoFilterManager::mimeFilter( _format, KoFilterManager::Import ) );
    KURL u;
 
    if(dialog->exec() == TQDialog::Accepted)
    {
        u = dialog->selectedURL();
        TDERecentDocument::add(dialog->selectedURL().url(), !dialog->selectedURL().isLocalFile());
    } else //revert state
    {
        //if (bEmpty) openEmpty();
        //if (bTemplates) openTemplate();
    }
 
    delete dialog;
 
    TQString filename = u.path();
    TQString url = u.url();
    bool local = u.isLocalFile();
 
    bool ok = !url.isEmpty();
    if (local) // additional checks for local files
        ok = ok && (TQFileInfo( filename ).isFile() ||
                    (TQFileInfo( filename ).isSymLink() &&
                     !TQFileInfo( filename ).readLink().isEmpty() &&
                     TQFileInfo( TQFileInfo( filename ).readLink() ).isFile() ) );
 
    if ( ok )
    {
        _currentFile = u;
        okSlot();
    }
}

void XSLTImportDia::chooseRecentSlot()
{
    kdDebug() << "recent slot : " << recentBox->currentText() << endl;
    _currentFile = recentBox->currentText();
}

void XSLTImportDia::chooseCommonSlot()
{
    int num = xsltList->currentItem();
    _currentFile = TQDir::separator() + _dirsList[num] + TQDir::separator() +
            xsltList->currentText() + TQDir::separator() + _filesList[num];
    kdDebug() << "common slot : " << _currentFile.url() << endl;
}

void XSLTImportDia::okSlot()
{
    kapp->setOverrideCursor(TQCursor(TQt::WaitCursor));
    hide();
    if(_currentFile.url().isEmpty())
        return;
    kdDebug() << "XSLT FILTER --> BEGIN" << endl;
    _out->open("root");
    TQString stylesheet = _currentFile.directory() + "/" + _currentFile.fileName();
 
    /* Add the current file in the recent list if is not and save the list. */
    if(_recentList.contains(stylesheet) == 0)
    {
        kdDebug() << "Style sheet add to recent list" << endl;
        /* Remove the older stylesheet used */
        if(_recentList.size() >= 10)
            _recentList.pop_back();
 
        /* Add the new */
        _recentList.prepend(stylesheet);
 
        /* Save the new list */
        kdDebug() << "Recent list save " << _recentList.size() << " entrie(s)" << endl;
        int i = 0;
        while(_recentList.size() > 0)
        {
            kdDebug() << "save : " << _recentList.first() << endl;
            _config->writePathEntry( TQString("Recent%1").arg(i), _recentList.first());
            _recentList.pop_front();
            i = i + 1;
        }
        /* Write config on disk */
        _config->sync();
    }
    
    /* Create a temp file */
    KTempFile temp("xsltimport-", "kwd");
    temp.setAutoDelete(true);
 
    TQFile* tempFile = temp.file();
    tempFile->open(IO_WriteOnly);
 
    /* Generate the data in the temp file */
    XSLTProc* xsltproc = new XSLTProc(_fileIn, temp.name(), stylesheet);
    xsltproc->parse();
 
    /* Save the temp file in the store */
    tempFile->open(IO_ReadOnly);
    _out->write(tempFile->readAll());
    
    delete tempFile;
    delete xsltproc;
 
    _out->close();
    temp.close();
 
    kdDebug() << "XSLT FILTER --> END" << endl;
    reject();
}