perl check for macosx

git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@16445 b3059339-0415-0410-9bf9-f77b7e298cf2
This commit is contained in:
nplourde 2005-09-10 18:44:17 +00:00
parent b5fc357962
commit 71df60afc8
1 changed files with 43 additions and 3 deletions

46
configure vendored
View File

@ -45,12 +45,23 @@ cc_check() {
return "$TMP"
}
perl_check() {
echo >> "$TMPLOG"
cat "$TMPP" >> "$TMPLOG"
echo >> "$TMPLOG"
echo "perl $TMPP" >> "$TMPLOG"
perl "$TMPP" >> "$TMPLOG" 2>&1
TMP="$?"
echo >> "$TMPLOG"
return "$TMP"
}
# Display error message, flushes tempfile, exit
die () {
echo
echo "Error: $@" >&2
echo >&2
rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP"
rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP" "TMPP"
echo "Check \"$TMPLOG\" if you do not understand why it failed."
exit 1
}
@ -547,6 +558,7 @@ TMPC="$I/mplayer-conf-$RANDOM-$$.c"
TMPCPP="$I/mplayer-conf-$RANDOM-$$.cpp"
TMPO="$I/mplayer-conf-$RANDOM-$$.o"
TMPS="$I/mplayer-conf-$RANDOM-$$.S"
TMPP="$I/mplayer-conf-$RANDOM-$$.perl"
# config files
@ -3263,7 +3275,35 @@ echores "$_sys_sysinfo"
echocheck "Mac OS X APIs"
if test "$_macosx" = auto ; then
if darwin && ppc; then
cat > $TMPP <<EOF
\$/ = \0;
open( PLIST, "/System/Library/CoreServices/SystemVersion.plist") || do {
print "Failed to open SystemVersion.plist\n";
exit (1);
};
\$plistData = <PLIST>;
\$plistData =~ /<dict>(.*?)<\/dict>/gis;
@items = split(/<key>/, \$plistData);
shift @items;
foreach \$item (@items) {
\$item =~ /(.*?)<\/key>.*?<string>(.*?)<\/string>/gis;
\$versiondata{ \$1 } = \$2;
}
close(PLIST);
if( \$versiondata{"ProductName"} eq "Mac OS X") {
exit(0);
}
exit(1);
EOF
if perl_check; then
_macosx=yes
else
_macosx=no
@ -7958,4 +7998,4 @@ EOF
fi
# Last move:
rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP"
rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP" "$TMPP"