<?php
// vim: set binary noeol et sw=4 sts=4 :
// Grupo 10
//
// Lucarella, Schein, Arena
//
// Creado: Leandro Lucarella (lun may  2 20:00:07 ART 2005)
//
// $Id$

if (!function_exists('fputcsv')) {
    // Función basada en http://www.php.net/manual/en/function.fgetcsv.php
    function fputcsv($fp, $fields, $delim = ',')
    {
        $line = '';
        $i = 1;
        foreach ($fields as $field) {
            // Cambia EOL por los de unix
            $field = str_replace("\r\n", "\n", $field);
            // Agrega 'quotes' de ser necesario
            $d = ($delim == '/') ? '|' : '/';
            if (preg_match("{$d}[{$delim}\"\n\r]{$d}", $field)) {
                $field = '"' . str_replace('"', '""', $field) . '"';
            }
            // Prepara la línea a graba
            $line .= $field . ((count($fields) > $i++) ? $delim : "\n");
        }
        // Devuelve lo mismo que fputs()
        return fputs($fp, $line);
    }
}

/**
 * Obtiene un archivo csv como array de arrays
 *
 * @return array de array (false si hubo error).
 */
function fgetallcsv($filename, $delim = ',')
{
    if (($f = fopen($filename, 'r')) === false) return false;
    $data = array();
    while (!feof($f)) $data[] = fgetcsv($f, 4096, $delim);
    fclose($f);
    return $data;
}

/**
 * Obtiene una fila de un archivo cvs buscando según una clave.
 * Se busca la fila cuyo campo $id coincida con $what.
 *
 * @return array fila buscada o false si hubo error o no está.
 */
function fsearchcsv($filename, $what, $id = 0, $delim = ',')
{
    if (($f = fopen($filename, 'r')) === false) return false;
    while (!feof($f))
    {
        $d = fgetcsv($f, 4096);
        if ($d[$id] == $what)
        {
            fclose($f);
            return $d;
        }
    }
    fclose($f);
    return false;
}

?>