You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdevelop/parts/appwizard/importdlg.cpp

583 lines
19 KiB

/***************************************************************************
* Copyright (C) 2001-2002 by Bernd Gehrmann *
* bernd@tdevelop.org *
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
***************************************************************************/
#include "importdlg.h"
#include <stdlib.h>
#include <tqcombobox.h>
#include <tqdir.h>
#include <tqfile.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <klineedit.h>
#include <tqpushbutton.h>
#include <tqregexp.h>
#include <tqtextstream.h>
#include <tqtooltip.h>
#include <tqcheckbox.h>
#include <kbuttonbox.h>
#include <kdebug.h>
#include <kdialog.h>
#include <kfiledialog.h>
#include <kinstance.h>
#include <klocale.h>
#include <kmessagebox.h>
#include <kstandarddirs.h>
#include <kcursor.h>
#include <kfile.h>
#include <kurlrequester.h>
#include <ktrader.h>
#include <tdeparts/componentfactory.h>
#include <kprocess.h>
#include "kdevcore.h"
#include "kdevversioncontrol.h"
#include "kdevplugincontroller.h"
#include "domutil.h"
#include "settings.h"
#include "profile.h"
#include "profileengine.h"
#include "appwizardfactory.h"
#include "appwizardpart.h"
#include "misc.h"
ImportDialog::ImportDialog(AppWizardPart *part, TQWidget *parent, const char *name)
: ImportDialogBase(parent, name, true), m_part(part)
{
TQString author, email;
AppWizardUtil::guessAuthorAndEmail(&author, &email);
author_edit->setText(author);
email_edit->setText(email);
TQToolTip::add( urlinput_edit->button(), i18n("Choose directory to import") );
urlinput_edit->setMode(KFile::Directory|KFile::ExistingOnly|KFile::LocalOnly);
KStandardDirs *dirs = AppWizardFactory::instance()->dirs();
importNames = dirs->findAllResources("appimports", TQString(), false, true);
importNames.sort();
TQStringList::ConstIterator it;
for (it = importNames.begin(); it != importNames.end(); ++it) {
TDEConfig config(TDEGlobal::dirs()->findResource("appimports", *it));
config.setGroup("General");
TQString type = config.readEntry("Comment");
project_combo->insertItem(type);
if (config.hasGroup("Infrastructure"))
{
config.setGroup("Infrastructure");
m_infrastructure[type].isOn = true;
m_infrastructure[type].comment = config.readEntry("Comment");
m_infrastructure[type].command = config.readEntry("Command");
m_infrastructure[type].existingPattern = config.readEntry("ExistingProjectPattern");
}
else
m_infrastructure[type].isOn = false;
}
infrastructureBox->setEnabled(false);
setProjectType("c");
connect( name_edit, TQT_SIGNAL( textChanged ( const TQString & ) ), this, TQT_SLOT( slotProjectNameChanged( const TQString & ) ) );
// scanAvailableVCS();
connect( fetchModuleButton, TQT_SIGNAL(clicked()),
this, TQT_SLOT(slotFetchModulesFromRepository()) );
connect(urlinput_edit, TQT_SIGNAL(urlSelected(const TQString& )), this, TQT_SLOT(dirChanged()));
connect(urlinput_edit, TQT_SIGNAL(returnPressed(const TQString& )), this, TQT_SLOT(dirChanged()));
slotProjectNameChanged( name_edit->text() );
}
ImportDialog::~ImportDialog()
{}
void ImportDialog::slotProjectNameChanged( const TQString &_text )
{
ok_button->setEnabled( !_text.isEmpty() && !urlinput_edit->url().contains( TQRegExp("\\s") ) );
}
void ImportDialog::accept()
{
TQDir dir(urlinput_edit->url());
if (urlinput_edit->url().isEmpty() || !dir.exists()) {
KMessageBox::sorry(this, i18n("You have to choose a directory."));
return;
}
TQString projectName = name_edit->text();
if (projectName.isEmpty()) {
KMessageBox::sorry(this, i18n("You have to choose a project name."));
return;
}
for (uint i=0; i < projectName.length(); ++i)
if (!projectName[i].isLetterOrNumber() && projectName[i] != '_') {
KMessageBox::sorry(this, i18n("Your application name should only contain letters and numbers."));
return;
}
if (infrastructureBox->isVisible() && infrastructureBox->isChecked())
createProjectInfrastructure();
// TQString author = author_edit->text();
// TQString email = email_edit->text();
TQFileInfo finfo(importNames[project_combo->currentItem()]);
TQDir importdir(finfo.dir());
importdir.cdUp();
TQFile src(importdir.filePath("importfiles/" + finfo.fileName() + ".tdevelop"));
kdDebug(9010) << "Import template " << src.name() << endl;
if (!src.open(IO_ReadOnly)) {
KMessageBox::sorry(this, i18n("Cannot open project template."));
return;
}
// Read the DOM of the newly created project
TQDomDocument projectDOM;
int errorLine, errorCol;
TQString errorMsg;
bool success = projectDOM.setContent( &src, &errorMsg, &errorLine, &errorCol);
src.close();
if ( !success )
{
KMessageBox::sorry( 0, i18n("This is not a valid project file.\n"
"XML error in line %1, column %2:\n%3")
.arg(errorLine).arg(errorCol).arg(errorMsg));
return;
}
DomUtil::writeEntry( projectDOM, "/general/author", author_edit->text() );
DomUtil::writeEntry( projectDOM, "/general/email" , email_edit->text() );
DomUtil::writeEntry( projectDOM, "/general/projectname", name_edit->text() );
if ( !projectVersion.isNull()){
DomUtil::writeEntry( projectDOM, "/general/version", projectVersion );
} else {
DomUtil::writeEntry( projectDOM, "/general/version", "1" );
}
// figure out what plugins we should disable by default
TQString profileName = DomUtil::readEntry( projectDOM, "general/profile" );
if ( profileName.isEmpty() )
{
TQString language = DomUtil::readEntry( projectDOM, "general/primarylanguage" );
TQStringList keywords = DomUtil::readListEntry( projectDOM, "general/keywords", "keyword" );
profileName = Settings::profileByAttributes( language, keywords );
}
ProfileEngine & engine = m_part->pluginController()->engine();
Profile * profile = engine.findProfile( profileName );
TQStringList disableList;
Profile::EntryList disableEntryList = profile->list( Profile::ExplicitDisable );
for ( Profile::EntryList::const_iterator it = disableEntryList.constBegin(); it != disableEntryList.constEnd(); ++it )
{
disableList << (*it).name;
}
DomUtil::writeListEntry( projectDOM, "/general/ignoreparts", "part", disableList );
// write the dom back
TQFile dest(dir.filePath(projectName + ".tdevelop"));
if (!dest.open(IO_WriteOnly)) {
KMessageBox::sorry(this, i18n("Cannot write the project file."));
return;
}
TQTextStream ts( &dest );
ts.setEncoding(TQTextStream::UnicodeUTF8);
ts << projectDOM.toString(2);
dest.close();
// TQTextStream srcstream(&src);
// TQTextStream deststream(&dest);
//
// while (!srcstream.atEnd()) {
// TQString line = srcstream.readLine();
// line.replace(TQRegExp("\\$APPNAMELC\\$"), projectName);
// line.replace(TQRegExp("\\$AUTHOR\\$"), author);
// line.replace(TQRegExp("\\$EMAIL\\$"), email);
// deststream << line << endl;
// }
//
// dest.close();
// src.close();
m_part->core()->openProject(dir.filePath(projectName + ".tdevelop"));
kdDebug(9010) << "OPENING PROJECT: " << dir.filePath(projectName + ".tdevelop") << endl;
TQDialog::accept();
}
// Checks if the directory dir and all of its subdirectories
// (one level recursion) have files that follow patterns
// patterns is comma-separated
static bool dirHasFiles(TQDir &dir, const TQString &patterns)
{
TQStringList::ConstIterator pit, sit;
TQStringList patternList = TQStringList::split(",", patterns);
for (pit = patternList.begin(); pit != patternList.end(); ++pit) {
if (!dir.entryList(*pit, TQDir::Files).isEmpty()) {
kdDebug(9010) << "Has files " << (*pit) << endl;
return true;
}
}
TQStringList subdirList = dir.entryList("*", TQDir::Dirs);
for (sit = subdirList.begin(); sit != subdirList.end(); ++sit) {
TQDir subdir(dir);
subdir.cd(*sit);
for (pit = patternList.begin(); pit != patternList.end(); ++pit) {
if (!subdir.entryList(*pit, TQDir::Files).isEmpty()) {
kdDebug(9010) << "Has files " << (*pit) << " in " << (*sit) << endl;
return true;
}
}
}
return false;
}
void ImportDialog::dirChanged()
{
kdDebug(9010) << "ImportDialog::dirChanged" << endl;
TQString dirName = urlinput_edit->url();
TQDir dir(dirName);
if (!dir.exists())
return;
if ( dirName.contains( TQRegExp("\\s") ) )
{
ok_button->setEnabled( false );
return;
}else
{
ok_button->setEnabled( true );
}
// KDevelop legacy project?
TQStringList files = dir.entryList("*.kdevprj");
if (!files.isEmpty()) {
scanLegacyKDevelopProject(dir.absFilePath(files.first()));
return;
}
// Studio legacy project?
files = dir.entryList("*.studio");
if (!files.isEmpty()) {
scanLegacyStudioProject(dir.absFilePath(files.first()));
return;
}
// Automake based?
if ( dir.exists("configure.in.in")|| dir.exists("configure.ac")|| dir.exists("configure.in")) {
scanAutomakeProject(dirName);
return;
}
// Remove any characters from the dirName that would be invalid in a project name
TQString projectName(dir.dirName().replace(TQRegExp("[^a-zA-Z0-9_]"), "_"));
// Set the project name
name_edit->setText(projectName);
// TQMake based?
files = dir.entryList("*.pro");
if (!files.isEmpty()) {
setProjectType("qtqmake");
return;
}
// C++?
if (dirHasFiles(dir, "*.cpp,*.c++,*.cxx,*.C,*.cc,*.ocl")) {
setProjectType("cpp");
return;
}
// Fortran?
if (dirHasFiles(dir, "*.f77,*.f,*.for,*.ftn")) {
setProjectType("fortran");
return;
}
// Python?
if (dirHasFiles(dir, "*.py")) {
setProjectType("python");
return;
}
// Perl?
if (dirHasFiles(dir, "*.pl,*.pm")) {
setProjectType("perl");
return;
}
}
void ImportDialog::scanLegacyKDevelopProject(const TQString &fileName)
{
kdDebug(9010) << "Scanning legacy KDevelop project file " << fileName << endl;
KSimpleConfig config(fileName, true);
config.setGroup("General");
author_edit->setText(config.readEntry("author"));
email_edit->setText(config.readEntry("email"));
name_edit->setText(config.readEntry("project_name"));
TQString legacyType = config.readEntry("project_type");
if (TQStringList::split(",", "normal_kde,normal_kde2,kde2_normal,mdi_kde2").contains(legacyType))
setProjectType("kde");
else if (legacyType == "normal_gnome")
setProjectType("gnome");
else if (legacyType == "normal_empty")
setProjectType("cpp-auto");
else
setProjectType("cpp");
}
void ImportDialog::scanLegacyStudioProject(const TQString &fileName)
{
kdDebug(9010) << "Scanning legacy studio project file " << fileName << endl;
// Not much to do here...
KSimpleConfig config(fileName, true);
config.setGroup("kdestudio");
name_edit->setText(config.readEntry("Name"));
}
void ImportDialog::scanAutomakeProject(const TQString &dirName)
{
kdDebug(9010) << "Scanning automake project directory " << dirName << endl;
bool stop = false;
if (TQFile::exists(dirName + "/admin/am_edit")) {
setProjectType("kde");
stop = true;
} else if (TQFile::exists(dirName + "/macros/gnome.m4")) {
setProjectType("gnome");
stop = true;
} else {
setProjectType("c-auto");
}
// if we get an authors file, use it.
TQFile af(dirName + "/AUTHORS");
if (af.open(IO_ReadOnly)){
TQTextStream astream(&af);
TQRegExp authorre("(.*)<(.*)>");
while (!astream.atEnd()) {
TQString s = astream.readLine();
if (authorre.search(s) != -1) {
author_edit->setText(authorre.cap(1).stripWhiteSpace());
email_edit->setText(authorre.cap(2).stripWhiteSpace());
break;
}
}
af.close();
}
// we ignore old AC_INIT that had no version..
// only match the if there is a comma and at least two args..
// AC_INIT (package, version, [bug-report], [tarname])
TQRegExp ac_init("^AC_INIT\\s*\\(\\s*([^,]+),([^,\\)]+)(.*)");
// AM_INIT_AUTOMAKE([OPTIONS])
// example: AM_INIT_AUTOMAKE([gnits 1.5 no-define dist-bzip2])
TQRegExp am_autoSpace("^AM_INIT_AUTOMAKE\\s{0,}\\(\\s{0,}([\\[\\s]{0,}[^\\s]+)\\s+([^\\s\\)\\]]+)(.*)");
// AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE])
TQRegExp am_autoComma("^AM_INIT_AUTOMAKE\\s*\\(\\s*([^,]+),([^,\\)]+)(.*)");
// look for version in a define.
// AC_DEFINE(VERSION, "5.6")
TQRegExp ac_define("^AC_DEFINE\\s*\\(\\s*[^,]+,([^\\)]+)");
TQRegExp version("(\\bversion\\b)");
version.setCaseSensitive(FALSE);
TQTextStream cstream;
// try for configure.in.in, configure.in, then configure.ac
TQFile configInIn(dirName + "/configure.in.in");
TQFile configIn(dirName+"/configure.in");
TQFile configAc(dirName+"/configure.ac");
if (configInIn.open(IO_ReadOnly)){
cstream.setDevice(TQT_TQIODEVICE(&configInIn));
while (!cstream.atEnd()) {
TQString line = cstream.readLine();
if ( ac_init.search(line) >= 0){
projectVersion=ac_init.cap(2).stripWhiteSpace();
}
else if ( am_autoComma.search(line) >= 0 ){
projectVersion=am_autoComma.cap(2).stripWhiteSpace();
}
else if ( am_autoSpace.search(line) >= 0 ){
projectVersion=am_autoSpace.cap(2).stripWhiteSpace();
}
else if ( ac_define.search(line) >=0 && version.search(line) >=0) {
projectVersion=ac_define.cap(2).stripWhiteSpace();
}
}
configInIn.close();
}
if (configIn.open(IO_ReadOnly)){
cstream.setDevice(TQT_TQIODEVICE(&configIn));
}
else{
if (configAc.open(IO_ReadOnly)){
cstream.setDevice(TQT_TQIODEVICE(&configAc));
}
else{
return;
}
}
TQRegExp namere("\\s*AM_INIT_AUTOMAKE\\((.*),.*\\).*");
TQRegExp cppre("\\s*AC_PROG_CXX");
TQRegExp f77re("\\s*AC_PROG_F77");
while (!cstream.atEnd()) {
TQString line = cstream.readLine();
if ( ac_init.search(line) >= 0){
projectVersion=ac_init.cap(2).stripWhiteSpace();
}
else if ( am_autoComma.search(line) >= 0 ){
projectVersion=am_autoComma.cap(2).stripWhiteSpace();
}
else if ( am_autoSpace.search(line) >= 0 ){
projectVersion=am_autoSpace.cap(2).stripWhiteSpace();
}
else if ( ac_define.search(line) >=0 && version.search(line) >=0) {
projectVersion=ac_define.cap(2).stripWhiteSpace();
}
if (namere.search(line) == 0)
name_edit->setText(namere.cap(1).stripWhiteSpace());
if (!stop)
continue;
else if (cppre.search(line) == 0)
setProjectType("cpp-auto");
else if (f77re.search(line) == 0)
setProjectType("fortran-auto");
}
if ( configIn.isOpen()) configIn.close();
if ( configAc.isOpen()) configAc.close();
}
void ImportDialog::setProjectType(const TQString &type)
{
kdDebug(9010) << "Setting project type " << type << endl;
TQString suffix = "/" + type;
int suffixLength = suffix.length();
int i=0;
TQStringList::ConstIterator it;
for (it = importNames.begin(); it != importNames.end(); ++it) {
if ((*it).right(suffixLength) == suffix) {
project_combo->setCurrentItem(i);
break;
}
++i;
}
}
/*
void ImportDialog::scanAvailableVCS()
{
// vcsCombo->insertStringList( m_part->registeredVersionControls() );
int i = 0;
KTrader::OfferList offers = KTrader::self()->query("TDevelop/VersionControl");
KTrader::OfferList::const_iterator it = offers.begin();
while( it != offers.end() )
{
vcsCombo->insertItem( (*it)->genericName(), i++ );
++it;
}
}
*/
/*
void ImportDialog::slotFinishedCheckout( TQString destinationDir )
{
urlinput_edit->setURL( destinationDir );
setCursor( KCursor::arrowCursor() );
// setEnabled( true );
}
*/
/*
void ImportDialog::slotFetchModulesFromRepository()
{
KDevVersionControl *vcs = m_part->versionControlByName( vcsCombo->currentText() );
if (!vcs)
return;
setCursor( KCursor::waitCursor() );
// setEnabled( false );
connect( vcs, TQT_SIGNAL(finishedFetching(TQString)),
this, TQT_SLOT(slotFinishedCheckout(TQString)) );
//restore cursor if we can't fetch repository
if ( !vcs->fetchFromRepository() )
setCursor( KCursor::arrowCursor() );
}
*/
void ImportDialog::projectTypeChanged( const TQString &type )
{
if (m_infrastructure[type].isOn)
{
infrastructureBox->setEnabled(true);
infrastructureBox->setText(m_infrastructure[type].comment);
}
else
{
infrastructureBox->setEnabled(false);
infrastructureBox->setText(i18n("Generate build system infrastrucure"));
}
}
void ImportDialog::createProjectInfrastructure( )
{
kdDebug(9010) << "ImportDialog::createProjectInfrastructure" << endl;
InfrastructureCmd cmd = m_infrastructure[project_combo->currentText()];
if (!cmd.isOn)
return;
TQDir dir (urlinput_edit->url());
TQStringList files = dir.entryList(cmd.existingPattern);
if (!files.isEmpty()) {
if (KMessageBox::questionYesNo(this, i18n("Project infrastrucure already exists in target directory.\nGenerate new project infrastructure and overwrite old?"), TQString(), i18n("Generate"), i18n("Do Not Generate")) == KMessageBox::No)
return;
}
TQString command = "cd " + urlinput_edit->url() + " && " + cmd.command;
kdDebug(9010) << "executing " << command.ascii() << endl;
system(command.ascii());
}
void ImportDialog::projectTypeChanged( int type )
{
projectTypeChanged(project_combo->text(type));
}
#include "importdlg.moc"