#
# 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
}
DEVIL'S TRAIN (de) - II (2015)
Label : EarMusic
Sortie du Scud : 23 janvier 2015
Pays : Allemagne
Genre : Hard Rock
Type : Album
Playtime : 13 Titres - 50 Mins
Voilà ce que ça donne quand quatre Metalleux se lassent du Power Metal. Remarquez, pour Jörg Michael, batteur de renom qui a œuvré pour RUNNING WILD, MEKONG DELTA, Axel Rudi Pell, RAGE, SAXON et surtout STRATOVARIUS, on s'en doutait un peu. Suite à de sévères problèmes de santé, le cogneur originaire de Dortmund (rien à voir avec Kevin Grosskeutz) a tourné définitivement le dos à STRATO après l'album Elysium (2011) : la lassitude était là. Et on se doutait bien qu'on le retrouverait rapidement ailleurs.
Pour Jari (Kainulainen, basse, ex-STRATOVARIUS lui aussi), c'est un peu différent : depuis son éviction du combo finlandais, il essaye de se caser un peu partout, dans SYMFONIA (avec Timo Tolkki), dans MASTERPLAN, dans EVERGREY, etc. Donc la section rythmique mythique de STRATOVARIUS s'est adjoint les services de deux membres de MYSTIC PROPHECY, à savoir le chanteur Roberto Dimitri Liapakis et son gratteux Lakis Ragazas. Est-ce que les deux Grecs ressentaient aussi le besoin de changer un peu d'air ? Il y a des chances... Et il y en a peu pour que DEVIL'S TRAIN soit juste un prétexte pour toucher un public plus large.
Le principal intérêt de cet opus, pour ceux qui avaient raté le premier épisode, c'est d'entendre ces quatre gars-là évoluer dans des sphères un peu différentes. Rassurez-vous, la touche Power est quand même un peu présente, notamment concernant le son (mais alors le GROS SON) de guitare de Ragazas. La promo décrit DEVIL'S TRAIN comme un groupe qui combine le son Heavy des années 80 avec l'attitude du Hard classieux typé 70's... Pourquoi pas.
Disons que la prod' de Fredrik Nordström leur permet de faire le pont entre un Hard bien burné et ce Metal si aiguisé. Devil's Train II contentera ceux qui adulaient le SKID ROW de Slave To The Grind, par exemple. Entre ces gros riffs acérés (le morceau d'ouverture "Down On You" annonce la couleur), ce groove perceptible ("Hollywood Girl" et ses chœurs à la Alice Cooper) et ce Blues sous-jacent ("Gimme Love"), les soli démentiels de Ragazas, la basse qui ronfle de Jari (flagrant sur "Gimme Love" où il n'est franchement pas ridicule), les reprises carrément couillues (le "Born To Be Wild" de STEPPENWOLF se voit greffer une paire d'enceintes Marshall bien poilues, mais le "Immigrant Song" de LED ZEP n'apporte pas grand chose), DEVIL'S TRAIN joue exactement ce qu'on attend d'un Big Rock métallisé et explosif.
Peut-être même un peu trop d'ailleurs. Assez rapidement, les plans se succèdent mais se répètent, R.D. Liapakis a tendance à chanter toujours de la même façon et certaines chansons obéissent trop facilement aux stéréotypes du genre : que "Mr Jones" démarre lentement puis accélère en cours de morceau, on le voyait venir à des kilomètres. L'intro à la slide de "Thunderstorm" aurait mérité d'être approfondie, or il n'en est rien, et c'est fort dommage. Trop prévisible, Devil's Train II ? Probable. Bien produit, bien exécuté, ça envoie fort, mais si ses géniteurs se sont un peu détachés du Metal pure souche, il se peut que la récréation tourne vite en rond et qu'à termes, on aille voir ailleurs également. L'arroseur arrosé, quoi...
Ajouté : Mardi 04 Août 2015
Chroniqueur : NicoTheSpur
Score : 
Lien en relation: Devil's Train Website
Hits: 5202
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
