/include/spyc/spyc.php5

<?php
  /**
   * Spyc -- A Simple PHP YAML Class
   * @version 0.2.(5) -- 2006-12-31
   * @author Chris Wanstrath <chris@ozmm.org>
   * @author Vlad Andersen <vlad@oneiros.ru>
   * @link http://spyc.sourceforge.net/
   * @copyright Copyright 2005-2006 Chris Wanstrath
   * @license http://www.opensource.org/licenses/mit-license.php MIT License
   * @package Spyc
   */

  /**
   * A node, used by Spyc for parsing YAML.
   * @package Spyc
   */
  class YAMLNode {
  /**#@+
   * @access public
   * @var string
   */
  public $parent;
  public $id;
  /**#@+*/
  /**
   * @access public
   * @var mixed
   */
  public $data;
  /**
   * @access public
   * @var int
   */
  public $indent;
  /**
   * @access public
   * @var bool
   */
  public $children = false;

  /**
   * The constructor assigns the node a unique ID.
   * @access public
   * @return void
   */
   public function YAMLNode($nodeId) {
    $this->id = $nodeId;
  }
  }

  /**
   * The Simple PHP YAML Class.
   *
   * This class can be used to read a YAML file and convert its contents
   * into a PHP array.  It currently supports a very limited subsection of
   * the YAML spec.
   *
   * Usage:
   * <code>
   *   $parser = new Spyc;
   *   $array  = $parser->load($file);
   * </code>
   * @package Spyc
   */
  class Spyc {

  /**
   * Load YAML into a PHP array statically
   *
   * The load method, when supplied with a YAML stream (string or file),
   * will do its best to convert YAML in a file into a PHP array.  Pretty
   * simple.
   *  Usage:
   *  <code>
   *   $array = Spyc::YAMLLoad('lucky.yaml');
   *   print_r($array);
   *  </code>
   * @access public
   * @return array
   * @param string $input Path of YAML file or string containing YAML
   */
   public static function YAMLLoad($input) {
    $spyc = new Spyc;
    return $spyc->load($input);
  }

  /**
   * Dump YAML from PHP array statically
   *
   * The dump method, when supplied with an array, will do its best
   * to convert the array into friendly YAML.  Pretty simple.  Feel free to
   * save the returned string as nothing.yaml and pass it around.
   *
   * Oh, and you can decide how big the indent is and what the wordwrap
   * for folding is.  Pretty cool -- just pass in 'false' for either if
   * you want to use the default.
   *
   * Indent's default is 2 spaces, wordwrap's default is 40 characters.  And
   * you can turn off wordwrap by passing in 0.
   *
   * @access public
   * @return string
   * @param array $array PHP array
   * @param int $indent Pass in false to use the default, which is 2
   * @param int $wordwrap Pass in 0 for no wordwrap, false for default (40)
   */
   public static function YAMLDump($array,$indent = false,$wordwrap = false) {
    $spyc = new Spyc;
    return $spyc->dump($array,$indent,$wordwrap);
  }

  /**
   * Load YAML into a PHP array from an instantiated object
   *
   * The load method, when supplied with a YAML stream (string or file path),
   * will do its best to convert the YAML into a PHP array.  Pretty simple.
   *  Usage:
   *  <code>
   *   $parser = new Spyc;
   *   $array  = $parser->load('lucky.yaml');
   *   print_r($array);
   *  </code>
   * @access public
   * @return array
   * @param string $input Path of YAML file or string containing YAML
   */
   public function load($input) {
    // See what type of input we're talking about
    // If it's not a file, assume it's a string
    if (!empty($input) && (strpos($input, "\n") === false)
      && file_exists($input)) {
    $yaml = file($input);
    } else {
    $yaml = explode("\n",$input);
    }
    // Initiate some objects and values
    $base        = new YAMLNode (1);
    $base->indent    = 0;
    $this->_lastIndent = 0;
    $this->_lastNode   = $base->id;
    $this->_inBlock  = false;
    $this->_isInline   = false;
    $this->_nodeId   = 2;

    foreach ($yaml as $linenum => $line) {
    $ifchk = trim($line);

    // If the line starts with a tab (instead of a space), throw a fit.
    if (preg_match('/^(\t)+(\w+)/', $line)) {
      $err = 'ERROR: Line '. ($linenum + 1) .' in your input YAML begins'.
         ' with a tab.  YAML only recognizes spaces.  Please reformat.';
      die($err);
    }

    if ($this->_inBlock === false && empty($ifchk)) {
      continue;
    } elseif ($this->_inBlock == true && empty($ifchk)) {
      $last = $this->_allNodes[$this->_lastNode];
      $last->data[key($last->data)] .= "\n";
    } elseif ($ifchk{0} != '#' && substr($ifchk,0,3) != '---') {
      // Create a new node and get its indent
      $node     = new YAMLNode ($this->_nodeId);
		  $this->_nodeId++;
      $node->indent = $this->_getIndent($line);

      // Check where the node lies in the hierarchy
      if ($this->_lastIndent == $node->indent) {
      // If we're in a block, add the text to the parent's data
      if ($this->_inBlock === true) {
        $parent = $this->_allNodes[$this->_lastNode];
        $parent->data[key($parent->data)] .= trim($line).$this->_blockEnd;
      } else {
        // The current node's parent is the same as the previous node's
        if (isset($this->_allNodes[$this->_lastNode])) {
        $node->parent = $this->_allNodes[$this->_lastNode]->parent;
        }
      }
      } elseif ($this->_lastIndent < $node->indent) {
      if ($this->_inBlock === true) {
        $parent = $this->_allNodes[$this->_lastNode];
        $parent->data[key($parent->data)] .= trim($line).$this->_blockEnd;
      } elseif ($this->_inBlock === false) {
        // The current node's parent is the previous node
        $node->parent = $this->_lastNode;

        // If the value of the last node's data was > or | we need to
        // start blocking i.e. taking in all lines as a text value until
        // we drop our indent.
        $parent = $this->_allNodes[$node->parent];
        $this->_allNodes[$node->parent]->children = true;
        if (is_array($parent->data)) {
        // if (isset ($parent->data[key($parent->data)]))
          $chk = $parent->data[key($parent->data)];
        if ($chk === '>') {
          $this->_inBlock  = true;
          $this->_blockEnd = ' ';
          $parent->data[key($parent->data)] =
            str_replace('>','',$parent->data[key($parent->data)]);
          $parent->data[key($parent->data)] .= trim($line).' ';
          $this->_allNodes[$node->parent]->children = false;
          $this->_lastIndent = $node->indent;
        } elseif ($chk === '|') {
          $this->_inBlock  = true;
          $this->_blockEnd = "\n";
          $parent->data[key($parent->data)] =
            str_replace('|','',$parent->data[key($parent->data)]);
          $parent->data[key($parent->data)] .= trim($line)."\n";
          $this->_allNodes[$node->parent]->children = false;
          $this->_lastIndent = $node->indent;
        }
        }
      }
      } elseif ($this->_lastIndent > $node->indent) {
      // Any block we had going is dead now
      if ($this->_inBlock === true) {
        $this->_inBlock = false;
        if ($this->_blockEnd = "\n") {
        $last = $this->_allNodes[$this->_lastNode];
        $last->data[key($last->data)] =
            trim($last->data[key($last->data)]);
        }
      }

      // We don't know the parent of the node so we have to find it
      // foreach ($this->_allNodes as $n) {
      foreach ($this->_indentSort[$node->indent] as $n) {
        if ($n->indent == $node->indent) {
        $node->parent = $n->parent;
        }
      }
      }

      if ($this->_inBlock === false) {
      // Set these properties with information from our current node
      $this->_lastIndent = $node->indent;
      // Set the last node
      $this->_lastNode = $node->id;
      // Parse the YAML line and return its data
      $node->data = $this->_parseLine($line);
      // Add the node to the master list
      $this->_allNodes[$node->id] = $node;
      // Add a reference to the parent list
      $this->_allParent[intval($node->parent)][] = $node->id;
      // Add a reference to the node in an indent array
      $this->_indentSort[$node->indent][] = $this->_allNodes[$node->id];
      // Add a reference to the node in a References array if this node
      // has a YAML reference in it.
      if (
        ( (is_array($node->data)) &&
        isset($node->data[key($node->data)]) &&
        (!is_array($node->data[key($node->data)])) )
        &&
        ( (preg_match('/^&([^ ]+)/',$node->data[key($node->data)]))
        ||
        (preg_match('/^\*([^ ]+)/',$node->data[key($node->data)])) )
      ) {
        $this->_haveRefs[] = $this->_allNodes[$node->id];
      } elseif (
        ( (is_array($node->data)) &&
        isset($node->data[key($node->data)]) &&
         (is_array($node->data[key($node->data)])) )
      ) {
        // Incomplete reference making code.  Ugly, needs cleaned up.
        foreach ($node->data[key($node->data)] as $d) {
        if ( !is_array($d) &&
          ( (preg_match('/^&([^ ]+)/',$d))
          ||
          (preg_match('/^\*([^ ]+)/',$d)) )
          ) {
          $this->_haveRefs[] = $this->_allNodes[$node->id];
        }
        }
      }
      }
    }
    }
    unset($node);

    // Here we travel through node-space and pick out references (& and *)
    $this->_linkReferences();

    // Build the PHP array out of node-space
    $trunk = $this->_buildArray();
    return $trunk;
  }

  /**
   * Dump PHP array to YAML
   *
   * The dump method, when supplied with an array, will do its best
   * to convert the array into friendly YAML.  Pretty simple.  Feel free to
   * save the returned string as tasteful.yaml and pass it around.
   *
   * Oh, and you can decide how big the indent is and what the wordwrap
   * for folding is.  Pretty cool -- just pass in 'false' for either if
   * you want to use the default.
   *
   * Indent's default is 2 spaces, wordwrap's default is 40 characters.  And
   * you can turn off wordwrap by passing in 0.
   *
   * @access public
   * @return string
   * @param array $array PHP array
   * @param int $indent Pass in false to use the default, which is 2
   * @param int $wordwrap Pass in 0 for no wordwrap, false for default (40)
   */
   public function dump($array,$indent = false,$wordwrap = false) {
    // Dumps to some very clean YAML.  We'll have to add some more features
    // and options soon.  And better support for folding.

    // New features and options.
    if ($indent === false or !is_numeric($indent)) {
    $this->_dumpIndent = 2;
    } else {
    $this->_dumpIndent = $indent;
    }

    if ($wordwrap === false or !is_numeric($wordwrap)) {
    $this->_dumpWordWrap = 40;
    } else {
    $this->_dumpWordWrap = $wordwrap;
    }

    // New YAML document
    $string = "---\n";

    // Start at the base of the array and move through it.
    foreach ($array as $key => $value) {
    $string .= $this->_yamlize($key,$value,0);
    }
    return $string;
  }

  /**** Private Properties ****/

  /**#@+
   * @access private
   * @var mixed
   */
  private $_haveRefs;
  private $_allNodes;
  private $_allParent;
  private $_lastIndent;
  private $_lastNode;
  private $_inBlock;
  private $_isInline;
  private $_dumpIndent;
  private $_dumpWordWrap;
  /**#@+*/

  /**** Public Properties ****/

  /**#@+
   * @access public
   * @var mixed
   */
  public $_nodeId;
  /**#@+*/

  /**** Private Methods ****/

  /**
   * Attempts to convert a key / value array item to YAML
   * @access private
   * @return string
   * @param $key The name of the key
   * @param $value The value of the item
   * @param $indent The indent of the current node
   */
   private function _yamlize($key,$value,$indent) {
    if (is_array($value)) {
    // It has children.  What to do?
    // Make it the right kind of item
    $string = $this->_dumpNode($key,NULL,$indent);
    // Add the indent
    $indent += $this->_dumpIndent;
    // Yamlize the array
    $string .= $this->_yamlizeArray($value,$indent);
    } elseif (!is_array($value)) {
    // It doesn't have children.  Yip.
    $string = $this->_dumpNode($key,$value,$indent);
    }
    return $string;
  }

  /**
   * Attempts to convert an array to YAML
   * @access private
   * @return string
   * @param $array The array you want to convert
   * @param $indent The indent of the current level
   */
   private function _yamlizeArray($array,$indent) {
    if (is_array($array)) {
    $string = '';
    foreach ($array as $key => $value) {
      $string .= $this->_yamlize($key,$value,$indent);
    }
    return $string;
    } else {
    return false;
    }
  }

  /**
   * Returns YAML from a key and a value
   * @access private
   * @return string
   * @param $key The name of the key
   * @param $value The value of the item
   * @param $indent The indent of the current node
   */
   private function _dumpNode($key,$value,$indent) {
    // do some folding here, for blocks
    if (strpos($value,"\n") !== false || strpos($value,": ") !== false || strpos($value,"- ") !== false) {
    $value = $this->_doLiteralBlock($value,$indent);
    } else {
    $value  = $this->_doFolding($value,$indent);
    }

    if (is_bool($value)) {
    $value = ($value) ? "true" : "false";
    }

    $spaces = str_repeat(' ',$indent);

    if (is_int($key)) {
    // It's a sequence
    $string = $spaces.'- '.$value."\n";
    } else {
    // It's mapped
    $string = $spaces.$key.': '.$value."\n";
    }
    return $string;
  }

  /**
   * Creates a literal block for dumping
   * @access private
   * @return string
   * @param $value
   * @param $indent int The value of the indent
   */
   private function _doLiteralBlock($value,$indent) {
    $exploded = explode("\n",$value);
    $newValue = '|';
    $indent  += $this->_dumpIndent;
    $spaces   = str_repeat(' ',$indent);
    foreach ($exploded as $line) {
    $newValue .= "\n" . $spaces . trim($line);
    }
    return $newValue;
  }

  /**
   * Folds a string of text, if necessary
   * @access private
   * @return string
   * @param $value The string you wish to fold
   */
   private function _doFolding($value,$indent) {
    // Don't do anything if wordwrap is set to 0
    if ($this->_dumpWordWrap === 0) {
    return $value;
    }

    if (strlen($value) > $this->_dumpWordWrap) {
    $indent += $this->_dumpIndent;
    $indent = str_repeat(' ',$indent);
    $wrapped = wordwrap($value,$this->_dumpWordWrap,"\n$indent");
    $value   = ">\n".$indent.$wrapped;
    }
    return $value;
  }

  /* Methods used in loading */

  /**
   * Finds and returns the indentation of a YAML line
   * @access private
   * @return int
   * @param string $line A line from the YAML file
   */
   private function _getIndent($line) {
    preg_match('/^\s{1,}/',$line,$match);
    if (!empty($match[0])) {
    $indent = substr_count($match[0],' ');
    } else {
    $indent = 0;
    }
    return $indent;
  }

  /**
   * Parses YAML code and returns an array for a node
   * @access private
   * @return array
   * @param string $line A line from the YAML file
   */
   private function _parseLine($line) {
    $line = trim($line);

    $array = array();

    if (preg_match('/^-(.*):$/',$line)) {
    // It's a mapped sequence
    $key     = trim(substr(substr($line,1),0,-1));
    $array[$key] = '';
    } elseif ($line[0] == '-' && substr($line,0,3) != '---') {
    // It's a list item but not a new stream
    if (strlen($line) > 1) {
      $value   = trim(substr($line,1));
      // Set the type of the value.  Int, string, etc
      $value   = $this->_toType($value);
      $array[] = $value;
    } else {
      $array[] = array();
    }
    } elseif (preg_match('/^(.+):/',$line,$key)) {
    // It's a key/value pair most likely
    // If the key is in double quotes pull it out
    if (preg_match('/^(["\'](.*)["\'](\s)*:)/',$line,$matches)) {
      $value = trim(str_replace($matches[1],'',$line));
      $key   = $matches[2];
    } else {
      // Do some guesswork as to the key and the value
      $explode = explode(':',$line);
      $key   = trim($explode[0]);
      array_shift($explode);
      $value   = trim(implode(':',$explode));
    }

    // Set the type of the value.  Int, string, etc
    $value = $this->_toType($value);
    if (empty($key)) {
      $array[]   = $value;
    } else {
      $array[$key] = $value;
    }
    }
    return $array;
  }

  /**
   * Finds the type of the passed value, returns the value as the new type.
   * @access private
   * @param string $value
   * @return mixed
   */
   private function _toType($value) {
    if (preg_match('/^("(.*)"|\'(.*)\')/',$value,$matches)) {
     $value = (string)preg_replace('/(\'\'|\\\\\')/',"'",end($matches));
     $value = preg_replace('/\\\\"/','"',$value);
    } elseif (preg_match('/^\\[(.+)\\]$/',$value,$matches)) {
    // Inline Sequence

    // Take out strings sequences and mappings
    $explode = $this->_inlineEscape($matches[1]);

    // Propogate value array
    $value  = array();
    foreach ($explode as $v) {
      $value[] = $this->_toType($v);
    }
    } elseif (strpos($value,': ')!==false && !preg_match('/^{(.+)/',$value)) {
      // It's a map
      $array = explode(': ',$value);
      $key   = trim($array[0]);
      array_shift($array);
      $value = trim(implode(': ',$array));
      $value = $this->_toType($value);
      $value = array($key => $value);
    } elseif (preg_match("/{(.+)}$/",$value,$matches)) {
    // Inline Mapping

    // Take out strings sequences and mappings
    $explode = $this->_inlineEscape($matches[1]);

    // Propogate value array
    $array = array();
    foreach ($explode as $v) {
      $array = $array + $this->_toType($v);
    }
    $value = $array;
    } elseif (strtolower($value) == 'null' or $value == '' or $value == '~') {
    $value = NULL;
    } elseif (preg_match ('/^[0-9]+$/', $value)) {
    $value = (int)$value;
    } elseif (in_array(strtolower($value),
          array('true', 'on', '+', 'yes', 'y'))) {
    $value = TRUE;
    } elseif (in_array(strtolower($value),
          array('false', 'off', '-', 'no', 'n'))) {
    $value = FALSE;
    } elseif (is_numeric($value)) {
    $value = (float)$value;
    } else {
    // Just a normal string, right?
    $value = trim(preg_replace('/#(.+)$/','',$value));
    }

    return $value;
  }

  /**
   * Used in inlines to check for more inlines or quoted strings
   * @access private
   * @return array
   */
   private function _inlineEscape($inline) {
    // There's gotta be a cleaner way to do this...
    // While pure sequences seem to be nesting just fine,
    // pure mappings and mappings with sequences inside can't go very
    // deep.  This needs to be fixed.

    $saved_strings = array();

    // Check for strings
    $regex = '/(?:(")|(?:\'))((?(1)[^"]+|[^\']+))(?(1)"|\')/';
    if (preg_match_all($regex,$inline,$strings)) {
    $saved_strings = $strings[0];
    $inline  = preg_replace($regex,'YAMLString',$inline);
    }
    unset($regex);

    // Check for sequences
    if (preg_match_all('/\[(.+)\]/U',$inline,$seqs)) {
    $inline = preg_replace('/\[(.+)\]/U','YAMLSeq',$inline);
    $seqs   = $seqs[0];
    }

    // Check for mappings
    if (preg_match_all('/{(.+)}/U',$inline,$maps)) {
    $inline = preg_replace('/{(.+)}/U','YAMLMap',$inline);
    $maps   = $maps[0];
    }

    $explode = explode(', ',$inline);


    // Re-add the sequences
    if (!empty($seqs)) {
    $i = 0;
    foreach ($explode as $key => $value) {
      if (strpos($value,'YAMLSeq') !== false) {
      $explode[$key] = str_replace('YAMLSeq',$seqs[$i],$value);
      ++$i;
      }
    }
    }

    // Re-add the mappings
    if (!empty($maps)) {
    $i = 0;
    foreach ($explode as $key => $value) {
      if (strpos($value,'YAMLMap') !== false) {
      $explode[$key] = str_replace('YAMLMap',$maps[$i],$value);
      ++$i;
      }
    }
    }


    // Re-add the strings
    if (!empty($saved_strings)) {
    $i = 0;
    foreach ($explode as $key => $value) {
      while (strpos($value,'YAMLString') !== false) {
      $explode[$key] = preg_replace('/YAMLString/',$saved_strings[$i],$value, 1);
      ++$i;
      $value = $explode[$key];
      }
    }
    }

    return $explode;
  }

  /**
   * Builds the PHP array from all the YAML nodes we've gathered
   * @access private
   * @return array
   */
   private function _buildArray() {
    $trunk = array();

    if (!isset($this->_indentSort[0])) {
    return $trunk;
    }

    foreach ($this->_indentSort[0] as $n) {
    if (empty($n->parent)) {
      $this->_nodeArrayizeData($n);
      // Check for references and copy the needed data to complete them.
      $this->_makeReferences($n);
      // Merge our data with the big array we're building
      $trunk = $this->_array_kmerge($trunk,$n->data);
    }
    }

    return $trunk;
  }

  /**
   * Traverses node-space and sets references (& and *) accordingly
   * @access private
   * @return bool
   */
   private function _linkReferences() {
    if (is_array($this->_haveRefs)) {
    foreach ($this->_haveRefs as $node) {
      if (!empty($node->data)) {
      $key = key($node->data);
      // If it's an array, don't check.
      if (is_array($node->data[$key])) {
        foreach ($node->data[$key] as $k => $v) {
        $this->_linkRef($node,$key,$k,$v);
        }
      } else {
        $this->_linkRef($node,$key);
      }
      }
    }
    }
    return true;
  }

  function _linkRef(&$n,$key,$k = NULL,$v = NULL) {
    if (empty($k) && empty($v)) {
    // Look for &refs
    if (preg_match('/^&([^ ]+)/',$n->data[$key],$matches)) {
      // Flag the node so we know it's a reference
      $this->_allNodes[$n->id]->ref = substr($matches[0],1);
      $this->_allNodes[$n->id]->data[$key] =
           substr($n->data[$key],strlen($matches[0])+1);
    // Look for *refs
    } elseif (preg_match('/^\*([^ ]+)/',$n->data[$key],$matches)) {
      $ref = substr($matches[0],1);
      // Flag the node as having a reference
      $this->_allNodes[$n->id]->refKey =  $ref;
    }
    } elseif (!empty($k) && !empty($v)) {
    if (preg_match('/^&([^ ]+)/',$v,$matches)) {
      // Flag the node so we know it's a reference
      $this->_allNodes[$n->id]->ref = substr($matches[0],1);
      $this->_allNodes[$n->id]->data[$key][$k] =
                substr($v,strlen($matches[0])+1);
    // Look for *refs
    } elseif (preg_match('/^\*([^ ]+)/',$v,$matches)) {
      $ref = substr($matches[0],1);
      // Flag the node as having a reference
      $this->_allNodes[$n->id]->refKey =  $ref;
    }
    }
  }

  /**
   * Finds the children of a node and aids in the building of the PHP array
   * @access private
   * @param int $nid The id of the node whose children we're gathering
   * @return array
   */
   private function _gatherChildren($nid) {
    $return = array();
    $node   = $this->_allNodes[$nid];
    if (is_array ($this->_allParent[$node->id])) {
    foreach ($this->_allParent[$node->id] as $nodeZ) {
      $z = $this->_allNodes[$nodeZ];
      // We found a child
      $this->_nodeArrayizeData($z);
      // Check for references
      $this->_makeReferences($z);
      // Merge with the big array we're returning
      // The big array being all the data of the children of our parent node
      $return = $this->_array_kmerge($return,$z->data);
    }
    }
    return $return;
  }

  /**
   * Turns a node's data and its children's data into a PHP array
   *
   * @access private
   * @param array $node The node which you want to arrayize
   * @return boolean
   */
   private function _nodeArrayizeData(&$node) {
    if (is_array($node->data) && $node->children == true) {
    // This node has children, so we need to find them
    $childs = $this->_gatherChildren($node->id);
    // We've gathered all our children's data and are ready to use it
    $key = key($node->data);
    $key = empty($key) ? 0 : $key;
    // If it's an array, add to it of course
    if (isset ($node->data[$key])) {
      if (is_array($node->data[$key])) {
        $node->data[$key] = $this->_array_kmerge($node->data[$key],$childs);
      } else {
        $node->data[$key] = $childs;
      }
    } else {
      $node->data[$key] = $childs;
    }
    } elseif (!is_array($node->data) && $node->children == true) {
    // Same as above, find the children of this node
    $childs     = $this->_gatherChildren($node->id);
    $node->data   = array();
    $node->data[] = $childs;
    }

    // We edited $node by reference, so just return true
    return true;
  }

  /**
   * Traverses node-space and copies references to / from this object.
   * @access private
   * @param object $z A node whose references we wish to make real
   * @return bool
   */
   private function _makeReferences(&$z) {
    // It is a reference
    if (isset($z->ref)) {
    $key        = key($z->data);
    // Copy the data to this object for easy retrieval later
    $this->ref[$z->ref] = $z->data[$key];
    // It has a reference
    } elseif (isset($z->refKey)) {
    if (isset($this->ref[$z->refKey])) {
      $key       = key($z->data);
      // Copy the data from this object to make the node a real reference
      $z->data[$key] = $this->ref[$z->refKey];
    }
    }
    return true;
  }


  /**
   * Merges arrays and maintains numeric keys.
   *
   * An ever-so-slightly modified version of the array_kmerge() function posted
   * to php.net by mail at nospam dot iaindooley dot com on 2004-04-08.
   *
   * http://us3.php.net/manual/en/function.array-merge.php#41394
   *
   * @access private
   * @param array $arr1
   * @param array $arr2
   * @return array
   */
   private function _array_kmerge($arr1,$arr2) {
    if(!is_array($arr1)) $arr1 = array();
    if(!is_array($arr2)) $arr2 = array();

    $keys  = array_merge(array_keys($arr1),array_keys($arr2));
    $vals  = array_merge(array_values($arr1),array_values($arr2));
    $ret   = array();
    foreach($keys as $key) {
    list($unused,$val) = each($vals);
    if (isset($ret[$key]) and is_int($key)) $ret[] = $val; else $ret[$key] = $val;
    }
    return $ret;
  }
  }
?>