tdevelop/languages/pascal/compiler/dccoptions/optiontabs.cpp

/***************************************************************************
 *   Copyright (C) 2003 by 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 <kdialog.h>
#include <tdelocale.h>

#include <tqspinbox.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <tqvbuttongroup.h>
#include <tqapplication.h>
#include <tqpushbutton.h>

#include "flagboxes.h"

#include "optiontabs.h"

LinkerTab::LinkerTab( TQWidget * parent, const char * name )
    : TQWidget(parent, name), radioController(new FlagRadioButtonController()),
    pathController(new FlagPathEditController()),
    editController(new FlagEditController())
{
    TQBoxLayout *layout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint());
    layout->setAutoAdd(true);

    TQVButtonGroup *map_group = new TQVButtonGroup(i18n("Map File"), this);
    TQRadioButton *m_defaultMap = new TQRadioButton(i18n("Off"), map_group);
    m_defaultMap->setChecked(true);
    new FlagRadioButton(map_group, radioController,
                     "-GS", i18n("Segments"));
    new FlagRadioButton(map_group, radioController,
                     "-GP", i18n("Publics"));
    new FlagRadioButton(map_group, radioController,
                     "-GD", i18n("Detailed"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addSpacing(10);

    new FlagPathEdit(this, "", pathController,
                     "--dynamicloader=", i18n("Default dynamic loader:"), KFile::File);
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addSpacing(10);

    new FlagSpinEdit(this, 0, 2147483647, 1024, 1048576, editController,
                     "-$M", i18n("Reserved address space:"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addSpacing(10);

    layout->addStretch();
}

LinkerTab::~LinkerTab( )
{
    delete radioController;
    delete pathController;
    delete editController;
}

void LinkerTab::readFlags( TQStringList * str )
{
    pathController->readFlags(str);
    radioController->readFlags(str);
    editController->readFlags(str);
}

void LinkerTab::writeFlags( TQStringList * str )
{
    pathController->writeFlags(str);
    radioController->writeFlags(str);
    editController->writeFlags(str);
}



LocationsTab::LocationsTab( TQWidget * parent, const char * name )
    :TQWidget(parent, name), pathController(new FlagPathEditController())
{
    TQBoxLayout *layout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint());
    layout->setAutoAdd(true);

    new FlagPathEdit(this, ":", pathController,
                     "-I", i18n("Include search path (delimited by \":\"):"));
    new FlagPathEdit(this, ":", pathController,
                     "-R", i18n("Resource search path (delimited by \":\"):"));
    new FlagPathEdit(this, ":", pathController,
                     "-U", i18n("Unit search path (delimited by \":\"):"));
    new FlagPathEdit(this, ":", pathController,
                     "-O", i18n("Object search path (delimited by \":\"):"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addStretch();
}

LocationsTab::~LocationsTab( )
{
    delete pathController;
}

void LocationsTab::readFlags( TQStringList * str )
{
    pathController->readFlags(str);
}

void LocationsTab::writeFlags( TQStringList * str )
{
    pathController->writeFlags(str);
}



Locations2Tab::Locations2Tab( TQWidget * parent, const char * name )
    :TQWidget(parent, name), pathController(new FlagPathEditController())
{
    TQBoxLayout *layout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint());
    layout->setAutoAdd(true);

    new FlagPathEdit(this, "", pathController,
                     "-E", i18n("Executable output directory:"));
    new FlagPathEdit(this, "", pathController,
                     "-N", i18n("Unit output directory:"));
    new FlagPathEdit(this, "", pathController,
                     "-LE", i18n("Package directory:"));
    new FlagPathEdit(this, "", pathController,
                     "-LN", i18n("Package source code directory:"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addStretch();
}

Locations2Tab::~Locations2Tab( )
{
    delete pathController;
}

void Locations2Tab::readFlags( TQStringList * str )
{
    pathController->readFlags(str);
}

void Locations2Tab::writeFlags( TQStringList * str )
{
    pathController->writeFlags(str);
}



GeneralTab::GeneralTab( TQWidget * parent, const char * name )
    :TQWidget(parent, name), controller(new FlagCheckBoxController()),
    editController(new FlagEditController())
{
    TQBoxLayout *layout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint());
    layout->setAutoAdd(true);

    TQVButtonGroup *build_group = new TQVButtonGroup(i18n("Build"), this);
    new FlagCheckBox(build_group, controller,
                     "-B", i18n("Build all units"));
    new FlagCheckBox(build_group, controller,
                     "-M", i18n("Make modified units"));
    new FlagCheckBox(build_group, controller,
                     "-Q", i18n("Quiet compile"));
    new FlagCheckBox(build_group, controller,
                     "-Z", i18n("Disable implicit package compilation"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);

    layout->addSpacing(10);

    new FlagListEdit(this, ":", editController, "-D", i18n("Conditional defines (delimited by \":\"):"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);

    new FlagListEdit(this, ":", editController, "-A", i18n("Unit aliases in form unit=alias (delimited by \":\"):"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);

    layout->addSpacing(10);

    TQVButtonGroup *message_group = new TQVButtonGroup(i18n("Messages"), this);
    new FlagCheckBox(message_group, controller,
                     "-H", i18n("Output hint messages"));
    new FlagCheckBox(message_group, controller,
                     "-W", i18n("Output warning messages"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);

    layout->addSpacing(10);
    TQVButtonGroup *package_group = new TQVButtonGroup(i18n("Packages"), this);
    new FlagListEdit(package_group, ":", editController, "-LU", i18n("Build with packages (delimited by \":\"):"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);

    layout->addStretch();
}

GeneralTab::~GeneralTab( )
{
    delete controller;
    delete editController;
}

void GeneralTab::readFlags( TQStringList * str )
{
    controller->readFlags(str);
    editController->readFlags(str);
}

void GeneralTab::writeFlags( TQStringList * str )
{
    controller->writeFlags(str);
    editController->writeFlags(str);
}



CodegenTab::CodegenTab( TQWidget * parent, const char * name )
    :TQWidget(parent, name), controller(new FlagCheckBoxController()),
    listController(new FlagEditController()),
    radioController(new FlagRadioButtonController())
{
    TQBoxLayout *layout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint());
//    layout->setAutoAdd(true);

    TQGridLayout *layout2 = new TQGridLayout(layout, 2, 2, KDialog::spacingHint());

    TQVButtonGroup *align_group = new TQVButtonGroup(i18n("Code Alignment && Stack Frames"), this);
    TQRadioButton *align_def = new TQRadioButton(i18n("Default (-$A8)"), align_group);
    align_def->setChecked(true);
    new FlagRadioButton(align_group, radioController,
                     "'-$A1'", i18n("Never align"));
    new FlagRadioButton(align_group, radioController,
                     "'-$A2'", i18n("On word boundaries"));
    new FlagRadioButton(align_group, radioController,
                     "'-$A4'", i18n("On double word boundaries"));
    new FlagRadioButton(align_group, radioController,
                     "'-$A8'", i18n("On quad word boundaries"));
    new FlagCheckBox(align_group, controller,
                     "'-$W+'", i18n("Generate stack frames"), "'-$W-'");
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout2->addWidget(align_group, 0, 0);

    TQVButtonGroup *enum_group = new TQVButtonGroup(i18n("Enumeration Size"), this);
    TQRadioButton *enum_def = new TQRadioButton(i18n("Default (-$Z1)"), enum_group);
    enum_def->setChecked(true);
    new FlagRadioButton(enum_group, radioController,
                     "'-$Z1'", i18n("Unsigned byte (256 values)"));
    new FlagRadioButton(enum_group, radioController,
                     "'-$Z2'", i18n("Unsigned word (64K values)"));
    new FlagRadioButton(enum_group, radioController,
                     "'-$Z4'", i18n("Unsigned double word (4096M values)"));
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout2->addWidget(enum_group, 0, 1);

    TQVButtonGroup *compile_group = new TQVButtonGroup(i18n("Compile Time Checks"), this);
    new FlagCheckBox(compile_group, controller,
                     "'-$C+'", i18n("Assertions"), "'-$C-'", "'-$C+'");
    new FlagCheckBox(compile_group, controller,
                     "'-$B+'", i18n("Complete boolean evaluation"), "'-$B-'");
    new FlagCheckBox(compile_group, controller,
                     "'-$X+'", i18n("Extended syntax"), "'-$X-'", "'-$X+'");
    new FlagCheckBox(compile_group, controller,
                     "'-$H+'", i18n("Long strings"), "'-$H-'", "'-$H+'");
    new FlagCheckBox(compile_group, controller,
                     "'-$P+'", i18n("Open string parameters"), "'-$P-'", "'-$P+'");
    new FlagCheckBox(compile_group, controller,
                     "'-$T+'", i18n("Type-checked pointers"), "'-$T-'");
    new FlagCheckBox(compile_group, controller,
                     "'-$V+'", i18n("Var-string checking"), "'-$V-'", "'-$V+'");
    new FlagCheckBox(compile_group, controller,
                     "'-$J+'", i18n("Writable typed constants"), "'-$J-'");
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout2->addWidget(compile_group, 1, 0);

    TQVButtonGroup *run_group = new TQVButtonGroup(i18n("Run Time Checks"), this);
    new FlagCheckBox(run_group, controller,
                     "'-$M+'", i18n("Runtime type information"), "'-$M-'");
    new FlagCheckBox(run_group, controller,
                     "'-$G+'", i18n("Imported data references"), "'-$G-'", "'-$G+'");
    new FlagCheckBox(run_group, controller,
                     "'-$I+'", i18n("Input/Output checking"), "'-$I-'", "'-$I+'");
    new FlagCheckBox(run_group, controller,
                     "'-$Q+'", i18n("Overflow checking"), "'-$Q-'");
    new FlagCheckBox(run_group, controller,
                     "'-$R+'", i18n("Range checking"), "'-$R-'");
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout2->addWidget(run_group, 1, 1);

    layout->addStretch();
}

CodegenTab::~CodegenTab( )
{
    delete controller;
    delete listController;
    delete radioController;
}

void CodegenTab::readFlags( TQStringList * str )
{
    controller->readFlags(str);
    listController->readFlags(str);
    radioController->readFlags(str);
}

void CodegenTab::writeFlags( TQStringList * str )
{
    controller->writeFlags(str);
    listController->writeFlags(str);
    radioController->writeFlags(str);
}



DebugOptimTab::DebugOptimTab( TQWidget * parent, const char * name )
    : TQWidget(parent, name), controller(new FlagCheckBoxController()),
    radioController(new FlagRadioButtonController)
{
    TQBoxLayout *layout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint());
//    layout->setAutoAdd(true);

    TQVButtonGroup *optim_group = new TQVButtonGroup(i18n("Optimization"), this);
    new FlagCheckBox(optim_group, controller,
                     "'-$O+'", i18n("Enable optimizations"), "'-$O-'", "'-$O+'");
    layout->addWidget(optim_group);
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addSpacing(10);

    TQBoxLayout *layout2 = new TQHBoxLayout(layout, KDialog::spacingHint());

    TQVButtonGroup *debug_group = new TQVButtonGroup(i18n("Debugging"), this);
    new FlagCheckBox(debug_group, controller,
                     "'-$D+'", i18n("Debug information"), "'-$D-'", "'-$D+'");
    new FlagCheckBox(debug_group, controller,
                     "'-$L+'", i18n("Local symbol information"), "'-$L-'", "'-$L+'");
    gdb = new FlagCheckBox(debug_group, controller,
                     "-V", i18n("Debug information for GDB"));
    namespacedb = new FlagCheckBox(debug_group, controller,
                     "-VN", i18n("Namespace debug info"));
    symboldb = new FlagCheckBox(debug_group, controller,
                     "-VR", i18n("Write symbol info in an .rsm file"));
    layout2->addWidget(debug_group);
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);

    TQVButtonGroup *debug_add = new TQVButtonGroup(i18n("Symbol Reference Information"), this);
    TQRadioButton *m_default = new TQRadioButton(i18n("Default (-$YD)"), debug_add);
    m_default->setChecked(true);
    new FlagRadioButton(debug_add, radioController,
                        "'-$Y-'", i18n("No information"));
    new FlagRadioButton(debug_add, radioController,
                        "'-$YD'", i18n("Definition information"));
    new FlagRadioButton(debug_add, radioController,
                        "'-$Y+'", i18n("Full reference information"));
    layout2->addWidget(debug_add);
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    layout->addSpacing(10);

    TQHBoxLayout *layout3 = new TQHBoxLayout(layout, KDialog::spacingHint());
    TQPushButton *release = new TQPushButton(i18n("Release"), this);
    TQPushButton *debug = new TQPushButton(i18n("Debug"), this);
    layout3->addWidget(release);
    layout3->addWidget(debug);
    TQApplication::sendPostedEvents(this, TQEvent::ChildInserted);
    connect(release, TQT_SIGNAL(clicked()), this, TQT_SLOT(setReleaseOptions()));
    connect(debug, TQT_SIGNAL(clicked()), this, TQT_SLOT(setDebugOptions()));

    layout->addStretch();
}

 DebugOptimTab::~ DebugOptimTab( )
{
    delete controller;
    delete radioController;
}

void DebugOptimTab::readFlags( TQStringList * str )
{
    controller->readFlags(str);
    radioController->readFlags(str);
}

void DebugOptimTab::writeFlags( TQStringList * str )
{
    controller->writeFlags(str);
    radioController->writeFlags(str);
}

void DebugOptimTab::setReleaseOptions()
{
    TQStringList sl = TQStringList::split(",", "'-$O+','-$Y-','-$D-','-$L-'");
    readFlags(&sl);
    gdb->setChecked(false);
    namespacedb->setChecked(false);
    symboldb->setChecked(false);
}

void DebugOptimTab::setDebugOptions()
{
    TQStringList sl = TQStringList::split(",", "'-$O-','-$Y+','-$D+','-$L+',-V,-VN");
    readFlags(&sl);
}

#include "optiontabs.moc"