epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Provide 'pure-perl' implementation for OS X.

Browse Source
This commit is contained in:
W. Eric Norum
2006-04-07 16:03:56 +00:00
parent d20b063cb2
commit d077e5cbf5
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
startup/EpicsHostArch.pl
View File

@ -15,6 +15,7 @@ eval 'exec perl -S $0 ${1+"$@"}' # -*- Mode: perl -*-
# for assigning to the EPICS_HOST_ARCH variable
use Config;
use POSIX;
$suffix="";
$suffix="-".$ARGV[0] if ($ARGV[0] ne "");
@ -33,7 +34,7 @@ sub GetEpicsHostArch { # no args
} elsif ($arch =~ m/cygwin/) { return "cygwin-x86";
} elsif ($arch =~ m/PA-RISC1.1/) { return "hpux-parisc";
} elsif ($arch =~ m/darwin/) {
$cpu=`uname -m`;
my($kernel, $hostname, $release, $version, $cpu) = POSIX::uname();
if ($cpu =~ m/Power Macintosh/) { return "darwin-ppc"; }
elsif ($cpu =~ m/i386/) { return "darwin-x86"; }
else { return "unsupported"; }