mirror of https://github.com/mpv-player/mpv
perl check for macosx
git-svn-id: svn://svn.mplayerhq.hu/mplayer/trunk@16445 b3059339-0415-0410-9bf9-f77b7e298cf2
This commit is contained in:
parent
b5fc357962
commit
71df60afc8
|
@ -45,12 +45,23 @@ cc_check() {
|
||||||
return "$TMP"
|
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
|
# Display error message, flushes tempfile, exit
|
||||||
die () {
|
die () {
|
||||||
echo
|
echo
|
||||||
echo "Error: $@" >&2
|
echo "Error: $@" >&2
|
||||||
echo >&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."
|
echo "Check \"$TMPLOG\" if you do not understand why it failed."
|
||||||
exit 1
|
exit 1
|
||||||
}
|
}
|
||||||
|
@ -547,6 +558,7 @@ TMPC="$I/mplayer-conf-$RANDOM-$$.c"
|
||||||
TMPCPP="$I/mplayer-conf-$RANDOM-$$.cpp"
|
TMPCPP="$I/mplayer-conf-$RANDOM-$$.cpp"
|
||||||
TMPO="$I/mplayer-conf-$RANDOM-$$.o"
|
TMPO="$I/mplayer-conf-$RANDOM-$$.o"
|
||||||
TMPS="$I/mplayer-conf-$RANDOM-$$.S"
|
TMPS="$I/mplayer-conf-$RANDOM-$$.S"
|
||||||
|
TMPP="$I/mplayer-conf-$RANDOM-$$.perl"
|
||||||
|
|
||||||
# config files
|
# config files
|
||||||
|
|
||||||
|
@ -3263,7 +3275,35 @@ echores "$_sys_sysinfo"
|
||||||
|
|
||||||
echocheck "Mac OS X APIs"
|
echocheck "Mac OS X APIs"
|
||||||
if test "$_macosx" = auto ; then
|
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
|
_macosx=yes
|
||||||
else
|
else
|
||||||
_macosx=no
|
_macosx=no
|
||||||
|
@ -7958,4 +7998,4 @@ EOF
|
||||||
fi
|
fi
|
||||||
|
|
||||||
# Last move:
|
# Last move:
|
||||||
rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP"
|
rm -f "$TMPO" "$TMPC" "$TMPS" "$TMPCPP" "$TMPP"
|
||||||
|
|
Loading…
Reference in New Issue