diff options
author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-27 01:06:29 -0600 |
---|---|---|
committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2013-01-27 01:06:29 -0600 |
commit | c0b24fe164924298d7e6ae33964b3c65fadbcba3 (patch) | |
tree | 2ba50375d78b077b266b224e4413150ef3e60a15 /languages/fortran/ftnchekconfigwidget.cpp | |
parent | 33d15e862e09fbcbb05e209f832414bd8a01291e (diff) | |
download | tdevelop-c0b24fe164924298d7e6ae33964b3c65fadbcba3.tar.gz tdevelop-c0b24fe164924298d7e6ae33964b3c65fadbcba3.zip |
Rename a number of libraries and executables to avoid conflicts with KDE4
Diffstat (limited to 'languages/fortran/ftnchekconfigwidget.cpp')
-rw-r--r-- | languages/fortran/ftnchekconfigwidget.cpp | 290 |
1 files changed, 0 insertions, 290 deletions
diff --git a/languages/fortran/ftnchekconfigwidget.cpp b/languages/fortran/ftnchekconfigwidget.cpp deleted file mode 100644 index 8acc9985..00000000 --- a/languages/fortran/ftnchekconfigwidget.cpp +++ /dev/null @@ -1,290 +0,0 @@ -/*************************************************************************** - * Copyright (C) 2001 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 "ftnchekconfigwidget.h" - -#include <tqcheckbox.h> -#include <tqbuttongroup.h> -#include <tqheader.h> -#include <tqlistview.h> -#include <tqradiobutton.h> -#include <tqtooltip.h> -#include <klocale.h> - -#include "domutil.h" - - -class FtnchekItem : public TQCheckListItem -{ -public: - FtnchekItem(TQListView *parent, const TQString &flagstr, - const TQString &description) - : TQCheckListItem(parent, flagstr, TQCheckListItem::CheckBox), - flag(flagstr), desc(description) - { - setText(1, desc); - } - - static void readFlagsToListView(TQListView *listview, TQStringList *list); - static void writeFlagsFromListView(TQListView *listview, TQStringList *list); - -private: - TQString flag; - TQString desc; - friend class FtnchekToolTip; -}; - - -void FtnchekItem::readFlagsToListView(TQListView *listview, TQStringList *list) -{ - TQListViewItem *item = listview->firstChild(); - for (; item; item = item->nextSibling()) { - FtnchekItem *flitem = static_cast<FtnchekItem*>(item); - TQStringList::Iterator sli = list->find(flitem->flag); - if (sli != list->end()) { - flitem->setOn(true); - list->remove(sli); - } - } -} - - -void FtnchekItem::writeFlagsFromListView(TQListView *listview, TQStringList *list) -{ - (*list).clear(); - - TQListViewItem *item = listview->firstChild(); - for (; item; item = item->nextSibling()) { - FtnchekItem *flitem = static_cast<FtnchekItem*>(item); - if (flitem->isOn()) - (*list) << flitem->flag; - } -} - - -class FtnchekToolTip : public TQToolTip -{ -public: - FtnchekToolTip(TQWidget *parent) - : TQToolTip(parent) - {} -protected: - void maybeTip(const TQPoint &pos) - { - TQListView *listview = static_cast<TQListView*>(parentWidget()); - TQListViewItem *item = listview->itemAt(pos); - FtnchekItem *flitem = static_cast<FtnchekItem*>(item); - - if (item) - tip(listview->itemRect(item), flitem->desc); - } -}; - - -const char *arguments_flags[] = { - "arrayness", I18N_NOOP("Warn about inconsistent use of arguments that use arrays"), - "type", I18N_NOOP("Warn about dummy arguments of a data type different from " - "the actual arguments"), - "function-type", I18N_NOOP("Warn if the invocation assumes a different data type for the return type, " - "different from the actual return type"), - "number", I18N_NOOP("Warn about invoking a subprogram with an incorrect number of arguments"), - 0, 0 -}; - - -const char *common_flags[] = { - "dimension", I18N_NOOP("Corresponding arrays in each declaration of a block must agree in size " - "and number of dimensions"), - "exact", I18N_NOOP("The comparison of two blocks is done variable-by-variable"), - "length", I18N_NOOP("Warn if different declarations of the same block are not equal in total length"), - "type", I18N_NOOP("In each declaration of a block, corresponding memory locations " - "must agree in data type"), - 0, 0 -}; - - -const char *truncation_flags[] = { - "int-div-exponent", I18N_NOOP("Use of the result of integer division as an exponent"), - "int-div-real", I18N_NOOP("Conversion of an expression involving an integer division to real"), - "int-div-zero", I18N_NOOP("Division in an integer constant expression that yields a result of zero"), - 0, 0 -}; - - -const char *usage_flags[] = { - "arg-alias", I18N_NOOP("A scalar dummy argument is actually the same as another " - "and is (or may be) modified"), - "arg-array-alias", I18N_NOOP("A dummy argument which is an array or array element " - "is the same array as another and is modified"), - "arg-common-alias", I18N_NOOP("A scalar dummy argument is the same as a common variable in " - "the subprogram, and either is modified"), - 0, 0 -}; - - -const char *f77_flags[] = { - "accept-type", I18N_NOOP("ACCEPT and TYPE I/O statements"), - "array-bounds", I18N_NOOP("Expressions defining array bounds that contain array " - "elements or function references"), - "assignment-stmt", I18N_NOOP("Assignment statements involving arrays"), - 0, 0 -}; - - -const char *portability_flags[] = { - "backslash", I18N_NOOP("Backslash characters in strings"), - "common-alignment", I18N_NOOP("COMMON block variables not in descending order of storage sizes"), - "hollerith", I18N_NOOP("Hollerith constants"), - 0, 0 -}; - - -FtnchekConfigWidget::FtnchekConfigWidget(TQDomDocument &projectDom, TQWidget *parent, const char *name) - : FtnchekConfigWidgetBase(parent, name), dom(projectDom) -{ - arguments_group = new TQButtonGroup; - arguments_group->insert(argumentsall_button); - arguments_group->insert(argumentsonly_button); - common_group = new TQButtonGroup; - common_group->insert(commonall_button); - common_group->insert(commononly_button); - truncation_group = new TQButtonGroup; - truncation_group->insert(truncationall_button); - truncation_group->insert(truncationonly_button); - usage_group = new TQButtonGroup; - usage_group->insert(usageall_button); - usage_group->insert(usageonly_button); - f77_group = new TQButtonGroup; - f77_group->insert(f77all_button); - f77_group->insert(f77only_button); - portability_group = new TQButtonGroup; - portability_group->insert(portabilityall_button); - portability_group->insert(portabilityonly_button); - - arguments_listview->header()->hide(); - new FtnchekToolTip(arguments_listview); - - common_listview->header()->hide(); - new FtnchekToolTip(common_listview); - - truncation_listview->header()->hide(); - new FtnchekToolTip(truncation_listview); - - usage_listview->header()->hide(); - new FtnchekToolTip(usage_listview); - - f77_listview->header()->hide(); - new FtnchekToolTip(f77_listview); - - portability_listview->header()->hide(); - new FtnchekToolTip(portability_listview); - - for (const char **p = arguments_flags; *p; p += 2) - new FtnchekItem(arguments_listview, TQString::fromUtf8(*p), i18n(*(p+1))); - - for (const char **p = common_flags; *p; p += 2) - new FtnchekItem(common_listview, TQString::fromUtf8(*p), i18n(*(p+1))); - - for (const char **p = truncation_flags; *p; p += 2) - new FtnchekItem(truncation_listview, TQString::fromUtf8(*p), i18n(*(p+1))); - - for (const char **p = usage_flags; *p; p += 2) - new FtnchekItem(usage_listview, TQString::fromUtf8(*p), i18n(*(p+1))); - - for (const char **p = f77_flags; *p; p += 2) - new FtnchekItem(f77_listview, TQString::fromUtf8(*p), i18n(*(p+1))); - - for (const char **p = portability_flags; *p; p += 2) - new FtnchekItem(portability_listview, TQString::fromUtf8(*p), i18n(*(p+1))); - - readConfig(); -} - - -FtnchekConfigWidget::~FtnchekConfigWidget() -{ - delete arguments_group; - delete common_group; - delete truncation_group; - delete usage_group; - delete f77_group; - delete portability_group; -} - - -void FtnchekConfigWidget::accept() -{ - storeConfig(); -} - - -void FtnchekConfigWidget::readConfig() -{ - division_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/division")); - extern_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/extern")); - declare_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/declare")); - pure_box->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/pure")); - - argumentsall_button->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/argumentsall")); - commonall_button->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/commonall")); - truncationall_button->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/truncationall")); - usageall_button->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/usageall")); - f77all_button->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/f77all")); - portabilityall_button->setChecked(DomUtil::readBoolEntry(dom, "/kdevfortransupport/ftnchek/portabilityall")); - - TQStringList list; - - list = TQStringList::split(',', DomUtil::readEntry(dom, "/kdevfortransupport/ftnchek/argumentsonly")); - FtnchekItem::readFlagsToListView(arguments_listview, &list); - list = TQStringList::split(',', DomUtil::readEntry(dom, "/kdevfortransupport/ftnchek/commononly")); - FtnchekItem::readFlagsToListView(common_listview, &list); - list = TQStringList::split(',', DomUtil::readEntry(dom, "/kdevfortransupport/ftnchek/truncationonly")); - FtnchekItem::readFlagsToListView(truncation_listview, &list); - list = TQStringList::split(',', DomUtil::readEntry(dom, "/kdevfortransupport/ftnchek/usageonly")); - FtnchekItem::readFlagsToListView(usage_listview, &list); - list = TQStringList::split(',', DomUtil::readEntry(dom, "/kdevfortransupport/ftnchek/f77only")); - FtnchekItem::readFlagsToListView(f77_listview, &list); - list = TQStringList::split(',', DomUtil::readEntry(dom, "/kdevfortransupport/ftnchek/portabilityonly")); - FtnchekItem::readFlagsToListView(portability_listview, &list); -} - - -void FtnchekConfigWidget::storeConfig() -{ - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/division", division_box->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/extern", extern_box->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/declare", declare_box->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/pure", pure_box->isChecked()); - - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/argumentsall", argumentsall_button->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/commonall", commonall_button->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/truncationall", truncationall_button->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/usageall", usageall_button->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/f77all", f77all_button->isChecked()); - DomUtil::writeBoolEntry(dom, "/kdevfortransupport/ftnchek/portabilityall", portabilityall_button->isChecked()); - - TQStringList list; - - FtnchekItem::writeFlagsFromListView(arguments_listview, &list); - DomUtil::writeEntry(dom, "/kdevfortransupport/ftnchek/argumentsonly", list.join(",")); - FtnchekItem::writeFlagsFromListView(common_listview, &list); - DomUtil::writeEntry(dom, "/kdevfortransupport/ftnchek/commononly", list.join(",")); - FtnchekItem::writeFlagsFromListView(truncation_listview, &list); - DomUtil::writeEntry(dom, "/kdevfortransupport/ftnchek/truncationonly", list.join(",")); - FtnchekItem::writeFlagsFromListView(usage_listview, &list); - DomUtil::writeEntry(dom, "/kdevfortransupport/ftnchek/usageonly", list.join(",")); - FtnchekItem::writeFlagsFromListView(f77_listview, &list); - DomUtil::writeEntry(dom, "/kdevfortransupport/ftnchek/f77only", list.join(",")); - FtnchekItem::writeFlagsFromListView(portability_listview, &list); - DomUtil::writeEntry(dom, "/kdevfortransupport/ftnchek/portabilityonly", list.join(",")); -} - -#include "ftnchekconfigwidget.moc" |