44 lines
1.7 KiB
Perl
Executable File
44 lines
1.7 KiB
Perl
Executable File
eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
|
|
if $running_under_some_shell; # EpicsHostArch.pl
|
|
#*************************************************************************
|
|
# Copyright (c) 2011 UChicago Argonne LLC, as Operator of Argonne
|
|
# National Laboratory.
|
|
# Copyright (c) 2002 The Regents of the University of California, as
|
|
# Operator of Los Alamos National Laboratory.
|
|
# EPICS BASE is distributed subject to a Software License Agreement found
|
|
# in file LICENSE that is included with this distribution.
|
|
#*************************************************************************
|
|
|
|
# $Revision-Id$
|
|
# Returns the Epics host architecture suitable
|
|
# for assigning to the EPICS_HOST_ARCH variable
|
|
|
|
use Config;
|
|
use POSIX;
|
|
|
|
$suffix="";
|
|
$suffix="-".$ARGV[0] if ($ARGV[0] ne "");
|
|
|
|
$EpicsHostArch = GetEpicsHostArch();
|
|
print "$EpicsHostArch$suffix";
|
|
|
|
sub GetEpicsHostArch { # no args
|
|
$arch=$Config{'archname'};
|
|
if ($arch =~ /sun4-solaris/) { return "solaris-sparc";
|
|
} elsif ($arch =~ m/i86pc-solaris/) { return "solaris-x86";
|
|
} elsif ($arch =~ m/i[3-6]86-linux/) { return "linux-x86";
|
|
} elsif ($arch =~ m/x86_64-linux/) { return "linux-x86_64";
|
|
} elsif ($arch =~ m/MSWin32-x86/) { return "win32-x86";
|
|
} elsif ($arch =~ m/cygwin/) { return "cygwin-x86";
|
|
} elsif ($arch =~ m/darwin/) {
|
|
my($kernel, $hostname, $release, $version, $cpu) = POSIX::uname();
|
|
if ($cpu =~ m/Power Macintosh/) { return "darwin-ppc"; }
|
|
elsif ($cpu =~ m/i386/) { return "darwin-x86"; }
|
|
elsif ($cpu =~ m/x86_64/) { return "darwin-x86"; }
|
|
else { return "unsupported"; }
|
|
} else { return "unsupported"; }
|
|
}
|
|
|
|
#EOF EpicsHostArch.pl
|
|
|