[SCM] Debian Qt/KDE packaging tools branch, master, updated. debian/0.15.21-2-gbfdded6

[Dmitry Shachnev]

Gitweb-URL: http://git.debian.org/?p=pkg-kde/pkg-kde-tools.git;a=commitdiff;h=bfdded6

The following commit has been merged in the master branch:
commit bfdded63c2444fe434e4eb4ee19255c8bc266682
Author: Dmitry Shachnev <mitya57 at gmail.com>
Date:   Thu Jun 23 22:27:40 2016 +0300

    pkgkde-symbolshelper: Add type substitution for long double.
---
 debian/changelog                                      |  2 ++
 perllib/Debian/PkgKde/SymbolsHelper/Substs.pm         |  1 +
 .../Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm   | 19 +++++++++++++++++++
 3 files changed, 22 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 9daf11e..77a4e05 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,5 +1,7 @@
 pkg-kde-tools (0.15.22) UNRELEASED; urgency=medium
 
+  [ Dmitry Shachnev ]
+  * pkgkde-symbolshelper: Add type substitution for long double.
 
  -- Debian Qt/KDE Maintainers <debian-qt-kde at lists.debian.org>  Thu, 23 Jun 2016 22:26:54 +0300
 
diff --git a/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm b/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm
index 805a87a..5e4a36f 100644
--- a/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm
+++ b/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm
@@ -36,6 +36,7 @@ our @TYPE_SUBSTS = (
     "${NS}::TypeSubst::quintptr"->new(),
     "${NS}::TypeSubst::intptr_t"->new(),
     "${NS}::TypeSubst::qreal"->new(),
+    "${NS}::TypeSubst::long_double"->new(),
     "${NS}::TypeSubst::time_t"->new(),
 );
 
diff --git a/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm b/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm
index 1dca05c..1632189 100644
--- a/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm
+++ b/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm
@@ -297,6 +297,25 @@ sub _expand {
     return ($arch =~ /^(arm|armeb|armel|armhf|sh4)$/) ? 'f' : 'd';
 }
 
+package Debian::PkgKde::SymbolsHelper::Substs::TypeSubst::long_double;
+
+use strict;
+use warnings;
+use base 'Debian::PkgKde::SymbolsHelper::Substs::TypeSubst';
+
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new(@_);
+    $self->{substvar} = "{long_double}";
+    $self->{types} = [ qw(e g) ]; # native long double / __float128
+    return $self;
+}
+
+sub _expand {
+    my ($self, $arch) = @_;
+    return ($arch =~ /^(alpha|powerpc|powerpcspe|ppc64|ppc64el|s390x)$/) ? 'g' : 'e';
+}
+
 package Debian::PkgKde::SymbolsHelper::Substs::TypeSubst::time_t;
 
 use strict;

-- 
Debian Qt/KDE packaging tools