diff options
author | Slávek Banko <slavek.banko@axis.cz> | 2014-01-27 22:42:48 +0100 |
---|---|---|
committer | Slávek Banko <slavek.banko@axis.cz> | 2014-01-27 22:49:47 +0100 |
commit | a2f400d544a36226eff3a454a8d1e40bc11df09c (patch) | |
tree | 3ce28d13b34dc8454f49871e246170b7afed98fd /kalyptus/kalyptusCxxToJava.pm | |
parent | 55d10eedc1f7c565187b5a3219c8b99ed7d0a880 (diff) | |
download | libtqt-perl-a2f400d544a36226eff3a454a8d1e40bc11df09c.tar.gz libtqt-perl-a2f400d544a36226eff3a454a8d1e40bc11df09c.zip |
Update kalyptus according to tdebindings
Diffstat (limited to 'kalyptus/kalyptusCxxToJava.pm')
-rw-r--r-- | kalyptus/kalyptusCxxToJava.pm | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/kalyptus/kalyptusCxxToJava.pm b/kalyptus/kalyptusCxxToJava.pm index ddc245b..41e33ef 100644 --- a/kalyptus/kalyptusCxxToJava.pm +++ b/kalyptus/kalyptusCxxToJava.pm @@ -143,18 +143,18 @@ BEGIN 'TQEventLoop::ProcessEventsFlags' => 'uint', 'TQStyle::SCFlags' => 'int', 'TQStyle::SFlags' => 'int', - 'TQ_INT16' => 'short', - 'TQ_INT32' => 'int', - 'TQ_INT64' => 'long', - 'TQ_INT8' => 'char', - 'TQ_LONG' => 'long', - 'TQ_LLONG' => 'long', + 'TTQ_INT16' => 'short', + 'TTQ_INT32' => 'int', + 'TTQ_INT64' => 'long', + 'TTQ_INT8' => 'char', + 'TTQ_LONG' => 'long', + 'TTQ_LLONG' => 'long', 'TQ_ULLONG' => 'long', - 'TQ_UINT16' => 'ushort', - 'TQ_UINT32' => 'uint', - 'TQ_UINT64' => 'long', - 'TQ_UINT8' => 'uchar', - 'TQ_ULONG' => 'long', + 'TTQ_UINT16' => 'ushort', + 'TTQ_UINT32' => 'uint', + 'TTQ_UINT64' => 'long', + 'TTQ_UINT8' => 'uchar', + 'TTQ_ULONG' => 'long', 'pid_t' => 'int', 'size_t' => 'int', 'pid_t' => 'int', @@ -517,9 +517,9 @@ sub javaImport($) } elsif ( cplusplusToJava($classname_ptr) =~ /^[a-z]/ ) { return ""; } elsif ( $classname =~ /^Q/ ) { - return "org.kde.qt." . $classname; + return "org.trinitydesktop.qt." . $classname; } else { - return "org.kde.koala." . $classname; + return "org.trinitydesktop.koala." . $classname; } } @@ -557,18 +557,18 @@ sub cplusplusToJava || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QVariantValueList\s*\*/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QIconDragItemValueList\s*\*/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QPixmapValueList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_QCStringList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_QCStringList\s*\*/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QObjectList\s*\*/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QDomNodeList\s*\*/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QWidgetList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_KURLList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_TDEMainWindow\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_KFileItemList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_KFileViewItemList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_DOMNodeList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_StyleSheetList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_MediaList\s*\*/ - || kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_OfferList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_KURLList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_TDEMainWindow\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_KFileItemList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_KFileViewItemList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_DOMNodeList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_StyleSheetList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_MediaList\s*\*/ + || kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_OfferList\s*\*/ || $cplusplusType =~ /TQMemArray<TQRect>/ || kalyptusDataDict::ctypemap($cplusplusType) =~ /qt_QCanvasItemList\s*\*/ ) { return "ArrayList" @@ -594,7 +594,7 @@ sub cplusplusToJava } else { return $1; } - } elsif ( kalyptusDataDict::ctypemap($cplusplusType) =~ /kde_([^\*\s]*)(.*)$/ and !$skippedClasses{$className}) { + } elsif ( kalyptusDataDict::ctypemap($cplusplusType) =~ /tde_([^\*\s]*)(.*)$/ and !$skippedClasses{$className}) { if ( kalyptusDataDict::interfacemap($1) ne () ) { return $1."Interface"; } else { @@ -1101,8 +1101,8 @@ sub writeClassDoc # my $fileName = join( "__", kdocAstUtil::heritage($node) ); print "Enter: $className\n" if $debug; - my $typeprefix = ($className =~ /^Q/ ? "qt_" : "kde_"); - my $packagename = ($typeprefix eq 'qt_' ? "org.kde.qt" : "org.kde.koala"); + my $typeprefix = ($className =~ /^Q/ ? "qt_" : "tde_"); + my $packagename = ($typeprefix eq 'qt_' ? "org.trinitydesktop.qt" : "org.trinitydesktop.koala"); # Write out the *.java file my $classFile = "$outputdir/$fileName.java"; @@ -1114,7 +1114,7 @@ sub writeClassDoc print CLASS "package $packagename;\n\n"; print CLASS "import java.lang.reflect.Proxy;\n"; - print CLASS "import org.kde.qt.SmokeInvocation;\n"; + print CLASS "import org.trinitydesktop.qt.SmokeInvocation;\n"; my %javaMethods = (); my %addImport = (); @@ -1175,7 +1175,7 @@ sub writeClassDoc # Special case these two classes as they have methods that use ArrayList added as 'extras' print CLASS "import java.util.ArrayList;\n"; } - print CLASS "import org.kde.qt.Qt;\n"; + print CLASS "import org.trinitydesktop.qt.Qt;\n"; } if ( kalyptusDataDict::interfacemap($javaClassName) ne () ) { @@ -1221,7 +1221,7 @@ sub writeClassDoc $ancestor =~ s/^.*:://; $classdec .= "$ancestor "; if ( $typeprefix ne 'qt_' and $ancestor =~ /^Q/ ) { - print CLASS "import org.kde.qt.$ancestor;\n"; + print CLASS "import org.trinitydesktop.qt.$ancestor;\n"; } last; } @@ -2155,7 +2155,7 @@ sub generateAllMethods($$$$$$) # } } - $addImport->{"org.kde.qt.QtSupport"} = 1; + $addImport->{"org.trinitydesktop.qt.QtSupport"} = 1; # Do all enums first, anonymous ones and then named enums Iter::MembersByType ( $classNode, undef, @@ -2391,7 +2391,7 @@ sub registerType($$) { } # Apply typedefs, and store the resulting type. - # For instance, if $type was Q_UINT16&, realType will be ushort + # For instance, if $type was TQ_UINT16&, realType will be ushort $allTypes{$type}{realType} = applyTypeDef( $realType ); # In the first phase we only create entries into allTypes. @@ -3397,8 +3397,8 @@ sub printJavadocComment($$$$) $text =~ s/\./#/g; $text =~ s/\(\)//g; $text =~ s/^\s*([a-z].*)/#$1/g; - $text =~ s/^\s*Q/org.kde.qt.Q/g; -# $text =~ s/^\s*K/org.kde.koala.K/g; + $text =~ s/^\s*Q/org.trinitydesktop.qt.Q/g; +# $text =~ s/^\s*K/org.trinitydesktop.koala.K/g; $returntext .= "\t\t\@see $text\n"; } } |