diff options
Diffstat (limited to 'kalyptus/kalyptus')
-rw-r--r-- | kalyptus/kalyptus | 94 |
1 files changed, 47 insertions, 47 deletions
diff --git a/kalyptus/kalyptus b/kalyptus/kalyptus index f021fdf4..1cd0f857 100644 --- a/kalyptus/kalyptus +++ b/kalyptus/kalyptus @@ -7,7 +7,7 @@ # All files in this project are distributed under the GNU General # Public License. This is Free Software. -require 5.000; +retquire 5.000; use Carp; use Getopt::Long; @@ -23,7 +23,7 @@ use kdocParseDoc; use vars qw/ %rootNodes $declNodeType @includes_list %options @formats_wanted $allow_k_dcop_accessors @includeclasses $includeclasses $skipInternal %defines $defines $match_qt_defines $libdir $libname $outputdir @libs $parse_global_space $qt_embedded $qt4 $striphpath $doPrivate $readstdin - $Version $quiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe + $Version $tquiet $debug $debuggen $parseonly $currentfile $cSourceNode $exe %formats %flagnames @allowed_k_dcop_accesors $allowed_k_dcop_accesors_re $rootNode @classStack $cNode $globalSpaceClassName $lastLine $docNode @includes $cpp $defcppcmd $cppcmd $docincluded @@ -52,11 +52,11 @@ $includeclasses = ""; $doPrivate = 0; $Version = "0.9"; -$quiet = 0; +$tquiet = 0; $debug = 0; $debuggen = 0; $parseonly = 0; -$globalSpaceClassName = "QGlobalSpace"; +$globalSpaceClassName = "TQGlobalSpace"; $currentfile = ""; @@ -69,38 +69,38 @@ $exe = basename $0; @inputqueue = (); @codeqobject = split "\n", <<CODE; public: - virtual QMetaObject *metaObject() const; + virtual TQMetaObject *metaObject() const; virtual const char *className() const; virtual void* qt_cast( const char* ); - virtual bool qt_invoke( int, QUObject* ); - virtual bool qt_emit( int, QUObject* ); - virtual bool qt_property( int, int, QVariant* ); - static QMetaObject* staticMetaObject(); - QObject* qObject(); - static QString tr( const char *, const char * = 0 ); - static QString trUtf8( const char *, const char * = 0 ); + virtual bool qt_invoke( int, TQUObject* ); + virtual bool qt_emit( int, TQUObject* ); + virtual bool qt_property( int, int, TQVariant* ); + static TQMetaObject* staticMetaObject(); + TQObject* qObject(); + static TQString tr( const char *, const char * = 0 ); + static TQString trUtf8( const char *, const char * = 0 ); private: CODE @qt4_codeqobject = split "\n", <<CODE; public: - static const QMetaObject staticMetaObject; - virtual const QMetaObject *metaObject() const; + static const TQMetaObject staticMetaObject; + virtual const TQMetaObject *metaObject() const; virtual void *qt_metacast(const char *); - static inline QString tr(const char *s, const char *c = 0) + static inline TQString tr(const char *s, const char *c = 0) { return staticMetaObject.tr(s, c); } - virtual int qt_metacall(QMetaObject::Call, int, void **); + virtual int qt_metacall(TQMetaObject::Call, int, void **); private: CODE @qte_codeqobject = split "\n", <<CODE; public: - QMetaObject *metaObject() const { + TQMetaObject *metaObject() const { return staticMetaObject(); } const char *className() const; - static QMetaObject* staticMetaObject(); - static QString tr( const char *, const char * = 0 ); + static TQMetaObject* staticMetaObject(); + static TQString tr( const char *, const char * = 0 ); protected: void initMetaObject(); private: @@ -133,12 +133,12 @@ $allowed_k_dcop_accesors_re = join("|", @allowed_k_dcop_accesors); Q_EXPORT => '', Q_EXPORT_CODECS_BIG5 => '', Q_REFCOUNT => '', - QM_EXPORT_CANVAS => '', - QM_EXPORT_DNS => '', - QM_EXPORT_ICONVIEW => '', - QM_EXPORT_NETWORK => '', - QM_EXPORT_SQL => '', - QM_EXPORT_WORKSPACE => '', + TQM_EXPORT_CANVAS => '', + TQM_EXPORT_DNS => '', + TQM_EXPORT_ICONVIEW => '', + TQM_EXPORT_NETWORK => '', + TQM_EXPORT_SQL => '', + TQM_EXPORT_WORKSPACE => '', QT_NO_REMOTE => 'QT_NO_REMOTE', QT_ACCESSIBILITY_SUPPORT => 'QT_ACCESSIBILITY_SUPPORT', Q_WS_X11 => 'Q_WS_X11', @@ -147,12 +147,12 @@ $allowed_k_dcop_accesors_re = join("|", @allowed_k_dcop_accesors); Q_WS_MAC => 'undef', Q_OBJECT => <<'CODE', public: - virtual QMetaObject *metaObject() const; + virtual TQMetaObject *metaObject() const; virtual const char *className() const; - virtual bool qt_invoke( int, QUObject* ); - virtual bool qt_emit( int, QUObject* ); - static QString tr( const char *, const char * = 0 ); - static QString trUtf8( const char *, const char * = 0 ); + virtual bool qt_invoke( int, TQUObject* ); + virtual bool qt_emit( int, TQUObject* ); + static TQString tr( const char *, const char * = 0 ); + static TQString trUtf8( const char *, const char * = 0 ); private: CODE }; @@ -201,7 +201,7 @@ GetOptions( \%options, "define=s", \%defines, # define a single preprocessing symbol "defines=s", \$defines, # file containing preprocessing symbols, one per line - "quiet|q", \$quiet, + "tquiet|q", \$tquiet, "debug|D", \$debug, # debug the parsing "debuggen", \$debuggen, # debug the file generation "parse-only", \$parseonly ) @@ -221,11 +221,11 @@ else { if ($#includeclasses>=0) { $includeclasses = join (" ", @includeclasses); - print "Using Classes: $includeclasses\n" unless $quiet; + print "Using Classes: $includeclasses\n" unless $tquiet; } if ( $#includes >= 0 && !$cpp ) { - die "$exe: --includedir requires --cpp\n"; + die "$exe: --includedir retquires --cpp\n"; } # Check output formats. HTML is the default @@ -284,7 +284,7 @@ else checkFileArgs(); # work out libdir. This is created by kdocLib:writeDoc when -# required. +# retquired. $libdir = $ENV{HOME}."/.kalyptus" unless $libdir ne ""; @@ -328,9 +328,9 @@ sub readLibraries { return if $#libs < 0; - require kdocLib; + retquire kdocLib; foreach my $lib ( @libs ) { - print "$exe: reading lib: $lib\n" unless $quiet; + print "$exe: reading lib: $lib\n" unless $tquiet; my $relpath = exists $options{url} ? $options{url} : $outputdir; @@ -356,7 +356,7 @@ sub parseFiles $cmd .= " -I $dir "; } - $cmd .= " -DQOBJECTDEFS_H $currentfile"; + $cmd .= " -DTQOBJECTDEFS_H $currentfile"; open( INPUT, "$cmd |" ) || croak "Can't preprocess $currentfile"; @@ -366,7 +366,7 @@ sub parseFiles || croak "Can't read from $currentfile"; } - print STDERR "$exe: processing $currentfile\n" unless $quiet; + print STDERR "$exe: processing $currentfile\n" unless $tquiet; # reset vars $rootNode = getRoot( $lang ); @@ -412,10 +412,10 @@ sub writeDocumentation no strict "refs"; foreach my $format ( @formats_wanted ) { my $pack = $formats{ $format }; - require $pack.".pm"; + retquire $pack.".pm"; print STDERR "Generating bindings for $format ", - "language...\n" unless $quiet; + "language...\n" unless $tquiet; my $f = "$pack\::writeDoc"; &$f( $libname, $node, $outputdir, \%options ); @@ -426,7 +426,7 @@ sub writeDocumentation sub writeLibrary { if( $libname ne "" and !exists $options{'no-cache'} ) { - require kdocLib; + retquire kdocLib; foreach my $lang ( keys %rootNodes ) { my $node = $rootNodes{ $lang }; kdocLib::writeDoc( $libname, $node, $lang, $libdir, @@ -500,7 +500,7 @@ LOOP: $p =~ s/Q_EXPORT_CODECS_BIG5//; $p =~ s/QT_COMPAT / /; $p =~ s/Q_DISABLE_COPY\((\w+)\)/$1(const $1 &);\n$1 &operator=(const $1 &);/; - $p =~ s/QWIDGETSIZE_MAX/32767/; # Qt/E uses this #define as an enum value - yuck! + $p =~ s/TQWIDGETSIZE_MAX/32767/; # Qt/E uses this #define as an enum value - yuck! $p =~ s/Q_SIGNALS/signals/; $p =~ s/ASYNC/void/; $p =~ s/[A-Z_]*_EXPORT_DEPRECATED//; @@ -531,7 +531,7 @@ LOOP: next if ( $p =~ /^\s*$/s ); # blank lines -# || $p =~ /^\s*Q_OBJECT/ # QObject macro +# || $p =~ /^\s*Q_OBJECT/ # TQObject macro # ); # @@ -540,7 +540,7 @@ LOOP: || $p =~ /^\s*Q_FLAGS/ # and Q_FLAGS || $p =~ /^\s*Q_DECLARE_FLAGS/ # and Q_DECLARE_FLAGS || ( !$qt4 && $p =~ /^\s*Q_PROPERTY/ ) # and Q_PROPERTY - || $p =~ /^\s*QDOC_PROPERTY/ + || $p =~ /^\s*TQDOC_PROPERTY/ || $p =~ /^\s*Q_GADGET/ || $p =~ /^\s*Q_OVERRIDE/ # and Q_OVERRIDE || $p =~ /^\s*Q_SETS/ @@ -574,7 +574,7 @@ LOOP: } else { # Skip platform-specific stuff, or #if 0 stuff - # or #else of something we parsed (e.g. for QKeySequence) + # or #else of something we parsed (e.g. for TQKeySequence) if ( $p =~ m/^#\s*ifdef\s*Q_WS_/ or $p =~ m/^#\s*if\s+defined\(Q_WS_/ or ($p =~ m/^#\s*ifdef\s+_WS_QWS_/ and $qt_embedded) or @@ -946,7 +946,7 @@ sub identifyDecl my $params = $2; # Remove constructor initializer, that's not in the params if ( $params =~ /\s*\)\s*:\s*/ ) { - # Hack: first .* made non-greedy for QSizePolicy using a?(b):c in ctor init + # Hack: first .* made non-greedy for TQSizePolicy using a?(b):c in ctor init $params =~ s/(.*?)\s*\)\s*:\s*.*$/$1/; } @@ -1639,7 +1639,7 @@ sub newMethod This property contains a list of nodes, one for each parameter. Each parameter node has the following properties: - * ArgType the type of the argument, e.g. const QString& + * ArgType the type of the argument, e.g. const TQString& * ArgName the name of the argument - optionnal * DefaultValue the default value of the argument - optionnal |