1 files changed, 132 insertions, 0 deletions
diff --git a/buildtools/pascal/pascalglobaloptionsdlg.cpp b/buildtools/pascal/pascalglobaloptionsdlg.cpp
new file mode 100644
index 00000000..a710db19
--- /dev/null
+++ b/buildtools/pascal/pascalglobaloptionsdlg.cpp
@@ -0,0 +1,132 @@
+/***************************************************************************
+ *   Copyright (C) 2003 Alexander Dymo                                     *
+ *   cloudtemple@mksat.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 <qlayout.h>
+#include <qlabel.h>
+#include <qlineedit.h>
+#include <qcombobox.h>
+
+#include <kurlrequester.h>
+#include <kdebug.h>
+#include <kconfig.h>
+
+#include "kdevcompileroptions.h"
+
+#include "service.h"
+#include "pascalproject_part.h"
+#include "pascalglobaloptionsdlg.h"
+
+PascalGlobalOptionsDlg::PascalGlobalOptionsDlg(PascalProjectPart *part, QWidget* parent, const char* name, WFlags fl)
+    :PascalProjectOptionsDlgBase(parent,name,fl), m_part(part)
+{
+    delete config_label;
+    delete config_combo;
+    delete addconfig_button;
+    delete removeconfig_button;
+    delete compiler_label;
+    delete configuration_layout;
+    delete configuration_line;
+    delete exec_label;
+    delete exec_edit;
+    delete mainSourceLabel;
+    delete mainSourceUrl;
+    delete defaultopts_button;
+
+
+    offers = KTrader::self()->query("KDevelop/CompilerOptions", "[X-KDevelop-Language] == 'Pascal'");
+
+    ServiceComboBox::insertStringList(compiler_box, offers, &service_names, &service_execs);
+
+    if (offers.isEmpty())
+        options_button->setEnabled(false);
+
+    currentCompiler = QString::null;
+
+    /*kdDebug() << ServiceComboBox::defaultCompiler() << endl;
+    kdDebug() << ServiceComboBox::itemForText(ServiceComboBox::defaultCompiler(), service_names) << endl;
+    kdDebug() << compiler_box->text(ServiceComboBox::itemForText(ServiceComboBox::defaultCompiler(), service_names)) << endl;
+*/
+    ServiceComboBox::setCurrentText(compiler_box, ServiceComboBox::defaultCompiler(), service_names);
+    compiler_box_activated(compiler_box->currentText());
+}
+
+PascalGlobalOptionsDlg::~PascalGlobalOptionsDlg()
+{
+}
+
+void PascalGlobalOptionsDlg::optionsButtonClicked()
+{
+    QString name = ServiceComboBox::currentText(compiler_box, service_names);
+    KDevCompilerOptions *plugin = m_part->createCompilerOptions(name);
+
+    if (plugin) {
+        QString flags = plugin->exec(this, options_edit->text());
+        options_edit->setText(flags);
+        delete plugin;
+    }
+}
+
+void PascalGlobalOptionsDlg::compiler_box_activated(const QString& text)
+{
+    kdDebug() << "text changed from " << currentCompiler << " to " << text << endl;
+    if (currentCompiler == text)
+        return;
+    if (!currentCompiler.isEmpty())
+        saveCompilerOpts(currentCompiler);
+    currentCompiler = text;
+    readCompilerOpts(currentCompiler);
+}
+
+void PascalGlobalOptionsDlg::accept()
+{
+    saveCompilerOpts(currentCompiler);
+
+    saveConfigCache();
+}
+
+void PascalGlobalOptionsDlg::saveCompilerOpts( QString compiler )
+{
+    configCache[compiler] = options_edit->text();
+}
+
+void PascalGlobalOptionsDlg::readCompilerOpts( QString compiler )
+{
+    QString settings = configCache[compiler];
+    if (settings.isEmpty())
+    {
+        KConfig *config = KGlobal::config();
+        config->setGroup("Pascal Compiler");
+        settings = config->readPathEntry(compiler);
+    }
+
+    options_edit->setText(settings);
+}
+
+void PascalGlobalOptionsDlg::readConfigCache( )
+{
+/*    KConfig *config = KGlobal::config();
+    config->setGroup("Pascal Compiler");
+
+    QMap<QString, QString> settings = config->entryMap("Pascal Compiler");
+*/
+}
+
+void PascalGlobalOptionsDlg::saveConfigCache( )
+{
+    KConfig *config = KGlobal::config();
+    config->setGroup("Pascal Compiler");
+
+    for (QMap<QString, QString>::iterator it = configCache.begin(); it != configCache.end(); ++it)
+    {
+        config->writeEntry(it.key(), it.data());
+    }
+}
+
+#include "pascalglobaloptionsdlg.moc"