PHP plist 生成器

PHP数组转换为苹果plist XML或文本格式                         

1. [代码][PHP]代码

    <?PHP
     
    /**
     * PropertyList class
     * Implements writing Apple Property List (.plist) XML and text files from an array.
     *
     * @author Jesus A. Alvarez <zydeco@namedfork.net>
     */
     
    function plist_encode_text ($obj) {
    $plist = new PropertyList($obj);
    return $plist->text();
    }
     
    function plist_encode_xml ($obj) {
    $plist = new PropertyList($obj);
    return $plist->xml();
    }
     
    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(&#39;1.0&#39;, &#39;UTF-8&#39;);
    $x->writeDTD(&#39;plist&#39;, &#39;-//Apple//DTD PLIST 1.0//EN&#39;, &#39;http://www.apple.com/DTDs/PropertyList-1.0.dtd&#39;);
    $x->startElement(&#39;plist&#39;);
    $x->writeAttribute(&#39;version&#39;, &#39;1.0&#39;);
    $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 = &#39;&#39;;
    $this->textWriteValue($text, $this->obj);
    $this->text = $text;
    return $this->text;
    }
     
    private function xmlWriteDict(XMLWriter $x, &$dict) {
    $x->startElement(&#39;dict&#39;);
    foreach($dict as $k => &$v) {
    $x->writeElement(&#39;key&#39;, $k);
    $this->xmlWriteValue($x, $v);
    }
    $x->endElement(); // dict
    }
     
    private function xmlWriteArray(XMLWriter $x, &$arr) {
    $x->startElement(&#39;array&#39;);
    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(&#39;integer&#39;, $v);
    elseif (is_float($v) || is_real($v) || is_double($v))
    $x->writeElement(&#39;real&#39;, $v);
    elseif (is_string($v))
    $x->writeElement(&#39;string&#39;, $v);
    elseif (is_bool($v))
    $x->writeElement($v?&#39;true&#39;:&#39;false&#39;);
    elseif (PropertyList::is_assoc($v))
    $this->xmlWriteDict($x, $v);
    elseif (is_array($v))
    $this->xmlWriteArray($x, $v);
    elseif (is_a($v, &#39;PlistData&#39;))
    $x->writeElement(&#39;data&#39;, $v->base64EncodedData());
    elseif (is_a($v, &#39;PlistDate&#39;))
    $x->writeElement(&#39;date&#39;, $v->encodedDate());
    else {
    trigger_error("Unsupported data type in plist ($v)", E_USER_WARNING);
    $x->writeElement(&#39;string&#39;, $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?&#39;YES&#39;:&#39;NO&#39;;
    elseif (PropertyList::is_assoc($v))
    $this->textWriteDict($text, $v, $indentLevel);
    elseif (is_array($v))
    $this->textWriteArray($text, $v, $indentLevel);
    elseif (is_a($v, &#39;PlistData&#39;))
    $text .= &#39;<&#39; . $v->hexEncodedData() . &#39;>&#39;;
    elseif (is_a($v, &#39;PlistDate&#39;))
    $text .= &#39;"&#39; . $v->ISO8601Date() . &#39;"&#39;;
    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 .= &#39;"&#39; . $this->textEncodeString($str) . &#39;"&#39;;
    setlocale(LC_CTYPE, $oldlocale);
    }
     
    private function textEncodeString(&$str) {
    $newstr = &#39;&#39;;
    $i = 0;
    $len = strlen($str);
    while($i < $len) {
    $ch = ord(substr($str, $i, 1));
    if ($ch == 0x22 || $ch == 0x5C) {
    // escape double quote, backslash
    $newstr .= &#39;\\&#39; . chr($ch);
    $i++;
    } else if ($ch >= 0x07 && $ch <= 0x0D ){
    // control characters with escape sequences
    $newstr .= &#39;\\&#39; . substr(&#39;abtnvfr&#39;, $ch - 7, 1);
    $i++;
    } else if ($ch < 32) {
    // other non-printable characters escaped as unicode
    $newstr .= sprintf(&#39;\U%04x&#39;, $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(&#39;\U%04x&#39;, $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(&#39;\U%04x&#39;, $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(&#39;\U%04x&#39;, $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 .= &#39;{}&#39;;
    return;
    }
    $text .= "{\n";
    $indent = &#39;&#39;;
    $indentLevel++;
    while(strlen($indent) < $indentLevel) $indent .= "\t";
    foreach($dict as $k => &$v) {
    $text .= $indent;
    $this->textWriteValue($text, $k);
    $text .= &#39; = &#39;;
    $this->textWriteValue($text, $v, $indentLevel);
    $text .= ";\n";
    }
    $text .= substr($indent, 0, -1) . &#39;}&#39;;
    }
     
    private function textWriteArray(&$text, &$arr, $indentLevel) {
    if (count($arr) == 0) {
    $text .= &#39;()&#39;;
    return;
    }
    $text .= "(\n";
    $indent = &#39;&#39;;
    $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) . &#39;)&#39;;
    }
    }
     
    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 = &#39;&#39;;
    for($i = 0; $i < $len; $i += 4)
    $hexstr .= bin2hex(substr($this->data, $i, 4)) . &#39; &#39;;
    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(&#39;Y-m-d\TH:i:s\Z&#39;, $this->dateval);
    }
    }
    ?>