|
|
|
/***************************************************************************
|
|
|
|
* 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 <tqvbox.h>
|
|
|
|
#include <tqdialog.h>
|
|
|
|
|
|
|
|
#include <kdebug.h>
|
|
|
|
#include <klocale.h>
|
|
|
|
#include <kgenericfactory.h>
|
|
|
|
|
|
|
|
#include "dccoptionsplugin.h"
|
|
|
|
|
|
|
|
#include "optiontabs.h"
|
|
|
|
|
|
|
|
K_EXPORT_COMPONENT_FACTORY( libkdevdccoptions, KGenericFactory<DccOptionsPlugin>( "kdevdccoptions" ) )
|
|
|
|
|
|
|
|
DccOptionsPlugin::DccOptionsPlugin(TQObject *tqparent, const char *name, const TQStringList/* &args*/)
|
|
|
|
: KDevCompilerOptions(tqparent, name)
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
DccOptionsPlugin::~DccOptionsPlugin()
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
TQString DccOptionsPlugin::exec(TQWidget *tqparent, const TQString &flags)
|
|
|
|
{
|
|
|
|
DccOptionsDialog *dlg = new DccOptionsDialog(tqparent, "dcc options dialog");
|
|
|
|
TQString newFlags = flags;
|
|
|
|
dlg->setFlags(flags);
|
|
|
|
if(dlg->exec() == TQDialog::Accepted)
|
|
|
|
newFlags = dlg->flags();
|
|
|
|
delete dlg;
|
|
|
|
return newFlags;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
DccOptionsDialog::DccOptionsDialog( TQWidget * tqparent, const char * name )
|
|
|
|
: KDialogBase(Tabbed, i18n("Delphi Compiler Options"), Ok|Cancel, Ok, tqparent, name, true)
|
|
|
|
{
|
|
|
|
TQVBox *vbox;
|
|
|
|
|
|
|
|
vbox = addVBoxPage(i18n("General"));
|
|
|
|
general = new GeneralTab(vbox, "general tab");
|
|
|
|
|
|
|
|
vbox = addVBoxPage(i18n("Locations I"));
|
|
|
|
locations = new LocationsTab(vbox, "locations tab");
|
|
|
|
|
|
|
|
vbox = addVBoxPage(i18n("Locations II"));
|
|
|
|
locations2 = new Locations2Tab(vbox, "locations2 tab");
|
|
|
|
|
|
|
|
vbox = addVBoxPage(i18n("Code Generation"));
|
|
|
|
codegen = new CodegenTab(vbox, "codegen tab");
|
|
|
|
|
|
|
|
vbox = addVBoxPage(i18n("Debug && Optimization"));
|
|
|
|
debug_optim = new DebugOptimTab(vbox, "debug and optim tab");
|
|
|
|
|
|
|
|
vbox = addVBoxPage(i18n("Linker"));
|
|
|
|
linker = new LinkerTab(vbox, "linker tab");
|
|
|
|
}
|
|
|
|
|
|
|
|
DccOptionsDialog::~DccOptionsDialog( )
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
void DccOptionsDialog::setFlags( const TQString & flags )
|
|
|
|
{
|
|
|
|
TQStringList flaglist = TQStringList::split(" ", flags);
|
|
|
|
|
|
|
|
general->readFlags(&flaglist);
|
|
|
|
codegen->readFlags(&flaglist);
|
|
|
|
debug_optim->readFlags(&flaglist);
|
|
|
|
locations->readFlags(&flaglist);
|
|
|
|
locations2->readFlags(&flaglist);
|
|
|
|
linker->readFlags(&flaglist);
|
|
|
|
|
|
|
|
unrecognizedFlags = flaglist;
|
|
|
|
}
|
|
|
|
|
|
|
|
TQString DccOptionsDialog::flags( ) const
|
|
|
|
{
|
|
|
|
TQStringList flaglist;
|
|
|
|
|
|
|
|
general->writeFlags(&flaglist);
|
|
|
|
locations->writeFlags(&flaglist);
|
|
|
|
locations2->writeFlags(&flaglist);
|
|
|
|
codegen->writeFlags(&flaglist);
|
|
|
|
debug_optim->writeFlags(&flaglist);
|
|
|
|
linker->writeFlags(&flaglist);
|
|
|
|
|
|
|
|
TQString flags;
|
|
|
|
TQStringList::ConstIterator li;
|
|
|
|
for (li = flaglist.begin(); li != flaglist.end(); ++li) {
|
|
|
|
flags += (*li);
|
|
|
|
flags += " ";
|
|
|
|
}
|
|
|
|
|
|
|
|
for (li = unrecognizedFlags.begin(); li != unrecognizedFlags.end(); ++li) {
|
|
|
|
flags += (*li);
|
|
|
|
flags += " ";
|
|
|
|
}
|
|
|
|
|
|
|
|
flags.truncate(flags.length()-1);
|
|
|
|
return flags;
|
|
|
|
}
|
|
|
|
|
|
|
|
#include "dccoptionsplugin.moc"
|