diff options
Diffstat (limited to 'kalyptus/kalyptus')
-rw-r--r-- | kalyptus/kalyptus | 114 |
1 files changed, 57 insertions, 57 deletions
diff --git a/kalyptus/kalyptus b/kalyptus/kalyptus index 1a7df3d..6cdc12d 100644 --- a/kalyptus/kalyptus +++ b/kalyptus/kalyptus @@ -56,7 +56,7 @@ $quiet = 0; $debug = 0; $debuggen = 0; $parseonly = 0; -$globalSpaceClassName = "QGlobalSpace"; +$globalSpaceClassName = "TQGlobalSpace"; $currentfile = ""; @@ -69,16 +69,16 @@ $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 @@ -104,29 +104,29 @@ $allowed_k_dcop_accesors_re = join("|", @allowed_k_dcop_accesors); _STYLE_PLATINUM => '', _STYLE_SGI => '', _STYLE_WINDOWS => '', - QT_STATIC_CONST => 'static const', - Q_EXPORT => '', - Q_REFCOUNT => '', - QM_EXPORT_CANVAS => '', - QM_EXPORT_DNS => '', - QM_EXPORT_ICONVIEW => '', - QM_EXPORT_NETWORK => '', - QM_EXPORT_SQL => '', - QM_EXPORT_WORKSPACE => '', - QT_NO_REMOTE => 'QT_NO_REMOTE', - QT_ACCESSIBILITY_SUPPORT => 'QT_ACCESSIBILITY_SUPPORT', - Q_WS_X11 => 'Q_WS_X11', - Q_DISABLE_COPY => 'Q_DISABLE_COPY', - Q_WS_QWS => 'undef', - Q_WS_MAC => 'undef', - Q_OBJECT => <<'CODE', + TQT_STATIC_CONST => 'static const', + TTQ_EXPORT => '', + TTQ_REFCOUNT => '', + TQM_EXPORT_CANVAS => '', + TQM_EXPORT_DNS => '', + TQM_EXPORT_ICONVIEW => '', + TQM_EXPORT_NETWORK => '', + TQM_EXPORT_SQL => '', + TQM_EXPORT_WORKSPACE => '', + TQT_NO_REMOTE => 'TQT_NO_REMOTE', + TQT_ACCESSIBILITY_SUPPORT => 'TQT_ACCESSIBILITY_SUPPORT', + TTQ_WS_X11 => 'TTQ_WS_X11', + TTQ_DISABLE_COPY => 'TTQ_DISABLE_COPY', + TTQ_WS_TQWS => 'undef', + TTQ_WS_MAC => 'undef', + TTQ_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 }; @@ -222,11 +222,11 @@ if( $defines ) } } -# Check the %defines hash for QT_* symbols and compile the corresponding RE +# Check the %defines hash for TQT_* symbols and compile the corresponding RE # Otherwise, compile the default ones. Used for filtering in readCxxLine. -if ( my @qt_defines = map { ($_=~m/^QT_(.*)/)[0] } keys %defines) +if ( my @qt_defines = map { ($_=~m/^TQT_(.*)/)[0] } keys %defines) { - my $regexp = "m/^#\\s*ifn?def\\s+QT_(?:" . join('|', map { "\$qt_defines[$_]" } 0..$#qt_defines).")/o"; + my $regexp = "m/^#\\s*ifn?def\\s+TQT_(?:" . join('|', map { "\$qt_defines[$_]" } 0..$#qt_defines).")/o"; $match_qt_defines = eval "sub { my \$s=shift; \$s=~/^#\\s*if(n)?def/ || return 0; if(!\$1) { return \$s=~$regexp ? 0:1 } @@ -240,7 +240,7 @@ else sub { my $s = shift; - $s =~ m/^\#\s*ifndef\s+QT_NO_(?:REMOTE| # not in the default compile options + $s =~ m/^\#\s*ifndef\s+TQT_NO_(?:REMOTE| # not in the default compile options NIS| # ... XINERAMA| IMAGEIO_(?:MNG|JPEG)| @@ -328,7 +328,7 @@ sub parseFiles $cmd .= " -I $dir "; } - $cmd .= " -DQOBJECTDEFS_H $currentfile"; + $cmd .= " -DTQOBJECTDEFS_H $currentfile"; open( INPUT, "$cmd |" ) || croak "Can't preprocess $currentfile"; @@ -425,7 +425,7 @@ sub readSourceLine =head2 readCxxLine Reads a C++ source line, skipping comments, blank lines, - preprocessor tokens and the Q_OBJECT macro + preprocessor tokens and the TTQ_OBJECT macro =cut @@ -453,12 +453,12 @@ LOOP: } } - if ( $p =~ /^\s*Q_OBJECT/ ) { + if ( $p =~ /^\s*TTQ_OBJECT/ ) { push @inputqueue, @codeqobject; next; } # Hack, waiting for real handling of preprocessor defines - $p =~ s/QT_STATIC_CONST/static const/; + $p =~ s/TQT_STATIC_CONST/static const/; $p =~ s/KSVG_GET/KJS::Value get();/; $p =~ s/KSVG_BASECLASS_GET/KJS::Value get();/; $p =~ s/KSVG_BRIDGE/KJS::ObjectImp *bridge();/; @@ -471,15 +471,15 @@ LOOP: } next if ( $p =~ /^\s*$/s ); # blank lines -# || $p =~ /^\s*Q_OBJECT/ # QObject macro +# || $p =~ /^\s*TTQ_OBJECT/ # TQObject macro # ); # - next if ( $p =~ /^\s*Q_ENUMS/ # ignore Q_ENUMS - || $p =~ /^\s*Q_PROPERTY/ # and Q_PROPERTY - || $p =~ /^\s*Q_OVERRIDE/ # and Q_OVERRIDE - || $p =~ /^\s*Q_SETS/ - || $p =~ /^\s*Q_DUMMY_COMPARISON_OPERATOR/ + next if ( $p =~ /^\s*TTQ_ENUMS/ # ignore TTQ_ENUMS + || $p =~ /^\s*TTQ_PROPERTY/ # and TTQ_PROPERTY + || $p =~ /^\s*TTQ_OVERRIDE/ # and TTQ_OVERRIDE + || $p =~ /^\s*TTQ_SETS/ + || $p =~ /^\s*TTQ_DUMMY_COMPARISON_OPERATOR/ || $p =~ /^\s*K_SYCOCATYPE/ # and K_SYCOCA stuff || $p =~ /^\s*K_SYCOCAFACTORY/ # || $p =~ /^\s*KSVG_/ # and KSVG stuff ;) @@ -502,14 +502,14 @@ LOOP: } else { # Skip platform-specific stuff, or #if 0 stuff - # or #else of something we parsed (e.g. for QKeySequence) - if ( $p =~ m/^#\s*ifdef\s*Q_WS_/ or - $p =~ m/^#\s*if\s+defined\(Q_WS_/ or - $p =~ m/^#\s*if\s+defined\(Q_OS_/ or - $p =~ m/^#\s*if\s+defined\(Q_CC_/ or - $p =~ m/^#\s*if\s+defined\(QT_THREAD_SUPPORT/ or + # or #else of something we parsed (e.g. for TQKeySequence) + if ( $p =~ m/^#\s*ifdef\s*TTQ_WS_/ or + $p =~ m/^#\s*if\s+defined\(TTQ_WS_/ or + $p =~ m/^#\s*if\s+defined\(TTQ_OS_/ or + $p =~ m/^#\s*if\s+defined\(TTQ_CC_/ or + $p =~ m/^#\s*if\s+defined\(TQT_THREAD_SUPPORT/ or $p =~ m/^#\s*else/ or - $p =~ m/^#\s*if\s+defined\(Q_FULL_TEMPLATE_INSTANTIATION/ or + $p =~ m/^#\s*if\s+defined\(TTQ_FULL_TEMPLATE_INSTANTIATION/ or $p =~ m/^#\s*ifdef\s+CONTAINER_CUSTOM_WIDGETS/ or &$match_qt_defines( $p ) or $p =~ m/^#\s*if\s+0\s+/ ) { @@ -519,7 +519,7 @@ LOOP: last if !defined $p; $if_depth++ if $p =~ m/^#\s*if/; $if_depth-- if $p =~ m/^#\s*endif/; - # Exit at #else in the #ifdef QT_NO_ACCEL/#else/#endif case + # Exit at #else in the #ifdef TQT_NO_ACCEL/#else/#endif case last if $if_depth == 1 && $p =~ m/^#\s*else\s/; #ignore elif for now print "Skipping ifdef'ed line: $p" if $debug; @@ -759,8 +759,8 @@ sub identifyDecl elsif ( $decl =~ /^\s*((?:template\s*<.*>)?) # 1 template \s*(class|struct|union|namespace) # 2 struct type (?:\s*Q[A-Z_]*EXPORT[A-Z_]*)? - (?:\s*Q_PACKED)? - (?:\s*Q_REFCOUNT)? + (?:\s*TTQ_PACKED)? + (?:\s*TTQ_REFCOUNT)? \s+([\w_]+ # 3 name (?:<[\w_ :,]+?>)? # maybe explicit template # (eat chars between <> non-hungry) @@ -829,7 +829,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/; } @@ -1407,7 +1407,7 @@ sub newMethod } unless( $theSourceNode == $cSourceNode ) { $theSourceNode = $cSourceNode; - $opsNode->AddPropList( "Sources", $theSourceNode ); # sources are scattered across Qt + $opsNode->AddPropList( "Sources", $theSourceNode ); # sources are scattered across TQt } $parent = $opsNode; } @@ -1492,7 +1492,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 |