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/targetoptionsdlg.cpp

358 lines
13 KiB

/***************************************************************************
* 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 "targetoptionsdlg.h"
#include <tqcheckbox.h>
#include <tqheader.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <tqregexp.h>
#include <klineedit.h>
#include <kbuttonbox.h>
#include <kdialog.h>
#include <kinputdialog.h>
#include <kurlrequesterdlg.h>
#include <kurlrequester.h>
#include <kurlcompletion.h>
#include <klocale.h>
#include <knotifyclient.h>
#include <kfiledialog.h>
#include "autolistviewitems.h"
#include "misc.h"
#include "autoprojectpart.h"
#include "autoprojectwidget.h"
#include "urlutil.h"
TargetOptionsDialog::TargetOptionsDialog(AutoProjectWidget *widget, TargetItem *item,
TQWidget *parent, const char *name)
: TargetOptionsDialogBase(parent, name, true)
{
setCaption( i18n("Target Options for '%1'").tqarg(item->name) );
setIcon( SmallIcon("configure") );
target = item;
m_widget = widget;
if (item->primary == "PROGRAMS") {
insidelib_label->setText(i18n("Link convenience libraries inside project (LDADD)"));
outsidelib_label->setText(i18n("Link libraries outside project (LDADD)"));
}
else
argumentBox->setEnabled( false );
// run_arguments_edit->setEnabled(false);
insidelib_listview->header()->hide();
outsidelib_listview->header()->hide();
insidelib_listview->setSorting(-1);
outsidelib_listview->setSorting(-1);
m_cwdEdit->completionObject()->setMode(KURLCompletion::DirCompletion);
m_cwdEdit->setMode( KFile::Directory | KFile::ExistingOnly | KFile::LocalOnly );
// Insert all convenience libraries as possible linked libraries
TQStringList l = widget->allLibraries();
TQStringList::ConstIterator it;
TQString fulltargetname = m_widget->subprojectDirectory() + "/" + item->name;
for (it = l.begin(); it != l.end(); ++it)
// Do not list the target itself (a target can not link with itself)
if ( !fulltargetname.endsWith(*it) )
(void) new TQCheckListItem(insidelib_listview, *it, TQCheckListItem::CheckBox);
readConfig();
}
TargetOptionsDialog::~TargetOptionsDialog()
{}
void TargetOptionsDialog::readConfig()
{
TQString flagsstr = target->ldflags;
flagsstr.replace(TQRegExp("$(KDE_PLUGIN)"), "-avoid-version -module -no-undefined $(KDE_RPATH)");
TQStringList l1 = TQStringList::split(TQRegExp("[ \t]"), flagsstr);
TQStringList::Iterator l1it;
l1it = l1.find("-all-static");
if (l1it != l1.end()) {
allstatic_box->setChecked(true);
l1.remove(l1it);
}
l1it = l1.find("-avoid-version");
if (l1it != l1.end()) {
avoidversion_box->setChecked(true);
l1.remove(l1it);
}
l1it = l1.find("-module");
if (l1it != l1.end()) {
module_box->setChecked(true);
l1.remove(l1it);
}
l1it = l1.find("-no-undefined");
if (l1it != l1.end()) {
noundefined_box->setChecked(true);
l1.remove(l1it);
}
ldflagsother_edit->setText(l1.join(" "));
dependencies_edit->setText(target->dependencies);
TQString addstr = (target->primary == "PROGRAMS")? target->ldadd : target->libadd;
TQStringList l2 = TQStringList::split(TQRegExp("[ \t]"), addstr);
kdDebug(9020) << "ls=: " << addstr << endl;
bool inlistItem;
TQListViewItem *lastItem = 0;
TQStringList::Iterator l2it;
TQCheckListItem *flitem = static_cast<TQCheckListItem*>(insidelib_listview->firstChild());
for (l2it = l2.begin(); l2it != l2.end(); ++l2it) {
inlistItem = false;
TQCheckListItem *clitem = static_cast<TQCheckListItem*>(insidelib_listview->firstChild());
if (flitem) {
while (clitem) {
if (*l2it == ("$(top_builddir)/" + clitem->text())) {
clitem->setOn(true);
// move this item to the "top of the list"
if (flitem != clitem)
clitem->moveItem(flitem);
// move the "top of the list" one item down
flitem = static_cast<TQCheckListItem*>(flitem->nextSibling());
inlistItem = true;
break;
}
clitem = static_cast<TQCheckListItem*>(clitem->nextSibling());
}
}
if ( inlistItem == false ) {
TQListViewItem *item = new TQListViewItem(outsidelib_listview, *l2it);
if (lastItem)
item->moveItem(lastItem);
lastItem = item;
}
}
if (target->primary == "PROGRAMS")
{
run_arguments_edit->setText(DomUtil::readEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/runarguments/" + target->name));
if( DomUtil::readEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/cwd/" + target->name).isEmpty() )
{
m_cwdEdit->setURL( m_widget->m_part->buildDirectory()+"/"+URLUtil::getRelativePath(m_widget->m_part->topsourceDirectory(), m_widget->m_part->projectDirectory())+"/"+m_widget->activeDirectory() );
m_cwdEdit->fileDialog()->setURL( KURL::fromPathOrURL( m_widget->m_part->buildDirectory()+"/"+URLUtil::getRelativePath(m_widget->m_part->topsourceDirectory(), m_widget->m_part->projectDirectory())+"/"+m_widget->activeDirectory() ) );
}else
{
m_cwdEdit->setURL( DomUtil::readEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/cwd/" + target->name) );
m_cwdEdit->fileDialog()->setURL( KURL::fromPathOrURL( DomUtil::readEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/cwd/" + target->name) ) );
}
debug_arguments_edit->setText(DomUtil::readEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/debugarguments/" + target->name));
}
}
void TargetOptionsDialog::storeConfig()
{
TQStringList flagslist;
if (allstatic_box->isChecked())
flagslist.append("-all-static");
if (avoidversion_box->isChecked())
flagslist.append("-avoid-version");
if (module_box->isChecked())
flagslist.append("-module");
if (noundefined_box->isChecked())
flagslist.append("-no-undefined");
flagslist.append(ldflagsother_edit->text());
TQString new_ldflags = flagslist.join(" ");
TQStringList liblist;
TQCheckListItem *clitem = static_cast<TQCheckListItem*>(insidelib_listview->firstChild());
while (clitem) {
if( clitem->isOn() )
liblist.append("$(top_builddir)/" + clitem->text());
clitem = static_cast<TQCheckListItem*>(clitem->nextSibling());
}
clitem = static_cast<TQCheckListItem*>(outsidelib_listview->firstChild());
while (clitem) {
liblist.append(clitem->text());
clitem = static_cast<TQCheckListItem*>(clitem->nextSibling());
}
TQString new_addstr = liblist.join(" ");
TQString canonname = AutoProjectTool::canonicalize(target->name);
TQMap<TQString, TQString> replaceMap;
if (target->primary == "PROGRAMS") {
TQString old_ldadd = target->ldadd;
if (new_addstr != old_ldadd) {
target->ldadd = new_addstr;
replaceMap.insert(canonname + "_LDADD", new_addstr);
}
}
if (target->primary == "LIBRARIES" || target->primary == "LTLIBRARIES") {
TQString old_libadd = target->libadd;
if (new_addstr != old_libadd) {
target->libadd = new_addstr;
replaceMap.insert(canonname + "_LIBADD", new_addstr);
}
}
TQString old_ldflags = target->ldflags;
if (new_ldflags != old_ldflags) {
target->ldflags = new_ldflags;
replaceMap.insert(canonname + "_LDFLAGS", new_ldflags);
}
TQString new_dependencies = dependencies_edit->text();
TQString old_dependencies = target->dependencies;
if (new_dependencies != old_dependencies) {
target->dependencies = new_dependencies;
if (!new_dependencies.isEmpty())
replaceMap.insert(canonname + "_DEPENDENCIES", new_dependencies);
}
// We can safely assume that this target is in the active sub project
AutoProjectTool::setMakefileam(m_widget->subprojectDirectory() + "/Makefile.am", replaceMap);
if (target->primary == "PROGRAMS")
{
DomUtil::writeEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/runarguments/" + target->name, run_arguments_edit->text());
DomUtil::writeEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/debugarguments/" + target->name, debug_arguments_edit->text());
DomUtil::writeEntry(*m_widget->m_part->projectDom(), "/kdevautoproject/run/cwd/" + target->name, m_cwdEdit->url());
}
}
void TargetOptionsDialog::insideMoveUpClicked()
{
if (!insidelib_listview->currentItem())
return;
if (insidelib_listview->currentItem() == insidelib_listview->firstChild()) {
KNotifyClient::beep();
return;
}
TQListViewItem *item = insidelib_listview->firstChild();
while (item->nextSibling() != insidelib_listview->currentItem())
item = item->nextSibling();
item->moveItem(insidelib_listview->currentItem());
}
void TargetOptionsDialog::insideMoveDownClicked()
{
if (!insidelib_listview->currentItem())
return;
if (insidelib_listview->currentItem()->nextSibling() == 0) {
KNotifyClient::beep();
return;
}
insidelib_listview->currentItem()->moveItem(insidelib_listview->currentItem()->nextSibling());
}
void TargetOptionsDialog::outsideMoveUpClicked()
{
if (!outsidelib_listview->currentItem())
return;
if (outsidelib_listview->currentItem() == outsidelib_listview->firstChild()) {
KNotifyClient::beep();
return;
}
TQListViewItem *item = outsidelib_listview->firstChild();
while (item->nextSibling() != outsidelib_listview->currentItem())
item = item->nextSibling();
item->moveItem(outsidelib_listview->currentItem());
}
void TargetOptionsDialog::outsideMoveDownClicked()
{
if (!outsidelib_listview->currentItem())
return;
if (outsidelib_listview->currentItem()->nextSibling() == 0) {
KNotifyClient::beep();
return;
}
outsidelib_listview->currentItem()->moveItem(outsidelib_listview->currentItem()->nextSibling());
}
void TargetOptionsDialog::outsideAddClicked()
{
KURLRequesterDlg dialog( "", i18n( "Add Library: Choose the .a/.so file, give -l<libname> or use a variable with $(FOOBAR)" ), 0, 0 );
dialog.urlRequester() ->setMode( KFile::File | KFile::ExistingOnly | KFile::LocalOnly );
dialog.urlRequester() ->setFilter( "*.so|"+i18n("Shared Library (*.so)")+"\n*.a|"+i18n("Static Library (*.a)") );
dialog.urlRequester() ->setURL( TQString() );
dialog.urlRequester() ->completionObject() ->setDir( m_widget->selectedSubproject()->path );
dialog.urlRequester() ->fileDialog() ->setURL( KURL::fromPathOrURL( m_widget->selectedSubproject()->path ) );
if ( dialog.exec() != TQDialog::Accepted )
return ;
TQString file = dialog.urlRequester() ->url();
if ( !file.isEmpty() )
{
if ( !file.isEmpty() )
{
if( file.startsWith("-l") )
new TQListViewItem( outsidelib_listview, file );
else
{
TQFileInfo fi(file);
if( !fi.exists() )
new TQListViewItem( outsidelib_listview, file );
if( fi.extension(false) == "a" )
{
new TQListViewItem( outsidelib_listview, file );
}else if ( fi.extension(false) == "so" )
{
TQString name = fi.fileName();
if( name.startsWith( "lib" ) )
name = name.mid(3);
name = "-l"+name.left( name.length() - 3 );
new TQListViewItem( outsidelib_listview, name );
}
}
}
}
}
void TargetOptionsDialog::outsideEditClicked()
{
if ( (outsidelib_listview->childCount()==0) || (outsidelib_listview->currentItem() == 0) )
return;
bool ok;
TQString dir = KInputDialog::getText(i18n("Edit External Library"), i18n("Edit external library:"),
outsidelib_listview->currentItem()-> text(0), &ok, 0);
if (ok && !dir.isEmpty())
outsidelib_listview->currentItem()-> setText(0, dir);
}
void TargetOptionsDialog::outsideRemoveClicked()
{
delete outsidelib_listview->currentItem();
}
void TargetOptionsDialog::accept()
{
storeConfig();
TQDialog::accept();
}
#include "targetoptionsdlg.moc"
// kate: indent-mode csands; space-indent on; indent-width 4; replace-tabs on;