From 31d21f9ae093cd7f760464e523ca87f2bd24c6fa Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Sun, 17 Jun 2007 16:23:03 +0000
Subject: - push into platform all compat arch

---
 genplatform.in | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 genplatform.in

(limited to 'genplatform.in')

diff --git a/genplatform.in b/genplatform.in
new file mode 100644
index 0000000..0a22495
--- /dev/null
+++ b/genplatform.in
@@ -0,0 +1,20 @@
+#!/usr/sbin/perl
+
+# $Id$
+use strict;
+use warnings;
+
+my @ALLARCH=qw{
+    @RPMALLARCH@
+};
+
+my $suffix = '-@RPMCANONVENDOR@-@RPMOS@-gnu';
+my $canonarch = $ARGV[0] || `uname -m`;
+chomp($canonarch);
+
+my $found = 0;
+foreach my $arch (reverse @ALLARCH) {
+    $arch eq $canonarch and $found = 1;
+    $found or next;
+    printf "$arch$suffix\n";
+}
-- 
cgit v1.2.1