view TOOLS/mp.pl @ 13568:1cb0e1833515

Currently vbeGetProtModeInfo call the 0x4f0a function of int 10h the get a simple 32 bits protected mode interface to some VESA functions. This protected mode interface is interesting because it's quicker than the raw int 10h interface. Unfortunatly, begining with VBE 3.0, the 0x4f0a function is optional, and some video cards don't implement it (3dfx, intel 845/855/865...). This protected mode interface is then only used in vbeSetWindow and vbeSetDisplayStart : ?- vbeSetWindow already implement an alternative methode if protected mode interface is not available. ?- vbeSetDisplayStart also contain an alternative implementation, but this one is disabled with a #if 0. I don't exactly know why because it works well ! So currently, cards which don't have the 0x4f0a function are not supported. This patch correct this. ?- vbeGetProtModeInfo failure is not fatal. ?- vbeSetDisplayStart has it's alternative implementation reenabled. ? ?it's used only with cards which don't have the 0x4f0a function ? ?so this won't make any difference for cards which were already ? ?working. This patch also make the failure of vbeGetModeInfo not fatal. The VBE 3.0 standard state that GetModeInfo can fail with some mode which are listed as supported if the mode can't be used in the current situation (not enough video memory for example). So a failure of vbeGetModeInfo don't mean that other modes won't work and should really not be fatal. patch by Aurelien Jacobs <[e-mail]>

#!/usr/bin/perl -w
use strict;
# Filename: mp.pl
# Date    : created 2001-07-24
# Author  : Felix Buenemann <atmosfear at users.sourceforge.net>
# Idea by : David Chan <prometheus at theendofthetunnel.org>
# License : GNU General Public License (GPL)
#           (refer to: http://www.fsf.org/licenses/gpl.txt)
#
# Description:
# Small Perl helper script that allows to play multiple files with MPlayer.
# Wildcards are supported (eg. "mp.pl -vo x11 /data/*.avi").
#
# Configuration:
# If MPlayer is not in your path, give the full
# path to mplayer binary in the line below.
# (example: "/usr/local/bin/mplayer")
use constant MPLAYER => "mplayer";

my (@parms, @files);

die
"mp.pl: No parameters given!

MPlayer multifile playback helper script 0.9
Copyleft 2001 by Felix Buenemann

Syntax: mp.pl <parameters> <files>

Where <parameters> are all possible commandline switches for mplayer and
<files> can be either a list of files, like file1 file2 file3 and/or a
wildcard definition, like *.avi.

Example: mp.pl -vo x11 /dvd/VIDEO_TS/VTS_05_*.VOB movie.asf
\n"
if ($#ARGV < 0) || ($ARGV[0] =~ m/^--*(h|help)/);

foreach (@ARGV) {
	if(m/^-\w+/) { push @parms, $_ }
	elsif(-f $_ && -r _ && -B _) { push @files, $_ }
	else { push @parms, $_ }
}
die "No valid files to process!\n" unless @files;
foreach (@files) {
	print "Invoking MPlayer for '$_'...\n";
	system(MPLAYER, @parms, $_)
		or die "Couldn't execute MPlayer: $!\n";
	($? >> 8) != 1
		and die "Couldn't properly execute MPlayer, aborting!\n";
}
# EOF