summaryrefslogtreecommitdiffstats
path: root/kalyptus/kalyptus
diff options
context:
space:
mode:
Diffstat (limited to 'kalyptus/kalyptus')
-rw-r--r--kalyptus/kalyptus94
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
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-12 12:47:33 +0000