From a017398045923dc46bc1074add8c173da30524a3 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 24 Jan 2000 13:11:59 +0000
Subject: *** empty log message ***

---
 tools/specific_arch | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 tools/specific_arch

(limited to 'tools/specific_arch')

diff --git a/tools/specific_arch b/tools/specific_arch
new file mode 100755
index 000000000..1718e8f09
--- /dev/null
+++ b/tools/specific_arch
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+%compat_arch = (
+		'noarch'  => '',
+		'i386'    => 'noarch',
+		'i486'    => 'i386',
+		'i586'    => 'i486',
+		'i686'    => 'i586',
+		'i786'    => 'i686',
+		'k6'      => 'i586',
+		'k7'      => 'k6',
+		'k8'      => 'k7',
+		'alpha'   => 'noarch',
+		'sparc'   => 'noarch',
+		'sparc32' => 'sparc',
+		'sparc64' => 'sparc32',
+	       );
+
+$arch = `uname -m` || 'unknownarch';
+$arch =~ s/\s//g;
+
+print join ' ', map {
+		      my $arch = $arch;
+		      $arch = $compat_arch{$arch} while $arch && !-e "$_.$arch";
+		      -e "$_.$arch" ? "$_.$arch" : $_;
+		    } @ARGV;
+print "\n";
-- 
cgit v1.2.1