You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

153 lines
4.8 KiB

<?php
/***************************************************************************\
* SPIP, Système de publication pour l'internet *
* *
* Copyright © avec tendresse depuis 2001 *
* Arnaud Martin, Antoine Pitrou, Philippe Rivière, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribué sous licence GNU/GPL. *
* Pour plus de détails voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
//
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
//
// Gestion du raccourci <math>...</math> en client-serveur
//
// https://code.spip.net/@image_math
function produire_image_math($tex) {
switch ($GLOBALS['traiter_math']) {
// Attention: mathml desactiv'e pour l'instant
case 'mathml':
$ext = '.xhtml';
$server = $GLOBALS['mathml_server'];
break;
case 'tex':
$ext = '.png';
$server = $GLOBALS['tex_server'];
break;
default:
return $tex;
}
// Regarder dans le repertoire local des images TeX et blocs MathML
if (!@is_dir($dir_tex = _DIR_VAR . 'cache-TeX/')) {
@mkdir($dir_tex, _SPIP_CHMOD);
}
$fichier = $dir_tex . md5(trim($tex)) . $ext;
if (!@file_exists($fichier)) {
// Aller chercher l'image sur le serveur
if ($server) {
spip_log($url = $server . '?' . rawurlencode($tex));
include_spip('inc/distant');
recuperer_page($url, $fichier);
}
}
// Composer la reponse selon presence ou non de l'image
$tex = entites_html($tex);
if (@file_exists($fichier)) {
// MathML
if ($GLOBALS['traiter_math'] == 'mathml') {
return join(file("$fichier"), "");
} // TeX
else {
list(, , , $size) = @spip_getimagesize($fichier);
$alt = "alt=\"$tex\" title=\"$tex\"";
return "<img src=\"$fichier\" style=\"vertical-align:middle;\" $size $alt />";
}
} else // pas de fichier
{
return "<tt><span class='spip_code' dir='ltr'>$tex</span></tt>";
}
}
/**
* Active la recherche et l'affichage d'expressions mathématiques dans le texte
* transmis, dans tous les textes à l'intérieur d'une balise `<math>`.
*
* Encadrer un texte de balises `<math> ... </math>` active la recherche
* d'expressions mathématiques écrites entre caractères `$` au sein de ce texte :
*
* - `$$expression$$` traitera l'expression comme un paragraphe centré (p)
* - `$expression$` traitera l'expression comme un texte en ligne (span)
*
* Un serveur distant calculera une image à partir de l'expression mathématique
* donnée. Cette image est mise en cache localement (local/cache-Tex)
*
* @note
* Si cette fonction est appelée depuis `propre()` alors un échappement
* des caractères `&` en `&amp;` a été réalisé, qu'il faut redéfaire
* dans les expressions mathématiques trouvées (utiliser l'option
* `$defaire_amp` à true pour cela).
*
* @link https://www.spip.net/3016
* @uses produire_image_math()
* @uses code_echappement()
*
* @param string $letexte
* @param string $source
* @param bool $defaire_amp
* true pour passer les `&amp;` en `&` dans les expressions mathématiques.
* @return string
*/
function traiter_math($letexte, $source = '', $defaire_amp = false) {
$texte_a_voir = $letexte;
while (($debut = strpos($texte_a_voir, "<math>")) !== false) {
if (!$fin = strpos($texte_a_voir, "</math>")) {
$fin = strlen($texte_a_voir);
}
$texte_debut = substr($texte_a_voir, 0, $debut);
$texte_milieu = substr($texte_a_voir,
$debut + strlen("<math>"), $fin - $debut - strlen("<math>"));
$texte_fin = substr($texte_a_voir,
$fin + strlen("</math>"), strlen($texte_a_voir));
// Les doubles $$x^2$$ en mode 'div'
while ((preg_match(",[$][$]([^$]+)[$][$],", $texte_milieu, $regs))) {
$expression = $regs[1];
if ($defaire_amp) {
$expression = str_replace('&amp;', '&', $expression);
}
$echap = "\n<p class=\"spip\" style=\"text-align: center;\">" . produire_image_math($expression) . "</p>\n";
$pos = strpos($texte_milieu, $regs[0]);
$texte_milieu = substr($texte_milieu, 0, $pos)
. code_echappement($echap, $source)
. substr($texte_milieu, $pos + strlen($regs[0]));
}
// Les simples $x^2$ en mode 'span'
while ((preg_match(",[$]([^$]+)[$],", $texte_milieu, $regs))) {
$expression = $regs[1];
if ($defaire_amp) {
$expression = str_replace('&amp;', '&', $expression);
}
$echap = produire_image_math($expression);
$pos = strpos($texte_milieu, $regs[0]);
$texte_milieu = substr($texte_milieu, 0, $pos)
. code_echappement($echap, $source)
. substr($texte_milieu, $pos + strlen($regs[0]));
}
$texte_a_voir = $texte_debut . $texte_milieu . $texte_fin;
}
return $texte_a_voir;
}