| Current File : /var/www/pediatribu/wp-content/plugins/independent-analytics/vendor/mustangostang/spyc/Spyc.php |
<?php
namespace IAWPSCOPED;
/**
* 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('IAWPSCOPED\\spyc_load')) {
/**
* Parses YAML to array.
* @param string $string YAML string.
* @return array
* @internal
*/
function spyc_load($string)
{
return Spyc::YAMLLoadString($string);
}
}
if (!\function_exists('IAWPSCOPED\\spyc_load_file')) {
/**
* Parses YAML to array.
* @param string $file Path to YAML file.
* @return array
* @internal
*/
function spyc_load_file($file)
{
return Spyc::YAMLLoad($file);
}
}
if (!\function_exists('IAWPSCOPED\\spyc_dump')) {
/**
* Dumps array to YAML.
* @param array $data Array.
* @return string
* @internal
*/
function spyc_dump($data)
{
return Spyc::YAMLDump($data, \false, \false, \true);
}
}
if (!\class_exists('IAWPSCOPED\\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
* @internal
*/
class Spyc
{
// SETTINGS
const REMPTY = "\x00\x00\x00\x00\x00";
/**
* 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('IAWPSCOPED\\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);