diff options
| author | Slávek Banko <[email protected]> | 2014-01-27 22:42:48 +0100 |
|---|---|---|
| committer | Slávek Banko <[email protected]> | 2014-01-27 22:49:47 +0100 |
| commit | a2f400d544a36226eff3a454a8d1e40bc11df09c (patch) | |
| tree | 3ce28d13b34dc8454f49871e246170b7afed98fd /kalyptus/kalyptusCxxToSwig.pm | |
| parent | 55d10eedc1f7c565187b5a3219c8b99ed7d0a880 (diff) | |
| download | libtqt-perl-a2f400d544a36226eff3a454a8d1e40bc11df09c.tar.gz libtqt-perl-a2f400d544a36226eff3a454a8d1e40bc11df09c.zip | |
Update kalyptus according to tdebindings
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"; |