Removed old core and extra from repo. Renamed -testing to core/extra. This will setup the base for the testing branch.

3 files changed, 0 insertions, 320 deletions

diff --git a/abs/core-testing/mplayer-wrapper/PKGBUILD b/abs/core-testing/mplayer-wrapper/PKGBUILD
deleted file mode 100644
index 2dbf67d..0000000
--- a/abs/core-testing/mplayer-wrapper/PKGBUILD
+++ /dev/null
@@ -1,21 +0,0 @@
-pkgname=mplayer-wrapper
-pkgver=1	
-pkgrel=10
-pkgdesc="wrapper for mplayer and mplayer derivatives"
-arch=('i686' 'x86_64')
-
-depends=('perl' 'vdpauinfo') 
-
-source=(mplayer-wrapper.pl)
-
-license=('GPL2')
-
-build() {
-   LH_ROOT=/usr/LH
-   mkdir -p $startdir/pkg/$LH_ROOT/bin/
-
-   cd $startdir
-   # executables
-   install -m0755 -D *.pl  $startdir/pkg/$LH_ROOT/bin/
-}
-md5sums=('c21a8b05d2134262c876396bde9da0a2')
diff --git a/abs/core-testing/mplayer-wrapper/mplayer-wrapper.install b/abs/core-testing/mplayer-wrapper/mplayer-wrapper.install
deleted file mode 100644
index 18f1b75..0000000
--- a/abs/core-testing/mplayer-wrapper/mplayer-wrapper.install
+++ /dev/null
@@ -1,38 +0,0 @@
-# This is a default template for a post-install scriptlet.  You can
-# remove any functions you don't need (and this header).
-
-# arg 1:  the new package version
-pre_install() {
-/bin/true
-}
-
-# arg 1:  the new package version
-post_install() {
-/bin/true
-}
-
-# arg 1:  the new package version
-# arg 2:  the old package version
-pre_upgrade() {
-  /bin/true
-}
-
-# arg 1:  the new package version
-# arg 2:  the old package version
-post_upgrade() {
-  /bin/true
-}
-
-# arg 1:  the old package version
-pre_remove() {
-  /bin/true
-}
-
-# arg 1:  the old package version
-post_remove() {
-  /bin/true
-}
-
-op=$1
-shift
-$op $*
diff --git a/abs/core-testing/mplayer-wrapper/mplayer-wrapper.pl b/abs/core-testing/mplayer-wrapper/mplayer-wrapper.pl
deleted file mode 100644
index 18f3caf..0000000
--- a/abs/core-testing/mplayer-wrapper/mplayer-wrapper.pl
+++ /dev/null
@@ -1,261 +0,0 @@
-#!/usr/bin/perl
-
-use Shell;
-use strict;
-use POSIX qw(floor);
-
-# Written by Bob Igo from the MythTV Store at http://MythiC.TV
-# including some original code and contributions from Nick C.
-# and graysky.
-# Email: bob@stormlogic.com
-#
-# If you run into problems with this script, please send me email
-
-# PURPOSE:
-# --------------------------
-# This is a wrapper script that tries to find the best parameters
-# for calling an underlying video player.  The outer layer determines
-# the best playback parameters, while the inner layer picks the best
-# player to call.
-
-# RATIONALE:
-# --------------------------
-# Default video playback options are not optimal on all hardware or
-# for all video types.  In addition, common video players do not
-# offer to bookmark video so that you can resume where you left off.
-# Both of these problems can be addressed by this wrapper.
-
-# PARAMETERS:
-# --------------------------
-# The same parameters you'd use for mplayer, some of which may be
-# translated automatically for use with smplayer.
-
-# FILES:
-# --------------------------
-# $mediafile, the file to play
-
-sub run () {
-    my $mediafile = @ARGV[$#ARGV];
-    my $player = &pick_player();
-
-    # mplayer evaluates configuration options in the following order, with
-    # later-evaluated options overriding earlier-evaluated ones, both within
-    # a given configuration location and between them:
-    # 1) system-wide configuration/profiles, /etc/mplayer/mplayer.conf
-    # 2) user-specific configuration/profiles, ~/.mplayer/config
-    # 3) commandline configuration parameters
-    # 4) file-specific configuration, ~/.mplayer/[filename].conf
-    # 5) any nonstandard configuration file, included via "-include" parameter
-    #
-    # This script's dynamic configuration options fall in at 2.5 above,
-    # so commandline options, file-specific configuration options,
-    # or a nonstandard configuration file will override the options that
-    # the script creates, but system-wide and user-specific configuration
-    # will be overridden by the dynamic configuration options.
-    #
-    # This is sub-optimal, as the easiest way for a user to compensate for
-    # a misfiring configuration rule would be to override it in a configuration
-    # file.  Instead, they will have to change the way they run this script.
-
-    my $player_parameters = join(' ',
-				 &dynamic_parameters($mediafile),
-				 &translate_parameters($player,@ARGV[0..$#ARGV-1]));
-    &player($player,$player_parameters,$mediafile);
-}
-
-&run();
-
-# Translates any parameters into ones that will be compatible with the given player.
-sub translate_parameters() {
-    my($player,@parameters)=@_;
-
-    if ($player eq "smplayer") {
-	# Stupidly, smplayer uses a different set of command-line parameters than generic
-	# mplayer, so we need to translate mplayer-centric ones into the few that are
-	# available in smplayer-ese.
-	my %smplayer_parameter_translation_array = (
-	    "-fs" => "-fullscreen",
-	    "-zoom" => " "
-	    );
-	
-	sub translate() {
-	    my($flag)=@_;
-	    return $smplayer_parameter_translation_array{$flag};
-	}
-	
-	return map(&translate($_), @parameters);
-    } else {
-	# currently, all other players used by this wrapper work with mplayer parameters
-	return @parameters;
-    }
-}
-
-# Returns an array of dynamic parameters based on the media type,
-# the presence of special playback decoding hardware, and the
-# general capability of the CPU.
-sub dynamic_parameters () {
-    my($mediafile)=@_;
-    my @parameters = ();
-    my $codec="";
-    my $xresolution=0;
-    my $yresolution=0;
-    my %vdpau_supported_modes=();
-    my $vf_parameters="";
-
-    # See if the GPU and driver support vdpau for GPU-based accelerated decoding
-    my $command="vdpauinfo |";
-    # On supported hardware, vdpinfo produces relevant results that look something like this (see
-    # http://www.phoronix.com/forums/showthread.php?t=14493 for additional details, or run
-    # vdpinfo on vdpau-capable hardware yourself):
-    #
-    #MPEG1             0  2  4096  4096
-    #MPEG2_SIMPLE      3  2  4096  4096
-    #MPEG2_MAIN        3  2  4096  4096
-    #H264_MAIN        41  4  4096  4096
-    #H264_HIGH        41  4  4096  4096
-    
-    my $grabbing_modes=0;
-    open(SHELL, $command);
-    while (<SHELL>) {
-	chop;
-	if (m/Decoder Capabilities/gi) {
-	    $grabbing_modes=1;
-	    #print "*** MODES START NOW"
-	} elsif (m/Output Surface/gi) {
-	    $grabbing_modes=0;
-	} elsif ($grabbing_modes) {
-	    if (m/[A-Z]+[0-9]+/g) {
-		s/(_.*)//g;
-		#print "*** GRABBED MODE $_\n";
-		$vdpau_supported_modes{$_} = 1;
-	    }
-	}
-    }
-    close(SHELL);
-    
-    # Learn some things about the video: codec and resolution
-    my $command="mplayer -identify -frames 0 \"$mediafile\" |";
-    open(SHELL, $command);
-    while (<SHELL>) {
-	chop;
-	if (m/ID_VIDEO_CODEC=(.*)/g) {
-	    $codec = $1;
-	    #print "DEBUG: codec is $codec\n";
-	} elsif (m/ID_VIDEO_WIDTH=(.*)/g) {
-	    $xresolution = $1;
-	    #print "DEBUG: x resolution is $xresolution\n";
-	} elsif (m/ID_VIDEO_HEIGHT=(.*)/g) {
-	    $yresolution = $1;
-	    #print "DEBUG: y resolution is $yresolution\n";
-	}
-    }
-    close(SHELL);
-
-    # see if it's a malformed 4:3 video with top and side bars, in need of cropping
-    my $crop_candidate="";
-    my $biggestX=0;
-    my $biggestY=0;
-    # The algorithm here is trial and error.  Skip 6 minutes into a video, and look at 40 frames of
-    # video.  Videos shorter than 6 minutes will not end up being examined for letterboxing badness.
-    # In a longer video, use the least-recommended pruning that mplayer suggests, among the frames polled.
-    my $command="mplayer -ss 360 -ao null -vo null -vf cropdetect -frames 40 \"$mediafile\" | grep CROP | tail -1 |";
-    open(SHELL, $command);
-    while (<SHELL>) {
-	if (m/-vf (crop=.*)\)/g) {
-	    $crop_candidate = $1;
-	    print "DEBUG: $crop_candidate\n";
-	    if ($crop_candidate =~ m/(\d+):(\d+)/) {
-		if (($1 > $biggestX) && ($2 > $biggestY)) {
-		    $biggestX = $1;
-		    $biggestY = $2;
-		    print "newX: $biggestX\n";
-		    print "newY: $biggestY\n";
-		}
-	    }
-	}
-	if (($biggestX != $xresolution) || ($biggestY != $yresolution)) {
-	    $vf_parameters = $crop_candidate;
-	}
-	print "DEBUG: crop parameter is $vf_parameters\n";
-    }
-    close(SHELL);
-
-    # If there are no crop parameters, use vdpau if it's supported.  Don't use vdpau if there's cropping
-    # because vdpau doesn't work with mplayer's cropping video filter.
-
-    # We should use vdpau if it's available and helps with the codec we need to decode.
-    if ($vf_parameters eq "") {
-	if ($codec eq "ffh264") { # h.264
-	    if ($vdpau_supported_modes{"H264"}) {
-		push(@parameters, "-vo vdpau");
-		push(@parameters, "-vc ffh264vdpau");
-	    }
-	} elsif ($codec eq "ffmpeg2") { # MPEG2
-	    if ($vdpau_supported_modes{"MPEG2"}) {
-		push(@parameters, "-vo vdpau");
-		push(@parameters, "-vc ffmpeg12vdpau");
-	    }
-	    
-	    # ??? although MPEG1 is rare, it seems as if it should work with -vc ffmpeg12vdpau as well
-	    
-	    # problems have been reported with WMV3 support
-	    
-#    } elsif ($codec eq "ffwmv3") { # WMV3
-#	if ($vdpau_supported) {
-#	push(@parameters, "-vo vdpau");
-#	push(@parameters, "-vc ffwmv3vdpau");
-#    }
-	    # problems have been reported with WVC1 support
-	    
-#    } elsif ($codec eq "ffvc1") { # WVC1
-#	if ($vdpau_supported) {
-#	push(@parameters, "-vo vdpau");
-#	push(@parameters, "-vc ffvc1vdpau");
-#    }
-	    
-	} else { # any codec that doesn't work with vdpau
-	    push(@parameters, "-vo xv,x11,");
-	    push(@parameters, "-vc ,");
-	    push(@parameters, "-vf pp=lb,$vf_parameters");
-	}
-    } else { # there is a crop parameter
-	push(@parameters, "-vo xv,x11,");
-	push(@parameters, "-vc ,");
-	push(@parameters, "-vf pp=lb,$vf_parameters");
-    }
-    return(@parameters);
-}
-
-# Find the best player for use on this system.  The script prefers smplayer,
-# which has built-in bookmarking, falling back to mplayer-resumer.pl, which
-# implements bookmarking as an mplayer wrapper, if smplayer cannot be found.
-# Finally, if no bookmarking players can be found, a barebones mplayer is used.
-sub pick_player () {
-    #my @possible_players = ("smplayer", "mplayer-resumer.pl", "mplayer");
-    my @possible_players = ("mplayer-resumer.pl", "mplayer");
-    my $command;
-    my $candidate_player;
-    foreach (@possible_players) {
-	$candidate_player = $_;
-	$command = "which $candidate_player |";
-	open(SHELL, $command);
-	if (<SHELL>) {
-	    #print "player $candidate_player : $_\n";
-	    return $candidate_player;
-	}
-	close(SHELL);
-    }
-}
-
-# Calls player
-sub player () {
-    my($player,$parameters,$mediafile)=@_;
-    my $command = "$player $parameters \"$mediafile\" 2>&1 |";
-
-    print "DEBUG: $0's player command is: *** $command ***\n";
-    open(SHELL, $command);
-    while (<SHELL>) {
-	print $_;
-    }
-    close(SHELL);
-}