diff --git a/.gitattributes b/.gitattributes
index c0f8faf17834de063be9cff81c1753bfbb6c14f8..ecf13c7a8201fa21057ca8ca9db2cd82abe8db4d 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -241,6 +241,7 @@ ecrire/inc/presenter_liste.php -text
ecrire/inc/puce_statut.php -text
ecrire/inc/rechercher.php -text
ecrire/inc/referencer_traduction.php -text
+ecrire/inc/ressembler.php -text
ecrire/inc/securiser_action.php -text
ecrire/inc/selectionner.php -text
ecrire/inc/selectionner_auteur.php -text
diff --git a/ecrire/exec/message.php b/ecrire/exec/message.php
index bfc15f9d1c0ec4e030352bf918c151b3bae1212e..08937f95123d0648357a43a65f1b9ceb65f8cc32 100644
--- a/ecrire/exec/message.php
+++ b/ecrire/exec/message.php
@@ -13,7 +13,7 @@
if (!defined("_ECRIRE_INC_VERSION")) return;
include_spip('inc/presentation');
-include_spip('inc/rechercher'); // mots_ressemblants()
+include_spip('inc/ressembler'); // mots_ressemblants()
// http://doc.spip.org/@exec_message_dist
function exec_message_dist()
diff --git a/ecrire/inc/rechercher.php b/ecrire/inc/rechercher.php
index 0e1048ec493f9e40cbeb8baa568cbf9edd4264eb..2241be9e041370df98047692e4aa00b90dbd992f 100644
--- a/ecrire/inc/rechercher.php
+++ b/ecrire/inc/rechercher.php
@@ -362,123 +362,4 @@ function remplace_en_base($recherche='', $remplace=NULL, $tables=NULL, $options=
}
-
-/**
- * Calcule une distance levenshtein
- * (similarité entre 2 chaines)
- * en ne prenant en compte que les 254 premiers
- * caractères des chaines transmises.
- *
- * [ne pas faire d'erreur si les chaines sont > 254 caracteres]
- *
- * @param string $a premier mot
- * @param string $b second mot
- * @return distance de levenshtein
-**/
-// http://doc.spip.org/@levenshtein255
-function levenshtein255 ($a, $b) {
- $a = substr($a, 0, 254);
- $b = substr($b, 0, 254);
- return @levenshtein($a,$b);
-}
-
-
-/**
- * Reduit un mot a sa valeur translitteree et en minuscules
- *
- * @param string $mot Mot a transliterer
- * @return Mot translittere en minuscule.
- **/
-// http://doc.spip.org/@reduire_mot
-function reduire_mot($mot) {
- return strtr(
- translitteration(trim($mot)),
- 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
- 'abcdefghijklmnopqrstuvwxyz'
- );
-}
-
-
-/**
- * Retrouve dans une liste donnee les mots qui ont des orthographes
- * proches d'un certain mot.
- * L'algorythme utilise la distance de levenshtein, pour trouver ces mots
- * et retourne les identifiants de table correspondants dans second tableau transmis.
- *
- * @param string $mot Le mot a chercher : 'juniur'
- * @param array $table_mots Le dictionnaire : array('junior', 'vivien')
- * @param array $table_ids Le dictionnaire : array(3, 5)
- * @return array Liste des identifiants approchants : array(3)
-**/
-// http://doc.spip.org/@mots_ressemblants
-function mots_ressemblants($mot, $table_mots, $table_ids='') {
-
- $result = array();
-
- if (!$table_mots) return $result;
-
- $lim = 2;
- $nb = 0;
- $opt = 1000000;
- $mot_opt = '';
- $mot = reduire_mot($mot);
- $len = strlen($mot);
-
- while (!$nb AND $lim < 10) {
- reset($table_mots);
- if ($table_ids) reset($table_ids);
- while (list(, $val) = each($table_mots)) {
- if ($table_ids) list(, $id) = each($table_ids);
- else $id = $val;
- $val2 = trim($val);
- if ($val2) {
- if (!isset($distance[$id])) {
- $val2 = reduire_mot($val2);
- $len2 = strlen($val2);
- if ($val2 == $mot)
- $m = -2; # resultat exact
- else if (substr($val2, 0, $len) == $mot)
- $m = -1; # sous-chaine
- else {
- # distance
- $m = levenshtein255($val2, $mot);
- # ne pas compter la distance due a la longueur
- $m -= max(0, $len2 - $len);
- }
- $distance[$id] = $m;
- } else $m = 0;
- if ($m <= $lim) {
- $selection[$id] = $m;
- if ($m < $opt) {
- $opt = $m;
- $mot_opt = $val;
- }
- $nb++;
- }
- }
- }
- $lim += 2;
- }
-
- if (!$nb) return $result;
- reset($selection);
- if ($opt > -1) {
- $moy = 1;
- while(list(, $val) = each($selection)) $moy *= $val;
- if($moy) $moy = pow($moy, 1.0/$nb);
- $lim = ($opt + $moy) / 2;
- }
- else $lim = -1;
-
- reset($selection);
- while (list($key, $val) = each($selection)) {
- if ($val <= $lim) {
- $result[] = $key;
- }
- }
- return $result;
-}
-
-
-
?>
diff --git a/ecrire/inc/ressembler.php b/ecrire/inc/ressembler.php
new file mode 100644
index 0000000000000000000000000000000000000000..d52d9575d2a20a68709f7da33e0494ee2176282a
--- /dev/null
+++ b/ecrire/inc/ressembler.php
@@ -0,0 +1,136 @@
+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2010 *
+ * 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. *
+\***************************************************************************/
+
+
+if (!defined("_ECRIRE_INC_VERSION")) return;
+
+
+
+/**
+ * Calcule une distance levenshtein
+ * (similarité entre 2 chaines)
+ * en ne prenant en compte que les 254 premiers
+ * caractères des chaines transmises.
+ *
+ * [ne pas faire d'erreur si les chaines sont > 254 caracteres]
+ *
+ * @param string $a premier mot
+ * @param string $b second mot
+ * @return distance de levenshtein
+**/
+// http://doc.spip.org/@levenshtein255
+function levenshtein255 ($a, $b) {
+ $a = substr($a, 0, 254);
+ $b = substr($b, 0, 254);
+ return @levenshtein($a,$b);
+}
+
+
+/**
+ * Reduit un mot a sa valeur translitteree et en minuscules
+ *
+ * @param string $mot Mot a transliterer
+ * @return Mot translittere en minuscule.
+ **/
+// http://doc.spip.org/@reduire_mot
+function reduire_mot($mot) {
+ return strtr(
+ translitteration(trim($mot)),
+ 'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
+ 'abcdefghijklmnopqrstuvwxyz'
+ );
+}
+
+
+/**
+ * Retrouve dans une liste donnee les mots qui ont des orthographes
+ * proches d'un certain mot.
+ * L'algorythme utilise la distance de levenshtein, pour trouver ces mots
+ * et retourne les identifiants de table correspondants dans second tableau transmis.
+ *
+ * @param string $mot Le mot a chercher : 'juniur'
+ * @param array $table_mots Le dictionnaire : array('junior', 'vivien')
+ * @param array $table_ids Optionnel, table d'identifiants correspondants : array(3, 5)
+ * @return array Liste des noms (ou identifiants si transmis) approchants : array('junior') ou array(3)
+**/
+// http://doc.spip.org/@mots_ressemblants
+function mots_ressemblants($mot, $table_mots, $table_ids='') {
+
+ $result = array();
+
+ if (!$table_mots) return $result;
+
+ $lim = 2;
+ $nb = 0;
+ $opt = 1000000;
+ $mot_opt = '';
+ $mot = reduire_mot($mot);
+ $len = strlen($mot);
+
+ while (!$nb AND $lim < 10) {
+ reset($table_mots);
+ if ($table_ids) reset($table_ids);
+ while (list(, $val) = each($table_mots)) {
+ if ($table_ids) list(, $id) = each($table_ids);
+ else $id = $val;
+ $val2 = trim($val);
+ if ($val2) {
+ if (!isset($distance[$id])) {
+ $val2 = reduire_mot($val2);
+ $len2 = strlen($val2);
+ if ($val2 == $mot)
+ $m = -2; # resultat exact
+ else if (substr($val2, 0, $len) == $mot)
+ $m = -1; # sous-chaine
+ else {
+ # distance
+ $m = levenshtein255($val2, $mot);
+ # ne pas compter la distance due a la longueur
+ $m -= max(0, $len2 - $len);
+ }
+ $distance[$id] = $m;
+ } else $m = 0;
+ if ($m <= $lim) {
+ $selection[$id] = $m;
+ if ($m < $opt) {
+ $opt = $m;
+ $mot_opt = $val;
+ }
+ $nb++;
+ }
+ }
+ }
+ $lim += 2;
+ }
+
+ if (!$nb) return $result;
+ reset($selection);
+ if ($opt > -1) {
+ $moy = 1;
+ while(list(, $val) = each($selection)) $moy *= $val;
+ if($moy) $moy = pow($moy, 1.0/$nb);
+ $lim = ($opt + $moy) / 2;
+ }
+ else $lim = -1;
+
+ reset($selection);
+ while (list($key, $val) = each($selection)) {
+ if ($val <= $lim) {
+ $result[] = $key;
+ }
+ }
+ return $result;
+}
+
+
+
+?>