diff options
author | wm4 <wm4@mplayer2.org> | 2012-07-28 18:00:33 +0200 |
---|---|---|
committer | wm4 <wm4@mplayer2.org> | 2012-07-28 20:44:58 +0200 |
commit | 6dc124962527556512b6b18fbf23f9b6af9f331c (patch) | |
tree | 9677196e5bbbaf3a8ee7e11bb78eb88c765a0e90 /TOOLS/countquant.pl | |
parent | 7d4576cf79bc578ce7c103e4df70695346c7eec7 (diff) | |
download | mpv-6dc124962527556512b6b18fbf23f9b6af9f331c.tar.bz2 mpv-6dc124962527556512b6b18fbf23f9b6af9f331c.tar.xz |
TOOLS: remove useless crap
Most of the scripts in TOOLS seem entirely useless. Remove them.
There were about 3 types of scripts:
- apparent developer tools (like file format dumpers, benchmarks)
=> I doubt any mplayer developer still alive even uses these
- helpers for encoding or ripping stuff
=> mencoder is gone, at least from this version of mplayer
- helpers meant for users (launching mplayer in weird ways, etc.)
=> just no, it will cause you more pain than gain
So no, there is nothing useful.
Under the scripts not deleted, these are needed for building mplayer:
file2string.py
matroska.py
vdpau_functions.py
These might have _some_ use (but still questionable):
binary_codecs.sh
checktree.sh
Diffstat (limited to 'TOOLS/countquant.pl')
-rwxr-xr-x | TOOLS/countquant.pl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/TOOLS/countquant.pl b/TOOLS/countquant.pl deleted file mode 100755 index 4256fa0bc7..0000000000 --- a/TOOLS/countquant.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/perl -w - -sub display_quants { - $frames = 0; - foreach $key (sort(keys(%quants))) { - $frames += $quants{$key}; - } - foreach $key (sort({ $a <=> $b } keys(%quants))) { - printf("q=%d:\t% 6d, % 6.2f%%\n", $key, $quants{$key}, $quants{$key} * - 100 / $frames); - } - print("$lines lines processed, $frames frames found\n"); - printf("average quant. is: %f\n", $quant_total/$frames); -} - -$lines = 0; -$thislines = 0; -$quant_total = 0; - -while (<STDIN>) { - $lines++; - $thislines++; - if (/ q:([0-9]+) /) { - $quants{$1}++; - } elsif (/ q:(([0-9]+)\.[0-9]+) /) { - $quants{$2}++; - $quant_total += $1; - } - if ((scalar(@ARGV) > 0) && ($thislines > $ARGV[0])) { - display_quants(); - $thislines = 0; - } -} - -display_quants(); |