#!/usr/bin/perl # qtguess.pl : check how TQt was compiled. Issue a list of all defined TQT_NO_* macros, one per line. # # author: germain Garand # licence: GPL v.2 # options: -q: be quieter # -o file: redirect output to "file". (default: ./qtdefines) # -t [0..15]: set the testing threshold (see below) # -f "flags": additional compiler flags/parameters use Getopt::Std; use vars qw/$opt_f $opt_o $opt_p/; getopts('qo:f:t:'); # Threshold : # 0 - test basic TQt types/classes # 5 - test higher level, non-gui classes # 8 - test options of the above (ex: TQT_NO_IMAGE_SMOOTHSCALE) # 10 - test basic widgets # 12 - test composite widgets # 13 - test widgets inheriting composite widgets # 15 - test goodies (default) my $default_threshold = @qt_test_threshold@; my $cc = "@CXX@"; my $ccflags = $opt_f || "@CXXFLAGS@"; my $nspaces = 50; my %qtdefs=(); my %qtundefs=(); my $tmp = gettmpfile(); my $qtinc = '@qt_includes@'; my $allinc = '@all_includes@'; my $alllib = '@all_libraries@'; my $qtflags ='@LIB_QT@'; my %x; $x{'LIBPNG'} = '@LIBPNG@'; $x{'LIBJPEG'} = '@LIBJPEG@'; $x{'LIBSM'} = '@LIBSM@'; $x{'LIBSOCKET'} = '@LIBSOCKET@'; $x{'LIBDL'} = '@LIBDL@'; $x{'LIBRESOLV'} = '@LIBRESOLV@'; $x{'LIB_X11'} = '@LIB_X11@'; $x{'X_PRE_LIBS'} = '@X_PRE_LIBS@'; $x{'LIB_X11'} =~ s/\$\((.*?)\)/$x{$1}/g; $qtflags =~ s/\$\((.*?)\)/$x{$1}/g; -e "$qtinc/qglobal.h" or die "Invalid TQt directory.\n"; my $ccmd = "$cc $ccflags $allinc $alllib -o $tmp $tmp.cpp $qtflags"; my $threshold = defined($opt_t)?$opt_t : $default_threshold; $threshold >= 0 or die "invalid testing threshold: $threshold\n"; print "Checking how TQt was built... \n"; print "Threshold is set to $threshold\n" unless $opt_q; my($count, $used, $total); map{ $tests{$_}->[2]>=$threshold ? ($used++, $total++):$total++ } keys %tests; print "Number of defines to be tested : $used/$total\n\n" unless $opt_q; open( TQTDEFS, ">".($opt_o || "qtdefines") ) or die "Can't open output file: $!\n"; grab_qglobal_symbols(); preliminary_test(); perform_all_tests(); print +scalar(keys %qtdefs) . " defines found.\n"; print TQTDEFS join("\n", keys %qtdefs), "\n"; close; #--------------------------------------------------------------# sub gettmpfile { my $tmpdir = $ENV{'TMP'} || "."; my $tmpname = $$."-qtguess"; while( -e "$tmpdir/$tmpname" || -e "$tmpdir/${tmpname}.cpp" ) { $tmpname .= int (rand * 9); } return "$tmpdir/$tmpname"; } #--------------------------------------------------------------# sub grab_qglobal_symbols { my $cmd = "$cc -E -D__cplusplus -dM -I$qtinc $qtinc/qglobal.h 2>/dev/null"; my $symbols = `$cmd`; for(0..1) { if( check_exit_status($?) ) { while( $symbols =~/^#\s*define\s*(TQT_\S+)/gm ) { $qtdefs{$1} = 1; } print "Found ". scalar( keys %qtdefs )." predefined symbol".((scalar( keys %qtdefs ) -1)?"s":"")." in qglobal.h\n" unless ($opt_q or !(keys %qtdefs)); while( $symbols =~/^#\s*define\s*TQT_MODULE_(\S+)/gm ) { $qtundefs{"TQT_NO_$1"} = 1; } print "Found ". scalar( keys %qtundefs )." undefined symbol".((scalar( keys %qtundefs ) -1)?"s":"")." in qglobal.h\n" unless ($opt_q or !(keys %qtundefs)); last; } elsif(! $_) # first try { print "Failed to run $cmd.\nTrying without __cplusplus (might be already defined)\n"; $cmd = "$cc -E -dM -I$qtinc $qtinc/qglobal.h 2>/dev/null"; $symbols = `$cmd`; next; } } } #--------------------------------------------------------------# sub preliminary_test { my $msg = "Trying to compile and link a small program..."; print $msg, " " x ($nspaces - length($msg) + 8); open( OUT, ">${tmp}.cpp" ) or die "Failed to open temp file ${tmp}.cpp: $!\n"; my $simple=q£ #include int main( int argc, char **argv ) { TQApplication foo( argc, argv ); return 0; } £; print OUT $simple; close OUT; my $out = `$ccmd 2>&1`; if( !check_exit_status($?) ) { die <<"EOF"; FAILED : check your configuration. Failed program was: $simple Compiled with: $ccmd Compiler output: $out EOF } else { print "OK\n"; } } #--------------------------------------------------------------# sub perform_all_tests { foreach ( sort { $tests{$a}->[2] <=> $tests{$b}->[2]} keys %tests) { $tests{$_}->[2] < $threshold and next; ($qtdefs{$_} || $qtundefs{$_}) and do { print "\rSkipping $_ (in qglobal.h)".( " " x (($nspaces-16) - length($_)) ).($qtundefs{$_}?"*Undefined*":" [Defined]").($opt_q?"":"\n"); next }; print "\rTesting $_".( " " x ($nspaces - length($_)) ); open( OUT, ">${tmp}.cpp" ) or die "Failed to open temp file ${tmp}.cpp: $!\n"; foreach $def(keys %qtdefs) { print OUT "#define $def\n"; } foreach $inc(split /,\s*/, $tests{$_}->[0]) { print OUT "#include <$inc>\n"; } print OUT "#include \n"; print OUT $tests{$_}->[3] if $tests{$_}->[3]; # need to define some classes ? print OUT qq£ int main( int argc, char **argv ) { $tests{$_}->[1] return 0; } £; close OUT; my $out = `$ccmd 2>&1`; my $ok = check_exit_status($?); if( !$ok ) { $qtdefs{$_} = 1; } print +$opt_q ? ++$count."/$used" : ( $ok ? "*Undefined*\n" : " [Defined]\n" ); } $opt_q && print "\n"; } #--------------------------------------------------------------# sub check_exit_status { my $a = 0xFFFF & shift; if( !$a ) { return 1; } elsif( $a == 0xFF00 ) { die "\nSystem call failed: $!\n"; } elsif( $a > 0x80 ) { # non-zero status. } else { if( $a & 0x80 ) { die "\n$cc coredumped with signal ". ($a & ~0x80); } die "\n$cc interrupted by signal $a\n"; } return 0; } #--------------------------------------------------------------# END { unlink $tmp if -e $tmp; unlink "${tmp}.cpp" if -e "${tmp}.cpp"; } #--------------------------------------------------------------# BEGIN { # "DEFINE" => ["header-1.h,... header-n.h", "main() code", priority, "Definitions (if needed)"] our %tests = ( "TQT_NO_ACCEL" => ["qaccel.h", "TQAccel foo( (TQWidget*)NULL );", 5], "TQT_NO_ACTION" => ["qaction.h", "TQAction foo( (TQObject*)NULL );", 5], "TQT_NO_ASYNC_IO" => ["qasyncio.h", "TQAsyncIO foo();", 5], "TQT_NO_ASYNC_IMAGE_IO"=> ["qasyncimageio.h", "TQImageDecoder foo( (TQImageConsumer*) NULL );", 5], "TQT_NO_BIG_CODECS" => ["qbig5codec.h", "TQBig5Codec foo();", 5], "TQT_NO_BUTTON" => ["qbutton.h", "TQButton foo( (TQWidget*)NULL );", 10], "TQT_NO_BUTTONGROUP" => ["qbuttongroup.h", "TQButtonGroup foo( (TQWidget*)NULL );", 12], "TQT_NO_CANVAS" => ["qcanvas.h", "TQCanvas foo( (TQObject*)NULL );", 10], "TQT_NO_CHECKBOX" => ["qcheckbox.h", "TQCheckBox( (TQWidget*)NULL );", 10], "TQT_NO_CLIPBOARD" => ["qapplication.h, qclipboard.h", q£ TQApplication foo( argc, argv ); TQClipboard *baz= foo.clipboard(); £, 5], "TQT_NO_COLORDIALOG" => ["qcolordialog.h", "TQColorDialog::customCount();", 12], "TQT_NO_COMBOBOX" => ["qcombobox.h", "TQComboBox( (TQWidget*)NULL );", 10], "TQT_NO_COMPAT" => ["qfontmetrics.h", q£ TQFontMetrics *foo= new TQFontMetrics( TQFont() ); int bar = foo->width( 'c' ); £, 0], "TQT_NO_COMPONENT" => ["qapplication.h", q£ TQApplication foo( argc, argv ); foo.addLibraryPath( TQString::null ); £, 5], "TQT_NO_CURSOR" => ["qcursor.h", "TQCursor foo;", 5], "TQT_NO_DATASTREAM" => ["qdatastream.h", "TQDataStream foo;", 5], "TQT_NO_DATETIMEEDIT" => ["qdatetimeedit.h", "TQTimeEdit foo;", 12], "TQT_NO_DIAL" => ["qdial.h", "TQDial foo;", 10], "TQT_NO_DIALOG" => ["qdialog.h", "TQDialog foo;", 12], "TQT_NO_DIR" => ["qdir.h", "TQDir foo;", 5], "TQT_NO_DNS" => ["qdns.h", "TQDns foo;", 5], "TQT_NO_DOM" => ["qdom.h", "TQDomDocumentType foo;", 5], "TQT_NO_DRAGANDDROP" => ["qevent.h", "TQDropEvent foo( TQPoint(1,1) );", 5], "TQT_NO_DRAWUTIL" => ["qdrawutil.h, qcolor.h", "qDrawPlainRect( (TQPainter *) NULL, 0, 0, 0, 0, TQColor() );", 10], "TQT_NO_ERRORMESSAGE" => ["qerrormessage.h", "TQErrorMessage foo( (TQWidget*) NULL );", 13], "TQT_NO_FILEDIALOG" => ["qfiledialog.h", "TQFileIconProvider foo;", 13], "TQT_NO_FONTDATABASE" => ["qfontdatabase.h", "TQFontDatabase foo;", 5], "TQT_NO_FONTDIALOG" => ["qfontdialog.h", "TQFontDialog::getFont( (bool *)NULL );", 12], "TQT_NO_FRAME" => ["qframe.h", "TQFrame foo;", 10], "TQT_NO_GRID" => ["qgrid.h", "TQGrid foo(5);", 12], "TQT_NO_GRIDVIEW" => ["qgridview.h", "TQFoo foo;", 13, q£ class TQFoo: public TQGridView { public: TQFoo(){}; ~TQFoo(){}; void paintCell(TQPainter *, int, int){}; }; £], "TQT_NO_GROUPBOX" => ["qgroupbox.h", "TQGroupBox foo;", 12], "TQT_NO_HBOX" => ["qhbox.h", "TQHBox foo;", 12], "TQT_NO_HBUTTONGROUP" => ["qhbuttongroup.h", "TQHButtonGroup foo;", 13], "TQT_NO_HEADER" => ["qheader.h", "TQHeader foo;", 10], "TQT_NO_HGROUPBOX" => ["qhgroupbox.h", "TQHGroupBox foo;", 13], "TQT_NO_ICONSET" => ["qiconset.h", "TQIconSet foo;", 8], "TQT_NO_ICONVIEW" => ["qiconview.h", "TQIconView foo;", 13], "TQT_NO_IMAGEFORMATPLUGIN" => ["qimageformatplugin.h, qstringlist.h", "TQFoo foo;", 5, q£ class TQFoo: public TQImageFormatPlugin { public: TQFoo() {}; ~TQFoo() {}; TQStringList keys() const { return TQStringList(); }; bool installIOHandler( const TQString &format ) { return true; }; }; TTQ_EXPORT_PLUGIN( TQFoo ) £], "TQT_NO_IMAGE_DITHER_TO_1" => ["qimage.h", q£ TQImage *foo = new TQImage; foo->createAlphaMask(); £, 8], "TQT_NO_IMAGE_HEURISTIC_MASK" => ["qimage.h", q£ TQImage *foo = new TQImage; foo->createHeuristicMask(); £, 8], "TQT_NO_IMAGE_MIRROR" => ["qimage.h", q£ TQImage *foo = new TQImage; foo->mirror(); £, 8], "TQT_NO_IMAGE_SMOOTHSCALE" => ["qimage.h", q£ TQImage *foo = new TQImage; foo->smoothScale( 10, 10); £, 8], "TQT_NO_IMAGE_TEXT" => ["qimage.h", "TQImageTextKeyLang foo;", 8], "TQT_NO_IMAGE_TRANSFORMATION" => ["qimage.h", q£ TQImage *foo = new TQImage; foo->scale( 10, 10); £, 8], "TQT_NO_IMAGE_TRUECOLOR" => ["qimage.h", q£ TQImage *foo = new TQImage; foo->convertDepthWithPalette( 1, (TQRgb*) NULL, 1 ); £, 8], "TQT_NO_INPUTDIALOG" => ["qinputdialog.h, qstring.h", q£TQInputDialog::getText( TQString::null, TQString::null);£, 13], "TQT_NO_IMAGEIO" => ["qbitmap.h, qstring.h", q£ TQBitmap foo( TQString::fromLatin1("foobar") ); £, 5], "TQT_NO_IMAGEIO_JPEG" => ["qjpegio.h", "qInitJpegIO();", 8], "TQT_NO_IMAGEIO_MNG" => ["qmngio.h", "qInitMngIO();", 8], "TQT_NO_IMAGEIO_PNG" => ["qpngio.h", "qInitPngIO();", 8], "TQT_NO_LABEL" => ["qlabel.h", "TQLabel foo( (TQWidget*) NULL );", 10], "TQT_NO_LAYOUT" => ["qlayout.h", "TQFoo foo;", 10, q£ class TQFoo: public TQLayout { public: TQFoo() {}; ~TQFoo() {}; void addItem( TQLayoutItem * ) { }; TQSize sizeHint() const { return TQSize(); } TQLayoutIterator iterator() { return TQLayoutIterator( (TQGLayoutIterator *) NULL ); }; void setGeometry( const TQRect & ) { }; }; £], "TQT_NO_LCDNUMBER" => ["qlcdnumber.h", "TQLCDNumber foo;", 12], "TQT_NO_LINEEDIT" => ["qlineedit.h", "TQLineEdit foo( (TQWidget *) NULL );", 12], "TQT_NO_LISTBOX" => ["qlistbox.h", "TQListBox foo;", 13], "TQT_NO_LISTVIEW" => ["qlistview.h", "TQListView foo;", 13], "TQT_NO_MAINWINDOW" => ["qmainwindow.h", "TQMainWindow foo;", 13], "TQT_NO_MENUBAR" => ["qmenubar.h", "TQMenuBar foo;", 13], "TQT_NO_MOVIE" => ["qmovie.h", "TQMovie foo;", 5], "TQT_NO_MENUDATA" => ["qmenudata.h", "TQMenuData foo;", 9], "TQT_NO_MESSAGEBOX" => ["qmessagebox.h", "TQMessageBox foo;", 13], "TQT_NO_MIME" => ["qmime.h", "TQMimeSourceFactory foo;", 5], "TQT_NO_MIMECLIPBOARD" => ["qapplication.h, qclipboard.h", q£ TQApplication foo( argc, argv ); TQClipboard *baz= foo.clipboard(); baz->data(); £, 8], "TQT_NO_MULTILINEEDIT" => ["qmultilineedit.h", "TQMultiLineEdit foo;", 14], "TQT_NO_NETWORK" => ["qnetwork.h", "qInitNetworkProtocols();", 5], "TQT_NO_NETWORKPROTOCOL" => ["qnetworkprotocol.h", "TQNetworkProtocol foo;", 8], "TQT_NO_NETWORKPROTOCOL_FTP" => ["qftp.h", "TQFtp foo;", 9], "TQT_NO_PALETTE" => ["qpalette.h", "TQColorGroup foo;", 5], "TQT_NO_PICTURE" => ["qpicture.h", "TQPicture foo;", 5], "TQT_NO_PIXMAP_TRANSFORMATION" =>["qbitmap.h, qwmatrix.h", q£ TQBitmap *foo= new TQBitmap(); TQWMatrix bar; foo->xForm( bar ); £, 5], "TQT_NO_POPUPMENU" => ["qpopupmenu.h", "TQPopupMenu foo;", 12], "TQT_NO_PRINTER" => ["qprinter.h", "TQPrinter foo;", 5], "TQT_NO_PRINTDIALOG" => ["qprintdialog.h", "TQPrintDialog foo( (TQPrinter*) NULL );", 13], "TQT_NO_PROCESS" => ["qprocess.h", "TQProcess foo;", 5], "TQT_NO_PROGRESSBAR" => ["qprogressbar.h", "TQProgressBar foo;", 12], "TQT_NO_PROGRESSDIALOG" => ["qprogressdialog.h", "TQProgressDialog foo;", 13], "TQT_NO_PUSHBUTTON" => ["qpushbutton.h", "TQPushButton foo( (TQWidget *) NULL );", 12], "TQT_NO_PROPERTIES" => ["qmetaobject.h", "TQMetaProperty foo;", 0], # "TQT_NO_TQTMULTILINEEDIT" => ["qtmultilineedit.h", "TQtMultiLineEdit foo;", 15], # "TQT_NO_TQTTABLEVIEW" => ["qttableview.h", "TQFoo foo;", 16, q£ # class TQFoo: public TQtTableView # { # public: # TQFoo() {}; # ~TQFoo() {}; # void paintCell( TQPainter *, int, int) {}; # }; # £], "TQT_NO_TQUUID_STRING" => ["quuid.h", "TQUuid foo( TQString::null );", 8], "TQT_NO_RANGECONTROL" => ["qrangecontrol.h", "TQRangeControl foo;", 10], "TQT_NO_REGEXP" => ["qregexp.h", "TQRegExp foo;", 5], "TQT_NO_REGEXP_WILDCARD" => ["qregexp.h", q£ TQRegExp foo; foo.wildcard(); £, 8], "TQT_NO_REMOTE" => ["qapplication.h", q£ TQApplication foo( argc, argv ); foo.remoteControlEnabled(); £, 15], "TQT_NO_RADIOBUTTON" => ["qradiobutton.h", "TQRadioButton foo( (TQWidget *) NULL );", 12], "TQT_NO_RICHTEXT" => ["qsimplerichtext.h, qstring.h, qfont.h", "TQSimpleRichText foo( TQString::null, TQFont() );", 10], "TQT_NO_SCROLLBAR" => ["qscrollbar.h", "TQScrollBar foo( (TQWidget *) NULL );", 12], "TQT_NO_SCROLLVIEW" => ["qscrollview.h", "TQScrollView foo;", 12], "TQT_NO_SEMIMODAL" => ["qsemimodal.h", "TQSemiModal foo;", 10], "TQT_NO_SESSIONMANAGER" => ["qapplication.h", q£ TQApplication foo( argc, argv ); foo.sessionId(); £, 15], "TQT_NO_SETTINGS" => ["qsettings.h", "TQSettings foo;", 5], "TQT_NO_SIGNALMAPPER" => ["qsignalmapper.h", "TQSignalMapper foo( (TQObject *) NULL );", 0], "TQT_NO_SIZEGRIP" => ["qsizegrip.h", "TQSizeGrip foo( (TQWidget *) NULL );", 10], "TQT_NO_SLIDER" => ["qslider.h", "TQSlider foo( (TQWidget *) NULL );", 12], "TQT_NO_SOUND" => ["qsound.h", "TQSound foo( TQString::null );", 5], "TQT_NO_SPINWIDGET" => ["qrangecontrol.h", "TQSpinWidget foo;", 10], "TQT_NO_SPRINTF" => ["qcolor.h", q£ TQColor foo; foo.name(); £, 0], "TQT_NO_SQL" => ["qsqlcursor.h", "TQSqlCursor foo;", 5], "TQT_NO_STRINGLIST" => ["qstringlist.h", "TQStringList foo;", 0], "TQT_NO_STYLE" => ["qapplication.h", q£ TQApplication foo( argc, argv ); foo.style(); £, 15], # "TQT_NO_STYLE_CDE" => ["qcdestyle.h", "TQCDEStyle foo;", 16], # "TQT_NO_STYLE_COMPACT" => ["qcompactstyle.h", "TQCompactStyle foo;", 16], # "TQT_NO_STYLE_INTERLACE" => ["qinterlacestyle.h", "TQInterlaceStyle foo;", 16], # "TQT_NO_STYLE_PLATINUM" => ["qplatinumstyle.h", "TQPlatinumStyle foo;", 16], # "TQT_NO_STYLE_MOTIF" => ["qmotifstyle.h", "TQMotifStyle foo;", 16], # "TQT_NO_STYLE_MOTIFPLUS" => ["qmotifplusstyle.h", "TQMotifPlusStyle foo;", 16], # "TQT_NO_STYLE_SGI" => ["qsgistyle.h", "TQSGIStyle foo;", 16], # "TQT_NO_STYLE_WINDOWS" => ["qwindowsstyle.h", "TQWindowsStyle foo;", 16], "TQT_NO_TABBAR" => ["qtabbar.h", "TQTabBar foo;", 10], "TQT_NO_TABDIALOG" => ["qtabdialog.h", "TQTabDialog foo;", 12], "TQT_NO_TABLE" => ["qtable.h", "TQTable foo;", 10], "TQT_NO_TABWIDGET" => ["qtabwidget.h", "TQTabWidget foo;", 10], "TQT_NO_TEXTBROWSER" => ["qtextbrowser.h", "TQTextBrowser foo;", 14], "TQT_NO_TEXTCODEC" => ["qtextcodec.h", "TQTextCodec::codecForIndex(1);", 5], "TQT_NO_TEXTCODECPLUGIN" => ["qtextcodecplugin.h, qstringlist.h, qvaluelist.h, qtextcodec.h", "TQFoo foo;", 6, q£ class TQFoo: public TQTextCodecPlugin { public: TQFoo() {}; ~TQFoo() {}; TQStringList names() const {return TQStringList();} TQValueListmibEnums() const {return TQValueList();} TQTextCodec *createForName( const TQString & name ) {return (TQTextCodec *)NULL;} TQTextCodec *createForMib( int mib ) {return (TQTextCodec *)NULL;} }; TTQ_EXPORT_PLUGIN( TQFoo ) £], "TQT_NO_TEXTEDIT" => ["qtextedit.h", "TQTextEdit foo;", 13], "TQT_NO_TEXTSTREAM" => ["qtextstream.h", "TQTextStream foo;", 5], "TQT_NO_TEXTVIEW" => ["qtextview.h", "TQTextView foo;", 14], #Obsolete "TQT_NO_TOOLBAR" => ["qtoolbar.h", "TQToolBar foo;", 10], "TQT_NO_TOOLBUTTON" => ["qtoolbutton.h", "TQToolButton foo((TQWidget *) NULL );", 12], "TQT_NO_TOOLTIP" => ["qtooltip.h", "TQToolTip::hide();", 10], "TQT_NO_TRANSFORMATIONS" => ["qpainter.h", q£ TQPainter *foo= new TQPainter(); foo->setViewXForm( true );£, 5], "TQT_NO_VARIANT" => ["qvariant.h", "TQVariant foo;", 0], "TQT_NO_WHATSTHIS" => ["qwhatsthis.h", "TQWhatsThis::inWhatsThisMode();", 10], "TQT_NO_WHEELEVENT" => ["qevent.h", "TQWheelEvent foo( TQPoint(1,1), 1, 1 );", 5], "TQT_NO_WIDGET_TOPEXTRA" => ["qwidget.h", "TQWidget foo; foo.caption();", 9], "TQT_NO_WIDGETSTACK" => ["qwidgetstack.h", "TQWidgetStack foo;", 13], "TQT_NO_WIZARD" => ["qwizard.h", "TQWizard foo;", 13], "TQT_NO_WMATRIX" => ["qwmatrix.h", "TQWMatrix foo;", 0], "TQT_NO_XML" => ["qxml.h", "TQXmlNamespaceSupport foo;", 5], ); }