Subversion Repositories Applications.framework

Rev

Rev 394 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 394 Rev 397
1 
<?php
 1 
<?php
2 
// declare(encoding='UTF-8');
 2 
// declare(encoding='UTF-8');
3 
/**
 3 
/**
4 
 * Classe fournissant des méthodes statiques de manipulation des tableaux (Array).
 4 
 * Classe fournissant des méthodes statiques de manipulation des tableaux (Array).
5 
 *
 5 
 *
6 
 * @category	PHP 5.2
 6 
 * @category	PHP 5.2
7 
 * @package	Utilitaire
 7 
 * @package	Utilitaire
8 
 * @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>
 8 
 * @author		Jean-Pascal MILCENT <jpm@tela-botanica.org>
9 
 * @copyright	Copyright (c) 2009, Tela Botanica (accueil@tela-botanica.org)
 9 
 * @copyright	Copyright (c) 2009, Tela Botanica (accueil@tela-botanica.org)
10 
 * @license	http://www.gnu.org/licenses/gpl.html Licence GNU-GPL-v3
 10 
 * @license	http://www.gnu.org/licenses/gpl.html Licence GNU-GPL-v3
11 
 * @license	http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL-v2
 11 
 * @license	http://www.cecill.info/licences/Licence_CeCILL_V2-fr.txt Licence CECILL-v2
12 
 * @version	$Id: Tableau.php 394 2011-11-14 13:48:24Z jpm $
 12 
 * @version	$Id: Tableau.php 397 2011-11-15 09:58:39Z jpm $
13 
 * @link		/doc/framework/
 13 
 * @link		/doc/framework/
14 
 */
 14 
 */
15 
// TODO : réaliser une seule méthode pour trierMD et trierMDType
 15 
// TODO : réaliser une seule méthode pour trierMD et trierMDType
16 
class Tableau {
 16 
class Tableau {
17 
	const TRIE_NATUREL = 'nat';
 17 
	const TRI_NATUREL = 'nat';
18 
	const TRIE_CASSE_SENSIBLE = 'ci';
 18 
	const TRI_CASSE_SENSIBLE = 'ci';
19 
	const TRIE_CASSE_INSENSIBLE = 'ci';
 19 
	const TRI_CASSE_INSENSIBLE = 'ci';
20 
 
 20 
 
21 
	private static $triMultiDimension = null;
 21 
	private static $triMultiDimension = null;
22 
	private static $triType = null;
 22 
	private static $triType = null;
23 
 
 23 
 
24 
	/**
 24 
	/**
25 
	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux
 25 
	 * Etend le tableau à étendre avec les données du tableau à copier. Si des clés sont identiques entre les deux tableaux
26 
	 * 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
 26 
	 * 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
27 
	 * leurs valeurs sont gardées (à la différence de array_merge).
 27 
	 * leurs valeurs sont gardées (à la différence de array_merge).
28 
	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation
 28 
	 * Les tableaux sont passés par références et le tableau à copier est progressivement détruit pour éviter la consomation
29 
	 * de mémoire.
 29 
	 * de mémoire.
30 
	 *
 30 
	 *
31 
	 * @param array $tableau_a_etendre
 31 
	 * @param array $tableau_a_etendre
32 
	 * @param array $tableau_a_copier
 32 
	 * @param array $tableau_a_copier
33 
	 * @return void
 33 
	 * @return void
34 
	 */
 34 
	 */
35 
	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {
 35 
	public static function etendre(Array &$tableau_a_etendre, Array &$tableau_a_copier) {
36 
		$cles_existantes = null;
 36 
		$cles_existantes = null;
37 
		foreach($tableau_a_copier as $cle => $val) {
 37 
		foreach($tableau_a_copier as $cle => $val) {
38 
			if (!isset($tableau_a_etendre[$cle])) {
 38 
			if (!isset($tableau_a_etendre[$cle])) {
39 
				$tableau_a_etendre[$cle] = $val;
 39 
				$tableau_a_etendre[$cle] = $val;
40 
				unset($tableau_a_copier[$cle]);
 40 
				unset($tableau_a_copier[$cle]);
41 
			} else {
 41 
			} else {
42 
				$cles_existantes = $cle;
 42 
				$cles_existantes = $cle;
43 
			}
 43 
			}
44 
		}
 44 
		}
45 
		if (is_array($cles_existantes)) {
 45 
		if (is_array($cles_existantes)) {
46 
			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);
 46 
			$e = "Le tableau a étendre contenait déjà les clés suivantes : ".implode(', ', $cles_existantes);
47 
			trigger_error($e, E_USER_WARNING);
 47 
			trigger_error($e, E_USER_WARNING);
48 
		}
 48 
		}
49 
	}
 49 
	}
50 
 
 50 
 
51 
	/**
 51 
	/**
52 
	 * @deprecated Utiliser la méthode trierMD()
 52 
	 * @deprecated Utiliser la méthode trierMD()
53 
	 * @see  trierMD()
 53 
	 * @see  trierMD()
54 
	 */
 54 
	 */
55 
	public static function trierTableauMd($array, $cols) {
 55 
	public static function trierTableauMd($array, $cols) {
56 
		return self::trierMD($array, $cols);
 56 
		return self::trierMD($array, $cols);
57 
	}
 57 
	}
58 
 
 58 
 
59 
	/**
 59 
	/**
60 
	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.
 60 
	 * Permet de trier un tableau multi-dimenssionnel en gardant l'ordre des clés.
61 
	 *
 61 
	 *
62 
	 * @param Array $array le tableau à trier
 62 
	 * @param Array $array le tableau à trier
63 
	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC
 63 
	 * @param Array $cols tableau indiquant en clé la colonne à trier et en valeur l'ordre avec SORT_ASC ou SORT_DESC
64 
	 * @return Array le tableau trié.
 64 
	 * @return Array le tableau trié.
65 
	 * @author cagret at gmail dot com
 65 
	 * @author cagret at gmail dot com
66 
	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38
 66 
	 * @see  http://fr.php.net/manual/fr/function.array-multisort.php Post du 21-Jun-2009 12:38
67 
	 */
 67 
	 */
68 
	public static function trierMD($array, $cols) {
 68 
	public static function trierMD($array, $cols) {
69 
		$colarr = array();
 69 
		$colarr = array();
70 
		foreach ($cols as $col => $order) {
 70 
		foreach ($cols as $col => $order) {
71 
			$colarr[$col] = array();
 71 
			$colarr[$col] = array();
72 
			foreach ($array as $k => $row) {
 72 
			foreach ($array as $k => $row) {
73 
				$colarr[$col]['_'.$k] = strtolower($row[$col]);
 73 
				$colarr[$col]['_'.$k] = strtolower($row[$col]);
74 
			}
 74 
			}
75 
		}
 75 
		}
76 
		$params = array();
 76 
		$params = array();
77 
		foreach ($cols as $col => $order) {
 77 
		foreach ($cols as $col => $order) {
78 
			$params[] =& $colarr[$col];
 78 
			$params[] =& $colarr[$col];
79 
			$params = array_merge($params, (array) $order);
 79 
			$orders = (array) $order;
- 
 
 80 
			foreach($orders as $orderElement) {
- 
 
 81 
				$params[] =& $orderElement;
- 
 
 82 
			}
80 
		}
 83 
		}
81 
		call_user_func_array('array_multisort', $params);
 84 
		call_user_func_array('array_multisort', $params);
82 
		$ret = array();
 85 
		$ret = array();
83 
		$keys = array();
 86 
		$keys = array();
84 
		$first = true;
 87 
		$first = true;
85 
		foreach ($colarr as $col => $arr) {
 88 
		foreach ($colarr as $col => $arr) {
86 
			foreach ($arr as $k => $v) {
 89 
			foreach ($arr as $k => $v) {
87 
				if ($first) {
 90 
				if ($first) {
88 
					$keys[$k] = substr($k, 1);
 91 
					$keys[$k] = substr($k, 1);
89 
				}
 92 
				}
90 
				$k = $keys[$k];
 93 
				$k = $keys[$k];
91 
				if (!isset($ret[$k])) {
 94 
				if (!isset($ret[$k])) {
92 
					$ret[$k] = $array[$k];
 95 
					$ret[$k] = $array[$k];
93 
				}
 96 
				}
94 
				$ret[$k][$col] = $array[$k][$col];
 97 
				$ret[$k][$col] = $array[$k][$col];
95 
			}
 98 
			}
96 
			$first = false;
 99 
			$first = false;
97 
		}
 100 
		}
98 
		return $ret;
 101 
		return $ret;
99 
	}
 102 
	}
100 
 
 103 
 
101 
	/**
 104 
	/**
102 
	* Méthode réalisant un tri d'un tableau multidimension.
 105 
	* Méthode réalisant un tri d'un tableau multidimension. Attention les clés du tableau ne sont pas modifiées.
103 
	* A utiliser de cette façon:
 106 
	* A utiliser de cette façon:
104 
	* EfloreTriage::trieMultiple( $tableau_multidimension, array('ma_cle1', 'ma_cle1_ordre_tri', 'ma_cle2', 'ma_cle2_ordre_tri'), $type_de_tri);
 107 
	* EfloreTriage::trieMultiple( $tableau_multidimension, array('ma_cle1' => SORT_ASC, 'ma_cle2' => SORT_DESC), $type_de_tri);
105 
	* Utiliser les constantes php SORT_DESC ou SORT_ASC pour l'odre de tri.
 108 
	* Utiliser les constantes php SORT_DESC ou SORT_ASC pour l'odre de tri.
- 
 
 109 
	* Pour le type de tri : utiliser :
- 
 
 110 
	*  - Tableau::TRI_NATUREL pour un trie naturel,
106 
	* 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.
 111 
	*  - Tableau::TRI_CASSE_SENSIBLE pour un tri sensible à la casse,
- 
 
 112 
	*  - Tableau::TRI_CASSE_INSENSIBLE pour un tri insensible à la casse.
107 
	* @param array le tableau à trier
 113 
	* @param array le tableau à trier
108 
	* @param array le talbeau des colonnes à trier constituer d'un suite de nom de clé de tableau et d'ordre de tri.
 114 
	* @param array le talbeau des colonnes à trier constituer de nom de clé en clé et d'ordres de tri en valeur.
- 
 
 115 
	* @param string le type de tri à appliquer.
109 
	* @return array le tableau trié.
 116 
	* @return array le tableau trié.
110 
	*/
 117 
	*/
111 
	public static function trierMDType(&$tableau, $cols, $type = self::TRIE_CASSE_INSENSIBLE) {
 118 
	public static function trierMDType(&$tableau, $cols, $type = self::TRI_CASSE_INSENSIBLE) {
112 
		self::$triMultiDimension = $cols;
 119 
		self::$triMultiDimension = $cols;
113 
		self::$triType = $type;
 120 
		self::$triType = $type;
114 
		usort($tableau, array('self', 'comparer'));
 121 
		uasort($tableau, array('self', 'comparer'));
115 
		return $tableau;
 122 
		return $tableau;
116 
	}
 123 
	}
117 
 
 124 
 
118 
	private static function comparer($a, $b) {
 125 
	private static function comparer($a, $b) {
119 
		$cols = self::$triMultiDimension;
 - 
 
120 
		$i = 0;
 - 
 
121 
		$resultat = 0;
 126 
		$resultat = 0;
122 
		$colonne_nbre = count($cols);
 127 
		foreach (self::$triMultiDimension as $champ => $ordre) {
123 
		while ($resultat == 0 && $i < $colonne_nbre) {
 128 
			if ($resultat == 0) {
124 
			$mot_01 = Chaine::supprimerAccents($b[$cols[$i]]);
 129 
				$mot_01 = Chaine::supprimerAccents($b[$champ]);
125 
			$mot_02 = Chaine::supprimerAccents($a[$cols[$i]]);
 130 
				$mot_02 = Chaine::supprimerAccents($a[$champ]);
126 
			switch (self::$triType) {
 131 
				switch (self::$triType) {
127 
				case self::TRIE_NATUREL :
 132 
					case self::TRI_NATUREL :
128 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strnatcmp($mot_01, $mot_02) : strnatcmp($mot_02, $mot_01);
 133 
						$resultat = ($ordre == SORT_DESC) ? strnatcmp($mot_01, $mot_02) : strnatcmp($mot_02, $mot_01);
129 
					break;
 134 
						break;
130 
				case self::TRIE_CASSE_SENSIBLE :
 135 
					case self::TRI_CASSE_SENSIBLE :
131 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcmp($mot_01, $mot_02) : strcmp($mot_02, $mot_01);
 136 
						$resultat = ($ordre == SORT_DESC) ? strcmp($mot_01, $mot_02) : strcmp($mot_02, $mot_01);
132 
					break;
 137 
						break;
133 
				case self::TRIE_CASSE_INSENSIBLE :
 138 
					case self::TRI_CASSE_INSENSIBLE :
134 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
 139 
						$resultat = ($ordre == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
135 
					break;
 140 
						break;
136 
				default:
 141 
					default:
137 
					$resultat = ($cols[$i + 1] == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
 142 
						$resultat = ($ordre == SORT_DESC) ? strcasecmp($mot_01, $mot_02) : strcasecmp($mot_02, $mot_01);
138 
					break;
 143 
						break;
- 
 
 144 
				}
- 
 
 145 
 
139 
			}
 146 
			}
140 
			$i += 2;
 - 
 
141 
		}
 147 
		}
142 
		return $resultat;
 148 
		return $resultat;
143 
	}
 149 
	}
144 
}
 150 
}
145 
?>
 151 
?>