(#TITRE|supprimer_numero)

un

mot

` donc. * * @param string|array $texte * Texte(s) dont on souhaite extraire une balise html * @param string $tag * Nom de la balise html à extraire * @return void|string|array * - Code html de la balise, sinon rien * - Tableau de résultats, si tableau en entrée. **/ function extraire_balise($texte, $tag = 'a') { if (is_array($texte)) { array_walk( $texte, function(&$a, $key, $t){ $a = extraire_balise($a, $t); }, $tag ); return $texte; } if (preg_match( ",<$tag\b[^>]*(/>|>.*]*>|>),UimsS", $texte, $regs)) { return $regs[0]; } } /** * Extrait toutes les balises html du type demandé * * Retourne dans un tableau le contenu de chaque balise jusqu'à la première * fermeture rencontrée du même type. * Si on a passe un tableau de textes, retourne un tableau de resultats. * * @example `[(#TEXTE|extraire_balises{img}|implode{" - "})]` * * @filtre * @link http://www.spip.net/5618 * @see extraire_balise() * @note * Attention : les résultats peuvent être incohérents sur des balises imbricables, * tel que demander à extraire `div` dans un texte. * * @param string|array $texte * Texte(s) dont on souhaite extraire une balise html * @param string $tag * Nom de la balise html à extraire * @return array * - Liste des codes html des occurrences de la balise, sinon tableau vide * - Tableau de résultats, si tableau en entrée. **/ function extraire_balises($texte, $tag = 'a') { if (is_array($texte)) { array_walk( $texte, function(&$a, $key, $t){ $a = extraire_balises($a, $t); }, $tag ); return $texte; } if (preg_match_all( ",<${tag}\b[^>]*(/>|>.*]*>|>),UimsS", $texte, $regs, PREG_PATTERN_ORDER)) { return $regs[0]; } else { return array(); } } /** * Indique si le premier argument est contenu dans le second * * Cette fonction est proche de `in_array()` en PHP avec comme principale * différence qu'elle ne crée pas d'erreur si le second argument n'est pas * un tableau (dans ce cas elle tentera de le désérialiser, et sinon retournera * la valeur par défaut transmise). * * @example `[(#VAL{deux}|in_any{#LISTE{un,deux,trois}}|oui) ... ]` * * @filtre * @see filtre_find() Assez proche, avec les arguments valeur et tableau inversés. * * @param string $val * Valeur à chercher dans le tableau * @param array|string $vals * Tableau des valeurs. S'il ce n'est pas un tableau qui est transmis, * la fonction tente de la désérialiser. * @param string $def * Valeur par défaut retournée si `$vals` n'est pas un tableau. * @return string * - ' ' si la valeur cherchée est dans le tableau * - '' si la valeur n'est pas dans le tableau * - `$def` si on n'a pas transmis de tableau **/ function in_any($val, $vals, $def = '') { if (!is_array($vals) and $v = unserialize($vals)) { $vals = $v; } return (!is_array($vals) ? $def : (in_array($val, $vals) ? ' ' : '')); } /** * Retourne le résultat d'une expression mathématique simple * * N'accepte que les *, + et - (à ameliorer si on l'utilise vraiment). * * @filtre * @example * ``` * valeur_numerique("3*2") retourne 6 * ``` * * @param string $expr * Expression mathématique `nombre operateur nombre` comme `3*2` * @return int * Résultat du calcul **/ function valeur_numerique($expr) { $a = 0; if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr))) { eval("\$a = $expr;"); } return intval($a); } /** * Retourne un calcul de règle de trois * * @filtre * @example * ``` * [(#VAL{6}|regledetrois{4,3})] retourne 8 * ``` * * @param int $a * @param int $b * @param int $c * @return int * Retourne `$a*$b/$c` **/ function regledetrois($a, $b, $c) { return round($a * $b / $c); } /** * Crée des tags HTML input hidden pour chaque paramètre et valeur d'une URL * * Fournit la suite de Input-Hidden correspondant aux paramètres de * l'URL donnée en argument, compatible avec les types_urls * * @filtre * @link http://www.spip.net/4286 * @see balise_ACTION_FORMULAIRE() * Également pour transmettre les actions à un formulaire * @example * ``` * [(#ENV{action}|form_hidden)] dans un formulaire * ``` * * @param string $action URL * @return string Suite de champs input hidden **/ function form_hidden($action) { $contexte = array(); include_spip('inc/urls'); if ($p = urls_decoder_url($action, '') and reset($p) ) { $fond = array_shift($p); if ($fond != '404') { $contexte = array_shift($p); $contexte['page'] = $fond; $action = preg_replace('/([?]' . preg_quote($fond) . '[^&=]*[0-9]+)(&|$)/', '?&', $action); } } // defaire ce qu'a injecte urls_decoder_url : a revoir en modifiant la signature de urls_decoder_url if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) { unset($contexte['type']); } if (defined('_DEFINIR_CONTEXTE_TYPE_PAGE') and _DEFINIR_CONTEXTE_TYPE_PAGE) { unset($contexte['type-page']); } // on va remplir un tableau de valeurs en prenant bien soin de ne pas // ecraser les elements de la forme mots[]=1&mots[]=2 $values = array(); // d'abord avec celles de l'url if (false !== ($p = strpos($action, '?'))) { foreach (preg_split('/&(amp;)?/S', substr($action, $p + 1)) as $c) { $c = explode('=', $c, 2); $var = array_shift($c); $val = array_shift($c); if ($var) { $val = rawurldecode($val); $var = rawurldecode($var); // decoder les [] eventuels if (preg_match(',\[\]$,S', $var)) { $values[] = array($var, $val); } else { if (!isset($values[$var])) { $values[$var] = array($var, $val); } } } } } // ensuite avec celles du contexte, sans doublonner ! foreach ($contexte as $var => $val) { if (preg_match(',\[\]$,S', $var)) { $values[] = array($var, $val); } else { if (!isset($values[$var])) { $values[$var] = array($var, $val); } } } // puis on rassemble le tout $hidden = array(); foreach ($values as $value) { list($var, $val) = $value; $hidden[] = '"; } return join("", $hidden); } /** * Calcule les bornes d'une pagination * * @filtre * * @param int $courante * Page courante * @param int $nombre * Nombre de pages * @param int $max * Nombre d'éléments par page * @return int[] * Liste (première page, dernière page). **/ function filtre_bornes_pagination_dist($courante, $nombre, $max = 10) { if ($max <= 0 or $max >= $nombre) { return array(1, $nombre); } $premiere = max(1, $courante - floor(($max - 1) / 2)); $derniere = min($nombre, $premiere + $max - 2); $premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere; return array($premiere, $derniere); } /** * Retourne la première valeur d'un tableau * * Plus précisément déplace le pointeur du tableau sur la première valeur et la retourne. * * @example `[(#LISTE{un,deux,trois}|reset)]` retourne 'un' * * @filtre * @link http://php.net/manual/fr/function.reset.php * @see filtre_end() * * @param array $array * @return mixed|null|false * - null si $array n'est pas un tableau, * - false si le tableau est vide * - la première valeur du tableau sinon. **/ function filtre_reset($array) { return !is_array($array) ? null : reset($array); } /** * Retourne la dernière valeur d'un tableau * * Plus précisément déplace le pointeur du tableau sur la dernière valeur et la retourne. * * @example `[(#LISTE{un,deux,trois}|end)]` retourne 'trois' * * @filtre * @link http://php.net/manual/fr/function.end.php * @see filtre_reset() * * @param array $array * @return mixed|null|false * - null si $array n'est pas un tableau, * - false si le tableau est vide * - la dernière valeur du tableau sinon. **/ function filtre_end($array) { return !is_array($array) ? null : end($array); } /** * Empile une valeur à la fin d'un tableau * * @example `[(#LISTE{un,deux,trois}|push{quatre}|print)]` * * @filtre * @link http://www.spip.net/4571 * @link http://php.net/manual/fr/function.array-push.php * * @param array $array * @param mixed $val * @return array|string * - '' si $array n'est pas un tableau ou si echec. * - le tableau complété de la valeur sinon. * **/ function filtre_push($array, $val) { if (!is_array($array) or !array_push($array, $val)) { return ''; } return $array; } /** * Indique si une valeur est contenue dans un tableau * * @example `[(#LISTE{un,deux,trois}|find{quatre}|oui) ... ]` * * @filtre * @link http://www.spip.net/4575 * @see in_any() Assez proche, avec les paramètres tableau et valeur inversés. * * @param array $array * @param mixed $val * @return bool * - `false` si `$array` n'est pas un tableau * - `true` si la valeur existe dans le tableau, `false` sinon. **/ function filtre_find($array, $val) { return (is_array($array) and in_array($val, $array)); } /** * Filtre calculant une pagination, utilisé par la balise `#PAGINATION` * * Le filtre cherche le modèle `pagination.html` par défaut, mais peut * chercher un modèle de pagination particulier avec l'argument `$modele`. * S'il `$modele='prive'`, le filtre cherchera le modèle `pagination_prive.html`. * * @filtre * @see balise_PAGINATION_dist() * * @param int $total * Nombre total d'éléments * @param string $nom * Nom identifiant la pagination * @param int $position * Page à afficher (tel que la 3è page) * @param int $pas * Nombre d'éléments par page * @param bool $liste * - True pour afficher toute la liste des éléments, * - False pour n'afficher que l'ancre * @param string $modele * Nom spécifique du modèle de pagination * @param string $connect * Nom du connecteur à la base de données * @param array $env * Environnement à transmettre au modèle * @return string * Code HTML de la pagination **/ function filtre_pagination_dist( $total, $nom, $position, $pas, $liste = true, $modele = '', $connect = '', $env = array() ) { static $ancres = array(); if ($pas < 1) { return ''; } $ancre = 'pagination' . $nom; // #pagination_articles $debut = 'debut' . $nom; // 'debut_articles' // n'afficher l'ancre qu'une fois if (!isset($ancres[$ancre])) { $bloc_ancre = $ancres[$ancre] = ""; } else { $bloc_ancre = ''; } // liste = false : on ne veut que l'ancre if (!$liste) { return $ancres[$ancre]; } $self = (empty($env['self']) ? self() : $env['self']); $pagination = array( 'debut' => $debut, 'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel 'total' => $total, 'position' => intval($position), 'pas' => $pas, 'nombre_pages' => floor(($total - 1) / $pas) + 1, 'page_courante' => floor(intval($position) / $pas) + 1, 'ancre' => $ancre, 'bloc_ancre' => $bloc_ancre ); if (is_array($env)) { $pagination = array_merge($env, $pagination); } // Pas de pagination if ($pagination['nombre_pages'] <= 1) { return ''; } if ($modele) { $modele = '_' . $modele; } return recuperer_fond("modeles/pagination$modele", $pagination, array('trim' => true), $connect); } /** * Passer les url relatives à la css d'origine en url absolues * * @uses suivre_lien() * * @param string $contenu * Contenu du fichier CSS * @param string $source * Chemin du fichier CSS * @return string * Contenu avec urls en absolus **/ function urls_absolues_css($contenu, $source) { $path = suivre_lien(url_absolue($source), './'); return preg_replace_callback( ",url\s*\(\s*['\"]?([^'\"/#\s][^:]*)['\"]?\s*\),Uims", function($x) use ($path) { return "url('" . suivre_lien($path, $x[1]) . "')"; }, $contenu ); } /** * Inverse le code CSS (left <--> right) d'une feuille de style CSS * * Récupère le chemin d'une CSS existante et : * * 1. regarde si une CSS inversée droite-gauche existe dans le meme répertoire * 2. sinon la crée (ou la recrée) dans `_DIR_VAR/cache_css/` * * Si on lui donne à manger une feuille nommée `*_rtl.css` il va faire l'inverse. * * @filtre * @example * ``` * [] * ``` * @param string $css * Chemin vers le fichier CSS * @param string $voulue * Permet de forcer le sens voulu (en indiquant `ltr`, `rtl` ou un * code de langue). En absence, prend le sens de la langue en cours. * * @return string * Chemin du fichier CSS inversé **/ function direction_css($css, $voulue = '') { if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) { return $css; } // si on a precise le sens voulu en argument, le prendre en compte if ($voulue = strtolower($voulue)) { if ($voulue != 'rtl' and $voulue != 'ltr') { $voulue = lang_dir($voulue); } } else { $voulue = lang_dir(); } $r = count($r) > 1; $right = $r ? 'left' : 'right'; // 'right' de la css lue en entree $dir = $r ? 'rtl' : 'ltr'; $ndir = $r ? 'ltr' : 'rtl'; if ($voulue == $dir) { return $css; } if ( // url absolue preg_match(",^http:,i", $css) // ou qui contient un ? or (($p = strpos($css, '?')) !== false) ) { $distant = true; $cssf = parse_url($css); $cssf = $cssf['path'] . ($cssf['query'] ? "?" . $cssf['query'] : ""); $cssf = preg_replace(',[?:&=],', "_", $cssf); } else { $distant = false; $cssf = $css; // 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi //propose (rien a faire dans ce cas) $f = preg_replace(',(_rtl)?\.css$,i', '_' . $ndir . '.css', $css); if (@file_exists($f)) { return $f; } } // 2. $dir_var = sous_repertoire(_DIR_VAR, 'cache-css'); $f = $dir_var . preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf) . '.' . substr(md5($cssf), 0, 4) . '_' . $ndir . '.css'; // la css peut etre distante (url absolue !) if ($distant) { include_spip('inc/distant'); $contenu = recuperer_page($css); if (!$contenu) { return $css; } } else { if ((@filemtime($f) > @filemtime($css)) and (_VAR_MODE != 'recalcul') ) { return $f; } if (!lire_fichier($css, $contenu)) { return $css; } } $contenu = str_replace( array('right', 'left', '@@@@L E F T@@@@'), array('@@@@L E F T@@@@', 'right', 'left'), $contenu); // reperer les @import auxquels il faut propager le direction_css preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims", $contenu, $regs); $src = array(); $src_direction_css = array(); $src_faux_abs = array(); $d = dirname($css); foreach ($regs[1] as $k => $import_css) { $css_direction = direction_css("$d/$import_css", $voulue); // si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue if (substr($css_direction, 0, strlen($d) + 1) == "$d/") { $css_direction = substr($css_direction, strlen($d) + 1); } // si la css_direction commence par $dir_var on la fait passer pour une absolue elseif (substr($css_direction, 0, strlen($dir_var)) == $dir_var) { $css_direction = substr($css_direction, strlen($dir_var)); $src_faux_abs["/@@@@@@/" . $css_direction] = $css_direction; $css_direction = "/@@@@@@/" . $css_direction; } $src[] = $regs[0][$k]; $src_direction_css[] = str_replace($import_css, $css_direction, $regs[0][$k]); } $contenu = str_replace($src, $src_direction_css, $contenu); $contenu = urls_absolues_css($contenu, $css); // virer les fausses url absolues que l'on a mis dans les import if (count($src_faux_abs)) { $contenu = str_replace(array_keys($src_faux_abs), $src_faux_abs, $contenu); } if (!ecrire_fichier($f, $contenu)) { return $css; } return $f; } /** * Transforme les urls relatives d'un fichier CSS en absolues * * Récupère le chemin d'une css existante et crée (ou recrée) dans `_DIR_VAR/cache_css/` * une css dont les url relatives sont passées en url absolues * * Le calcul n'est pas refait si le fichier cache existe déjà et que * la source n'a pas été modifiée depuis. * * @uses recuperer_page() si l'URL source n'est pas sur le même site * @uses urls_absolues_css() * * @param string $css * Chemin ou URL du fichier CSS source * @return string * - Chemin du fichier CSS transformé (si source lisible et mise en cache réussie) * - Chemin ou URL du fichier CSS source sinon. **/ function url_absolue_css($css) { if (!preg_match(',\.css$,i', $css, $r)) { return $css; } $url_absolue_css = url_absolue($css); $f = basename($css, '.css'); $f = sous_repertoire(_DIR_VAR, 'cache-css') . preg_replace(",(.*?)(_rtl|_ltr)?$,", "\\1-urlabs-" . substr(md5("$css-urlabs"), 0, 4) . "\\2", $f) . '.css'; if ((@filemtime($f) > @filemtime($css)) and (_VAR_MODE != 'recalcul')) { return $f; } if ($url_absolue_css == $css) { if (strncmp($GLOBALS['meta']['adresse_site'], $css, $l = strlen($GLOBALS['meta']['adresse_site'])) != 0 or !lire_fichier(_DIR_RACINE . substr($css, $l), $contenu) ) { include_spip('inc/distant'); if (!$contenu = recuperer_page($css)) { return $css; } } } elseif (!lire_fichier($css, $contenu)) { return $css; } // passer les url relatives a la css d'origine en url absolues $contenu = urls_absolues_css($contenu, $css); // ecrire la css if (!ecrire_fichier($f, $contenu)) { return $css; } return $f; } /** * Récupère la valeur d'une clé donnée * dans un tableau (ou un objet). * * @filtre * @link http://www.spip.net/4572 * @example * ``` * [(#VALEUR|table_valeur{cle/sous/element})] * ``` * * @param mixed $table * Tableau ou objet PHP * (ou chaîne serialisée de tableau, ce qui permet d'enchaîner le filtre) * @param string $cle * Clé du tableau (ou paramètre public de l'objet) * Cette clé peut contenir des caractères / pour sélectionner * des sous éléments dans le tableau, tel que `sous/element/ici` * pour obtenir la valeur de `$tableau['sous']['element']['ici']` * @param mixed $defaut * Valeur par defaut retournée si la clé demandée n'existe pas * @param bool $conserver_null * Permet de forcer la fonction à renvoyer la valeur null d'un index * et non pas $defaut comme cela est fait naturellement par la fonction * isset. On utilise alors array_key_exists() à la place de isset(). * * @return mixed * Valeur trouvée ou valeur par défaut. **/ function table_valeur($table, $cle, $defaut = '', $conserver_null = false) { foreach (explode('/', $cle) as $k) { $table = is_string($table) ? @unserialize($table) : $table; if (is_object($table)) { $table = (($k !== "") and isset($table->$k)) ? $table->$k : $defaut; } elseif (is_array($table)) { if ($conserver_null) { $table = array_key_exists($k, $table) ? $table[$k] : $defaut; } else { $table = isset($table[$k]) ? $table[$k] : $defaut; } } else { $table = $defaut; } } return $table; } /** * Retrouve un motif dans un texte à partir d'une expression régulière * * S'appuie sur la fonction `preg_match()` en PHP * * @example * - `[(#TITRE|match{toto})]` * - `[(#TEXTE|match{^ceci$,Uims})]` * - `[(#TEXTE|match{truc(...)$, UimsS, 1})]` Capture de la parenthèse indiquée * - `[(#TEXTE|match{truc(...)$, 1})]` Équivalent, sans indiquer les modificateurs * * @filtre * @link http://www.spip.net/4299 * @link http://php.net/manual/fr/function.preg-match.php Pour des infos sur `preg_match()` * * @param string $texte * Texte dans lequel chercher * @param string|int $expression * Expression régulière de recherche, sans le délimiteur * @param string $modif * - string : Modificateurs de l'expression régulière * - int : Numéro de parenthèse capturante * @param int $capte * Numéro de parenthèse capturante * @return bool|string * - false : l'expression n'a pas été trouvée * - true : expression trouvée, mais pas la parenthèse capturante * - string : expression trouvée. **/ function match($texte, $expression, $modif = "UimsS", $capte = 0) { if (intval($modif) and $capte == 0) { $capte = $modif; $modif = "UimsS"; } $expression = str_replace("\/", "/", $expression); $expression = str_replace("/", "\/", $expression); if (preg_match('/' . $expression . '/' . $modif, $texte, $r)) { if (isset($r[$capte])) { return $r[$capte]; } else { return true; } } return false; } /** * Remplacement de texte à base d'expression régulière * * @filtre * @link http://www.spip.net/4309 * @see match() * @example * ``` * [(#TEXTE|replace{^ceci$,cela,UimsS})] * ``` * * @param string $texte * Texte * @param string $expression * Expression régulière * @param string $replace * Texte de substitution des éléments trouvés * @param string $modif * Modificateurs pour l'expression régulière. * @return string * Texte **/ function replace($texte, $expression, $replace = '', $modif = "UimsS") { $expression = str_replace("\/", "/", $expression); $expression = str_replace("/", "\/", $expression); return preg_replace('/' . $expression . '/' . $modif, $replace, $texte); } /** * Cherche les documents numerotés dans un texte traite par `propre()` * * Affecte la liste des doublons['documents'] * * @param array $doublons * Liste des doublons * @param string $letexte * Le texte * @return string * Le texte **/ function traiter_doublons_documents(&$doublons, $letexte) { // Verifier dans le texte & les notes (pas beau, helas) $t = $letexte . $GLOBALS['les_notes']; if (strstr($t, 'spip_document_') // evite le preg_match_all si inutile and preg_match_all( ',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS', $t, $matches, PREG_PATTERN_ORDER) ) { if (!isset($doublons['documents'])) { $doublons['documents'] = ""; } $doublons['documents'] .= "," . join(',', $matches[1]); } return $letexte; } /** * Filtre vide qui ne renvoie rien * * @example * `[(#CALCUL|vide)]` n'affichera pas le résultat du calcul * @filtre * * @param mixed $texte * @return string Chaîne vide **/ function vide($texte) { return ""; } // // Filtres pour le modele/emb (embed document) // /** * Écrit des balises HTML `` à partir d'un tableau de données tel que `#ENV` * * Permet d'écrire les balises `` à indiquer dans un `