[Xrns-php-cvs] xrns-php/scripts rndpack.cfg, NONE, 1.1 rndpack.php, NONE, 1.1

[XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX]

Update of /cvsroot/xrns-php/xrns-php/scripts
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv5430/scripts

Added Files:
	rndpack.cfg rndpack.php 
Log Message:
Generate a random sample pack by scanning directories

--- NEW FILE: rndpack.php ---
<?php

// ----------------------------------------------------------------------------
// Functions
// ----------------------------------------------------------------------------

function rules($string = null) {

    if ($string) echo "
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    Error: $string
    -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
    ";

    echo'
    Random Sample Pack Generator
    Original code: bYtE-sMaShEr (aka Shaun Winters) 2008
    Rewritten in PHP, the most hated of all loafs, by XXXXXXXXX (aka XXXXXXXXXXXXX)

    Usage: rndpack [options] numSamples outputPath inputPath[...inputPath]

    Options:

    -R              Recursive
    -E [ext[,ext]]  Restrict extension
    -P              Preserve filenames
    -U [bytes]      Upper filesize limit
    -L [bytes]      Lower filesize limit

    Example:
    Generate 100 sample pack, recursively searching through input paths for mp3s and wavs:
    rndpack -r -e wav,mp3 100 ./samples/random "./samples/drum kits" ./samples/noises

    Warning: This is a homebrew music community tool designed to simplify the
    creative process. It is unforgiving, and may glitch out if used incorrectly.
    Use at your own risk!
    ' . "\n";

    exit;

}


function _reindex() {
    // Re-Index
    $GLOBALS['argc'] = count($GLOBALS['argv']);
    $i = 0;
    $tmp = array();
    foreach($GLOBALS['argv'] as $val) {
        $tmp[$i] = $val;
        ++$i;
    }
    $GLOBALS['argv'] = $tmp;
}


// Something is f*cked with array_search(), workaround function
function _getKey($needle) {
    $haystack = $GLOBALS['argv'];
    foreach($haystack as $key => $val) {
        if (mb_strtolower($val) == mb_strtolower($needle)) return $key;
    }
    return false;
}


/**
* @param int $num
* @param array $inpath
* @param bool $r Recusrive
* @param int $u Upper filesize limit
* @param int $l Lower filesize limit
* @param string $e Restrict extension
* @return array
*/
function getFileList($num, array $inpath, $r, $l, $u, $e) {

    if ($e) $e = mb_split(',', $e); // Restrict extension(s)

    $files = array();

    foreach ($inpath as $path) {

        if ($r) {
            $dir = new RecursiveDirectoryIterator($path);
            $d = new RecursiveIteratorIterator($dir);
        }
        else $d = new DirectoryIterator($path);

        foreach($d as $file) {
            if ($file->isFile()) {
                if ($e) {
                    $ext = mb_strtolower(end(explode('.', $file)));
                    if (!in_array($ext, $e)) continue; // No match, skip
                }
                $f = realpath($file->getPathname());
                if (filesize($f) >= $l && filesize($f) <= $u) $files[] = $f;
            }
        }

    }

    $count = count($files);
    if ($count > $num) {
        // We have more files than we want
        // randomly reduce this to $num
        for ($i = $count; $i > $num; --$i) {
            $tmp = rand(0, $i);
            if (isset($files[$tmp])) unset($files[$tmp]);
            else array_shift($files);
            shuffle($files); // Extra random
        }
    }

    return $files;

}

// ----------------------------------------------------------------------------
// Options
// ----------------------------------------------------------------------------

// Recursive
$r = false;
if ($key = _getKey('-r')) {
    $r = true;
    unset($argv[$key]);
    _reindex();
}

// Restrict extension(s)
$e = null;
if ($key = _getKey('-e')) {
    $e = @$argv[$key + 1];
    unset($argv[$key + 1], $argv[$key]);
    _reindex();
}

// Preserve filenames
$p = false;
if ($key = _getKey('-p')) {
    $p = true;
    unset($argv[$key]);
    _reindex();
}

// Upper filesize limit
$u = 1000000000;
if ($key = _getKey('-u')) {
    $u = @$argv[$key + 1];
    unset($argv[$key + 1], $argv[$key]);
    _reindex();
}

// Lower filesize limit
$l = 0;
if ($key = _getKey('-l')) {
    $l = @$argv[$key + 1];
    unset($argv[$key + 1], $argv[$key]);
    _reindex();
}

// ----------------------------------------------------------------------------
// Check User Input
// ----------------------------------------------------------------------------

// Check number of parameters
if ($argc < 4)  rules("$argv[0] expects at least 3 parameters.");

$outpath = $argv[2];
if (!is_dir($outpath )) rules("{$outpath} is not a directory.");
else $outpath = realpath($outpath);

$inpath = array_slice($argv, 3, $argc);
foreach ($inpath as $tmp) {
    if (!is_dir($tmp)) rules("{$tmp} is not a directory.");
}

$num = $argv[1];
if (!filter_var($num, FILTER_VALIDATE_INT) || $num < 1) rules("{$num} is not an integer.");

// Sanity check the options, too
if (!filter_var($u, FILTER_VALIDATE_INT) || $u < 1) rules("-u {$u} is invalid.");
if ($l < 0) rules("-l {$l} is invalid.");

// ----------------------------------------------------------------------------
// Procedure
// ----------------------------------------------------------------------------

$files = getFileList($num, $inpath, $r, $l, $u, $e);
echo count($files) . " files found, copying...\n";

foreach ($files as $file) {

    // Extract the filename
    if (isset($_ENV['OS']) && strripos($_ENV['OS'], "windows", 0) !== FALSE) $filename = end(explode("\\", $file));
    else $filename = end(explode('/', $file));

    if (!$p) {
        // Randomize the name of the file
        $ext = end(explode('.', $filename));
        $filename = uniqid() . '.' . $ext;
    }

    $copy = "{$outpath}/$filename";
    if (!is_file($copy)) copy($file, $copy); // Prevent overwritting

}

echo "Done!\n"

?>
--- NEW FILE: rndpack.cfg ---
[config]
caption=rndpack
author=Original code: bYtE-sMaShEr (aka Shaun Winters), Rewritten in PHP5 by XXXXXXXXX (aka XXXXXXXXXXXXX)
url=http://www.trotch.com/
description=Generate a random sample pack by scanning directories
gui=label('Options:'); text(-r -e ogg,wav,mp3 -p); label('Number of Samples:'); text(100); label('Output Path:'); folder; label('Input Path:'); folder;