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/buildtools/autotools/configureoptionswidget.cpp

432 lines
15 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 "configureoptionswidget.h"
#include <tqcombobox.h>
#include <tqdir.h>
#include <tqfile.h>
#include <tqfileinfo.h>
#include <tqgroupbox.h>
#include <tqlabel.h>
#include <tqpushbutton.h>
#include <tqtimer.h>
#include <tqvalidator.h>
#include <klineedit.h>
#include <kdebug.h>
#include <tdefiledialog.h>
#include <klibloader.h>
#include <tdelocale.h>
#include <tdemessagebox.h>
#include <kservice.h>
#include <ktrader.h>
#include "kdevcompileroptions.h"
#include "autoprojectpart.h"
#include "environmentvariableswidget.h"
class ServiceComboBox
{
public:
static void insertStringList(TQComboBox *combo, const TQValueList<KService::Ptr> &list,
TQStringList *names, TQStringList *execs)
{
TQValueList<KService::Ptr>::ConstIterator it;
for (it = list.begin(); it != list.end(); ++it) {
combo->insertItem((*it)->comment());
(*names) << (*it)->desktopEntryName();
(*execs) << (*it)->exec();
kdDebug(9020) << "insertStringList item " << (*it)->name() << "," << (*it)->exec() << endl;
}
}
static TQString currentText(TQComboBox *combo, const TQStringList &names)
{
if (combo->currentItem() == -1)
return TQString();
return names[combo->currentItem()];
}
static void setCurrentText(TQComboBox *combo, const TQString &str, const TQStringList &names)
{
TQStringList::ConstIterator it;
int i = 0;
for (it = names.begin(); it != names.end(); ++it) {
if (*it == str) {
combo->setCurrentItem(i);
break;
}
++i;
}
}
};
ConfigureOptionsWidget::ConfigureOptionsWidget(AutoProjectPart *part, TQWidget *parent, const char *name)
: ConfigureOptionsWidgetBase(parent, name)
{
config_combo->setValidator(new TQRegExpValidator(TQRegExp("^\\D.*"), TQT_TQOBJECT(this)));
m_part = part;
env_groupBox->setColumnLayout( 1, Qt::Vertical );
TQDomDocument &dom = *part->projectDom();
m_environmentVariablesWidget = new EnvironmentVariablesWidget(dom, "/kdevautoproject/general/envvars", env_groupBox);
coffers = TDETrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'C'");
cxxoffers = TDETrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'C++'");
f77offers = TDETrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Fortran'");
ServiceComboBox::insertStringList(cservice_combo, coffers, &cservice_names, &cservice_execs);
ServiceComboBox::insertStringList(cxxservice_combo, cxxoffers, &cxxservice_names, &cxxservice_execs);
ServiceComboBox::insertStringList(f77service_combo, f77offers, &f77service_names, &f77service_execs);
if (coffers.isEmpty())
cflags_button->setEnabled(false);
if (cxxoffers.isEmpty())
cxxflags_button->setEnabled(false);
if (f77offers.isEmpty())
f77flags_button->setEnabled(false);
allConfigs = part->allBuildConfigs();
config_combo->insertStringList(allConfigs);
dirty = false;
currentConfig = TQString();
configChanged(part->currentBuildConfig());
fixLayout();
}
ConfigureOptionsWidget::~ConfigureOptionsWidget()
{}
void ConfigureOptionsWidget::fixLayout()
{
int w1 = ccompiler_label->sizeHint().width();
int w2 = cbinary_label->sizeHint().width();
int w3 = cflags_label->sizeHint().width();
int w4 = cxxcompiler_label->sizeHint().width();
int w5 = cxxbinary_label->sizeHint().width();
int w6 = cxxflags_label->sizeHint().width();
int w7 = f77compiler_label->sizeHint().width();
int w8 = f77binary_label->sizeHint().width();
int w9 = f77flags_label->sizeHint().width();
int w = TQMAX(w1, TQMAX(w2, w3));
w = TQMAX(w, TQMAX(w4, w5));
w = TQMAX(w, TQMAX(w6, w7));
w = TQMAX(w, TQMAX(w8, w9));
ccompiler_label->setMinimumWidth(w);
cxxcompiler_label->setMinimumWidth(w);
f77compiler_label->setMinimumWidth(w);
}
void ConfigureOptionsWidget::readSettings(const TQString &config)
{
TQDomDocument dom = *m_part->projectDom();
TQString prefix = "/kdevautoproject/configurations/" + config + "/";
kdDebug(9020) << "Reading config from " << prefix << endl;
configargs_edit->setText(DomUtil::readEntry(dom, prefix + "configargs"));
TQString builddir = DomUtil::readEntry(dom, prefix + "builddir");
if (builddir.isEmpty() && config != "default")
builddir = config;
builddir_edit->setText(builddir);
topsourcedir_edit->setText(DomUtil::readEntry(dom, prefix + "topsourcedir"));
cppflags_edit->setText(DomUtil::readEntry(dom, prefix + "cppflags"));
ldflags_edit->setText(DomUtil::readEntry(dom, prefix + "ldflags"));
TQString ccompiler = DomUtil::readEntry(dom, prefix + "ccompiler");
TQString cxxcompiler = DomUtil::readEntry(dom, prefix + "cxxcompiler");
TQString f77compiler = DomUtil::readEntry(dom, prefix + "f77compiler");
if (ccompiler.isEmpty()) {
kdDebug(9020) << "No c compiler set" << endl;
TQValueList<KService::Ptr>::ConstIterator it;
for (it = coffers.begin(); it != coffers.end(); ++it) {
if ((*it)->property("X-TDevelop-Default").toBool()) {
kdDebug(9020) << "Found default " << (*it)->name() << endl;
ccompiler = (*it)->name();
break;
}
}
}
if (cxxcompiler.isEmpty()) {
kdDebug(9020) << "No cxx compiler set" << endl;
TQValueList<KService::Ptr>::ConstIterator it;
for (it = cxxoffers.begin(); it != cxxoffers.end(); ++it) {
if ((*it)->property("X-TDevelop-Default").toBool()) {
kdDebug(9020) << "Found default " << (*it)->name() << endl;
cxxcompiler = (*it)->name();
break;
}
}
}
if (f77compiler.isEmpty()) {
kdDebug(9020) << "No c compiler set" << endl;
TQValueList<KService::Ptr>::ConstIterator it;
for (it = f77offers.begin(); it != f77offers.end(); ++it) {
if ((*it)->property("X-TDevelop-Default").toBool()) {
kdDebug(9020) << "Found default " << (*it)->name() << endl;
f77compiler = (*it)->name();
break;
}
}
}
ServiceComboBox::setCurrentText(cservice_combo, ccompiler, cservice_names);
ServiceComboBox::setCurrentText(cxxservice_combo, cxxcompiler, cxxservice_names);
ServiceComboBox::setCurrentText(f77service_combo, f77compiler, f77service_names);
cbinary_edit->setText(DomUtil::readEntry(dom, prefix + "ccompilerbinary"));
cxxbinary_edit->setText(DomUtil::readEntry(dom, prefix + "cxxcompilerbinary"));
f77binary_edit->setText(DomUtil::readEntry(dom, prefix + "f77compilerbinary"));
cflags_edit->setText(DomUtil::readEntry(dom, prefix + "cflags"));
cxxflags_edit->setText(DomUtil::readEntry(dom, prefix + "cxxflags"));
f77flags_edit->setText(DomUtil::readEntry(dom, prefix + "f77flags"));
m_environmentVariablesWidget->readEnvironment(dom, prefix + "envvars");
}
void ConfigureOptionsWidget::saveSettings(const TQString &config)
{
m_environmentVariablesWidget->accept();
TQDomDocument dom = *m_part->projectDom();
TQString prefix = "/kdevautoproject/configurations/" + config + "/";
kdDebug(9020) << "Saving config under " << prefix << endl;
DomUtil::writeEntry(dom, prefix + "configargs", configargs_edit->text());
DomUtil::writeEntry(dom, prefix + "builddir", builddir_edit->text());
DomUtil::writeEntry(dom, prefix + "topsourcedir", topsourcedir_edit->text());
DomUtil::writeEntry(dom, prefix + "cppflags", cppflags_edit->text());
DomUtil::writeEntry(dom, prefix + "ldflags", ldflags_edit->text());
TQFileInfo fi(m_part->buildDirectory());
TQDir dir(fi.dir());
dir.mkdir(fi.fileName());
DomUtil::writeEntry(dom, prefix + "ccompiler",
ServiceComboBox::currentText(cservice_combo, cservice_names));
DomUtil::writeEntry(dom, prefix + "cxxcompiler",
ServiceComboBox::currentText(cxxservice_combo, cxxservice_names));
DomUtil::writeEntry(dom, prefix + "f77compiler",
ServiceComboBox::currentText(f77service_combo, f77service_names));
DomUtil::writeEntry(dom, prefix + "ccompilerbinary", cbinary_edit->text());
DomUtil::writeEntry(dom, prefix + "cxxcompilerbinary", cxxbinary_edit->text());
DomUtil::writeEntry(dom, prefix + "f77compilerbinary", f77binary_edit->text());
DomUtil::writeEntry(dom, prefix + "cflags", cflags_edit->text());
DomUtil::writeEntry(dom, prefix + "cxxflags", cxxflags_edit->text());
DomUtil::writeEntry(dom, prefix + "f77flags", f77flags_edit->text());
if (KMessageBox::questionYesNo(this, i18n("Re-run configure for %1 now?").arg(config), TQString(), i18n("Rerun"), i18n("Do Not Run")) == KMessageBox::Yes)
TQTimer::singleShot(0, m_part, TQT_SLOT(slotConfigure()));
}
void ConfigureOptionsWidget::setDirty()
{
kdDebug(9020) << "config dirty" << endl;
dirty = true;
}
void ConfigureOptionsWidget::builddirClicked()
{
TQString dir = builddir_edit->text();
dir = KFileDialog::getExistingDirectory(dir, this);
if (!dir.isNull())
builddir_edit->setText(dir);
}
void ConfigureOptionsWidget::topsourcedirClicked()
{
TQString dir = topsourcedir_edit->text();
dir = KFileDialog::getExistingDirectory(dir, this);
if (!dir.isNull())
topsourcedir_edit->setText(dir);
}
void ConfigureOptionsWidget::configComboTextChanged(const TQString &config)
{
bool canAdd = !allConfigs.contains(config) && !config.contains("/") && !config.isEmpty();
bool canRemove = allConfigs.contains(config) && config != "default";
addconfig_button->setEnabled(canAdd);
removeconfig_button->setEnabled(canRemove);
}
void ConfigureOptionsWidget::configChanged(const TQString &config)
{
if (config == currentConfig || !allConfigs.contains(config))
return;
if (!currentConfig.isNull() && dirty)
saveSettings(currentConfig);
currentConfig = config;
readSettings(config);
dirty = false;
config_combo->blockSignals(true);
config_combo->setEditText(config);
config_combo->blockSignals(false);
}
void ConfigureOptionsWidget::configAdded()
{
TQString config = config_combo->currentText();
allConfigs.append(config);
config_combo->clear();
config_combo->insertStringList(allConfigs);
configChanged(config);
setDirty(); // force saving
}
void ConfigureOptionsWidget::configRemoved()
{
TQString config = config_combo->currentText();
TQDomDocument dom = *m_part->projectDom();
TQDomNode node = dom.documentElement().namedItem("kdevautoproject").namedItem("configurations");
node.removeChild(node.namedItem(config));
allConfigs.remove(config);
config_combo->clear();
config_combo->insertStringList(allConfigs);
currentConfig = TQString();
configChanged("default");
}
void ConfigureOptionsWidget::cserviceChanged()
{
TQString exec = ServiceComboBox::currentText(cservice_combo, cservice_execs);
cbinary_edit->setText(exec);
kdDebug(9020) << "exec: " << exec << endl;
}
void ConfigureOptionsWidget::cxxserviceChanged()
{
TQString exec = ServiceComboBox::currentText(cxxservice_combo, cxxservice_execs);
cxxbinary_edit->setText(exec);
}
void ConfigureOptionsWidget::f77serviceChanged()
{
TQString exec = ServiceComboBox::currentText(f77service_combo, f77service_execs);
f77binary_edit->setText(exec);
kdDebug(9020) << "exec: " << exec << endl;
}
void ConfigureOptionsWidget::cflagsClicked()
{
TQString name = ServiceComboBox::currentText(cservice_combo, cservice_names);
KDevCompilerOptions *plugin = createCompilerOptions(name);
if (plugin) {
TQString flags = plugin->exec(this, cflags_edit->text());
cflags_edit->setText(flags);
delete plugin;
}
}
void ConfigureOptionsWidget::cxxflagsClicked()
{
TQString name = ServiceComboBox::currentText(cxxservice_combo, cxxservice_names);
KDevCompilerOptions *plugin = createCompilerOptions(name);
if (plugin) {
TQString flags = plugin->exec(this, cxxflags_edit->text());
cxxflags_edit->setText(flags);
delete plugin;
}
}
void ConfigureOptionsWidget::f77flagsClicked()
{
TQString name = ServiceComboBox::currentText(f77service_combo, f77service_names);
KDevCompilerOptions *plugin = createCompilerOptions(name);
if (plugin) {
TQString flags = plugin->exec(this, f77flags_edit->text());
f77flags_edit->setText(flags);
delete plugin;
}
}
KDevCompilerOptions *ConfigureOptionsWidget::createCompilerOptions(const TQString &name)
{
KService::Ptr service = KService::serviceByDesktopName(name);
if (!service) {
kdDebug(9020) << "Can't find service " << name;
return 0;
}
KLibFactory *factory = KLibLoader::self()->factory(TQFile::encodeName(service->library()));
if (!factory) {
TQString errorMessage = KLibLoader::self()->lastErrorMessage();
KMessageBox::error(0, i18n("There was an error loading the module %1.\n"
"The diagnostics is:\n%2").arg(service->name()).arg(errorMessage));
exit(1);
}
TQStringList args;
TQVariant prop = service->property("X-TDevelop-Args");
if (prop.isValid())
args = TQStringList::split(" ", prop.toString());
TQObject *obj = factory->create(TQT_TQOBJECT(this), service->name().latin1(),
"KDevCompilerOptions", args);
if (!obj->inherits("KDevCompilerOptions")) {
kdDebug(9020) << "Component does not inherit KDevCompilerOptions" << endl;
return 0;
}
KDevCompilerOptions *dlg = (KDevCompilerOptions*) obj;
return dlg;
}
void ConfigureOptionsWidget::accept()
{
DomUtil::writeEntry(*m_part->projectDom(), "/kdevautoproject/general/useconfiguration", currentConfig);
m_environmentVariablesWidget->accept();
if (dirty)
{
saveSettings(currentConfig);
}
}
#include "configureoptionswidget.moc"