summaryrefslogtreecommitdiffstats
path: root/kalyptus/kalyptusCxxToJava.pm
diff options
context:
space:
mode:
authorSlávek Banko <slavek.banko@axis.cz>2014-01-27 22:42:48 +0100
committerSlávek Banko <slavek.banko@axis.cz>2014-01-27 22:49:47 +0100
commita2f400d544a36226eff3a454a8d1e40bc11df09c (patch)
tree3ce28d13b34dc8454f49871e246170b7afed98fd /kalyptus/kalyptusCxxToJava.pm
parent55d10eedc1f7c565187b5a3219c8b99ed7d0a880 (diff)
downloadlibtqt-perl-a2f400d544a36226eff3a454a8d1e40bc11df09c.tar.gz
libtqt-perl-a2f400d544a36226eff3a454a8d1e40bc11df09c.zip
Update kalyptus according to tdebindings
Diffstat (limited to 'kalyptus/kalyptusCxxToJava.pm')
-rw-r--r--kalyptus/kalyptusCxxToJava.pm64
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";
}
}