#
# 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
}
STEVEN WILSON (uk) - The Raven That Refused To Sing (And Other Stories) (2013)
Label : Kscope Music
Sortie du Scud : 25 février 2013
Pays : Angleterre
Genre : Rock progressif expérimental
Type : Album
Playtime : 6 Titres - 54 Mins
Je ne souhaitais pas évoquer ce disque si peu de temps après sa sortie. Mais Steven Wilson est cette lame dangereuse qui menace constamment la carotide. Il m’aura fallu une année complète pour digérer Drowning For Grace et seulement une semaine pour savoir quoi dire de ce nouvel effort, poétiquement intitulé The Raven That Refused To Sing (And Other Stories). A croire que l’Anglais a perdu toute crédibilité. Lui, généralement si talentueux et mystérieux quand il s’agit de rendre sa musique plus illisible qu’un speck-film un premier samedi du mois pour un non-abonné à Canal, s’est fait débusquer en une poignée de levers de soleil. Et pour cause, ce troisième effort est de loin le plus surprenant d’un point de vue musical. Imprévisible car… prévisible. C’est une donnée nouvelle dans l’univers de ce robot multitâches, programmé pour créer et défaire. Il va sans dire que le choc est rude. Peut-être que pour la première fois, Steven Wilson s’est dévoilé en tant qu’humain, laissant le divin prendre un repos mérité dans le placard d’un grenier poussiéreux. Cet humain là n’en demeure pas moins poète et raffiné, une caractéristique tatouée sur son front depuis son éclosion au sein d’un certain PORCUPINE TREE, dont on attend toujours la fin du hiatus.
The Raven That Refused To Sing (And Other Stories) entame sa progression dans des nuances bleutées, celles d’un « Luminol » fluo-flashy. On ne le sait pas encore, mais cette longue ouverture de douze minutes représente déjà le point d’orgue de cet album, à l’instar des précédents « Postcard » et « Harmony Korine », cette dernière n’ayant pas encore été égalée en termes d’intensité et de noirceur. Relativement jazzy et nerveux, ce premier titre est d’une explosivité remarquable avant de s’orienter vers des contrées plus spacieuses, plus atmosphériques où les pianos brumeux d’Adam Holzman (qui a collaboré notamment avec Miles Davis ou le Français Michel Petrucciani) remplacent les vents hystériques de Theo Travis, descendant direct du joueur de flûte de Hamelin. « Drive Home » est d’un calibre nettement plus pacificateur, plus éthéré. Ce morceau a la faiblesse de sa qualité principale : un final somptueux agrémenté d’un solo de guitare un brin nostalgique mais le tout est définitivement téléphoné et attendu. Un peu à l’image des neuf premières minutes de « The Holy Driver » qui tournent en rond avant de laisser place à une conclusion très métallique, considérablement gainée et plutôt judicieuse au moment où le disque semblait s’enfoncer dans son propre ventre mou. Il fallait bien l’intervention musclée d’Alan Parsons (le même qui s’est occupé en 1973 du Dark Side Of The Moon) pour réveiller tout ça. C’est d’ailleurs lui qui est en charge de l’enregistrement de cet opus et je crois que Steven Wilson peut lui en témoigner une grande gratitude, tant The Raven That Refused To Sing (And Other Stories) sonne comme quelque chose d’intimiste et de personnel. Hélas, ces qualificatifs n’en font pas une œuvre majeure. Je suis même plutôt déçu par ce troisième bébé, de loin le moins excentrique. Les placements vocaux de Steven sont très aléatoires, parfois bâclés, à l’image des « toudoudou tadada » de « The Watchmaker ». Ben Folds est coutumier du fait, mais pas toi Steven. Et que dire de cette conclusion éponyme, vaporeuse, nébuleuse, mais tellement accessible qu’on pourrait l’imaginer en tant qu’illustration musicale d’une comédie sentimentale un peu fleur-bleue ? C’est certes le deuxième grand moment de cet album de par sa beauté et sa pureté, mais c’est aussi extrêmement frustrant car d’une simplicité inhabituelle, en témoigne cette reprise guimauve à 5’00.
Cet homme est donc faillible et aujourd’hui, il a failli. Pas à sa réputation, pas à son talent qui reste immense et inégalé, mais à son devoir d’illusionniste. The Raven That Refused To Sing (And Other Stories) est un troisième volet épuré, débarrassé d’un jusqu’au-boutisme qui devenait peut-être trop lourd à assumer sur le long terme. Sa durée est également significative. 54 minutes contre 83 pour Drowning For Grace. Et l’absence d’une composition suprême, aux qualités incontestables, à la perfection assumée, est l’aveu même de ce qui ressemble fort à une panne technique. Une simple carte postale aurait déjà été une délivrance.
Ajouté : Mercredi 06 Mars 2013
Chroniqueur : Stef.
Score : 
Lien en relation: Steven Wilson Website
Hits: 8774
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
