|
|
<?PHP
|
|
|
/**
|
|
|
* * PropertyList class
|
|
|
* * Implements writing Apple Property List (.Plist) XML and text files from an array.
|
|
|
* *
|
|
|
* * @author Jesus A. Alvarez <zydeco@namedfork.net>
|
|
|
* */
|
|
|
|
|
|
class PropertyList
|
|
|
{
|
|
|
private $obj, $xml, $text;
|
|
|
|
|
|
public function __construct($obj)
|
|
|
{
|
|
|
$this->obj = $obj;
|
|
|
}
|
|
|
|
|
|
private static function is_assoc($array)
|
|
|
{
|
|
|
return (is_array($array) && 0 !== count(array_diff_key($array, array_keys(array_keys($array)))));
|
|
|
}
|
|
|
|
|
|
public function xml()
|
|
|
{
|
|
|
if (isset($this->xml)) return $this->xml;
|
|
|
$x = new XMLWriter();
|
|
|
$x->openMemory();
|
|
|
$x->setIndent(TRUE);
|
|
|
$x->startDocument('1.0', 'UTF-8');
|
|
|
$x->writeDTD('plist', '-//Apple//DTD PLIST 1.0//EN', 'http://www.apple.com/DTDs/PropertyList-1.0.dtd');
|
|
|
$x->startElement('plist');
|
|
|
$x->writeAttribute('version', '1.0');
|
|
|
$this->xmlWriteValue($x, $this->obj);
|
|
|
$x->endElement(); // Plist
|
|
|
$x->endDocument();
|
|
|
$this->xml = $x->outputMemory();
|
|
|
return $this->xml;
|
|
|
}
|
|
|
|
|
|
public function text()
|
|
|
{
|
|
|
if (isset($this->text)) return $this->text;
|
|
|
$text = '';
|
|
|
$this->textWriteValue($text, $this->obj);
|
|
|
$this->text = $text;
|
|
|
return $this->text;
|
|
|
}
|
|
|
|
|
|
private function xmlWriteDict(XMLWriter $x, &$dict)
|
|
|
{
|
|
|
$x->startElement('dict');
|
|
|
foreach ($dict as $k => &$v) {
|
|
|
$x->writeElement('key', $k);
|
|
|
$this->xmlWriteValue($x, $v);
|
|
|
}
|
|
|
$x->endElement(); // dict
|
|
|
}
|
|
|
|
|
|
private function xmlWriteArray(XMLWriter $x, &$arr)
|
|
|
{
|
|
|
$x->startElement('array');
|
|
|
foreach ($arr as &$v)
|
|
|
$this->xmlWriteValue($x, $v);
|
|
|
$x->endElement(); // array
|
|
|
}
|
|
|
|
|
|
private function xmlWriteValue(XMLWriter $x, &$v)
|
|
|
{
|
|
|
if (is_int($v) || is_long($v))
|
|
|
$x->writeElement('integer', $v);
|
|
|
elseif (is_float($v) || is_real($v) || is_double($v))
|
|
|
$x->writeElement('real', $v);
|
|
|
elseif (is_string($v))
|
|
|
$x->writeElement('string', $v);
|
|
|
elseif (is_bool($v))
|
|
|
$x->writeElement($v ? 'true' : 'false');
|
|
|
elseif (PropertyList::is_assoc($v))
|
|
|
$this->xmlWriteDict($x, $v);
|
|
|
elseif (is_array($v))
|
|
|
$this->xmlWriteArray($x, $v);
|
|
|
elseif (is_a($v, 'PlistData'))
|
|
|
$x->writeElement('data', $v->base64EncodedData());
|
|
|
elseif (is_a($v, 'PlistDate'))
|
|
|
$x->writeElement('date', $v->encodedDate());
|
|
|
else {
|
|
|
trigger_error("Unsupported data type in Plist ($v)", E_USER_WARNING);
|
|
|
$x->writeElement('string', $v);
|
|
|
}
|
|
|
}
|
|
|
|
|
|
private function textWriteValue(&$text, &$v, $indentLevel = 0)
|
|
|
{
|
|
|
if (is_int($v) || is_long($v))
|
|
|
$text .= sprintf("%d", $v);
|
|
|
elseif (is_float($v) || is_real($v) || is_double($v))
|
|
|
$text .= sprintf("%g", $v);
|
|
|
elseif (is_string($v))
|
|
|
$this->textWriteString($text, $v);
|
|
|
elseif (is_bool($v))
|
|
|
$text .= $v ? 'YES' : 'NO';
|
|
|
elseif (PropertyList::is_assoc($v))
|
|
|
$this->textWriteDict($text, $v, $indentLevel);
|
|
|
elseif (is_array($v))
|
|
|
$this->textWriteArray($text, $v, $indentLevel);
|
|
|
elseif (is_a($v, 'PlistData'))
|
|
|
$text .= '<' . $v->hexEncodedData() . '>';
|
|
|
elseif (is_a($v, 'PlistDate'))
|
|
|
$text .= '"' . $v->ISO8601Date() . '"';
|
|
|
else {
|
|
|
trigger_error("Unsupported data type in Plist ($v)", E_USER_WARNING);
|
|
|
$this->textWriteString($text, $v);
|
|
|
}
|
|
|
}
|
|
|
|
|
|
private function textWriteString(&$text, &$str)
|
|
|
{
|
|
|
$oldlocale = setlocale(LC_CTYPE, "0");
|
|
|
if (ctype_alnum($str)) $text .= $str;
|
|
|
else $text .= '"' . $this->textEncodeString($str) . '"';
|
|
|
setlocale(LC_CTYPE, $oldlocale);
|
|
|
}
|
|
|
|
|
|
private function textEncodeString(&$str)
|
|
|
{
|
|
|
$newstr = '';
|
|
|
$i = 0;
|
|
|
$len = strlen($str);
|
|
|
while ($i < $len) {
|
|
|
$ch = ord(substr($str, $i, 1));
|
|
|
if ($ch == 0x22 || $ch == 0x5C) {
|
|
|
// escape double quote, backslash
|
|
|
$newstr .= '\\' . chr($ch);
|
|
|
$i++;
|
|
|
} else if ($ch >= 0x07 && $ch <= 0x0D) {
|
|
|
// control characters with escape sequences
|
|
|
$newstr .= '\\' . substr('abtnvfr', $ch - 7, 1);
|
|
|
$i++;
|
|
|
} else if ($ch < 32) {
|
|
|
// other non-printable characters escaped as unicode
|
|
|
$newstr .= sprintf('\U%04x', $ch);
|
|
|
$i++;
|
|
|
} else if ($ch < 128) {
|
|
|
// ascii printable
|
|
|
$newstr .= chr($ch);
|
|
|
$i++;
|
|
|
} else if ($ch == 192 || $ch == 193) {
|
|
|
// invalid encoding of ASCII characters
|
|
|
$i++;
|
|
|
} else if (($ch & 0xC0) == 0x80) {
|
|
|
// part of a lost multibyte sequence, skip
|
|
|
$i++;
|
|
|
} else if (($ch & 0xE0) == 0xC0) {
|
|
|
// U+0080 - U+07FF (2 bytes)
|
|
|
$u = (($ch & 0x1F) << 6) | (ord(substr($str, $i + 1, 1)) & 0x3F);
|
|
|
$newstr .= sprintf('\U%04x', $u);
|
|
|
$i += 2;
|
|
|
} else if (($ch & 0xF0) == 0xE0) {
|
|
|
// U+0800 - U+FFFF (3 bytes)
|
|
|
$u = (($ch & 0x0F) << 12) | ((ord(substr($str, $i + 1, 1)) & 0x3F) << 6) | (ord(substr($str, $i + 2, 1)) & 0x3F);
|
|
|
$newstr .= sprintf('\U%04x', $u);
|
|
|
$i += 3;
|
|
|
} else if (($ch & 0xF8) == 0xF0) {
|
|
|
// U+10000 - U+3FFFF (4 bytes)
|
|
|
$u = (($ch & 0x07) << 18) | ((ord(substr($str, $i + 1, 1)) & 0x3F) << 12) | ((ord(substr($str, $i + 2, 1)) & 0x3F) << 6) | (ord(substr($str, $i + 3, 1)) & 0x3F);
|
|
|
$newstr .= sprintf('\U%04x', $u);
|
|
|
$i += 4;
|
|
|
} else {
|
|
|
// 5 and 6 byte sequences are not valid UTF-8
|
|
|
$i++;
|
|
|
}
|
|
|
}
|
|
|
return $newstr;
|
|
|
}
|
|
|
|
|
|
private function textWriteDict(&$text, &$dict, $indentLevel)
|
|
|
{
|
|
|
if (count($dict) == 0) {
|
|
|
$text .= '{}';
|
|
|
return;
|
|
|
}
|
|
|
$text .= "{\n";
|
|
|
$indent = '';
|
|
|
$indentLevel++;
|
|
|
while (strlen($indent) < $indentLevel) $indent .= "\t";
|
|
|
foreach ($dict as $k => &$v) {
|
|
|
$text .= $indent;
|
|
|
$this->textWriteValue($text, $k);
|
|
|
$text .= ' = ';
|
|
|
$this->textWriteValue($text, $v, $indentLevel);
|
|
|
$text .= ";\n";
|
|
|
}
|
|
|
$text .= substr($indent, 0, -1) . '}';
|
|
|
}
|
|
|
|
|
|
private function textWriteArray(&$text, &$arr, $indentLevel)
|
|
|
{
|
|
|
if (count($arr) == 0) {
|
|
|
$text .= '()';
|
|
|
return;
|
|
|
}
|
|
|
$text .= "(\n";
|
|
|
$indent = '';
|
|
|
$indentLevel++;
|
|
|
while (strlen($indent) < $indentLevel) $indent .= "\t";
|
|
|
foreach ($arr as &$v) {
|
|
|
$text .= $indent;
|
|
|
$this->textWriteValue($text, $v, $indentLevel);
|
|
|
$text .= ",\n";
|
|
|
}
|
|
|
$text .= substr($indent, 0, -1) . ')';
|
|
|
}
|
|
|
}
|
|
|
|
|
|
class PlistData
|
|
|
{
|
|
|
private $data;
|
|
|
|
|
|
public function __construct($str)
|
|
|
{
|
|
|
$this->data = $str;
|
|
|
}
|
|
|
|
|
|
public function base64EncodedData()
|
|
|
{
|
|
|
return base64_encode($this->data);
|
|
|
}
|
|
|
|
|
|
public function hexEncodedData()
|
|
|
{
|
|
|
$len = strlen($this->data);
|
|
|
$hexstr = '';
|
|
|
for ($i = 0; $i < $len; $i += 4)
|
|
|
$hexstr .= bin2hex(substr($this->data, $i, 4)) . ' ';
|
|
|
return substr($hexstr, 0, -1);
|
|
|
}
|
|
|
}
|
|
|
|
|
|
class PlistDate
|
|
|
{
|
|
|
private $dateval;
|
|
|
|
|
|
public function __construct($init = NULL)
|
|
|
{
|
|
|
if (is_int($init))
|
|
|
$this->dateval = $init;
|
|
|
elseif (is_string($init))
|
|
|
$this->dateval = strtotime($init);
|
|
|
elseif ($init == NULL)
|
|
|
$this->dateval = time();
|
|
|
}
|
|
|
|
|
|
public function ISO8601Date()
|
|
|
{
|
|
|
return gmdate('Y-m-d\TH:i:s\Z', $this->dateval);
|
|
|
}
|
|
|
}
|
|
|
|
|
|
?>
|