/*
 * plist.js
 * Objective-J
 *
 * Created by Francisco Tolmasky.
 * Copyright 2008, 280 North, Inc.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

kCFPropertyListOpenStepFormat       = 1;
kCFPropertyListXMLFormat_v1_0       = 100;
kCFPropertyListBinaryFormat_v1_0    = 200;
kCFPropertyList280NorthFormat_v1_0  = -1000;

OBJJPlistParseException = "OBJJPlistParseException";

var kCFPropertyList280NorthMagicNumber  = "280NPLIST";

/*var BASE64_TABLE = [
    "A", "B", "C", "D", "E", "F", "G", "H",
    "I", "J", "K", "L", "M", "N", "O", "P",
    "Q", "R", "S", "T", "U", "V", "W", "X",
    "Y", "Z", "a", "b", "c", "d", "e", "f",
    "g", "h", "i", "j", "k", "l", "m", "n",
    "o", "p", "q", "r", "s", "t", "u", "v",
    "w", "x", "y", "z", "0", "1", "2", "3",
    "4", "5", "6", "7", "8", "9", "+", "/"
];*/

function objj_data()
{
    this.string         = "";
    this._plistObject   = NULL;
    this.bytes          = NULL;
    this.base64         = NULL;
}

/*function data_setBytes(data, bytes)
{
    this.bytes = bytes;
    this.base64 = NULL;
}

function data_getBytes(data)
{
    return this.bytes;
}

function data_getBase64String()
{
    if (!this.base64)
    {
        this.base64 = "";
        
        var offset = 0,
            bytes = this.bytes,
            length = bytes.length;
        
            uint24 = this.bytes[offset] << 16 | this.bytes[offset + 1] << 8 | this.bytes[offset + 2];
            this.base64 += BASE64_TABLE[ ( uint24 & 0xFC0000 ) >> 18 ]);
            this.base64 += BASE64_TABLE[ ( uint24 & 0x03F000 ) >> 12 ]);
            this.base64 += BASE64_TABLE[ ( uint24 & 0x0FC0   ) >>  6 ]);
            this.base64 += BASE64_TABLE[ ( uint24 & 0x3F     )       ]);
        
        for (;offset < length; ++offset)
        {   
            this.base64 = BASE64_TABLE[bytes[offset] >> 2];
            this.base64 = BASE64_TABLE[((bytes[offset] & 3) << 4) | (bytes[++offset] >> 4)];
            this.base64 = offset < length ? "=" : BASE64_TABLE[((bytes[offset] & 15) << 2) | (bytes[++offset] >> 6)];
            this.base64 = offset < length ? "=" : BASE64_TABLE[bytes[offset] & 63];
        }
    }
    
    return this.base64;
}*/

var objj_markedStream = function(aString)
{
    var index = aString.indexOf(';');
    
    // Grab the magic number.
    this._magicNumber = aString.substr(0, index);
    
    this._location = aString.indexOf(';', ++index);

    // Grab the version number.
    this._version = aString.substring(index, this._location++);    
    this._string = aString;
}

objj_markedStream.prototype.magicNumber = function()
{
    return this._magicNumber;
}

objj_markedStream.prototype.version = function()
{
    return this._version;
}

objj_markedStream.prototype.getMarker = function()
{
    var string = this._string,
        location = this._location;
    
    if (location >= string.length)
        return NULL;
        
    var next = string.indexOf(';', location);
    
    if (next < 0)
        return NULL;
        
    var marker = string.substring(location, next);
    
    this._location = next + 1;

    return marker;
}

objj_markedStream.prototype.getString = function()
{
    var string = this._string,
        location = this._location;
    
    if (location >= string.length)
        return NULL;
        
    var next = string.indexOf(';', location);
    
    if (next < 0)
        return NULL;

    var size = parseInt(string.substring(location, next)),
        text = string.substr(next + 1, size);
    
    this._location = next + 1 + size;
    
    return text;
}

//

function CPPropertyListCreateData(aPlistObject, aFormat)
{
    if (aFormat == kCFPropertyListXMLFormat_v1_0)
        return CPPropertyListCreateXMLData(aPlistObject);

    if (aFormat == kCFPropertyList280NorthFormat_v1_0)
        return CPPropertyListCreate280NorthData(aPlistObject);

    return NULL;
}

function CPPropertyListCreateFromData(aData, aFormat)
{
    if (!aFormat)
    {
        // Attempt to guess the format.
        if (aData instanceof objj_data)
        {
            var string = aData.string ? aData.string : objj_msgSend(aData, "string");
            
            if (string.substr(0, kCFPropertyList280NorthMagicNumber.length) == kCFPropertyList280NorthMagicNumber)
                aFormat = kCFPropertyList280NorthFormat_v1_0;
            else
                aFormat = kCFPropertyListXMLFormat_v1_0;
        }
        else
            aFormat = kCFPropertyListXMLFormat_v1_0;
    }
    
    if (aFormat == kCFPropertyListXMLFormat_v1_0)
        return CPPropertyListCreateFromXMLData(aData);

    if (aFormat == kCFPropertyList280NorthFormat_v1_0)
        return CPPropertyListCreateFrom280NorthData(aData);

    return NULL;
}

var _CPPropertyListSerializeObject = function(aPlist, serializers)
{
    var type = typeof aPlist,
        valueOf = aPlist.valueOf(),
        typeValueOf = typeof valueOf;
    
    if (type != typeValueOf)
    {
        type = typeValueOf;
        aPlist = valueOf;
    }
    
    if (type == "string")
        return serializers["string"](aPlist, serializers);
    
    else if (aPlist === true || aPlist === false)
        return serializers["boolean"](aPlist, serializers);
    
    else if (type == "number")
    {
        var integer = FLOOR(aPlist);
        
        if (integer == aPlist)
            return serializers["integer"](aPlist, serializers);
        else
            return serializers["real"](aPlist, serializers);
    }
    
    else if (aPlist.slice)
        return serializers["array"](aPlist, serializers);
        
    else
        return serializers["dictionary"](aPlist, serializers);
}

// XML Format 1.0

var XML_XML                 = "xml",
    XML_DOCUMENT            = "#document",

    PLIST_PLIST             = "plist",
    PLIST_KEY               = "key",
    PLIST_DICTIONARY        = "dict",
    PLIST_ARRAY             = "array",
    PLIST_STRING            = "string",
    PLIST_BOOLEAN_TRUE      = "true",
    PLIST_BOOLEAN_FALSE     = "false",
    PLIST_NUMBER_REAL       = "real",
    PLIST_NUMBER_INTEGER    = "integer";
    PLIST_DATA              = "data";

#if RHINO

#define NODE_NAME(anXMLNode)        (String(anXMLNode.getNodeName()))
#define NODE_TYPE(anXMLNode)        (anXMLNode.getNodeType())
#define NODE_VALUE(anXMLNode)       (String(anXMLNode.getNodeValue()))
#define FIRST_CHILD(anXMLNode)      (anXMLNode.getFirstChild())
#define NEXT_SIBLING(anXMLNode)     (anXMLNode.getNextSibling())
#define PARENT_NODE(anXMLNode)      (anXMLNode.getParentNode())
#define DOCUMENT_ELEMENT(aDocument) (aDocument.getDocumentElement())

#else

#define NODE_NAME(anXMLNode)        (anXMLNode.nodeName)
#define NODE_TYPE(anXMLNode)        (anXMLNode.nodeType)
#define NODE_VALUE(anXMLNode)       (anXMLNode.nodeValue)
#define FIRST_CHILD(anXMLNode)      (anXMLNode.firstChild)
#define NEXT_SIBLING(anXMLNode)     (anXMLNode.nextSibling)
#define PARENT_NODE(anXMLNode)      (anXMLNode.parentNode)
#define DOCUMENT_ELEMENT(aDocument) (aDocument.documentElement)

#endif

#define IS_OF_TYPE(anXMLNode, aType) (NODE_NAME(anXMLNode) == aType)
#define IS_PLIST(anXMLNode) IS_OF_TYPE(anXMLNode, PLIST_PLIST)

#define IS_WHITESPACE(anXMLNode) (NODE_TYPE(anXMLNode) == 8 || NODE_TYPE(anXMLNode) == 3)
#define IS_DOCUMENTTYPE(anXMLNode) (NODE_TYPE(anXMLNode) == 10)

#define PLIST_NEXT_SIBLING(anXMLNode) while ((anXMLNode = NEXT_SIBLING(anXMLNode)) && IS_WHITESPACE(anXMLNode)) ;
#define PLIST_FIRST_CHILD(anXMLNode) anXMLNode = FIRST_CHILD(anXMLNode); if (anXMLNode != NULL && IS_WHITESPACE(anXMLNode)) PLIST_NEXT_SIBLING(anXMLNode)

// FIXME: no first child?
#define CHILD_VALUE(anXMLNode) (NODE_VALUE(FIRST_CHILD(anXMLNode)))

var _plist_traverseNextNode = function(anXMLNode, stayWithin, stack)
{
    var node = anXMLNode;
    
    PLIST_FIRST_CHILD(node);
    
    // If this element has a child, traverse to it.
    if (node)
        return node;
    
    // If not, first check if it is a container class (as opposed to a designated leaf).
    // If it is, then we have to pop this container off the stack, since it is empty.
    if (NODE_NAME(anXMLNode) == PLIST_ARRAY || NODE_NAME(anXMLNode) == PLIST_DICTIONARY)
        stack.pop();
    
    // If not, next check whether it has a sibling.
    else
    {
        if (node == stayWithin)
            return NULL;
        
        node = anXMLNode;
        
        PLIST_NEXT_SIBLING(node);
        
        if (node)
            return node; 
    }
    
    // If it doesn't, start working our way back up the node tree.
    node = anXMLNode;
    
    // While we have a node and it doesn't have a sibling (and we're within our stayWithin),
    // keep moving up.
    while (node)
    {
        var next = node;
        
        PLIST_NEXT_SIBLING(next);
        
        // If we have a next sibling, just go to it.
        if (next)
            return next;
            
        var node = PARENT_NODE(node);
            
        // If we are being asked to move up, and our parent is the stay within, then just 
        if (stayWithin && node == stayWithin)
            return NULL;
        
        // Pop the stack if we have officially "moved up"
        stack.pop();
    }
        
    return NULL;
}

function CPPropertyListCreateFromXMLData(XMLNodeOrData)
{
    var XMLNode = XMLNodeOrData;
    
    if (XMLNode.string)
    {
#if RHINO
        XMLNode = DOCUMENT_ELEMENT(_documentBuilder.parse(
            new Packages.org.xml.sax.InputSource(new Packages.java.io.StringReader(XMLNode.string))));
#else
        if (window.ActiveXObject)
        {
            XMLNode = new ActiveXObject("Microsoft.XMLDOM");
            XMLNode.loadXML(XMLNodeOrData.string.substr(XMLNodeOrData.string.indexOf(".dtd\">") + 6));
        }
        else
            XMLNode = DOCUMENT_ELEMENT(new DOMParser().parseFromString(XMLNodeOrData.string, "text/xml"));
#endif
    }

    // Skip over DOCTYPE and so forth.
    while (IS_OF_TYPE(XMLNode, XML_DOCUMENT) || IS_OF_TYPE(XMLNode, XML_XML))
        PLIST_FIRST_CHILD(XMLNode);
    
    // Skip over the DOCTYPE... see a pattern?
    if (IS_DOCUMENTTYPE(XMLNode))
        PLIST_NEXT_SIBLING(XMLNode);
    
    // If this is not a PLIST, bail.
    if (!IS_PLIST(XMLNode))
        return NULL;

    var key = "",
        object = NULL,
        plistObject = NULL,
        
        plistNode = XMLNode,
        
        containers = [],
        currentContainer = NULL;
    
    while (XMLNode = _plist_traverseNextNode(XMLNode, plistNode, containers))
    {
        var count = containers.length;
        
        if (count)
            currentContainer = containers[count - 1];
            
        if (NODE_NAME(XMLNode) == PLIST_KEY)
        {
            key = CHILD_VALUE(XMLNode);
            PLIST_NEXT_SIBLING(XMLNode);
        }

        switch (String(NODE_NAME(XMLNode)))
        {
            case PLIST_ARRAY:           object = []
                                        containers.push(object);
                                        break;
            case PLIST_DICTIONARY:      object = new objj_dictionary();
                                        containers.push(object);
                                        break;
            
            case PLIST_NUMBER_REAL:     object = parseFloat(CHILD_VALUE(XMLNode));
                                        break;
            case PLIST_NUMBER_INTEGER:  object = parseInt(CHILD_VALUE(XMLNode));
                                        break;
                                        
            case PLIST_STRING:          object = decodeURIComponent(FIRST_CHILD(XMLNode) ? CHILD_VALUE(XMLNode) : "");
                                        break;
                                        
            case PLIST_BOOLEAN_TRUE:    object = true;
                                        break;
            case PLIST_BOOLEAN_FALSE:   object = false;
                                        break;
                                        
            case PLIST_DATA:            object = FIRST_CHILD(XMLNode) ? CHILD_VALUE(XMLNode) : ""; // FIXME: temporary fix for NIBs with <data> tags
                                        break;
                                        
            default:                    objj_exception_throw(new objj_exception(OBJJPlistParseException, "*** " + NODE_NAME(XMLNode) + " tag not recognized in Plist."));
        }

        if (!plistObject)
            plistObject = object;
            
        else if (currentContainer)
            // If the container is an array...
            if (currentContainer.slice)
                currentContainer.push(object);
            else
                dictionary_setValue(currentContainer, key, object);
    }
    
    return plistObject;
}

function CPPropertyListCreateXMLData(aPlist)
{
    var data = new objj_data();
    
    data.string = "";
    
    data.string += "<?xml version=\"1.0\" encoding=\"UTF-8\"?>";
    data.string += "<!DOCTYPE plist PUBLIC \"-//Apple Computer//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">";
    data.string += "<plist version = \"1.0\">";
    
    _CPPropertyListAppendXMLData(data, aPlist, "");
    
    data.string += "</plist>";
    
    return data;
}

// CPPropertyListCreateXMLData Helper Functions

var _CPArrayAppendXMLData = function(XMLData, anArray)
{
    var i = 0,
        count = anArray.length;
    
    XMLData.string += "<array>";
    
    for (; i < count; ++i)
        _CPPropertyListAppendXMLData(XMLData, anArray[i]);
    
    XMLData.string += "</array>";
}

var _CPDictionaryAppendXMLData = function(XMLData, aDictionary)
{
    var keys = aDictionary._keys,
        i = 0,
        count = keys.length;
        
    XMLData.string += "<dict>";
        
    for (; i < count; ++i)
    {
        XMLData.string += "<key>" + keys[i] + "</key>";
        _CPPropertyListAppendXMLData(XMLData, dictionary_getValue(aDictionary, keys[i]));
    }
    
    XMLData.string += "</dict>";
}

var _CPPropertyListAppendXMLData = function(XMLData, aPlist)
{
    var type = typeof aPlist,
        valueOf = aPlist.valueOf(),
        typeValueOf = typeof valueOf;
    
    if (type != typeValueOf)
    {
        type = typeValueOf;
        aPlist = valueOf;
    }
    
    if (type == "string")
        XMLData.string += "<string>" + encodeURIComponent(aPlist) + "</string>";
    
    else if (aPlist === true)
        XMLData.string += "<true/>";
    else if (aPlist === false)
        XMLData.string += "<false/>";
    
    else if (type == "number")
    {
        var integer = FLOOR(aPlist);
        
        if (integer == aPlist)
            XMLData.string += "<integer>" + aPlist + "</integer>";
        else
            XMLData.string += "<real>" + aPlist + "</real>";
    }
    
    else if (aPlist.slice)
        _CPArrayAppendXMLData(XMLData, aPlist);
        
    else
        _CPDictionaryAppendXMLData(XMLData, aPlist);
}

// 280 North Plist Format

var ARRAY_MARKER        = "A",
    DICTIONARY_MARKER   = "D",
    FLOAT_MARKER        = "f",
    INTEGER_MARKER      = "d",
    STRING_MARKER       = "S",
    TRUE_MARKER         = "T",
    FALSE_MARKER        = "F",
    KEY_MARKER          = "K",
    END_MARKER          = "E";

function CPPropertyListCreateFrom280NorthData(aData)
{
    var stream = new objj_markedStream(aData.string),
    
        marker = NULL,
        
        key = "",
        object = NULL,
        plistObject = NULL,
        
        containers = [],
        currentContainer = NULL;

    while (marker = stream.getMarker())
    {
        if (marker == END_MARKER)
        {
            containers.pop();
            continue;
        }
        
        var count = containers.length;
        
        if (count)
            currentContainer = containers[count - 1];
        
        if (marker == KEY_MARKER)
        {
            key = stream.getString();
            marker = stream.getMarker();
        }

        switch (marker)
        {
            case ARRAY_MARKER:      object = []
                                    containers.push(object);
                                    break;
            case DICTIONARY_MARKER: object = new objj_dictionary();
                                    containers.push(object);
                                    break;
            
            case FLOAT_MARKER:      object = parseFloat(stream.getString());
                                    break;
            case INTEGER_MARKER:    object = parseInt(stream.getString());
                                    break;
                                        
            case STRING_MARKER:     object = stream.getString();
                                    break;
                                        
            case TRUE_MARKER:       object = true;
                                    break;
            case FALSE_MARKER:      object = false;
                                    break;
                                        
            default:                objj_exception_throw(new objj_exception(OBJJPlistParseException, "*** " + marker + " marker not recognized in Plist."));
        }

        if (!plistObject)
            plistObject = object;
            
        else if (currentContainer)
            // If the container is an array...
            if (currentContainer.slice)
                currentContainer.push(object);
            else
                dictionary_setValue(currentContainer, key, object);
    }
    
    return plistObject;
}

function CPPropertyListCreate280NorthData(aPlist)
{
    var data = new objj_data();
    
    data.string = kCFPropertyList280NorthMagicNumber + ";1.0;" + _CPPropertyListSerializeObject(aPlist, _CPPropertyList280NorthSerializers);
    
    return data;
}

var _CPPropertyList280NorthSerializers = {};

_CPPropertyList280NorthSerializers["string"] = function(aString)
{
    return STRING_MARKER + ';' + aString.length + ';' + aString;
}

_CPPropertyList280NorthSerializers["boolean"] = function(aBoolean)
{
    return (aBoolean ? TRUE_MARKER : FALSE_MARKER) + ';';
}

_CPPropertyList280NorthSerializers["integer"] = function(anInteger)
{
    var string = "" + anInteger;
    
    return INTEGER_MARKER + ';' + string.length + ';' + string;
}

_CPPropertyList280NorthSerializers["real"] = function(aFloat)
{
    var string = "" + aFloat;
    
    return FLOAT_MARKER + ';' + string.length + ';' + string;
}

_CPPropertyList280NorthSerializers["array"] = function(anArray, serializers)
{
    var index = 0,
        count = anArray.length,
        string = ARRAY_MARKER + ';';
    
    for (; index < count; ++index)
        string += _CPPropertyListSerializeObject(anArray[index], serializers);
    
    return string + END_MARKER + ';';
}

_CPPropertyList280NorthSerializers["dictionary"] = function(aDictionary, serializers)
{
    var keys = aDictionary._keys,
        index = 0,
        count = keys.length,
        string = DICTIONARY_MARKER +';';
        
    for (; index < count; ++index)
    {
        var key = keys[index];
        
        string += KEY_MARKER + ';' + key.length + ';' + key;
        string += _CPPropertyListSerializeObject(dictionary_getValue(aDictionary, key), serializers);
    }
    
    return string + END_MARKER + ';';
}