/*************************************************************************** * Copyright (C) 2000-2001 by Bernd Gehrmann * * bernd@kdevelop.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 #include #include #include #include #include #include #include #include #include #include #include "flagboxes.h" #include "gccoptionsplugin.h" K_EXPORT_COMPONENT_FACTORY( libkdevgccoptions, KGenericFactory( "kdevgccoptions" ) ) class GeneralTab : public TQWidget { public: GeneralTab( GccOptionsPlugin::Type type, TQWidget *tqparent = 0, const char *name = 0 ); ~GeneralTab(); void readFlags( TQStringList *str ); void writeFlags( TQStringList *str ); private: FlagCheckBoxController *controller; }; class OptimizationTab : public TQWidget { public: OptimizationTab( GccOptionsPlugin::Type type, TQWidget *tqparent = 0, const char *name = 0 ); ~OptimizationTab(); void readFlags( TQStringList *str ); void writeFlags( TQStringList *str ); private: TQRadioButton *Odefault, *O0, *O1, *O2; FlagListBox *optBox; }; class G77Tab : public TQWidget { public: G77Tab( TQWidget *tqparent = 0, const char *name = 0 ); ~G77Tab(); void readFlags( TQStringList *str ); void writeFlags( TQStringList *str ); private: FlagCheckBoxController *controller; }; class Warnings1Tab : public TQWidget { public: Warnings1Tab( GccOptionsPlugin::Type type, TQWidget *tqparent = 0, const char *name = 0 ); ~Warnings1Tab(); void readFlags( TQStringList *str ); void writeFlags( TQStringList *str ); private: FlagCheckBoxController *controller; FlagListBox *wallBox; }; class Warnings2Tab : public TQWidget { public: Warnings2Tab( GccOptionsPlugin::Type type, TQWidget *tqparent = 0, const char *name = 0 ); ~Warnings2Tab(); void readFlags( TQStringList *str ); void writeFlags( TQStringList *str ); private: FlagListBox *wrestBox; }; GeneralTab::GeneralTab( GccOptionsPlugin::Type type, TQWidget *tqparent, const char *name ) : TQWidget( tqparent, name ), controller( new FlagCheckBoxController ) { TQBoxLayout * tqlayout = new TQVBoxLayout( this, KDialog::marginHint(), KDialog::spacingHint() ); tqlayout->setAutoAdd( true ); tqlayout->addSpacing( 10 ); TQVButtonGroup *output_group = new TQVButtonGroup( i18n( "Output" ), this ); new FlagCheckBox( output_group, controller, "-fsyntax-only", i18n( "Only check the code for syntax errors, do not produce object code" ) ); new FlagCheckBox( output_group, controller, "-pg", i18n( "Generate extra code to write profile information for gprof" ) ); new FlagCheckBox( output_group, controller, "-save-temps", i18n( "Do not delete intermediate output like assembler files" ) ); TQApplication::sendPostedEvents( this, TQEvent::ChildInserted ); tqlayout->addSpacing( 10 ); TQVButtonGroup *codegen_group = new TQVButtonGroup( i18n( "Code Generation" ), this ); if ( type != GccOptionsPlugin::GPP ) { new FlagCheckBox( codegen_group, controller, "-fexceptions", i18n( "Enable exception handling" ), "-fno-exception" ); } else { new FlagCheckBox( codegen_group, controller, "-fno-exceptions", i18n( "Disable exception handling" ), "-fexception" ); } // The following two are somehow mutually exclusive, but the default is // platform-dependent, so if we would leave out one of them, we wouldn't // know how to set the remaining one. new FlagCheckBox( codegen_group, controller, "-fpcc-struct-return", i18n( "Return certain struct and union values in memory rather than in registers" ) ); new FlagCheckBox( codegen_group, controller, "-freg-struct-return", i18n( "Return certain struct and union values in registers when possible" ) ); new FlagCheckBox( codegen_group, controller, "-short-enums", i18n( "For an enum, choose the smallest possible integer type" ) ); new FlagCheckBox( codegen_group, controller, "-short-double", i18n( "Make 'double' the same as 'float'" ) ); TQApplication::sendPostedEvents( this, TQEvent::ChildInserted ); tqlayout->addStretch(); } GeneralTab::~GeneralTab() { delete controller; } void GeneralTab::readFlags( TQStringList *list ) { controller->readFlags( list ); } void GeneralTab::writeFlags( TQStringList *list ) { controller->writeFlags( list ); } OptimizationTab::OptimizationTab( GccOptionsPlugin::Type type, TQWidget *tqparent, const char *name ) : TQWidget( tqparent, name ) { TQBoxLayout * tqlayout = new TQVBoxLayout( this, KDialog::marginHint(), KDialog::spacingHint() ); tqlayout->setAutoAdd( true ); TQVButtonGroup *group = new TQVButtonGroup( i18n( "Optimization Level" ), this ); Odefault = new TQRadioButton( i18n( "Default" ), group ); Odefault->setChecked( true ); O0 = new TQRadioButton( i18n( "No optimization" ), group ); O1 = new TQRadioButton( i18n( "Level 1" ), group ); O2 = new TQRadioButton( i18n( "Level 2" ), group ); optBox = new FlagListBox( this ); new FlagListItem( optBox, "-ffloat-store", i18n( "Do not store floating point variables in registers" ), "-fno-float-store" ); new FlagListItem( optBox, "-fno-defer-pop", i18n( "Pop the arguments to each function call directly " "after the function returns" ), "-fdefer-pop" ); new FlagListItem( optBox, "-fforce-mem", i18n( "Force memory operands to be copied into registers before " "doing arithmetic on them" ), "-fno-force-mem" ); new FlagListItem( optBox, "-fforce-addr", i18n( "Force memory address constants to be copied into registers before " "doing arithmetic on them" ), "-fno-force-addr" ); new FlagListItem( optBox, "-fomit-frame-pointer", i18n( "Do not keep the frame pointer in a register for functions that " "do not need one" ), "-fno-omit-frame-pointer" ); new FlagListItem( optBox, "-fno-inline", i18n( "Ignore the inline keyword" ), "-finline" ); if ( type == GccOptionsPlugin::GPP ) { new FlagListItem( optBox, "-fno-default-inline", i18n( "Do not make member functions inline merely because they " "are defined inside the class scope" ), "-fdefault-inline" ); } TQApplication::sendPostedEvents( this, TQEvent::ChildInserted ); tqlayout->addStretch(); } OptimizationTab::~OptimizationTab() {} void OptimizationTab::readFlags( TQStringList *list ) { optBox->readFlags( list ); TQStringList::Iterator sli; sli = list->tqfind( "-O0" ); if ( sli != list->end() ) { O0->setChecked( true ); list->remove ( sli ); } sli = list->tqfind( "-O1" ); if ( sli != list->end() ) { O1->setChecked( true ); list->remove ( sli ); } sli = list->tqfind( "-O2" ); if ( sli != list->end() ) { O2->setChecked( true ); list->remove ( sli ); } } void OptimizationTab::writeFlags( TQStringList *list ) { optBox->writeFlags( list ); if ( O0->isChecked() ) ( *list ) << "-O0"; else if ( O1->isChecked() ) ( *list ) << "-O1"; else if ( O2->isChecked() ) ( *list ) << "-O2"; } G77Tab::G77Tab( TQWidget *tqparent, const char *name ) : TQWidget( tqparent, name ), controller( new FlagCheckBoxController ) { TQBoxLayout * tqlayout = new TQVBoxLayout( this, KDialog::marginHint(), KDialog::spacingHint() ); tqlayout->setAutoAdd( true ); tqlayout->addSpacing( 10 ); TQVButtonGroup *dialect_group = new TQVButtonGroup( i18n( "Dialect" ), this ); new FlagCheckBox( dialect_group, controller, "-ffree-form", i18n( "Interpret source code as Fortran 90 free form" ), "-fno-exception" ); new FlagCheckBox( dialect_group, controller, "-ff90", i18n( "Allow certain Fortran 90 constructs" ) ); new FlagCheckBox( dialect_group, controller, "-fdollar-ok", i18n( "Allow '$' in symbol names" ) ); new FlagCheckBox( dialect_group, controller, "-fbackslash", i18n( "Allow '\' in character constants to escape special characters" ), "-fno-backslah" ); new FlagCheckBox( dialect_group, controller, "-fonetrip", i18n( "DO loops are executed at least once" ) ); TQApplication::sendPostedEvents( this, TQEvent::ChildInserted ); tqlayout->addSpacing( 10 ); TQVButtonGroup *codegen_group = new TQVButtonGroup( i18n( "Code Generation" ), this ); new FlagCheckBox( codegen_group, controller, "-fno-automatic", i18n( "Treat local variables as if SAVE statement had been specified" ) ); new FlagCheckBox( codegen_group, controller, "-finit-local-zero", i18n( "Init local variables to zero" ) ); new FlagCheckBox( codegen_group, controller, "-fbounds-check", i18n( "Generate run-time checks for array subscripts" ) ); TQApplication::sendPostedEvents( this, TQEvent::ChildInserted ); tqlayout->addStretch(); } G77Tab::~G77Tab() { delete controller; } void G77Tab::readFlags( TQStringList *list ) { controller->readFlags( list ); } void G77Tab::writeFlags( TQStringList *list ) { controller->writeFlags( list ); } Warnings1Tab::Warnings1Tab( GccOptionsPlugin::Type type, TQWidget *tqparent, const char *name ) : TQWidget( tqparent, name ), controller( new FlagCheckBoxController ) { TQBoxLayout * tqlayout = new TQVBoxLayout( this, KDialog::marginHint(), KDialog::spacingHint() ); tqlayout->setAutoAdd( true ); new FlagCheckBox( this, controller, "-w", i18n( "Inhibit all warnings" ) ); new FlagCheckBox( this, controller, "-Wno-import", i18n( "Inhibit warnings about the use of #import" ) ); new FlagCheckBox( this, controller, "-Werror", i18n( "Make all warnings into errors" ) ); new FlagCheckBox( this, controller, "-pedantic", i18n( "Issue all warnings demanded by strict ANSI C or ISO C++" ) ); new FlagCheckBox( this, controller, "-pedantic-errors", i18n( "Like -pedantic, but errors are produced instead of warnings" ) ); new FlagCheckBox( this, controller, "-Wall", i18n( "All warnings below, combined (-Wall):" ) ); wallBox = new FlagListBox( this ); new FlagListItem( wallBox, "-Wchar-subscripts", i18n( "Warn if an array subscript has type char" ) ); new FlagListItem( wallBox, "-Wcomment", i18n( "Warn when a comment-start sequence /* appears inside a comment" ) ); new FlagListItem( wallBox, "-Wformat", i18n( "Check calls to printf(), scanf() etc\n" "to make sure that the arguments supplied have types appropriate\n" "to the format string specified, and that the conversions specified\n" "in the format string make sense" ) ); new FlagListItem( wallBox, "-Wformat=2", i18n( "Enable -Wformat plus format checks not \n" "included in -Wformat. Currently equivalent to \n" "`-Wformat -Wformat-nonliteral -Wformat-security \n" "-Wformat-y2k'." ) ); new FlagListItem( wallBox, "-Wimplicit-int", i18n( "Warn when a declaration does not specify a type" ) ); new FlagListItem( wallBox, "-Wimplicit-funtion-declaration", i18n( "Issue a warning when a non-declared function is used" ) ); new FlagListItem( wallBox, "-Werror-implicit-function-declaration", i18n( "Issue an error when a non-declared function is used" ) ); new FlagListItem( wallBox, "-Wmain", i18n( "Warn if the type of main() is suspicious" ) ); new FlagListItem( wallBox, "-Wmultichar", i18n( "Warn when multicharacter constants are encountered" ) ); new FlagListItem( wallBox, "-Wmissing-braces", i18n( "Warn if an aggregate or union initializer is not fully bracketed" ) ); new FlagListItem( wallBox, "-Wtqparentheses", i18n( "Warn when tqparentheses are omitted in certain contexts" ) ); new FlagListItem( wallBox, "-Wsequence-point", i18n( "Warn about code that may have undefined semantics because of\n" "violations of sequence point rules in the C standard" ) ); new FlagListItem( wallBox, "-Wreturn-type", i18n( "Warn when a function without explicit return type is defined" ) ); new FlagListItem( wallBox, "-Wswitch", i18n( "Warn whenever a switch statement has an index of enumeral type\n" "and lacks a case for one or more of the named codes of that enumeration" ) ); new FlagListItem( wallBox, "-Wtrigraphs", i18n( "Warn when trigraphs are encountered" ) ); new FlagListItem( wallBox, "-Wunused", i18n( "Warn when a variable is declared but not used" ) ); new FlagListItem( wallBox, "-Wuninitialized", i18n( "Warn when a variable is used without being initialized first" ) ); new FlagListItem( wallBox, "-Wunknown-pragmas", i18n( "Warn when an unknown #pragma statement is encountered" ) ); new FlagListItem( wallBox, "-Wdiv-by-zero", i18n( "Warn when a division by zero occurs." ) ); if ( type == GccOptionsPlugin::GPP ) { new FlagListItem( wallBox, "-Wreorder", i18n( "Warn when the order of member initializers is different from\n" "the order in the class declaration" ) ); } } Warnings1Tab::~Warnings1Tab() { delete controller; } void Warnings1Tab::readFlags( TQStringList *list ) { controller->readFlags( list ); wallBox->readFlags( list ); } void Warnings1Tab::writeFlags( TQStringList *list ) { controller->writeFlags( list ); wallBox->writeFlags( list ); } Warnings2Tab::Warnings2Tab( GccOptionsPlugin::Type type, TQWidget *tqparent, const char *name ) : TQWidget( tqparent, name ) { TQBoxLayout * tqlayout = new TQVBoxLayout( this, KDialog::marginHint(), KDialog::spacingHint() ); tqlayout->setAutoAdd( true ); wrestBox = new FlagListBox( this ); new FlagListItem( wrestBox, "-W", i18n( "Set options not included in -Wall which are very specific" ) ); new FlagListItem( wrestBox, "-Wfloat-equal", i18n( "Warn if floating point values are used in equality comparisons" ) ); new FlagListItem( wrestBox, "-Wundef", i18n( "Warn if an undefined identifier is evaluated in an #if directive" ) ); new FlagListItem( wrestBox, "-Wshadow", i18n( "Warn whenever a local variable shadows another local variable" ) ); new FlagListItem( wrestBox, "-Wpointer-arith", i18n( "Warn about anything that depends on the sizeof a\n" "function type or of void" ) ); new FlagListItem( wrestBox, "-Wcast-qual", i18n( "Warn whenever a pointer is cast so as to remove a type\n" "qualifier from the target type" ) ); new FlagListItem( wrestBox, "-Wcast-align", i18n( "Warn whenever a pointer is cast such that the required\n" "tqalignment of the target is increased" ) ); new FlagListItem( wrestBox, "-Wwrite-strings", i18n( "Warn when the address of a string constant is cast\n" "into a non-const char * pointer" ) ); new FlagListItem( wrestBox, "-Wconversion", i18n( "Warn if a prototype causes a type conversion that is different\n" "from what would happen to the same argument in the absence\n" "of a prototype" ) ); new FlagListItem( wrestBox, "-Wsign-compare", i18n( "Warn when a comparison between signed and unsigned values\n" "could produce an incorrect result when the signed value\n" "is converted to unsigned" ) ); new FlagListItem( wrestBox, "-Wmissing-noreturn", i18n( "Warn about functions which might be candidates for attribute 'noreturn'" ) ); new FlagListItem( wrestBox, "-Waggregate-return", i18n( "Warn if any functions that return structures or unions are\n" "defined or called" ) ); new FlagListItem( wrestBox, "-Wmissing-declarations", i18n( "Warn if a global function is defined without a previous declaration" ) ); new FlagListItem( wrestBox, "-Wno-deprecated-declarations", i18n( "Do not warn about uses of functions, variables, and types marked as\n" "deprecated by using the 'deprecated' attribute" ) ); new FlagListItem( wrestBox, "-Wpacked", i18n( "Warn if a structure is given the packed attribute, but the packed\n" "attribute has no effect on the tqlayout or size of the structure" ) ); new FlagListItem( wrestBox, "-Wpadded", i18n( "Warn if padding is included in a structure, either to align an\n" "element of the structure or to align the whole structure" ) ); new FlagListItem( wrestBox, "-Wredundant-decls", i18n( "Warn if anything is declared more than once in the same scope" ) ); new FlagListItem( wrestBox, "-Wunreachable-code", i18n( "Warn if the compiler detects that code will never be executed" ) ); new FlagListItem( wrestBox, "-Winline", i18n( "Warn if an inline function cannot be inlined" ) ); new FlagListItem( wrestBox, "-Wlong-long", i18n( "Warn if the long long type is used" ) ); new FlagListItem( wrestBox, "-Wdisabled-optimization", i18n( "Warn if a requested optimization pass is disabled" ) ); new FlagListItem( wrestBox, "-Wno-div-by-zero", i18n( "Do not warn if there is a division by zero" ) ); if ( type == GccOptionsPlugin::GCC ) { new FlagListItem( wrestBox, "-Wtraditional", i18n( "Warn about certain constructs that behave differently\n" "in traditional and ANSI C" ) ); new FlagListItem( wrestBox, "-Wbad-function-cast", i18n( "Warn whenever a function call is cast to a non-matching type" ) ); new FlagListItem( wrestBox, "-Wstrict-prototypes", i18n( "Warn if a function is declared or defined without specifying\n" "the argument types" ) ); new FlagListItem( wrestBox, "-Wmissing-prototypes", i18n( "Warn if a global function is defined without a previous prototype declaration" ) ); new FlagListItem( wrestBox, "-Wnested-externs", i18n( "Warn if an extern declaration is encountered within a function" ) ); } if ( type == GccOptionsPlugin::GPP ) { new FlagListItem( wrestBox, "-Woverloaded-virtual", i18n( "Warn when a function declaration hides virtual\n" "functions from a base class" ) ); new FlagListItem( wrestBox, "-Wsynth", i18n( "Warn when g++'s synthesis behavior does\n" "not match that of cfront" ) ); new FlagListItem( wrestBox, "-Wctor-dtor-privacy", i18n( "Warn when a class seems unusable, because all the constructors or\n" "destructors in a class are private and the class has no friends or\n" "public static member functions" ) ); new FlagListItem( wrestBox, "-Wnon-virtual-dtor", i18n( "Warn when a class declares a non-virtual destructor that should\n" "probably be virtual, because it looks like the class will be used\n" "polymorphically" ) ); new FlagListItem( wrestBox, "-Wsign-promo", i18n( "Warn when overload resolution chooses a promotion from unsigned or\n" "enumeral type to a signed type over a conversion to an unsigned\n" "type of the same size. Previous versions of G++ would try to\n" "preserve unsignedness, but the standard mandates the current behavior" ) ); new FlagListItem( wrestBox, "-Wabi", i18n( "Warn when G++ generates code that is probably not compatible with\n" "the vendor-neutral C++ ABI" ) ); /* new FlagListItem(wrestBox, "-Wreorder", i18n("Warn when the order of member initializers given in the code does\n" "not match the order in which they must be executed."));*/ new FlagListItem( wrestBox, "-Weffc++", i18n( "Warn about violations of the following style guidelines from Scott\n" "Meyers' 'Effective C++' book:\n" "* Item 11: Define a copy constructor and an assignment\n" " operator for classes with dynamically allocated memory;\n" "* Item 12: Prefer initialization to assignment in constructors;\n" "* Item 14: Make destructors virtual in base classes;\n" "* Item 15: Have `operator=' return a reference to `*this';\n" "* Item 23: Do not try to return a reference when you must\n" " return an object\n" "\n" "and about violations of the following style guidelines from Scott\n" "Meyers' 'More Effective C++' book:\n" "* Item 6: Distinguish between prefix and postfix forms of\n" " increment and decrement operators;\n" "* Item 7: Never overload '&&', '||', or ','" ) ); new FlagListItem( wrestBox, "-Wno-deprecated", i18n( "Do not warn about usage of deprecated features" ) ); new FlagListItem( wrestBox, "-Wno-non-template-friend", i18n( "Disable warnings when non-templatized friend functions are declared\n" "within a template" ) ); new FlagListItem( wrestBox, "-Wold-style-cast", i18n( "Warn if an old-style (C-style) cast to a non-void type is used\n" "within a C++ program" ) ); new FlagListItem( wrestBox, "-Wno-pmf-conversions", i18n( "Disable the diagnostic for converting a bound pointer to member\n" "function to a plain pointer" ) ); } } Warnings2Tab::~Warnings2Tab() {} void Warnings2Tab::readFlags( TQStringList *list ) { wrestBox->readFlags( list ); } void Warnings2Tab::writeFlags( TQStringList *list ) { wrestBox->writeFlags( list ); } // Last but not least... :-) GccOptionsDialog::GccOptionsDialog( GccOptionsPlugin::Type type, TQWidget *tqparent, const char *name ) : KDialogBase( Tabbed, GccOptionsPlugin::captionForType( type ), Ok | Cancel, Ok, tqparent, name, true ) { TQVBox * vbox; vbox = addVBoxPage( i18n( "General" ) ); general = new GeneralTab( type, vbox, "general tab" ); vbox = addVBoxPage( i18n( "Optimization" ) ); optimization = new OptimizationTab( type, vbox, "optimization tab" ); if ( type == GccOptionsPlugin::G77 ) { vbox = addVBoxPage( i18n( "Fortran Specifics" ) ); g77 = new G77Tab( vbox, "g77 tab" ); } else g77 = 0; vbox = addVBoxPage( i18n( "Warnings (safe)" ) ); warnings1 = new Warnings1Tab( type, vbox, "warnings1 tab" ); vbox = addVBoxPage( i18n( "Warnings (unsafe)" ) ); warnings2 = new Warnings2Tab( type, vbox, "warnings2 tab" ); } GccOptionsDialog::~GccOptionsDialog() {} void GccOptionsDialog::setFlags( const TQString &flags ) { TQStringList flaglist = TQStringList::split( " ", flags ); // Hand them to 'general' at last, so it can make a line edit // with the unprocessed items if ( g77 ) g77->readFlags( &flaglist ); optimization->readFlags( &flaglist ); warnings1->readFlags( &flaglist ); warnings2->readFlags( &flaglist ); general->readFlags( &flaglist ); unrecognizedFlags = flaglist; } TQString GccOptionsDialog::flags() const { TQStringList flaglist; if ( g77 ) g77->writeFlags( &flaglist ); optimization->writeFlags( &flaglist ); warnings1->writeFlags( &flaglist ); warnings2->writeFlags( &flaglist ); general->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; } GccOptionsPlugin::GccOptionsPlugin( TQObject *tqparent, const char *name, const TQStringList &args ) : KDevCompilerOptions( tqparent, name ) { gcctype = Unknown; if ( args.count() == 0 ) return ; TQString typeStr = args[ 0 ]; if ( typeStr == "gcc" ) gcctype = GccOptionsPlugin::GCC; else if ( typeStr == "g++" ) gcctype = GccOptionsPlugin::GPP; else if ( typeStr == "g77" ) gcctype = GccOptionsPlugin::G77; } GccOptionsPlugin::~GccOptionsPlugin() {} TQString GccOptionsPlugin::captionForType( Type type ) { switch ( type ) { case GCC: return i18n( "GNU C Compiler Options" ); case GPP: return i18n( "GNU C++ Compiler Options" ); case G77: return i18n( "GNU Fortran 77 Compiler Options" ); default: return TQString(); } } TQString GccOptionsPlugin::exec( TQWidget *tqparent, const TQString &flags ) { if ( gcctype == Unknown ) return TQString(); GccOptionsDialog *dlg = new GccOptionsDialog( gcctype, tqparent, "gcc options dialog" ); TQString newFlags = flags; dlg->setFlags( flags ); if ( dlg->exec() == TQDialog::Accepted ) newFlags = dlg->flags(); delete dlg; return newFlags; } #include "gccoptionsplugin.moc" //kate: indent-mode csands; tab-width 4; space-indent off;