#
# 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
}
HELFAHRT (de) - Wiedergang (2008)
Label : Trollzorn / Underclass
Sortie du Scud : 2008
Pays : Allemagne
Genre : Pagan Metal
Type : Album
Playtime : 10 Titres - 49 Mins
Je ne sais pas pourquoi mais quand on me parle de Pagan Metal, je pense parfois à une ambiance festive, dansante, animée par des guerriers celtes sortis vainqueurs de moults combats, et qui se goinfrent de sangliers et font couler la cervoise à volonté. Épargnez-moi s'il vous plaît les comparatifs hâtifs avec Astérix car malheureusement pour l'ami Goscinny (qui doit se retourner dans sa tombe), quand on évoque le petit gaulois moustachu, on a tendance à penser à Christian Clavier et à trois adaptations ciné désastreuses...
Mais là je m'éloigne, et revenons à nos sangliers rotis par Belenos. On en était où déjà ? Ah oui, des guerriers celtes, disais-je, qui s'éclatent la panse et se bourrent la gueule.
Dis comme ça, ça a l'air très chouette comme fête, mais des fois, il suffit d'un rien pour gâcher une beuverie d'anthologie. Un guerrier susceptible, qui pète un plomb dès la deuxième coupe, et massacre deux copains à coup de hache, ou alors pire, mais alors vraiment PIRE, le barde qui est aphone !! Comment ? C'est ce qui se passe dans "Astérix chez Rahazade" ? Bon on arrête avec le Village des Fous, OK ?
Donc, pour reprendre, il arrive que le barde n'ait plus de voix. Et justement, c'est ce que je me suis dit avec HELFAHRT. Les pauvres, ils organisent un super banquet, avec plein de camarades assoiffés, et poum ! La panne sèche de la rock'n'roll star du soir ... Alors HELFAHRT, du moins c'est ce que je croyais, a décidé d'enregistrer un album instrumental.
Passé le premier titre, super ambiant et faisant office d'introduction flippante, HELFAHRT envoie la bourrée métallique. Pas de doute, le Black Metal pratiqué présente bien des éléments que l'on qualifiera de "festifs". Seulement voilà, en me penchant d'un peu plus près sur la pochette et les crédits, je lis que les musiciens d'HELFAHRT pratiquent les voix, flutes, harpes, etc. Ma surprise est grande, d'autant que s'il est possible de distinguer des instruments quelque peu traditionnels malgré un son disons, euh, confus, la voix est vraiment inaudible. Déjà qu'avec une prod pareille c'est pas évident de juger la qualité musicale, mais alors si en plus on entend rien chanter...
Et voulez-vous savoir pourquoi c'est vraiment dommage ? Parce qu'HELFAHRT est un groupe allemand, et qu'il chante dans SA langue, celle de Goethe ! Enfin plutôt celle de Hagen Le Barbare (celui qui fait trois têtes de plus que Maximus dans "Gladiator") ... Donc ce ne sont pas des Celtes, ce sont des Goths !!!!! Mais alors pourquoi on n'entend rien, merde ? Ils ont eu honte ou quoi ? Ou alors c'est le mec au mixage, qui reconnaît à la langue germanique autant de grâce qu'une "fat sexy girl" en lombostat, qui a préféré viré tout ça pendant que les autres allaient à un autre festin !
Les productions récentes en termes de Pagan Metal étant légions (romaines ? ... on n'en sort pas ...) ces derniers mois, je ne peux que vous conseiller de vous orienter vers d'autres skeuds .... Parce que la musique d'HELFAHRT, eh ben "elle farte" pas beaucoup comme dirait "Bricius de Nicae".
ps : je tiens quand même à préciser que ce CD a été écouté, plusieurs fois même, dans des conditions audio optimales. Non mais sans blague...
Ajouté : Samedi 06 Septembre 2008
Chroniqueur : NicoTheSpur
Score : 
Lien en relation: Helfahrt Website
Hits: 11611
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
