/*************************************************************************** * 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 #include #include #include #include #include #include #include #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 *tqlayout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint()); tqlayout->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); tqlayout->addSpacing(10); new FlagPathEdit(this, "", pathController, "--dynamicloader=", i18n("Default dynamic loader:"), KFile::File); TQApplication::sendPostedEvents(this, TQEvent::ChildInserted); tqlayout->addSpacing(10); new FlagSpinEdit(this, 0, 2147483647, 1024, 1048576, editController, "-$M", i18n("Reserved address space:")); TQApplication::sendPostedEvents(this, TQEvent::ChildInserted); tqlayout->addSpacing(10); tqlayout->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 *tqlayout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint()); tqlayout->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); tqlayout->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 *tqlayout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint()); tqlayout->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); tqlayout->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 *tqlayout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint()); tqlayout->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); tqlayout->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); tqlayout->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); tqlayout->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); tqlayout->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 *tqlayout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint()); // tqlayout->setAutoAdd(true); TQGridLayout *tqlayout2 = new TQGridLayout(tqlayout, 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); tqlayout2->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); tqlayout2->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); tqlayout2->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); tqlayout2->addWidget(run_group, 1, 1); tqlayout->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 *tqlayout = new TQVBoxLayout(this, KDialog::marginHint(), KDialog::spacingHint()); // tqlayout->setAutoAdd(true); TQVButtonGroup *optim_group = new TQVButtonGroup(i18n("Optimization"), this); new FlagCheckBox(optim_group, controller, "'-$O+'", i18n("Enable optimizations"), "'-$O-'", "'-$O+'"); tqlayout->addWidget(optim_group); TQApplication::sendPostedEvents(this, TQEvent::ChildInserted); tqlayout->addSpacing(10); TQBoxLayout *tqlayout2 = new TQHBoxLayout(tqlayout, 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")); tqlayout2->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")); tqlayout2->addWidget(debug_add); TQApplication::sendPostedEvents(this, TQEvent::ChildInserted); tqlayout->addSpacing(10); TQHBoxLayout *tqlayout3 = new TQHBoxLayout(tqlayout, KDialog::spacingHint()); TQPushButton *release = new TQPushButton(i18n("Release"), this); TQPushButton *debug = new TQPushButton(i18n("Debug"), this); tqlayout3->addWidget(release); tqlayout3->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())); tqlayout->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"