Subversion Repositories Applications.framework

<?php

// declare(encoding='UTF-8');

/**

 * Classe fournissant des méthodes statiques de manipulation des tableaux (Array).

 *

 * @category	PHP 5.2

 * @package	Utilitaire

 * @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>

 * @copyright	Copyright (c) 2009, Tela Botanica (accueil@tela-botanica.org)

 * @license	http://www.gnu.org/licenses/gpl.html Licence GNU-GPL-v3

 * @license	http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL-v2

 * @version	$Id: Tableau.php 394 2011-11-14 13:48:24Z jpm $

 * @link		/doc/framework/

 */

// TODO : réaliser une seule méthode pour trierMD et trierMDType

class Tableau {

	const TRIE_NATUREL = 'nat';

	const TRIE_CASSE_SENSIBLE = 'ci';

	const TRIE_CASSE_INSENSIBLE = 'ci';

	private static $triMultiDimension = null;

	private static $triType = null;

	/**

	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux

	 * une erreur est déclenchée et la valeur du tableau à étendre est gardée. Si les deux tableaux ont des clés numériques

	 * leurs valeurs sont gardées (à la différence de array_merge).

	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation

	 * de mémoire.

	 *

	 * @param array $tableau_a_etendre

	 * @param array $tableau_a_copier

	 * @return void

	 */

	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {

		$cles_existantes = null;

		foreach($tableau_a_copier as $cle => $val) {

			if (!isset($tableau_a_etendre[$cle])) {

				$tableau_a_etendre[$cle] = $val;

				unset($tableau_a_copier[$cle]);

			} else {

				$cles_existantes = $cle;

			}

		}

		if (is_array($cles_existantes)) {

			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);

			trigger_error($e, E_USER_WARNING);

		}

	}

	/**

	 * @deprecated Utiliser la méthode trierMD()

	 * @see  trierMD()

	 */

	public static function trierTableauMd($array, $cols) {

		return self::trierMD($array, $cols);

	}

	/**

	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.

	 *

	 * @param Array $array le tableau à trier

	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC

	 * @return Array le tableau trié.

	 * @author cagret at gmail dot com

	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38

	 */

	public static function trierMD($array, $cols) {

		$colarr = array();

		foreach ($cols as $col => $order) {

			$colarr[$col] = array();

			foreach ($array as $k => $row) {

				$colarr[$col]['_'.$k] = strtolower($row[$col]);

			}

		}

		$params = array();

		foreach ($cols as $col => $order) {

			$params[] =& $colarr[$col];

			$params = array_merge($params, (array) $order);

		}

		call_user_func_array('array_multisort', $params);

		$ret = array();

		$keys = array();

		$first = true;

		foreach ($colarr as $col => $arr) {

			foreach ($arr as $k => $v) {

				if ($first) {

					$keys[$k] = substr($k, 1);

				}

				$k = $keys[$k];

				if (!isset($ret[$k])) {

					$ret[$k] = $array[$k];

				}

				$ret[$k][$col] = $array[$k][$col];

			}

			$first = false;

		}

		return $ret;

	}

	/**

	* Méthode réalisant un tri d'un tableau multidimension.

	* A utiliser de cette façon:

	* EfloreTriage::trieMultiple( $tableau_multidimension, array('ma_cle1', 'ma_cle1_ordre_tri', 'ma_cle2', 'ma_cle2_ordre_tri'), $type_de_tri);

	* Utiliser les constantes php SORT_DESC ou SORT_ASC pour l'odre de tri.

	* Pour le type de tri : utiliser Tableau::TRIE_NATUREL pour un trie naturel, Tableau::TRIE_CASSE_SENSIBLE pour tri sensible à la casse ou Tableau::TRIE_CASSE_INSENSIBLE pour insensible.

	* @param array le tableau à trier

	* @param array le talbeau des colonnes à trier constituer d'un suite de nom de clé de tableau et d'ordre de tri.

	* @return array le tableau trié.

	*/

	public static function trierMDType(&$tableau, $cols, $type = self::TRIE_CASSE_INSENSIBLE) {

		self::$triMultiDimension = $cols;

		self::$triType = $type;

		usort($tableau, array('self', 'comparer'));

		return $tableau;

	}

	private static function comparer($a, $b) {

		$cols = self::$triMultiDimension;

		$i = 0;

		$resultat = 0;

		$colonne_nbre = count($cols);

		while ($resultat == 0 && $i < $colonne_nbre) {

			$mot_01 = Chaine::supprimerAccents($b[$cols[$i]]);

			$mot_02 = Chaine::supprimerAccents($a[$cols[$i]]);

			switch (self::$triType) {

				case self::TRIE_NATUREL :

					$resultat = ($cols[$i + 1] == SORT_DESC) ? strnatcmp($mot_01, $mot_02) : strnatcmp($mot_02, $mot_01);

					break;

				case self::TRIE_CASSE_SENSIBLE :

					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcmp($mot_01, $mot_02) : strcmp($mot_02, $mot_01);

					break;

				case self::TRIE_CASSE_INSENSIBLE :

					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);

					break;

				default:

					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);

					break;

			}

			$i += 2;

		}

		return $resultat;

	}

}

?>