Subversion Repositories Sites.tela-botanica.org

Compare Revisions

No changes between revisions

Ignore whitespace Rev 3 → Rev 4

/trunk/actu/inc-debug.php3
New file
0,0 → 1,78
<?php
 
//
// Ce fichier ne sera execute qu'une fois
if (defined("_INC_DEBUG")) return;
define("_INC_DEBUG", "1");
 
//
// Fonctions debug
//
 
function affval($val) {
 
echo entites_html($val);
 
}
 
function afftable($table) {
 
if (!$table) return;
reset($table);
echo "<UL>";
while (list($key, $val) = each($table)) {
echo "<LI>";
switch ($val->type) {
case 'boucle':
echo "<font color='red'><b>Boucle".$val->id_boucle."</b>: ".entites_html($val->commande);
echo "<br><i><small>".entites_html($val->requete)."</small></i></font>";
break;
case 'texte':
echo entites_html($val->texte);
break;
case 'champ':
echo "<font color='blue'><i>#".$val->nom_champ;
if ($val->fonctions) echo " <small>(".join(',', $val->fonctions).")</small>";
echo "</i></font>";
echo "<ul><li>";
echo afftable($val->cond_avant);
echo "</li><li>";
echo afftable($val->cond_apres);
echo "</li></ul>";
break;
}
echo "</LI>";
}
echo "</UL>\n";
}
 
function affboucle($val) {
echo "<hr>";
echo "<b>Boucle".$val->id_boucle."</b>";
echo "<ul><li>";
echo afftable($val->avant);
echo "</li><li>";
echo afftable($val->cond_avant);
echo "</li><li>";
echo afftable($val->milieu);
echo "</li><li>";
echo afftable($val->cond_apres);
echo "</li><li>";
echo afftable($val->cond_altern);
echo "</li><li>";
echo affval($val->fin);
echo "</li></ul>";
echo "\n";
}
 
function affboucles() {
global $boucles;
reset($boucles);
while (list($key, $val) = each($boucles)) affboucle($val);
}
 
afftable($GLOBALS['racine']);
affboucles();
 
 
?>
Property changes:
Added: svn:executable
+*
\ No newline at end of property