/*
 * Licensed to the Apache Software Foundation (ASF) under one
 * or more contributor license agreements.  See the NOTICE file
 * distributed with this work for additional information
 * regarding copyright ownership.  The ASF licenses this file
 * to you under the Apache License, Version 2.0 (the
 * "License"); you may not use this file except in compliance
 * with the License.  You may obtain a copy of the License at
 * 
 *   http://www.apache.org/licenses/LICENSE-2.0
 * 
 * Unless required by applicable law or agreed to in writing,
 * software distributed under the License is distributed on an
 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 * KIND, either express or implied.  See the License for the
 * specific language governing permissions and limitations
 * under the License.    
 */

/**
 * JSON data conversion functions.
 */
var json = {};

/**
 * JSON exceptions.
 */
json.Exception = function(code, message) {
    this.name = "JSONException";
    this.code = code;
    this.message = message;
};

json.Exception.prototype = new Error();

json.Exception.prototype.toString = function() {
    return this.name + ": " + this.message;
};

/**
 * Return true if a list represents a JS array.
 */
json.isJSArray = function(l) {
    if (isNull(l))
        return true;
    var v = car(l);
    if (isSymbol(v))
        return false;
    if (isList(v))
        if (!isNull(v) && isSymbol(car(v)))
            return false;
    return true;
};

/**
 * Converts JSON properties to values.
 */
json.jsPropertiesToValues = function(propertiesSoFar, o, i) {
    if (isNull(i))
        return propertiesSoFar;
    var p = car(i);
    var jsv = o[p];
    var v = json.jsValToValue(jsv);

    if (typeof p == 'string') {
        var n = '' + p;
        if (n.slice(0, 1) == '@')
            return json.jsPropertiesToValues(cons(mklist(attribute, "'" + n.slice(1), v), propertiesSoFar), o, cdr(i));
        if (isList(v) && !json.isJSArray(v))
            return json.jsPropertiesToValues(cons(cons(element, cons("'" + n, v)), propertiesSoFar), o, cdr(i));
        return json.jsPropertiesToValues(cons(mklist(element, "'" + n, v), propertiesSoFar), o, cdr(i));
    }
    return json.jsPropertiesToValues(cons(v, propertiesSoFar), o, cdr(i));
};

/**
 * Converts a JSON val to a value.
 */
json.jsValToValue = function(jsv) {
    if (jsv == null)
        return null;
    if (isList(jsv))
        return json.jsPropertiesToValues(mklist(), jsv, reverse(range(0, jsv.length)));
    if (typeof jsv == 'object')
        return json.jsPropertiesToValues(mklist(), jsv, reverse(properties(jsv)));
    if (typeof jsv == 'string')
        return '' + jsv;
    return jsv;
}

/**
 * Return true if a list of strings contains a JSON document.
 */
json.isJSON = function(l) {
    if (isNull(l))
        return false;
    var s = car(l).slice(0, 1);
    return s == "[" || s == "{";
};

/**
 * Convert a list of strings representing a JSON document to a list of values.
 */
json.readJSON = function(l) {
    var s = writeStrings(l);
    var obj;
    eval('obj = { \"val\": ' + s + " }");
    return json.jsValToValue(obj.val);
};

/**
 * Convert a list of values to JSON array elements.
 */
json.valuesToJSElements = function(a, l, i) {
    if (isNull(l))
        return a;
    var pv = json.valueToJSVal(car(l));
    a[i] = pv
    return json.valuesToJSElements(a, cdr(l), i + 1);
};
    
/**
 * Convert a value to a JSON value.
 */
json.valueToJSVal = function(v) {
    if (!isList(v))
        return v;
    if (json.isJSArray(v))
        return json.valuesToJSElements(range(0, v.length), v, 0);
    return json.valuesToJSProperties({}, v);
};

/**
 * Convert a list of values to JSON properties.
 */
json.valuesToJSProperties = function(o, l) {
    if (isNull(l))
        return o;
    var token = car(l);
    if (isTaggedList(token, attribute)) {
        var pv = json.valueToJSVal(attributeValue(token));
        o['@' + attributeName(token).slice(1)] = pv;
    } else if (isTaggedList(token, element)) {
        if (elementHasValue(token)) {
            var pv = json.valueToJSVal(elementValue(token));
            o[elementName(token).slice(1)] = pv;
        } else {
            var child = {};
            o[elementName(token).slice(1)] = child;
            json.valuesToJSProperties(child, elementChildren(token));
        }
    }
    return json.valuesToJSProperties(o, cdr(l));
};

/**
 * Convert a list of values to a list of strings representing a JSON document.
 */
json.writeJSON = function(l) {
    var jsv;
    if (json.isJSArray(l))
        jsv = json.valuesToJSElements(range(0, l.length), l, 0);
    else
        jsv = json.valuesToJSProperties({}, l);
    var s = json.toJSON(jsv);
    return mklist(s);
}

/**
 * Convert a list + params to a JSON-RPC request.
 */
json.jsonRequest = function(id, func, params) {
    var r = mklist(mklist("'id", id), mklist("'method", func), mklist("'params", params));
    return json.writeJSON(valuesToElements(r));
};

/**
 * Convert a value to a JSON-RPC result.
 */
json.jsonResult = function(id, val) {
    return json.writeJSON(valuesToElements(mklist(mklist("'id", id), mklist("'result", val))));
};

/**
 * Convert a JSON-RPC result to a value.
 */
json.jsonResultValue = function(s) {
    var jsres = json.readJSON(s);
    var res = elementsToValues(jsres);
    var val = cadr(assoc("'result", res));
    if (isList(val) && !json.isJSArray(val))
        return mklist(val);
    return val;
};

/**
 * Escape a character.
 */
json.escapeJSONChar = function(c) {
    if(c == "\"" || c == "\\") return "\\" + c;
    if (c == "\b") return "\\b";
    if (c == "\f") return "\\f";
    if (c == "\n") return "\\n";
    if (c == "\r") return "\\r";
    if (c == "\t") return "\\t";
    var hex = c.charCodeAt(0).toString(16);
    if(hex.length == 1) return "\\u000" + hex;
    if(hex.length == 2) return "\\u00" + hex;
    if(hex.length == 3) return "\\u0" + hex;
    return "\\u" + hex;
};

/**
 * Encode a string into JSON format.
 */
json.escapeJSONString = function(s) {
    // The following should suffice but Safari's regex is broken (doesn't support callback substitutions)
    // return "\"" + s.replace(/([^\u0020-\u007f]|[\\\"])/g, json.escapeJSONChar) + "\"";

    // Rather inefficient way to do it
    var parts = s.split("");
    for(var i = 0; i < parts.length; i++) {
        var c = parts[i];
        if(c == '"' || c == '\\' || c.charCodeAt(0) < 32 || c.charCodeAt(0) >= 128)
            parts[i] = json.escapeJSONChar(parts[i]);
    }
    return "\"" + parts.join("") + "\"";
};

/**
 * Marshall objects to JSON format.
 */
json.toJSON = function(o) {
    if(o == null)
        return "null";
    if(o.constructor == String)
        return json.escapeJSONString(o);
    if(o.constructor == Number)
        return o.toString();
    if(o.constructor == Boolean)
        return o.toString();
    if(o.constructor == Date)
        return '{javaClass: "java.util.Date", time: ' + o.valueOf() +'}';
    if(o.constructor == Array) {
        var v = [];
        for(var i = 0; i < o.length; i++)
            v.push(json.toJSON(o[i]));
        return "[" + v.join(", ") + "]";
    }
    var v = [];
    for(attr in o) {
        if(o[attr] == null)
            v.push("\"" + attr + "\": null");
        else if(typeof o[attr] == "function")
            ; // Skip
        else
            v.push(json.escapeJSONString(attr) + ": " + json.toJSON(o[attr]));
    }
    return "{" + v.join(", ") + "}";
};