#
# 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
}
WARLOCK (de-usa) - Triumph And Agony (1987)
Label : Vertigo
Sortie du Scud : 5 septembre 1987
Pays : Allemagne / Etats-Unis
Genre : Metal FM
Type : Album
Playtime : 10 Titres - 37 Mins
Pour le Heavy Metal, Doro Pesch est un monument. Ce petit bout de femme tout de cuir vêtue a toujours tout donné pour cette musique que nous affectionnons. Pourtant nous ne sommes pas nombreux à nous souvenir de l’impact qu’a eu la (courte) carrière discographique de WARLOCK sur notre Walkyrie préférée. Après avoir fait ses armes au sein de SNAKEBITE, Doro Pesch a rejoint les rangs de WARLOCK, pour les albums que l’on sait : le brut de chez brut Burning The Witches (1984), le mitigé Hellbound (1985), le métallique et presque parfait True As Steel (1986) et enfin son magnifique chant du cygne Triumph And Agony (titre révélateur d’un groupe qui savait sa fin proche ?…).
Pour ce quatrième album, la belle et le batteur Michael Eurich font figure de survivants puisque le line-up de WARLOCK n’a plus rien à voir avec celui des débuts, sachant que même le guitariste et fondateur Rudy Graf a quitté le navire … Néanmoins cette nouvelle formation n’a rien envier aux précédentes, d’autant que WARLOCK s’installe aux Etats-Unis et s’associe au producteur/compositeur Joey Balin pour le meilleur.
Histoire quand même de ne pas oublier que WARLOCK donne dans le Heavy Metal, Triumph And Agony envoie la sauce d’entrée avec l’hymne par excellence, « All We Are ». Ses chœurs rageurs et fraternels qui chantent « All we are, all we are, we are all … all we need », cette grosse caisse assourdissante qui déboule, ce mur de guitare qui balance un riff implacable, et enfin l’arrivée de la reine Doro … je ne sais pas vous mais moi j’ai toujours le frisson en écoutant ce morceau. On tape du pied, on s’époumone à répéter ce refrain, le meilleur du Heavy des eighties est condensé ici. Définitivement mon titre préféré de WARLOCK avec le « All Night » sur Hellbound.
Comment ne pas évoquer aussi le rôle du guitariste Niko Arvanitis, formidable soliste, et qui signe deux titres avec le tandem Pesch/Balin, dont « Kiss Of Death » : introduit tout en douceur sous une lune menaçante et un hurlement de loup lointain, avant d’exploser à la manière du « Fever » de JUDAS PRIEST, cette chanson met en avant toute la sensualité de Doro (cette voix …), qu’elle soit érotique (« by the light of the moon, I feel a strange desire ») ou fatalement mortelle (« I have no mercy », « I bring the kiss of death »).
L’autre bonhomme de ce disque, car Doro a toujours su s’entourer des hommes qu’il fallait, c’est Joey Balin. Composant toutes les chansons avec la miss Pesch, il apporte à WARLOCK la petite touche nécessaire pour transformer une bonne compo en titre imparable. Du coup, Triumph And Agony se veut plus mélodique, plus accrocheur, plus racé. Il n’y a rien à dire quant à cette approche que l’on pourrait qualifier de « commerciale », tellement le style de WARLOCK et la voix de Doro sont ici sublimés. Exemples parfaits du fruit de leur alliance : les futurs classiques « I Rule The Ruins » et « East Meets West ». Et même si l’album va plus ou moins au même rythme, excepté sur le speedé « Touch Of Evil », la recette appliquée par Balin est diablement efficace.
On dit toujours qu’un grand album s’achève par un pur moment d’émotion. Triumph And Agony ne déroge pas à la règle. Doro et Joey Balin osent la ballade chantée en Allemand (« Für Immer » qui signifie « pour toujours »), magnifique, absolument réussie.
Triumph And Agony, « Für Immer » dans mon cœur.
Ajouté : Lundi 09 Juin 2008
Chroniqueur : NicoTheSpur
Score :  
Lien en relation: Warlock Website
Hits: 8689
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
