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/ada/adaprojectoptionsdlg.cpp

209 lines
6.4 KiB

/* Copyright (C) 2003 Oliver Kellogg
* okellogg@users.sourceforge.net
*
* 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 <kurlrequester.h>
#include <kservice.h>
#include <kdebug.h>
#include <tdemessagebox.h>
#include <tdelocale.h>
#include <tqlineedit.h>
#include <tqcombobox.h>
#include <tqregexp.h>
#include <tqvalidator.h>
#include "domutil.h"
#include "kdevcompileroptions.h"
#include "service.h"
#include "adaproject_part.h"
#include "adaprojectoptionsdlg.h"
AdaProjectOptionsDlg::AdaProjectOptionsDlg(AdaProjectPart *part, TQWidget* parent, const char* name, WFlags fl)
: AdaProjectOptionsDlgBase(parent,name, fl), m_part(part)
{
config_combo->setValidator(new TQRegExpValidator(TQRegExp("^\\D.*"), this));
offers = TDETrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Ada'");
ServiceComboBox::insertStringList(compiler_box, offers, &service_names, &service_execs);
if (offers.isEmpty())
options_button->setEnabled(false);
allConfigs = allBuildConfigs();
config_combo->insertStringList(allConfigs);
dirty = false;
TQDomDocument &dom = *(m_part->projectDom());
currentConfig = TQString();
configChanged(DomUtil::readEntry(dom, "/kdevadaproject/general/useconfiguration", "default"));
}
AdaProjectOptionsDlg::~AdaProjectOptionsDlg()
{
}
TQStringList AdaProjectOptionsDlg::allBuildConfigs()
{
TQDomDocument &dom = *(m_part->projectDom());
TQStringList allConfigs;
allConfigs.append("default");
TQDomNode node = dom.documentElement().namedItem("kdevadaproject").namedItem("configurations");
TQDomElement childEl = node.firstChild().toElement();
while (!childEl.isNull()) {
TQString config = childEl.tagName();
kdDebug() << "Found config " << config << endl;
if (config != "default")
allConfigs.append(config);
childEl = childEl.nextSibling().toElement();
}
return allConfigs;
}
void AdaProjectOptionsDlg::accept()
{
DomUtil::writeEntry(*m_part->projectDom(), "/kdevadaproject/general/useconfiguration", currentConfig);
if (dirty)
{
saveConfig(currentConfig);
}
}
void AdaProjectOptionsDlg::compiler_box_activated( const TQString& /*s*/ )
{
TQString exec = ServiceComboBox::currentText(compiler_box, service_execs);
exec_edit->setText(exec);
}
void AdaProjectOptionsDlg::saveConfig( TQString config )
{
TQDomDocument dom = *m_part->projectDom();
TQString prefix = "/kdevadaproject/configurations/" + config + "/";
DomUtil::writeEntry(dom, prefix + "compiler",
ServiceComboBox::currentText(compiler_box, service_names));
DomUtil::writeEntry(dom, prefix + "compileroptions", options_edit->text());
DomUtil::writeEntry(dom, prefix + "compilerexec", exec_edit->text());
DomUtil::writeEntry(dom, prefix + "mainsource", mainSourceUrl->url().replace(TQRegExp(m_part->projectDirectory() + TQString("/")),""));
}
void AdaProjectOptionsDlg::readConfig( TQString config )
{
TQDomDocument dom = *m_part->projectDom();
TQString prefix = "/kdevadaproject/configurations/" + config + "/";
TQString compiler = DomUtil::readEntry(dom, prefix + "compiler", "");
if (compiler.isEmpty())
{
offers = TDETrader::self()->query("TDevelop/CompilerOptions", "[X-TDevelop-Language] == 'Ada'");
TQValueList<KService::Ptr>::ConstIterator it;
for (it = offers.begin(); it != offers.end(); ++it) {
if ((*it)->property("X-TDevelop-Default").toBool()) {
compiler = (*it)->name();
kdDebug() << "compiler is " << compiler << endl;
break;
}
}
}
ServiceComboBox::setCurrentText(compiler_box, compiler, service_names);
TQString exec = DomUtil::readEntry(dom, prefix + "compilerexec", "");
if (exec.isEmpty())
exec = ServiceComboBox::currentText(compiler_box, service_execs);
exec_edit->setText(exec);
options_edit->setText(DomUtil::readEntry(dom, prefix + "compileroptions"));
mainSourceUrl->setURL(m_part->projectDirectory() + "/" + DomUtil::readEntry(dom, prefix + "mainsource"));
}
void AdaProjectOptionsDlg::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 AdaProjectOptionsDlg::configChanged(const TQString &config)
{
if (config == currentConfig || !allConfigs.contains(config))
return;
if (!currentConfig.isNull() && dirty)
saveConfig(currentConfig);
currentConfig = config;
readConfig(config);
dirty = false;
config_combo->blockSignals(true);
config_combo->setEditText(config);
config_combo->blockSignals(false);
}
void AdaProjectOptionsDlg::configAdded()
{
TQString config = config_combo->currentText();
allConfigs.append(config);
config_combo->clear();
config_combo->insertStringList(allConfigs);
configChanged(config);
setDirty(); // force saving
}
void AdaProjectOptionsDlg::configRemoved()
{
TQString config = config_combo->currentText();
TQDomDocument dom = *m_part->projectDom();
TQDomNode node = dom.documentElement().namedItem("kdevadaproject").namedItem("configurations");
node.removeChild(node.namedItem(config));
allConfigs.remove(config);
config_combo->clear();
config_combo->insertStringList(allConfigs);
currentConfig = TQString();
configChanged("default");
}
void AdaProjectOptionsDlg::optionsButtonClicked( )
{
TQString name = ServiceComboBox::currentText(compiler_box, service_names);
KDevCompilerOptions *plugin = m_part->createCompilerOptions(name);
if (plugin) {
TQString flags = plugin->exec(this, options_edit->text());
options_edit->setText(flags);
delete plugin;
}
}
void AdaProjectOptionsDlg::setDirty( )
{
dirty = true;
}
void AdaProjectOptionsDlg::setDefaultOptions( )
{
if (!compiler_box->currentText().isEmpty())
options_edit->setText(m_part->defaultOptions(compiler_box->currentText()));
}
#include "adaprojectoptionsdlg.moc"