diff options
Diffstat (limited to 'kalyptus/kalyptusCxxToSwig.pm')
| -rw-r--r-- | kalyptus/kalyptusCxxToSwig.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/kalyptus/kalyptusCxxToSwig.pm b/kalyptus/kalyptusCxxToSwig.pm index b4600be..5a568cb 100644 --- a/kalyptus/kalyptusCxxToSwig.pm +++ b/kalyptus/kalyptusCxxToSwig.pm @@ -82,14 +82,14 @@ BEGIN 'TQStyle::SFlags' => 'int', 'TQStyleOption&' => 'int&', 'const TQStyleOption&' => 'const int&', - 'Q_INT16' => 'short', - 'Q_INT32' => 'int', - 'Q_INT8' => 'char', - 'Q_LONG' => 'long', - 'Q_UINT16' => 'ushort', - 'Q_UINT32' => 'uint', - 'Q_UINT8' => 'uchar', - 'Q_ULONG' => 'long', + 'TQ_INT16' => 'short', + 'TQ_INT32' => 'int', + 'TQ_INT8' => 'char', + 'TQ_LONG' => 'long', + 'TQ_UINT16' => 'ushort', + 'TQ_UINT32' => 'uint', + 'TQ_UINT8' => 'uchar', + 'TQ_ULONG' => 'long', ); # Page footer @@ -776,15 +776,15 @@ sub writeClassDoc my $typeName = $node->{astNodeName}."*"; if ( kalyptusDataDict::ctypemap($typeName) eq "" ) { - $typeprefix = ($typeName =~ /^Q/ ? "qt_" : "kde_"); + $typeprefix = ($typeName =~ /^Q/ ? "qt_" : "tde_"); kalyptusDataDict::setctypemap($typeName, $typeprefix.$node->{astNodeName}."*"); print "'$typeName' => '$typeprefix$typeName',\n"; } elsif ( kalyptusDataDict::ctypemap($typeName) =~ /^qt_/ ) { $typeprefix = "qt_"; - } elsif ( kalyptusDataDict::ctypemap($typeName) =~ /^kde_/ ) { - $typeprefix = "kde_"; + } elsif ( kalyptusDataDict::ctypemap($typeName) =~ /^tde_/ ) { + $typeprefix = "tde_"; } else { - $typeprefix = "kde_"; + $typeprefix = "tde_"; } my $basefile = "$typeprefix".join("__", kdocAstUtil::heritage($node)).".i"; |