#
# 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
}
LORD BELIAL (se) - The Seal of Belial (2004)
Label : Regain Records
Sortie du Scud : 30 août 2004
Pays : Suède
Genre : Black Metal
Type : Album
Playtime : 8 Titres - 47 Mins
Nombreuses sont les légions de groupes de Black Metal ayant recours aux terminologies infinies issues de la démonologie. Tel fut le cas de LORD BELIAL. On s’accorde à définir Belial comme un Démon régnant sur l’Orient. Tirant son nom de l’hébreu qui signifie vaurien, ce roi de l’Enfer est le Dieu de la révolte et de l’anarchie, du vice et de la crapulerie, le tout sous une apparence attrayante et attirante pour tromper les hommes. Séduits et conquis par cette interprétation, les suédois de LORD BELIAL, formé en 1992 pratiqueraient du Black Metal vicieux et crapuleux. D’ailleurs, le quartet suédois des frères Backelin, ensemble depuis 1987, se fit connaître en quittant leur label de No Fashion Records lorsque ceux-ci refusèrent de sortir en 2003 le morceau nettement tendancieux «Purify Sweden», pamphlet ultra nationaliste, apologie et culte de la guerre et foncièrement anti-religieux. Intransigeants, le combo insista et le titre fut finalement édité sous forme d’un single par un label un peu moins regardant, Metal Fortress Entertainment.
Mais pour en revenir à leur style Black, depuis l’album Angelgrinder (2002) le combo semble avoir abandonné le Black purement bourrin et crasseux des premiers albums, pour adopter un son ici carrément plus net et chiadé. En outre, LORD BELIAL implante plus d’éléments d’obédience Death Metal (des influences mélodiques, des soli, etc…). De ce fait, ce cinquième album des suédois, The Seal of Belial, sonne méchamment Black Heavy. Riche en riffs crades et grinçants, des cascades de mélodies sinistres à renfort de basses vrombissantes, cet ensemble noir aux titres besognés et élancés fait de cet album un opus de qualité, aux morceaux robustes et forts. De l’intro mid-tempo Thrash déjantée «Prolusio : Acies Sigillum» à la puissante «Sons of Belial», enjolivée de passages plus paisibles en font un titre de premier choix et un des moments forts de cet album. Idem, LORD BELIAL privilégie les tempi lourds et lents, pose son Black ravageur à l’image de «Chariot of Fire» enchâssé par un solo. Le groupe Suédois sait également hausser le ton avec des morceaux forts persuasifs, démontré par l’excellente «Abysmal Hate» et la très MAYHEM «Mark of The Beast» période années 90 pour ce qui est de ses rythmiques rêches et sobres. Des ralentissements parsèment les titres, procurant une ambiance plus sombre s’adaptant parfaitement aux idées et concepts de LORD BELIAL comme sur «Legio Inferi» où des chœurs féminins agrémentent les mélodies vocales de ce morceau particulièrement impressionnant. Superbe.
Enregistré au Los Angered Studios, fruit de la production d’une bonne vieille connaissance, Andy LaRoque (guitariste entre autres de KING DIAMOND ou de DEATH) et producteur à succès (EINHERJER, EVERGREY, RUNEMAGICK) qui pose en plus un solo fort maîtrisé sur la dernière piste «Scythe of Death», on conviendra qu’il s’agit là d’un très bon album de LORD BELIAL, du Black Metal de bonne facture. Hail LORD BELIAL !!
Ajouté : Jeudi 10 Avril 2008
Chroniqueur : Loki
Score : 
Lien en relation: Lord Belial Website
Hits: 12043
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
