| New file |
|---|
| 0,0 → 1,148 |
|---|
| <?php |
| |
| /***************************************************************************\ |
| * SPIP, Systeme de publication pour l'internet * |
| * * |
| * Copyright (c) 2001-2005 * |
| * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James * |
| * * |
| * Ce programme est un logiciel libre distribue sous licence GNU/GPL. * |
| * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. * |
| \***************************************************************************/ |
| |
| |
| // |
| // Ce fichier ne sera execute qu'une fois |
| if (defined("_ECRIRE_INC_SURLIGNE")) return; |
| define("_ECRIRE_INC_SURLIGNE", "1"); |
| |
| // Ces commentaires vont etre substitue's en mode recherche |
| // voir les champs SURLIGNE dans inc-index-squel |
| |
| define("MARQUEUR_SURLIGNE", '!-- debut_surligneconditionnel -->'); |
| define("MARQUEUR_FSURLIGNE", '!-- finde_surligneconditionnel -->'); |
| |
| function surligner_sans_accents ($mot) { |
| $accents = |
| /* A */ chr(192).chr(193).chr(194).chr(195).chr(196).chr(197). |
| /* a */ chr(224).chr(225).chr(226).chr(227).chr(228).chr(229). |
| /* O */ chr(210).chr(211).chr(212).chr(213).chr(214).chr(216). |
| /* o */ chr(242).chr(243).chr(244).chr(245).chr(246).chr(248). |
| /* E */ chr(200).chr(201).chr(202).chr(203). |
| /* e */ chr(232).chr(233).chr(234).chr(235). |
| /* Cc */ chr(199).chr(231). |
| /* I */ chr(204).chr(205).chr(206).chr(207). |
| /* i */ chr(236).chr(237).chr(238).chr(239). |
| /* U */ chr(217).chr(218).chr(219).chr(220). |
| /* u */ chr(249).chr(250).chr(251).chr(252). |
| /* yNn */ chr(255).chr(209).chr(241); |
| |
| if (lire_meta('charset') == 'utf-8') { |
| include_ecrire('inc_charsets.php3'); |
| $mot = unicode2charset(utf_8_to_unicode($mot), 'iso-8859-1'); |
| } |
| |
| return strtr($mot, $accents, "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeCcIIIIiiiiUUUUuuuuyNn"); |
| } |
| |
| // tres sale |
| function split_by_char($str) { |
| $len = strlen($str); |
| $streturn = array(); |
| for ($i=0; $i<$len; $i++) { |
| $streturn[$i] = substr($str, $i, 1); |
| } |
| return $streturn; |
| } |
| |
| function surligner_regexp_accents ($mot) { |
| $accents_regexp = array( |
| "a" => "[a".chr(224).chr(225).chr(226).chr(227).chr(228).chr(229). chr(192).chr(193).chr(194).chr(195).chr(196).chr(197)."]", |
| "o" => "[o".chr(242).chr(243).chr(244).chr(245).chr(246).chr(248). chr(210).chr(211).chr(212).chr(213).chr(214).chr(216)."]", |
| "e" => "[e".chr(232).chr(233).chr(234).chr(235). chr(200).chr(201).chr(202).chr(203)."]", |
| "c" => "[c".chr(199).chr(231)."]", |
| "i" => "[i".chr(236).chr(237).chr(238).chr(239). chr(204).chr(205).chr(206).chr(207)."]", |
| "u" => "[u".chr(249).chr(250).chr(251).chr(252). chr(217).chr(218).chr(219).chr(220)."]", |
| "y" => "[y".chr(255)."]", |
| "n" => "[n".chr(209).chr(241)."]" |
| ); |
| |
| $mot = surligner_sans_accents ($mot); |
| if (lire_meta('charset') == 'utf-8') { |
| while(list($k,$s) = each ($accents_regexp)) { |
| $accents_regexp_utf8[$k] = "(".join("|", split_by_char(ereg_replace("\]|\[","",$accents_regexp[$k]))).")"; |
| } |
| $mot = strtr(strtolower($mot), $accents_regexp_utf8); |
| $mot = importer_charset($mot, 'iso-8859-1'); |
| } else |
| $mot = strtr(strtolower($mot), $accents_regexp); |
| |
| return $mot; |
| } |
| |
| |
| // mettre en rouge les mots passes dans $var_recherche |
| function surligner_mots($page, $mots) { |
| global $nombre_surligne; |
| include_ecrire("inc_texte.php3"); // pour le reglage de $nombre_surligne |
| |
| // Remplacer les caracteres potentiellement accentues dans la chaine |
| // de recherche par les choix correspondants en syntaxe regexp (!) |
| $mots = split("[[:space:]]+", $mots); |
| |
| while (list(, $mot) = each ($mots)) { |
| if (strlen($mot) >= 2) { |
| $mot = surligner_regexp_accents(preg_quote(str_replace('/', '', $mot))); |
| $mots_surligne[] = $mot; |
| } |
| } |
| |
| if (!$mots_surligne) return $page; |
| |
| $regexp = '/((^|>)([^<]*[^[:alnum:]_<])?)((' |
| . join('|', $mots_surligne) |
| . ')[[:alnum:]_]*?)/Uis'; |
| |
| // en cas de surlignement limite' (champs #SURLIGNE), |
| // le compilateur a inse're' les balises de surlignement |
| // sur toute la zone; reste a` raffiner. |
| // On boucle pour le cas ou` il y a plusieurs zones |
| |
| $p = strpos($page, MARQUEUR_SURLIGNE); |
| if ($p !== false) { |
| $debut = ''; |
| while ($p) { |
| $debut .= substr($page, 0, $p-1); |
| $page = substr($page, $p+strlen(MARQUEUR_SURLIGNE)); |
| if (!$q = strpos($page,MARQUEUR_FSURLIGNE)) |
| $q = 1+strlen($page); |
| $debut .= trouve_surligne(substr($page, 0, $q-1), $regexp); |
| $page = substr($page, $q+strlen(MARQUEUR_FSURLIGNE)); |
| $p = strpos($page,MARQUEUR_SURLIGNE); |
| } |
| return $debut . $page; |
| } else { |
| // pour toute la page: ignorer ce qui est avant </head> ou <body> |
| $re = '/<\/head>|<body[^>]*>/i'; |
| if (preg_match($re, $page, $exp)) { |
| $debut = substr($page, 0, strpos($page, $exp[0])+strlen($exp[0])); |
| $page = substr($page, strlen($debut)); |
| } else |
| $debut = ''; |
| return $debut . trouve_surligne($page, $regexp); |
| } |
| } |
| |
| function trouve_surligne($page, $regexp) { |
| // Remplacer une occurrence de mot maxi par espace inter-tag |
| // (max 1 par paragraphe, sauf italiques etc.) |
| // se limiter a 4 remplacements pour ne pas bouffer le CPU ; |
| // traiter <textarea...>....</textarea> comme un tag. |
| global $nombre_surligne; |
| $page = preg_replace('/(<textarea[^>]*>)([^<>]*)(<\/textarea>)/Uis', '\1<<SPIP\2>>\3', $page); |
| $page = preg_replace($regexp, '\1<span class="spip_surligne">\4</span>', $page, $nombre_surligne); |
| $page = preg_replace('/(<textarea[^>]*>)<<SPIP([^<>]*)>>(<\/textarea>)/Uis', '\1\2\3', $page); |
| return $page ; |
| } |
| |
| ?> |