Last commit: Tue Aug 18 22:49:26 2020 +0200	Jan Dankert	New upstream release of Spyc, the YAML parser.


      <?php
      /**
       * Spyc -- A Simple PHP YAML Class
       * @version 0.6.2
       * @author Vlad Andersen <vlad.andersen@gmail.com>
       * @author Chris Wanstrath <chris@ozmm.org>
       * @link https://github.com/mustangostang/spyc/
       * @copyright Copyright 2005-2006 Chris Wanstrath, 2006-2011 Vlad Andersen
       * @license http://www.opensource.org/licenses/mit-license.php MIT License
      * @package Spyc
      */
     
     if (!function_exists('spyc_load')) {
     	/**
     	 * Parses YAML to array.
     	 * @param string $string YAML string.
     	 * @return array
     	 */
     	function spyc_load ($string) {
     		return Spyc::YAMLLoadString($string);
     	}
     }
     
     if (!function_exists('spyc_load_file')) {
     	/**
     	 * Parses YAML to array.
     	 * @param string $file Path to YAML file.
     	 * @return array
     	 */
     	function spyc_load_file ($file) {
     		return Spyc::YAMLLoad($file);
     	}
     }
     
     if (!function_exists('spyc_dump')) {
     	/**
     	 * Dumps array to YAML.
     	 * @param array $data Array.
     	 * @return string
     	 */
     	function spyc_dump ($data) {
     		return Spyc::YAMLDump($data, false, false, true);
     	}
     }
     
     if (!class_exists('Spyc')) {
     
     	/**
     	 * 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>
     	 *   $Spyc  = new Spyc;
     	 *   $array = $Spyc->load($file);
     	 * </code>
     	 * or:
     	 * <code>
     	 *   $array = Spyc::YAMLLoad($file);
     	 * </code>
     	 * or:
     	 * <code>
     	 *   $array = spyc_load_file($file);
     	 * </code>
     	 * @package Spyc
     	 */
     	class Spyc {
     
     		// SETTINGS
     
     		const REMPTY = "\0\0\0\0\0";
     
     		/**
     		 * Setting this to true will force YAMLDump to enclose any string value in
     		 * quotes.  False by default.
     		 *
     		 * @var bool
     		 */
     		public $setting_dump_force_quotes = false;
     
     		/**
     		 * Setting this to true will forse YAMLLoad to use syck_load function when
     		 * possible. False by default.
     		 * @var bool
     		 */
     		public $setting_use_syck_is_possible = false;
     
     		/**
     		 * Setting this to true will forse YAMLLoad to use syck_load function when
     		 * possible. False by default.
     		 * @var bool
     		 */
     		public $setting_empty_hash_as_object = false;
     
     
     		/**#@+
    		 * @access private
    		 * @var mixed
    		 */
    		private $_dumpIndent;
    		private $_dumpWordWrap;
    		private $_containsGroupAnchor = false;
    		private $_containsGroupAlias = false;
    		private $path;
    		private $result;
    		private $LiteralPlaceHolder = '___YAML_Literal_Block___';
    		private $SavedGroups = array();
    		private $indent;
    		/**
    		 * Path modifier that should be applied after adding current element.
    		 * @var array
    		 */
    		private $delayedPath = array();
    
    		/**#@+
    		 * @access public
    		 * @var mixed
    		 */
    		public $_nodeId;
    
    		/**
    		 * Load a valid YAML string to Spyc.
    		 * @param string $input
    		 * @return array
    		 */
    		public function load ($input) {
    			return $this->_loadString($input);
    		}
    
    		/**
    		 * Load a valid YAML file to Spyc.
    		 * @param string $file
    		 * @return array
    		 */
    		public function loadFile ($file) {
    			return $this->_load($file);
    		}
    
    		/**
    		 * 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
    		 * @param array set options
    		 */
    		public static function YAMLLoad($input, $options = []) {
    			$Spyc = new Spyc;
    			foreach ($options as $key => $value) {
    				if (property_exists($Spyc, $key)) {
    					$Spyc->$key = $value;
    				}
    			}
    			return $Spyc->_load($input);
    		}
    
    		/**
    		 * Load a string of YAML into a PHP array statically
    		 *
    		 * The load method, when supplied with a YAML string, will do its best
    		 * to convert YAML in a string into a PHP array.  Pretty simple.
    		 *
    		 * Note: use this function if you don't want files from the file system
    		 * loaded and processed as YAML.  This is of interest to people concerned
    		 * about security whose input is from a string.
    		 *
    		 *  Usage:
    		 *  <code>
    		 *   $array = Spyc::YAMLLoadString("---\n0: hello world\n");
    		 *   print_r($array);
    		 *  </code>
    		 * @access public
    		 * @return array
    		 * @param string $input String containing YAML
    		 * @param array set options
    		 */
    		public static function YAMLLoadString($input, $options = []) {
    			$Spyc = new Spyc;
    			foreach ($options as $key => $value) {
    				if (property_exists($Spyc, $key)) {
    					$Spyc->$key = $value;
    				}
    			}
    			return $Spyc->_loadString($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|\stdClass $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)
    		 * @param bool $no_opening_dashes Do not start YAML file with "---\n"
    		 */
    		public static function YAMLDump($array, $indent = false, $wordwrap = false, $no_opening_dashes = false) {
    			$spyc = new Spyc;
    			return $spyc->dump($array, $indent, $wordwrap, $no_opening_dashes);
    		}
    
    
    		/**
    		 * 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, $no_opening_dashes = 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 = "";
    			if (!$no_opening_dashes) $string = "---\n";
    
    			// Start at the base of the array and move through it.
    			if ($array) {
    				$array = (array)$array;
    				$previous_key = -1;
    				foreach ($array as $key => $value) {
    					if (!isset($first_key)) $first_key = $key;
    					$string .= $this->_yamlize($key,$value,0,$previous_key, $first_key, $array);
    					$previous_key = $key;
    				}
    			}
    			return $string;
    		}
    
    		/**
    		 * 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, $previous_key = -1, $first_key = 0, $source_array = null) {
    			if(is_object($value)) $value = (array)$value;
    			if (is_array($value)) {
    				if (empty ($value))
    					return $this->_dumpNode($key, array(), $indent, $previous_key, $first_key, $source_array);
    				// It has children.  What to do?
    				// Make it the right kind of item
    				$string = $this->_dumpNode($key, self::REMPTY, $indent, $previous_key, $first_key, $source_array);
    				// 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, $previous_key, $first_key, $source_array);
    			}
    			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 = '';
    				$previous_key = -1;
    				foreach ($array as $key => $value) {
    					if (!isset($first_key)) $first_key = $key;
    					$string .= $this->_yamlize($key, $value, $indent, $previous_key, $first_key, $array);
    					$previous_key = $key;
    				}
    				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, $previous_key = -1, $first_key = 0, $source_array = null) {
    			// do some folding here, for blocks
    			if (is_string ($value) && ((strpos($value,"\n") !== false || strpos($value,": ") !== false || strpos($value,"- ") !== false ||
    						strpos($value,"*") !== false || strpos($value,"#") !== false || strpos($value,"<") !== false || strpos($value,">") !== false || strpos ($value, '%') !== false || strpos ($value, '  ') !== false ||
    						strpos($value,"[") !== false || strpos($value,"]") !== false || strpos($value,"{") !== false || strpos($value,"}") !== false) || strpos($value,"&") !== false || strpos($value, "'") !== false || strpos($value, "!") === 0 ||
    					substr ($value, -1, 1) == ':')
    			) {
    				$value = $this->_doLiteralBlock($value,$indent);
    			} else {
    				$value  = $this->_doFolding($value,$indent);
    			}
    
    			if ($value === array()) $value = '[ ]';
    			if ($value === "") $value = '""';
    			if (self::isTranslationWord($value)) {
    				$value = $this->_doLiteralBlock($value, $indent);
    			}
    			if (trim ($value) != $value)
    				$value = $this->_doLiteralBlock($value,$indent);
    
    			if (is_bool($value)) {
    				$value = $value ? "true" : "false";
    			}
    
    			if ($value === null) $value = 'null';
    			if ($value === "'" . self::REMPTY . "'") $value = null;
    
    			$spaces = str_repeat(' ',$indent);
    
    			//if (is_int($key) && $key - 1 == $previous_key && $first_key===0) {
    			if (is_array ($source_array) && array_keys($source_array) === range(0, count($source_array) - 1)) {
    				// It's a sequence
    				$string = $spaces.'- '.$value."\n";
    			} else {
    				// if ($first_key===0)  throw new Exception('Keys are all screwy.  The first one was zero, now it\'s "'. $key .'"');
    				// It's mapped
    				if (strpos($key, ":") !== false || strpos($key, "#") !== false) { $key = '"' . $key . '"'; }
    				$string = rtrim ($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) {
    			if ($value === "\n") return '\n';
    			if (strpos($value, "\n") === false && strpos($value, "'") === false) {
    				return sprintf ("'%s'", $value);
    			}
    			if (strpos($value, "\n") === false && strpos($value, '"') === false) {
    				return sprintf ('"%s"', $value);
    			}
    			$exploded = explode("\n",$value);
    			$newValue = '|';
    			if (isset($exploded[0]) && ($exploded[0] == "|" || $exploded[0] == "|-" || $exploded[0] == ">")) {
    				$newValue = $exploded[0];
    				unset($exploded[0]);
    			}
    			$indent += $this->_dumpIndent;
    			$spaces   = str_repeat(' ',$indent);
    			foreach ($exploded as $line) {
    				$line = trim($line);
    				if (strpos($line, '"') === 0 && strrpos($line, '"') == (strlen($line)-1) || strpos($line, "'") === 0 && strrpos($line, "'") == (strlen($line)-1)) {
    					$line = substr($line, 1, -1);
    				}
    				$newValue .= "\n" . $spaces . ($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 && is_string ($value) && strlen($value) > $this->_dumpWordWrap) {
    				$indent += $this->_dumpIndent;
    				$indent = str_repeat(' ',$indent);
    				$wrapped = wordwrap($value,$this->_dumpWordWrap,"\n$indent");
    				$value   = ">\n".$indent.$wrapped;
    			} else {
    				if ($this->setting_dump_force_quotes && is_string ($value) && $value !== self::REMPTY)
    					$value = '"' . $value . '"';
    				if (is_numeric($value) && is_string($value))
    					$value = '"' . $value . '"';
    			}
    
    
    			return $value;
    		}
    
    		private function isTrueWord($value) {
    			$words = self::getTranslations(array('true', 'on', 'yes', 'y'));
    			return in_array($value, $words, true);
    		}
    
    		private function isFalseWord($value) {
    			$words = self::getTranslations(array('false', 'off', 'no', 'n'));
    			return in_array($value, $words, true);
    		}
    
    		private function isNullWord($value) {
    			$words = self::getTranslations(array('null', '~'));
    			return in_array($value, $words, true);
    		}
    
    		private function isTranslationWord($value) {
    			return (
    				self::isTrueWord($value)  ||
    				self::isFalseWord($value) ||
    				self::isNullWord($value)
    			);
    		}
    
    		/**
    		 * Coerce a string into a native type
    		 * Reference: http://yaml.org/type/bool.html
    		 * TODO: Use only words from the YAML spec.
    		 * @access private
    		 * @param $value The value to coerce
    		 */
    		private function coerceValue(&$value) {
    			if (self::isTrueWord($value)) {
    				$value = true;
    			} else if (self::isFalseWord($value)) {
    				$value = false;
    			} else if (self::isNullWord($value)) {
    				$value = null;
    			}
    		}
    
    		/**
    		 * Given a set of words, perform the appropriate translations on them to
    		 * match the YAML 1.1 specification for type coercing.
    		 * @param $words The words to translate
    		 * @access private
    		 */
    		private static function getTranslations(array $words) {
    			$result = array();
    			foreach ($words as $i) {
    				$result = array_merge($result, array(ucfirst($i), strtoupper($i), strtolower($i)));
    			}
    			return $result;
    		}
    
    // LOADING FUNCTIONS
    
    		private function _load($input) {
    			$Source = $this->loadFromSource($input);
    			return $this->loadWithSource($Source);
    		}
    
    		private function _loadString($input) {
    			$Source = $this->loadFromString($input);
    			return $this->loadWithSource($Source);
    		}
    
    		private function loadWithSource($Source) {
    			if (empty ($Source)) return array();
    			if ($this->setting_use_syck_is_possible && function_exists ('syck_load')) {
    				$array = syck_load (implode ("\n", $Source));
    				return is_array($array) ? $array : array();
    			}
    
    			$this->path = array();
    			$this->result = array();
    
    			$cnt = count($Source);
    			for ($i = 0; $i < $cnt; $i++) {
    				$line = $Source[$i];
    
    				$this->indent = strlen($line) - strlen(ltrim($line));
    				$tempPath = $this->getParentPathByIndent($this->indent);
    				$line = self::stripIndent($line, $this->indent);
    				if (self::isComment($line)) continue;
    				if (self::isEmpty($line)) continue;
    				$this->path = $tempPath;
    
    				$literalBlockStyle = self::startsLiteralBlock($line);
    				if ($literalBlockStyle) {
    					$line = rtrim ($line, $literalBlockStyle . " \n");
    					$literalBlock = '';
    					$line .= ' '.$this->LiteralPlaceHolder;
    					$literal_block_indent = strlen($Source[$i+1]) - strlen(ltrim($Source[$i+1]));
    					while (++$i < $cnt && $this->literalBlockContinues($Source[$i], $this->indent)) {
    						$literalBlock = $this->addLiteralLine($literalBlock, $Source[$i], $literalBlockStyle, $literal_block_indent);
    					}
    					$i--;
    				}
    
    				// Strip out comments
    				if (strpos ($line, '#')) {
    					$line = preg_replace('/\s*#([^"\']+)$/','',$line);
    				}
    
    				while (++$i < $cnt && self::greedilyNeedNextLine($line)) {
    					$line = rtrim ($line, " \n\t\r") . ' ' . ltrim ($Source[$i], " \t");
    				}
    				$i--;
    
    				$lineArray = $this->_parseLine($line);
    
    				if ($literalBlockStyle)
    					$lineArray = $this->revertLiteralPlaceHolder ($lineArray, $literalBlock);
    
    				$this->addArray($lineArray, $this->indent);
    
    				foreach ($this->delayedPath as $indent => $delayedPath)
    					$this->path[$indent] = $delayedPath;
    
    				$this->delayedPath = array();
    
    			}
    			return $this->result;
    		}
    
    		private function loadFromSource ($input) {
    			if (!empty($input) && strpos($input, "\n") === false && file_exists($input))
    				$input = file_get_contents($input);
    
    			return $this->loadFromString($input);
    		}
    
    		private function loadFromString ($input) {
    			$lines = explode("\n",$input);
    			foreach ($lines as $k => $_) {
    				$lines[$k] = rtrim ($_, "\r");
    			}
    			return $lines;
    		}
    
    		/**
    		 * 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) {
    			if (!$line) return array();
    			$line = trim($line);
    			if (!$line) return array();
    
    			$array = array();
    
    			$group = $this->nodeContainsGroup($line);
    			if ($group) {
    				$this->addGroup($line, $group);
    				$line = $this->stripGroup ($line, $group);
    			}
    
    			if ($this->startsMappedSequence($line)) {
    				return $this->returnMappedSequence($line);
    			}
    
    			if ($this->startsMappedValue($line)) {
    				return $this->returnMappedValue($line);
    			}
    
    			if ($this->isArrayElement($line))
    				return $this->returnArrayElement($line);
    
    			if ($this->isPlainArray($line))
    				return $this->returnPlainArray($line);
    
    			return $this->returnKeyValuePair($line);
    
    		}
    
    		/**
    		 * 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 ($value === '') return "";
    
    			if ($this->setting_empty_hash_as_object && $value === '{}') {
    				return new stdClass();
    			}
    
    			$first_character = $value[0];
    			$last_character = substr($value, -1, 1);
    
    			$is_quoted = false;
    			do {
    				if (!$value) break;
    				if ($first_character != '"' && $first_character != "'") break;
    				if ($last_character != '"' && $last_character != "'") break;
    				$is_quoted = true;
    			} while (0);
    
    			if ($is_quoted) {
    				$value = str_replace('\n', "\n", $value);
    				if ($first_character == "'")
    					return strtr(substr ($value, 1, -1), array ('\'\'' => '\'', '\\\''=> '\''));
    				return strtr(substr ($value, 1, -1), array ('\\"' => '"', '\\\''=> '\''));
    			}
    
    			if (strpos($value, ' #') !== false && !$is_quoted)
    				$value = preg_replace('/\s+#(.+)$/','',$value);
    
    			if ($first_character == '[' && $last_character == ']') {
    				// Take out strings sequences and mappings
    				$innerValue = trim(substr ($value, 1, -1));
    				if ($innerValue === '') return array();
    				$explode = $this->_inlineEscape($innerValue);
    				// Propagate value array
    				$value  = array();
    				foreach ($explode as $v) {
    					$value[] = $this->_toType($v);
    				}
    				return $value;
    			}
    
    			if (strpos($value,': ')!==false && $first_character != '{') {
    				$array = explode(': ',$value);
    				$key   = trim($array[0]);
    				array_shift($array);
    				$value = trim(implode(': ',$array));
    				$value = $this->_toType($value);
    				return array($key => $value);
    			}
    
    			if ($first_character == '{' && $last_character == '}') {
    				$innerValue = trim(substr ($value, 1, -1));
    				if ($innerValue === '') return array();
    				// Inline Mapping
    				// Take out strings sequences and mappings
    				$explode = $this->_inlineEscape($innerValue);
    				// Propagate value array
    				$array = array();
    				foreach ($explode as $v) {
    					$SubArr = $this->_toType($v);
    					if (empty($SubArr)) continue;
    					if (is_array ($SubArr)) {
    						$array[key($SubArr)] = $SubArr[key($SubArr)]; continue;
    					}
    					$array[] = $SubArr;
    				}
    				return $array;
    			}
    
    			if ($value == 'null' || $value == 'NULL' || $value == 'Null' || $value == '' || $value == '~') {
    				return null;
    			}
    
    			if ( is_numeric($value) && preg_match ('/^(-|)[1-9]+[0-9]*$/', $value) ){
    				$intvalue = (int)$value;
    				if ($intvalue != PHP_INT_MAX && $intvalue != ~PHP_INT_MAX)
    					$value = $intvalue;
    				return $value;
    			}
    
    			if ( is_string($value) && preg_match('/^0[xX][0-9a-fA-F]+$/', $value)) {
    				// Hexadecimal value.
    				return hexdec($value);
    			}
    
    			$this->coerceValue($value);
    
    			if (is_numeric($value)) {
    				if ($value === '0') return 0;
    				if (rtrim ($value, 0) === $value)
    					$value = (float)$value;
    				return $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.
    
    			$seqs = array();
    			$maps = array();
    			$saved_strings = array();
    			$saved_empties = array();
    
    			// Check for empty strings
    			$regex = '/("")|(\'\')/';
    			if (preg_match_all($regex,$inline,$strings)) {
    				$saved_empties = $strings[0];
    				$inline  = preg_replace($regex,'YAMLEmpty',$inline);
    			}
    			unset($regex);
    
    			// 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);
    
    			// echo $inline;
    
    			$i = 0;
    			do {
    
    				// Check for sequences
    				while (preg_match('/\[([^{}\[\]]+)\]/U',$inline,$matchseqs)) {
    					$seqs[] = $matchseqs[0];
    					$inline = preg_replace('/\[([^{}\[\]]+)\]/U', ('YAMLSeq' . (count($seqs) - 1) . 's'), $inline, 1);
    				}
    
    				// Check for mappings
    				while (preg_match('/{([^\[\]{}]+)}/U',$inline,$matchmaps)) {
    					$maps[] = $matchmaps[0];
    					$inline = preg_replace('/{([^\[\]{}]+)}/U', ('YAMLMap' . (count($maps) - 1) . 's'), $inline, 1);
    				}
    
    				if ($i++ >= 10) break;
    
    			} while (strpos ($inline, '[') !== false || strpos ($inline, '{') !== false);
    
    			$explode = explode(',',$inline);
    			$explode = array_map('trim', $explode);
    			$stringi = 0; $i = 0;
    
    			while (1) {
    
    				// Re-add the sequences
    				if (!empty($seqs)) {
    					foreach ($explode as $key => $value) {
    						if (strpos($value,'YAMLSeq') !== false) {
    							foreach ($seqs as $seqk => $seq) {
    								$explode[$key] = str_replace(('YAMLSeq'.$seqk.'s'),$seq,$value);
    								$value = $explode[$key];
    							}
    						}
    					}
    				}
    
    				// Re-add the mappings
    				if (!empty($maps)) {
    					foreach ($explode as $key => $value) {
    						if (strpos($value,'YAMLMap') !== false) {
    							foreach ($maps as $mapk => $map) {
    								$explode[$key] = str_replace(('YAMLMap'.$mapk.'s'), $map, $value);
    								$value = $explode[$key];
    							}
    						}
    					}
    				}
    
    
    				// Re-add the strings
    				if (!empty($saved_strings)) {
    					foreach ($explode as $key => $value) {
    						while (strpos($value,'YAMLString') !== false) {
    							$explode[$key] = preg_replace('/YAMLString/',$saved_strings[$stringi],$value, 1);
    							unset($saved_strings[$stringi]);
    							++$stringi;
    							$value = $explode[$key];
    						}
    					}
    				}
    
    
    				// Re-add the empties
    				if (!empty($saved_empties)) {
    					foreach ($explode as $key => $value) {
    						while (strpos($value,'YAMLEmpty') !== false) {
    							$explode[$key] = preg_replace('/YAMLEmpty/', '', $value, 1);
    							$value = $explode[$key];
    						}
    					}
    				}
    
    				$finished = true;
    				foreach ($explode as $key => $value) {
    					if (strpos($value,'YAMLSeq') !== false) {
    						$finished = false; break;
    					}
    					if (strpos($value,'YAMLMap') !== false) {
    						$finished = false; break;
    					}
    					if (strpos($value,'YAMLString') !== false) {
    						$finished = false; break;
    					}
    					if (strpos($value,'YAMLEmpty') !== false) {
    						$finished = false; break;
    					}
    				}
    				if ($finished) break;
    
    				$i++;
    				if ($i > 10)
    					break; // Prevent infinite loops.
    			}
    
    
    			return $explode;
    		}
    
    		private function literalBlockContinues ($line, $lineIndent) {
    			if (!trim($line)) return true;
    			if (strlen($line) - strlen(ltrim($line)) > $lineIndent) return true;
    			return false;
    		}
    
    		private function referenceContentsByAlias ($alias) {
    			do {
    				if (!isset($this->SavedGroups[$alias])) { echo "Bad group name: $alias."; break; }
    				$groupPath = $this->SavedGroups[$alias];
    				$value = $this->result;
    				foreach ($groupPath as $k) {
    					$value = $value[$k];
    				}
    			} while (false);
    			return $value;
    		}
    
    		private function addArrayInline ($array, $indent) {
    			$CommonGroupPath = $this->path;
    			if (empty ($array)) return false;
    
    			foreach ($array as $k => $_) {
    				$this->addArray(array($k => $_), $indent);
    				$this->path = $CommonGroupPath;
    			}
    			return true;
    		}
    
    		private function addArray ($incoming_data, $incoming_indent) {
    
    			// print_r ($incoming_data);
    
    			if (count ($incoming_data) > 1)
    				return $this->addArrayInline ($incoming_data, $incoming_indent);
    
    			$key = key ($incoming_data);
    			$value = isset($incoming_data[$key]) ? $incoming_data[$key] : null;
    			if ($key === '__!YAMLZero') $key = '0';
    
    			if ($incoming_indent == 0 && !$this->_containsGroupAlias && !$this->_containsGroupAnchor) { // Shortcut for root-level values.
    				if ($key || $key === '' || $key === '0') {
    					$this->result[$key] = $value;
    				} else {
    					$this->result[] = $value; end ($this->result); $key = key ($this->result);
    				}
    				$this->path[$incoming_indent] = $key;
    				return;
    			}
    
    
    
    			$history = array();
    			// Unfolding inner array tree.
    			$history[] = $_arr = $this->result;
    			foreach ($this->path as $k) {
    				$history[] = $_arr = $_arr[$k];
    			}
    
    			if ($this->_containsGroupAlias) {
    				$value = $this->referenceContentsByAlias($this->_containsGroupAlias);
    				$this->_containsGroupAlias = false;
    			}
    
    
    			// Adding string or numeric key to the innermost level or $this->arr.
    			if (is_string($key) && $key == '<<') {
    				if (!is_array ($_arr)) { $_arr = array (); }
    
    				$_arr = array_merge ($_arr, $value);
    			} else if ($key || $key === '' || $key === '0') {
    				if (!is_array ($_arr))
    					$_arr = array ($key=>$value);
    				else
    					$_arr[$key] = $value;
    			} else {
    				if (!is_array ($_arr)) { $_arr = array ($value); $key = 0; }
    				else { $_arr[] = $value; end ($_arr); $key = key ($_arr); }
    			}
    
    			$reverse_path = array_reverse($this->path);
    			$reverse_history = array_reverse ($history);
    			$reverse_history[0] = $_arr;
    			$cnt = count($reverse_history) - 1;
    			for ($i = 0; $i < $cnt; $i++) {
    				$reverse_history[$i+1][$reverse_path[$i]] = $reverse_history[$i];
    			}
    			$this->result = $reverse_history[$cnt];
    
    			$this->path[$incoming_indent] = $key;
    
    			if ($this->_containsGroupAnchor) {
    				$this->SavedGroups[$this->_containsGroupAnchor] = $this->path;
    				if (is_array ($value)) {
    					$k = key ($value);
    					if (!is_int ($k)) {
    						$this->SavedGroups[$this->_containsGroupAnchor][$incoming_indent + 2] = $k;
    					}
    				}
    				$this->_containsGroupAnchor = false;
    			}
    
    		}
    
    		private static function startsLiteralBlock ($line) {
    			$lastChar = substr (trim($line), -1);
    			if ($lastChar != '>' && $lastChar != '|') return false;
    			if ($lastChar == '|') return $lastChar;
    			// HTML tags should not be counted as literal blocks.
    			if (preg_match ('#<.*?>$#', $line)) return false;
    			return $lastChar;
    		}
    
    		private static function greedilyNeedNextLine($line) {
    			$line = trim ($line);
    			if (!strlen($line)) return false;
    			if (substr ($line, -1, 1) == ']') return false;
    			if ($line[0] == '[') return true;
    			if (preg_match ('#^[^:]+?:\s*\[#', $line)) return true;
    			return false;
    		}
    
    		private function addLiteralLine ($literalBlock, $line, $literalBlockStyle, $indent = -1) {
    			$line = self::stripIndent($line, $indent);
    			if ($literalBlockStyle !== '|') {
    				$line = self::stripIndent($line);
    			}
    			$line = rtrim ($line, "\r\n\t ") . "\n";
    			if ($literalBlockStyle == '|') {
    				return $literalBlock . $line;
    			}
    			if (strlen($line) == 0)
    				return rtrim($literalBlock, ' ') . "\n";
    			if ($line == "\n" && $literalBlockStyle == '>') {
    				return rtrim ($literalBlock, " \t") . "\n";
    			}
    			if ($line != "\n")
    				$line = trim ($line, "\r\n ") . " ";
    			return $literalBlock . $line;
    		}
    
    		function revertLiteralPlaceHolder ($lineArray, $literalBlock) {
    			foreach ($lineArray as $k => $_) {
    				if (is_array($_))
    					$lineArray[$k] = $this->revertLiteralPlaceHolder ($_, $literalBlock);
    				else if (substr($_, -1 * strlen ($this->LiteralPlaceHolder)) == $this->LiteralPlaceHolder)
    					$lineArray[$k] = rtrim ($literalBlock, " \r\n");
    			}
    			return $lineArray;
    		}
    
   		private static function stripIndent ($line, $indent = -1) {
   			if ($indent == -1) $indent = strlen($line) - strlen(ltrim($line));
   			return substr ($line, $indent);
   		}
   
   		private function getParentPathByIndent ($indent) {
   			if ($indent == 0) return array();
   			$linePath = $this->path;
   			do {
   				end($linePath); $lastIndentInParentPath = key($linePath);
   				if ($indent <= $lastIndentInParentPath) array_pop ($linePath);
   			} while ($indent <= $lastIndentInParentPath);
   			return $linePath;
   		}
   
   
   		private function clearBiggerPathValues ($indent) {
   
   
   			if ($indent == 0) $this->path = array();
   			if (empty ($this->path)) return true;
   
   			foreach ($this->path as $k => $_) {
   				if ($k > $indent) unset ($this->path[$k]);
   			}
   
   			return true;
   		}
   
   
   		private static function isComment ($line) {
   			if (!$line) return false;
   			if ($line[0] == '#') return true;
   			if (trim($line, " \r\n\t") == '---') return true;
   			return false;
   		}
   
   		private static function isEmpty ($line) {
   			return (trim ($line) === '');
   		}
   
   
   		private function isArrayElement ($line) {
   			if (!$line || !is_scalar($line)) return false;
   			if (substr($line, 0, 2) != '- ') return false;
   			if (strlen ($line) > 3)
   				if (substr($line,0,3) == '---') return false;
   
   			return true;
   		}
   
   		private function isHashElement ($line) {
   			return strpos($line, ':');
   		}
   
   		private function isLiteral ($line) {
   			if ($this->isArrayElement($line)) return false;
   			if ($this->isHashElement($line)) return false;
   			return true;
   		}
   
   
   		private static function unquote ($value) {
   			if (!$value) return $value;
   			if (!is_string($value)) return $value;
   			if ($value[0] == '\'') return trim ($value, '\'');
   			if ($value[0] == '"') return trim ($value, '"');
   			return $value;
   		}
   
   		private function startsMappedSequence ($line) {
   			return (substr($line, 0, 2) == '- ' && substr ($line, -1, 1) == ':');
   		}
   
   		private function returnMappedSequence ($line) {
   			$array = array();
   			$key         = self::unquote(trim(substr($line,1,-1)));
   			$array[$key] = array();
   			$this->delayedPath = array(strpos ($line, $key) + $this->indent => $key);
   			return array($array);
   		}
   
   		private function checkKeysInValue($value) {
   			if (strchr('[{"\'', $value[0]) === false) {
   				if (strchr($value, ': ') !== false) {
   					throw new Exception('Too many keys: '.$value);
   				}
   			}
   		}
   
   		private function returnMappedValue ($line) {
   			$this->checkKeysInValue($line);
   			$array = array();
   			$key         = self::unquote (trim(substr($line,0,-1)));
   			$array[$key] = '';
   			return $array;
   		}
   
   		private function startsMappedValue ($line) {
   			return (substr ($line, -1, 1) == ':');
   		}
   
   		private function isPlainArray ($line) {
   			return ($line[0] == '[' && substr ($line, -1, 1) == ']');
   		}
   
   		private function returnPlainArray ($line) {
   			return $this->_toType($line);
   		}
   
   		private function returnKeyValuePair ($line) {
   			$array = array();
   			$key = '';
   			if (strpos ($line, ': ')) {
   				// It's a key/value pair most likely
   				// If the key is in double quotes pull it out
   				if (($line[0] == '"' || $line[0] == "'") && 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(array_shift($explode));
   					$value   = trim(implode(': ', $explode));
   					$this->checkKeysInValue($value);
   				}
   				// Set the type of the value.  Int, string, etc
   				$value = $this->_toType($value);
   
   				if ($key === '0') $key = '__!YAMLZero';
   				$array[$key] = $value;
   			} else {
   				$array = array ($line);
   			}
   			return $array;
   
   		}
   
   
   		private function returnArrayElement ($line) {
   			if (strlen($line) <= 1) return array(array()); // Weird %)
   			$array = array();
   			$value   = trim(substr($line,1));
   			$value   = $this->_toType($value);
   			if ($this->isArrayElement($value)) {
   				$value = $this->returnArrayElement($value);
   			}
   			$array[] = $value;
   			return $array;
   		}
   
   
   		private function nodeContainsGroup ($line) {
   			$symbolsForReference = 'A-z0-9_\-';
   			if (strpos($line, '&') === false && strpos($line, '*') === false) return false; // Please die fast ;-)
   			if ($line[0] == '&' && preg_match('/^(&['.$symbolsForReference.']+)/', $line, $matches)) return $matches[1];
   			if ($line[0] == '*' && preg_match('/^(\*['.$symbolsForReference.']+)/', $line, $matches)) return $matches[1];
   			if (preg_match('/(&['.$symbolsForReference.']+)$/', $line, $matches)) return $matches[1];
   			if (preg_match('/(\*['.$symbolsForReference.']+$)/', $line, $matches)) return $matches[1];
   			if (preg_match ('#^\s*<<\s*:\s*(\*[^\s]+).*$#', $line, $matches)) return $matches[1];
   			return false;
   
   		}
   
   		private function addGroup ($line, $group) {
   			if ($group[0] == '&') $this->_containsGroupAnchor = substr ($group, 1);
   			if ($group[0] == '*') $this->_containsGroupAlias = substr ($group, 1);
   			//print_r ($this->path);
   		}
   
   		private function stripGroup ($line, $group) {
   			$line = trim(str_replace($group, '', $line));
   			return $line;
   		}
   	}
   }
   
   // Enable use of Spyc from command line
   // The syntax is the following: php Spyc.php spyc.yaml
   
   do {
   	if (PHP_SAPI != 'cli') break;
   	if (empty ($_SERVER['argc']) || $_SERVER['argc'] < 2) break;
   	if (empty ($_SERVER['PHP_SELF']) || FALSE === strpos ($_SERVER['PHP_SELF'], 'Spyc.php') ) break;
   	$file = $argv[1];
   	echo json_encode (spyc_load_file ($file));
   } while (0);


Download modules/util/Spyc.class.php

History
Tue, 18 Aug 2020 22:49:26 +0200	Jan Dankert	New upstream release of Spyc, the YAML parser.
Sat, 16 Dec 2017 23:21:31 +0100	Jan Dankert	Eigenes Modul für alle Util-Klassen.