#
# 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
}
LEATHERHEAD (nz) - Needles (2017)
Label : Last Libretto
Sortie du Scud : 3 février 2017
Pays : Nouvelle Zélande
Genre : Stoner
Type : Album
Playtime : 9 Titres - 31 Mins
Bon, arrêtez de me pomper l'air avec ce qui est ou n'est pas du Stoner. Si l'on appliquait la définition officielle, 99 pourcent des groupes qui revendiquent l'étiquette sont des imposteurs. Je fonctionne au feeling et quand j'écoute Needles, le disque des néo-zélandais de LEATHERHEAD, cette musique organique obtenue par la savante addition d'une guitare southern bien fuzzée, une batterie pêchue et désarmante de naturel, une basse grasse comme un baklava et le chant rocailleux qu'on attrappe quand on petit-déjeune au Jack Daniel's, je pense Stoner. Cela dit je ne suis pas sectaire : certains morceaux des kiwis sonnent Punk ("Needles"), d'autres flirtent ouvertement avec le Heavy Blues ("Evolution"). Sans conteste, la piste la plus grasse, la plus lourde et donc la plus sincèrement Stoner est "C'est le Congo". Mais quelle que soit l'étiquette que vous leur donnez, le point commun des neuf brûlots de la galette, c'est l'urgence, l'énergie, une guitare enragée et un feeling de fou.
LEATHERHEAD est un groupe originaire de Waiheke Island, une île de 7500 âmes située à 35 minutes de ferry d'Auckland, en Nouvelle-Zélande. Le bout du bout du monde en quelques sortes. Malgré l'isolement de l'existence insulaire, le guitariste de LEATHERHEAD, Brendan Mooney n'est pas juste le guitariste de l'île. Le bonhomme a accompagné David Vanian, le chanteur du groupe punk THE DAMNED dans son side project solo, DAVID VANIAN & THE PHANTOM CHORDS. De même, le chanteur compositeur de LEATHERHEAD est un contributeur reconnu. Il a chanté pour plusieurs groupes locaux (THREE LEGGED HORSE, CLENCH, TANK & PUMP) et publié quelques créations solo. Il y a aussi du lourd du côté de la section rythmique tenue par deux musiciens blanchis sous les harnais Moik Brennan's à la basse et Carl Blutner à la batterie. Même si ces musiciens ont une renommée essentiellement locale, un petit tour sur la page facebook du projet vous confirme ce que la biographie laisse déjà entrevoir : LEATHERHEAD est un gang mature constitué de quadras qui ont pas mal roulé leur bosse et connaissent le job.
Needles est un court album de 30 minutes sur lequel le quatuor s'est fait plaisir. On sent le disque construit en studio. On sent un enregistrement live, sans reverb, sans overdub, sans effets samplés. Des compos qui sentent le vécu, la route et la sueur. Ce n'est pas un projet cérébral, c'est tout le contraire d'un disque prise de tête. C'est franc, direct, sincère. C'est le genre de musique qui passe à merveille en fonds sonore dans un bar de routiers où une bande de barbus à casquette disputent une partie acharnée de billard pendant qu'une serveuse à choucroute blonde et forte poitrine comprimée dans une chemise western renouvelle les consommations et qu'un barman aux bras bardés de tatouages de vétéran sert calmement des Rolling Rock.
La musique de LEATHERHEAD est aussi éternelle que cette image banale que m'évoque l'écoute de Needles. C'est du Rock tout ce qu'il y a de plus Heavy, et dans sa désarmante simplicité, cette musique fait du bien.
Ajouté : Dimanche 30 Avril 2017
Chroniqueur : Rivax
Score :  
Lien en relation: Leatherhead Website
Hits: 6794
|
| © Metal-Impact Since 2001 | Webmaster et Rédacteur en chef : Blasphy De Blasphèmar
Rechercher sur M-I
