|
|
|
/* 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 <kmessagebox.h>
|
|
|
|
#include <klocale.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 = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-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::null;
|
|
|
|
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 = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Ada'");
|
|
|
|
TQValueList<KService::Ptr>::ConstIterator it;
|
|
|
|
for (it = offers.begin(); it != offers.end(); ++it) {
|
|
|
|
if ((*it)->property("X-KDevelop-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::null;
|
|
|
|
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"
|