Root/
<?php/* -*- tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- *//*# ***** BEGIN LICENSE BLOCK *****# This file is part of InDefero, an open source project management application.# Copyright (C) 2008-2011 Céondo Ltd and contributors.## InDefero is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either version 2 of the License, or# (at your option) any later version.## InDefero is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA## ***** END LICENSE BLOCK ***** */require_once 'IDF/Scm/Exception.php';/** * Utility class to parse and compile basic_io stanzas * * @author Thomas Keller <me@thomaskeller.biz> */class IDF_Scm_Monotone_BasicIO{ /** * Parses monotone's basic_io format * * Known quirks: * - does not handle multi-values starting with a hash '[]' (no known output) * - does not validate hashes (should be /[0-9a-f]{40}/i) * - does not handle forbidden \0 * * @param string $in * @return array of arrays */ public static function parse($in) { $pos = 0; $stanzas = array(); $length = strlen($in); while ($pos < $length) { $stanza = array(); while ($pos < $length) { if ($in[$pos] == "\n") break; $stanzaLine = array('key' => '', 'values' => array(), 'hash' => null); while ($pos < $length) { $ch = $in[$pos]; if ($ch == '"' || $ch == '[') break; ++$pos; if ($ch == ' ') continue; $stanzaLine['key'] .= $ch; } // ensure we don't look at a symbol w/o a value list if ($pos >= $length || $in[$pos] == "\n") { unset($stanzaLine['values']); unset($stanzaLine['hash']); } else { if ($in[$pos] == '[') { unset($stanzaLine['values']); ++$pos; // opening square bracket while ($pos < $length && $in[$pos] != ']') { $stanzaLine['hash'] .= $in[$pos]; ++$pos; } ++$pos; // closing square bracket } else { unset($stanzaLine['hash']); $valCount = 0; // if hashs and plain values are encountered in the same // value list, we add the hash values as simple values as well while ($in[$pos] == '"' || $in[$pos] == '[') { $isHashValue = $in[$pos] == '['; ++$pos; // opening quote / bracket $stanzaLine['values'][$valCount] = ''; while ($pos < $length) { $ch = $in[$pos]; $pr = $in[$pos-1]; if (($isHashValue && $ch == ']') ||(!$isHashValue && $ch == '"' && $pr != '\\')) break; ++$pos; $stanzaLine['values'][$valCount] .= $ch; } ++$pos; // closing quote if (!$isHashValue) { $stanzaLine['values'][$valCount] = str_replace( array("\\\\", "\\\""), array("\\", "\""), $stanzaLine['values'][$valCount] ); } if ($pos >= $length) break; if ($in[$pos] == ' ') { ++$pos; // space ++$valCount; } } } } $stanza[] = $stanzaLine; ++$pos; // newline } $stanzas[] = $stanza; ++$pos; // newline } return $stanzas; } /** * Compiles monotone's basicio format * * Known quirks: * - does not validate keys for /[a-z_]+/ * - does not validate hashes (should be /[0-9a-f]{40}/i) * - does not support intermixed value / hash formats * - does not handle forbidden \0 * * @param array $in Array of arrays * @return string */ public static function compile($in) { $out = ""; $first = true; foreach ((array)$in as $sx => $stanza) { if ($first) $first = false; else $out .= "\n"; $maxkeylength = 0; foreach ((array)$stanza as $lx => $line) { if (!array_key_exists('key', $line) || empty($line['key'])) { throw new IDF_Scm_Exception( '"key" not found in basicio stanza '.$sx.', line '.$lx ); } $maxkeylength = max($maxkeylength, strlen($line['key'])); } foreach ((array)$stanza as $lx => $line) { $out .= str_pad($line['key'], $maxkeylength, ' ', STR_PAD_LEFT); if (array_key_exists('hash', $line)) { $out .= ' ['.$line['hash'].']'; } else if (array_key_exists('values', $line)) { if (!is_array($line['values']) || count($line['values']) == 0) { throw new IDF_Scm_Exception( '"values" must be an array of a size >= 1 '. 'in basicio stanza '.$sx.', line '.$lx ); } foreach ($line['values'] as $value) { $out .= ' "'.str_replace( array("\\", "\""), array("\\\\", "\\\""), $value).'"'; } } $out .= "\n"; } } return $out; }} |
