#
# XML_node.objet
#
# This object is an XML node representation
#
# /- name (string)
# xml_node --- attributes (array)
# \- children (array) or value (string)
class xml_node {
var $name;
var $attributes = array();
var $children = array();
var $value = "";
function xml_node($name,$attributes,$children=array(),$value="") {
$this->name = $name;
if (is_array($attributes)) {
$this->attributes = $attributes;
}
$this->children = $children;
$this->value = $value;
}
}
#
# xml_tree class
#
# This object parses an XML stream and offers a tree composed by xml_nodes
#
class xml_tree {
var $xml_stream;
var $current_node;
var $root_node;
var $index;
var $value;
function xml_tree() {
$this->root_node = new xml_node("__ROOT_NODE",array());
$this->current_node = $this->root_node;
}
function add_tree($xml_stream) {
# Managing the parser
$this->xml_stream = $xml_stream;
$xml_parser = xml_parser_create();
xml_parser_set_option($xml_parser,XML_OPTION_CASE_FOLDING,0);
xml_parser_set_option($xml_parser,XML_OPTION_SKIP_WHITE,1);
if (!xml_parse_into_struct($xml_parser,$this->xml_stream,$this->value,$this->index)) {
xml_parser_free($xml_parser);
die("XML Parse error");
}
xml_parser_free($xml_parser);
# Now, $this->value and $this->index are informed, we can use the get_node methode.
$tab_result = $this->get_node(0,count($this->value) - 1);
$this->root_node->children[] = $tab_result[0];
$this->current_node = $this->root_node;
}
function get_node($index_start,$index_stop) {
#echo "
\n";
#echo "GET-NODE($index_start,$index_stop)
\n";
# What we are going to return is an array of xml_nodes
$return_tab = array();
# depth is only here to check if everything is all right
$tab_node = $this->value[$index_start];
$depth = $tab_node["level"]-1;
# Now we have to be sure we do not forget a single node
for ($index = $index_start;$index <= $index_stop;$index++) {
#echo "\$index = $index
";
# get the current node
$tab_node = $this->value[$index];
# what type of node is it ?
switch($tab_node["type"]) {
case "complete" :
# Depth integrity check
if ($tab_node["level"] != $depth+1) {
die("ERREUR # contrainte d'intégrité au noeud complet $index, niveau $depth + 1 au lieu de ".$tab_node["level"]);
}
#echo "Noeud complet trouvé position $index TAG ".$tab_node["tag"]."
\n";
# Easy one, no children to manage, only a value...
$return_tab[] = new xml_node($tab_node["tag"],$tab_node["attributes"],"",$tab_node["value"]);
break;
case "open" :
# Depth integrity check
if ($tab_node["level"] != $depth +1 ) {
die("ERREUR # contrainte d'intégrité au noeud ouvert $index, niveau $depth au lieu de ".$tab_node["level"]);
}
# Open tag, we re-use this methode to return its children
# Where is the correspondong close tag ?
$node_index = $this->index[$tab_node["tag"]];
$flipped_node_index = array_flip($node_index);
#echo "This ".$tab_node["tag"]." is at coords ".$flipped_node_index[$index]."
";
$i=1;
do {
$next_index = $node_index[$flipped_node_index[$index] + $i++];
$next_tag=$this->value[$next_index];
}
while ($next_tag["level"]!=$tab_node["level"]);
#echo "Ouverture de noeud détectée pos $index TAG ".$tab_node["tag"]."
\n Parcours jusqu au $next_index
\n";
# good, we can now instanciate our node
$return_tab[] = new xml_node($tab_node["tag"],$tab_node["attributes"],$this->get_node($index+1,$next_index),"");
# As we called the get_node methode, we are sure that nodes have been parsed to the corresponding close tag
$index = $next_index;
break;
case "close" :
# Depth integrity check
if ($tab_node["level"] != $depth ){
die("ERREUR # contrainte d'intégrité au noeud fermé $index, niveau $depth au lieu de ".$tab_node["level"]);
}
#echo "Fermeture de noeud detectée pos $index TAG ".$tab_node["tag"]."
\n";
# This ugly thing is useless because reaching a close tag means that $index==$index_stop but who knows ? =)
# it will be skipped soon
$index = $index_stop;
break;
default:
die("Erreur de type de TAG non déterminé :'".$tab_node["type"]."'");
}
}
# We are out ... returns the array with collected children...
return ($return_tab);
}
# this function browse the xml tree and set the current node to the selected node
function give_node($path) {
if ($path[0]=="/") {
$current_node=$this->root_node;
$path=substr($path,1);
#echo "ABSOLUTE PATH GIVEN=$path
";
}
else {
$current_node = $this->current_node;
}
#echo "PATH GIVEN=$path
";
$tab_path = split("/",$path);
foreach ($tab_path as $node_expr) {
#echo "STUDYING EXPR='$node_expr'
";
$node = $current_node;
$expr_tab = split("\?",$node_expr);
$node_name = $expr_tab[0];
$attr_tab = 0;
if (count($expr_tab)>1) {
##echo "TROUVE AU MOINS UNE CONDITION SUR LES ATTRIBUTS...
";
$attr_expr_tab=split(",",$expr_tab[1]);
$attr_tab=array();
foreach($attr_expr_tab as $attr_expr) {
$attr_split_expr=split("=",$attr_expr);
$attr_tab[$attr_split_expr[0]]=$attr_split_expr[1];
}
}
$last=0;
foreach ($node->children as $children) {
#echo "COMPARING WITH '$children->name'
";
if ($children->name == $node_name) {
##echo "TROUVE NOEUD CORRESPONDANT $node_name
";
if (is_array($attr_tab)) {
$node_attributes = $children->attributes;
foreach ($attr_tab as $key=>$value) {
if ($node_attributes[$key] == $value) {
#echo "ATTRIBUTE & CHANGE CURRENT NODE TO ".$children->name."
";
$current_node = $children;
$last = 1;
}
}
}
else {
##echo "CHILD=".$children->name."
";
#echo "CHANGE CURRENT NODE TO ".$children->name."
";
$current_node = $children;
$last=1;
}
}
if ($last) {
break;
}
}
if (!$last) {
#echo "PATH ERROR $node_name
";
#die("MMmmmh It seems that this file is not a DIA XML format...sorry...");
return 0;
}
}
return $current_node;
}
function browse_tree($path) {
$node = $this->give_node($path);
if (is_object($node)) {
$this->current_node = $node;
return 1;
}
return 0;
}
# this method dumps an html representation of the xml tree
function xml_show($node = "",$level=0,$last=0) {
if ($node=="") {
$node=$this->root_node;
}
if (!is_object($node)) {
die("ERROR : node is not an object");
}
$line="";
for($i=1;$i<=$level;$i++) {
if ((i==$level-1) and ($last)) {
$line.=" ";
}
else {
$line.=" |";
}
if ($i==$level) {
$line.="`-";
}
}
$line.=$node->name;
#echo $line;
$line.="".count($node->children)."";
if (count($node->children)==1) {
$line.=" (".$node->value.")
\n";
echo "$line";
}
else {
$line.="
\n";
echo "$line";
$i=1;
foreach($node->children as $children) {
if ($i==count($node->children)) {
$this->xml_show($children,$level+1,1);
}
else {
$this->xml_show($children,$level+1);
}
$i++;
}
}
}
#END_CLASS
}
TEMPLE OF BAAL (FRA) - Servants Of The Beast (2003)
Label : Oaken Shield / Adipocere Records
Sortie du Scud : 3 mars 2003
Pays : France
Genre : Evil Black Metal
Type : Album
Playtime : 7 Titres - 31 Mins
« Le temple de Baal », « les servants de la bête », une pochette vindicative, pas besoin d’avoir un BTS en symbologie occulte pour deviner que TEMPLE OF BAAL officie dans la douce torpeur et la sérénité du Metal Noir. Ils auraient pu s’appeler « Hole Of Baal », choisir d’exercer et d’avancer ses opinions sur une toile de dérision. Ils ont préféré bâtir un temple. A la gloire de la Bête. Cette dernière affirmation n’est pas anodine, n’est pas choisie pour sublimer une forme d’anarchie mal maitrisée. Non. Ce trio français est totalement engagé dans sa lutte pour l’accession du Malin à la place du Divin. Calife à la place du Calife ? Quasiment. C’est derrière une odeur de putsch que les franciliens nous apportent en 2003 leur première offrande à proprement parler, l’explicite Servants Of The Beast.
Premier constat, c’est primaire, mais pas du tout rébarbatif. « Backstab » nous soulage d’un poids dans la mesure où dans l’exercice ici pratiqué, la bestialité exigée prend souvent le pas sur les harmonies, les passages denses en émotions. C’est dans ce type de moments qu’on rêverait de découvrir une capsule de prussiate habilement coincée entre deux prémolaires. Heureusement pour notre vie, il n’est nullement question de vouloir écourter de quelconque manière que ce soit l’écoute de ce brûlot, tant il a été conçu de main de maître. Comme dit plus haut, « Backstab » est redoutable de précision, et montre qu’un groupe de Black vieille école sait aussi insuffler un souffle de vie à sa musique, par des riffs plus déstructurés ou des baisses de régimes (appelées aussi décélérations) bienvenues. Il en sera de même pour la suite, avec pour exemple concret « Triumphing Blasphemy » et ses notes plus Thrash (gares à vos cervicales !) ou la brutale « Years Of Hatred ». On se plaît bien à auditionner pareilles merveilles, ce petit combo est vraiment très sexy dans son costume de pourfendeurs de dieux. Le temps ne défile plus. Puis, le vide, le néant, plus aucun son n’arrive au tympan. Un peu groggy, on se demande alors comment se fait-ce, avant de constater avec effroi et frustration que la rondelle dure à peine une demi-heure. C’est en effet le gros point faible du scud, sa durée. Cette imperfection en filigrane brille de milles feux sous l’aura de compositions aussi prenantes. C’aurait pu durer trois jours que ça ne m’aurait pas empêché de veiller. Si tous les adorateurs de Satan qui choisissent de prêcher en chanson pouvaient s’inspirer de TEMPLE OF BAAL, ça nous éviterait de claquer notre argent en sonotones. A grands renforts d’inspiration old-school, truffée d’aliénations groovys et Trashisantes, j’ose affirmer haut et fort que ce sont ces français là qui m’ont réconciliés avec le Black d’antan, travaillé dans le plus pur esprit contemporain.
Le temple de Baal n’est pas un vulgaire trou (de Baal, hahaha, vous avez saisi le sens de ma vanne maintenant ?), c’est surtout le plus convaincant des mémoriaux jamais érigés au nom du Cornu. Sa matérialisation sous forme de petit disque plat est incroyable de perfection. Osez y pénétrer. Pour ne plus jamais en sortir !
Ajouté : Vendredi 03 Octobre 2008
Chroniqueur : Stef.
Score :  
Lien en relation: Temple Of Baal Website
Hits: 10157
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
