natalie
/
indefero
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

implement IDF_Scm_Monotone_BasicIO::compile()

master
Thomas Keller 2010-08-28 22:03:47 +00:00
parent 8aae0f29d4
commit 593240b420
1 changed files with 53 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
src/IDF/Scm/Monotone/BasicIO.php
View File

@ -26,7 +26,7 @@
*
* @author Thomas Keller <me@thomaskeller.biz>
*/
class IDF_Scm_Monotone_BasicIO extends IDF_Scm
class IDF_Scm_Monotone_BasicIO
{
/**
* Parses monotone's basic_io format
@ -54,6 +54,7 @@ class IDF_Scm_Monotone_BasicIO extends IDF_Scm
}
if ($in[$pos] == '[') {
unset($stanzaLine['values']);
++$pos; // opening square bracket
$stanzaLine['hash'] = substr($in, $pos, 40);
$pos += 40;
@ -61,6 +62,7 @@ class IDF_Scm_Monotone_BasicIO extends IDF_Scm
}
else
{
unset($stanzaLine['hash']);
$valCount = 0;
while ($in[$pos] == '"') {
++$pos; // opening quote
@ -105,7 +107,56 @@ class IDF_Scm_Monotone_BasicIO extends IDF_Scm
*/
public static function compile($in)
{
throw new IDF_Scm_Exception("not yet implemented");
$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)) {
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).'"';
}
}
else
{
throw new IDF_Scm_Exception(
'neither "hash" nor "values" found in basicio '.
'stanza '.$sx.', line '.$lx
);
}
$out .= "\n";
}
}
return $out;
}
}