// -*- test-case-name: nevow.test.test_javascript -*-
// import Divmod
// import Divmod.Base
// import Divmod.Defer


Divmod.Runtime.NodeNotFound = Divmod.Error.subclass("Divmod.Runtime.NodeNotFound");

Divmod.Runtime.TooManyNodes = Divmod.Error.subclass("Divmod.Runtime.TooManyNodes");

Divmod.Runtime.NodeAttributeError = Divmod.Runtime.NodeNotFound.subclass("Divmod.Runtime.NodeAttributeError");
Divmod.Runtime.NodeAttributeError.methods(
    function __init__(self, root, attribute, value) {
        Divmod.Runtime.NodeAttributeError.upcall(self, '__init__');
        self.root = root;
        self.attribute = attribute;
        self.value = value;
    },

    function toString(self) {
        return (
            "Failed to discover node with " + self.attribute +
            " value " + self.value + " beneath " + self.root +
            " (programmer error).");
    });



Divmod.Runtime.ScriptLoadingError = Divmod.Error.subclass('Divmod.Runtime.ScriptLoadingError');



/**
 * Wrapper around a lower-level scheduled timed call which provides additional
 * useful operations.
 */
Divmod.Runtime.DelayedCall = Divmod.Class.subclass('Divmod.Runtime.DelayedCall');
Divmod.Runtime.DelayedCall.methods(
    function __init__(self, delay, callable) {
        self._handle = setTimeout(callable, delay);
    },

    /**
     * Unschedule this call so that it does not run.
     */
    function cancel(self) {
        clearTimeout(self._handle);
    });


/**
 * Move the given node so that it is a child of the given document and then try
 * to find its node with the given id.  Restore the node to its original parent
 * before returning the result.
 */
Divmod.Runtime._getElementByIdWithDocument = function _getElementByIdWithDocument(node, doc, id) {
    var currentParent = node.parentNode;
    var nextSibling = node.nextSibling;

    // Insert ourselves into the document temporarily.
    currentParent.removeChild(node);
    doc.documentElement.appendChild(node);

    // Try to find it.
    var foundNode = node.ownerDocument.getElementById(id);

    // And now put us back where we used to be.
    node.parentNode.removeChild(node);
    currentParent.insertBefore(node, nextSibling);

    return foundNode;
};



/**
 * Get an element by ID, falling back to using L{_getElementByIdWithDocument}
 * if it's not found in its owner document.
 */
Divmod.Runtime._getElementByIdWithNode = function _getElementByIdWithNode (node, doc, id) {
    var foundNode = node.ownerDocument.getElementById(id);
    if (foundNode === null) {
        // We didn't find it, maybe we need a workaround.
        // Let's insert ourselves into the document temporarily.
        foundNode = Divmod.Runtime._getElementByIdWithDocument(node, doc, id);
    }

    if (foundNode === null) {
        throw Divmod.Runtime.NodeNotFound('Node with id ' + id + ' not found');
    }

    return foundNode;
};



/**
 * Register a standard L{Error} JSON serializer.
 */
Divmod.Runtime._registerStandardErrorSerializer = function _registerStandardErrorSerializer() {
    Divmod.Base.registerJSON(
        'Error',
        function (obj) {
            return obj instanceof Error;
        },
        function (obj) {
            return {
                'name': obj.name,
                'message': obj.message,
                'stack': obj.stack || "No stacktrace available\n"
            };
        });
};



/**
 * XML parser for platforms which have the builtin "DOMParser" object.
 */
Divmod.Runtime._XMLParser = Divmod.Class.subclass("Divmod.Runtime._XMLParser");
Divmod.Runtime._XMLParser.methods(
    /**
     * Return the cached DOM parser for this runtime.  Create one if one does
     * not yet exist.
     */
    function _getParser(self) {
        if (self._cachedParser === undefined) {
            self._cachedParser = new DOMParser();
        }
        return self._cachedParser;
    },

    function parseXHTMLString(self, s) {
        var doc = self._getParser().parseFromString(s, "application/xml");
        var uri = doc.documentElement.namespaceURI;
        if (uri != "http://www.w3.org/1999/xhtml") {
            throw new Error(
                "Unknown namespace (" + uri +
                ") used with parseXHTMLString" +
                "- only XHTML 1.0 is supported.");
        }
        return doc;
    });



Divmod.Runtime.Platform = Divmod.Class.subclass("Divmod.Runtime.Platform");

Divmod.Runtime.Platform.DOM_DESCEND = 'Divmod.Runtime.Platform.DOM_DESCEND';
Divmod.Runtime.Platform.DOM_CONTINUE = 'Divmod.Runtime.Platform.DOM_CONTINUE';
Divmod.Runtime.Platform.DOM_TERMINATE = 'Divmod.Runtime.Platform.DOM_TERMINATE';

/**
 * The following constants are _supposed_ to be provided by the XHR object
 * itself, as per http://www.w3.org/TR/XMLHttpRequest/#done
 *
 * However, no current browser (Firefox 2, IE6, IE7, Opera, Safari) actually
 * provides these values, so we provide them here to avoid hard-coding
 * integers.
 */

Divmod.Runtime.Platform.XHR_UNSENT = 0;
Divmod.Runtime.Platform.XHR_OPEN = 1;
Divmod.Runtime.Platform.XHR_SENT = 2;
Divmod.Runtime.Platform.XHR_LOADING = 3;
Divmod.Runtime.Platform.XHR_DONE = 4;


/**
 * A mapping of instance C{__id__}s to instances, used by
 * Divmod.Runtime.Platform.connectSingleDOMEvent
 */
Divmod.Runtime._eventHandlerObjects = {};


/**
 * Make a DOM event handler for the L{Divmod.Class} instance with
 * C{handlerObjectID}, which calls C{methodName} on the corresponding instance
 * from L{Divmod.Runtime._eventHandlerObjects}, and then removes itself.
 *
 * This is a top level function (rather than a part of
 * L{Divmod.Runtime.Platform.connectSingleDOMEvent}) to avoid closing over any
 * DOM nodes, or anything which might hold a reference to one.  IE leaks
 * memory when you do that.
 *
 * @see http://www.bazon.net/mishoo/articles.epl?art_id=824
 */
Divmod.Runtime._makeSingleEventHandler = function _makeSingleEventHandler(
    handlerObjectID, domEventName, methodName) {

    return function(node) {
        delete node[domEventName];

        var handlerObject = Divmod.Runtime._eventHandlerObjects[
            handlerObjectID];

        delete Divmod.Runtime._eventHandlerObjects[handlerObjectID];

        return handlerObject[methodName].call(handlerObject, node);
    };
};

/**
 * @type _loadEventDelay: Number
 * @ivar: The number of milliseconds by which to delay invocation of events
 *     registered with C{addLoadEvent}.
 */
Divmod.Runtime.Platform.namedMethods({
    '__init__': function (self, name) {
        self.name = name;
        self.attrNameToMangled = {};
        self._loadEventDelay = 1;
    },

    /**
     * Attach a DOM event handler to C{domNode} for the event C{domEventName}
     * which will call the method named C{methodName} on the object
     * C{handlerObject}.  The event handler will be removed from the node
     * after the event is triggered.
     *
     * @param domEventName: the name of an event in the DOM, such as
     * "onclick", "onscroll", "onchange", etc.
     * @type domEventName: C{String}
     *
     * @param handlerObject: The object on which call C{methodName}.
     * @type handlerObject: L{Divmod.Class}
     *
     * @param domNode: The node to attach the event handler to.
     *
     * @param methodName: The method name to call on C{handlerObject} when the
     * event fires.
     *
     * @rtype: C{undefined}
     */
    'connectSingleDOMEvent': function (
        self, domEventName, handlerObject, domNode, methodName) {
        Divmod.Runtime._eventHandlerObjects[
            handlerObject.__id__] = handlerObject;

        domNode[domEventName] = Divmod.Runtime._makeSingleEventHandler(
            handlerObject.__id__, domEventName, methodName);
    },

    /**
     * Locate the first node with a given value for a particular attribute.
     *
     * @type node: Node
     * @param node: The node from which to begin searching downward.
     *
     * @type attrName: String
     * @param attrName: The name of the attribute to check.
     *
     * @type attrValue: String
     * @param attrValue: The value of the named attribute for which to search.
     *
     * @rtype: Node
     * @return: The first node found with a value matching the given one.
     *
     * @throw Error: If there is no node with an attribute which matches the
     * given value.
     */
    'firstNodeByAttribute': function (self, root, attrName, attrValue) {
        /* duplicate this here rather than adding an "onlyOne" arg to
           nodesByAttribute so adding an extra arg accidentally doesn't change
           it's behaviour if called directly
        */
        var descend = Divmod.Runtime.Platform.DOM_DESCEND;
        var terminate = Divmod.Runtime.Platform.DOM_TERMINATE;

        var result = null;
        self.traverse(
            root,
            function(node) {
                if (self.getAttribute(node, attrName) == attrValue) {
                    result = node;
                    return terminate;
                }
                return descend;
            });
        if (result === null) {
            throw Divmod.Runtime.NodeAttributeError(root, attrName, attrValue);
        }
        return result;
    },

    'nodesByAttribute': function (self, root, attrName, attrValue) {
        var descend = Divmod.Runtime.Platform.DOM_DESCEND;
        var results = [];
        self.traverse(
            root,
            function(node) {
                if (self.getAttribute(node, attrName) == attrValue) {
                    results.push(node);
                }
                return descend;
            });
        return results;
    },

    'nodeByAttribute': function (self, root, attrName, attrValue,
                                 /* optional */ defaultNode) {
        var nodes = self.nodesByAttribute(root, attrName, attrValue);
        if (nodes.length > 1) {
            throw new Error("Found too many " + attrName + " = " + attrValue);
        } else if (nodes.length < 1) {
            if (defaultNode === undefined) {
                throw Divmod.Runtime.NodeAttributeError(
                    root, attrName, attrValue);
            } else {
                return defaultNode;
            }

        } else {
            var result = nodes[0];
            return result;
        }
    },

    /**
     * Calculate the X/Y coordinates of event C{event} on the
     * page in a cross-browser fashion.  If C{event} is not defined,
     * then window.event will be used.
     *
     * @return: object with "x" and "y" slots
     */
    'getEventCoords': function (self, event) {
        if(!event) {
            event = window.event;
        }
        var x = 0, y = 0;
        if(event.pageX || event.pageY) {
            x = event.pageX;
            y = event.pageY;
        } else if(event.clientX || event.clientY) {
            x = event.clientX +
                document.body.scrollLeft +
                document.documentElement.scrollLeft;
            y = event.clientY +
                document.body.scrollTop +
                document.documentElement.scrollTop;
        }
        return {x: x, y: y};
    },

    /**
     * Find the X position of a node C{node} on the page in a cross-browser
     * fashion
     *
     * @rtype: C{Number}
     */
    'findPosX': function (self, node) {
        var curleft = 0;
        if (node.offsetParent) {
            while (node.offsetParent) {
                curleft += node.offsetLeft
                node = node.offsetParent;
            }
        } else if (node.x) {
            curleft += node.x;
        }
        return curleft;
    },

    /**
     * Find the Y position of a node C{node} on the page in a cross-browser
     * fashion
     *
     * @rtype: C{Number}
     */
    'findPosY': function (self, node) {
        var curtop = 0;
        if (node.offsetParent) {
            while (node.offsetParent) {
                curtop += node.offsetTop
                node = node.offsetParent;
            }
        } else if (node.y) {
            curtop += node.y;
        }
        return curtop;
    },

    /**
     * Determine the dimensions of the page (browser viewport).
     * This method only considers the visible portion of the page
     * (i.e. how much of it can fit on the screen at once).
     *
     * @return: object with "w" and "h" attributes
     */
    'getPageSize': function (self, /* optional */ win) {
        var w, h;
        var theWindow = win || window;

        /* slightly modified version of code from
         * http://www.quirksmode.org/viewport/compatibility.html */

        if (theWindow.innerHeight) {
            /* all except Explorer */
            w = theWindow.innerWidth;
            h = theWindow.innerHeight;
        } else if(theWindow.document.documentElement &&
                  theWindow.document.documentElement.clientHeight) {
            /* Explorer 6 Strict Mode */
            w = theWindow.document.documentElement.clientWidth;
            h = theWindow.document.documentElement.clientHeight;
        } else if (theWindow.document.body) {
            /* other Explorers */
            w = theWindow.document.body.clientWidth;
            h = theWindow.document.body.clientHeight;
        }

        return {w: w, h: h};
    },

    /**
     * Calculate the size of the given element, including padding
     * but excluding scrollbars, borders and margins.  If the
     * element is invisible (i.e. display: none) is set, the it
     * will be made visible for the purpose of obtaining its
     * dimensions (sufficiently quickly that the viewport will not
     * update).
     *
     * @return: object with "w" and "h" attributes
     */
    'getElementSize': function (self, e) {
        var hidden = e.style.display == "none";
        if(hidden) {
            e.style.display = "";
        }
        var size = {w: e.clientWidth, h: e.clientHeight};
        if(hidden) {
            e.style.display = "none";
        }
        return size;
    },

    /**
     * Return all immediate children of C{root} that have tag name C{tagName}
     */
    'getElementsByTagNameShallow': function (self, root, tagName) {
        var child, result = [];
        for(var i = 0; i < root.childNodes.length; i++) {
            child = root.childNodes[i];
            if(child.tagName && child.tagName.toLowerCase() == tagName) {
                result.push(child);
            }
        }
        return result;
    },

    /**
     * Some browsers rewrite attribute names.  This method is responsible for
     * transforming canonical attribute names into their browser-specific
     * names.  It gets called by L{Divmod.Runtime.Platform.getAttribute} and
     * L{Divmod.Runtime.Platform.setAttribute} when they encounter a
     * namespace-less attribute.
     */
    '_mangleAttributeName': function (self, localName) {
        if(localName in self.attrNameToMangled) {
            return self.attrNameToMangled[localName];
        }
        return localName;
    },

    /**
     * Reliably set the value for a node attribute.
     */
    'setAttribute': function (self, node, localName, value, namespaceURI,
                              namespaceIdentifier) {
        if (namespaceURI === undefined && namespaceIdentifier === undefined) {
            localName = self._mangleAttributeName(localName);
        }
        if (node.hasAttributeNS) {
            if (node.hasAttributeNS(namespaceURI, localName)) {
                return node.setAttributeNS(namespaceURI, localName, value);
            } else if (node.hasAttributeNS(namespaceIdentifier, localName)) {
                return node.setAttributeNS(namespaceIdentifier, localName, value);
            }
        }
        if (node.setAttribute) {
            var a = (namespaceIdentifier === undefined) ?
                localName : namespaceIdentifier + ':' + localName;
            return node.setAttribute(a, value);
        }
        return null;
    },

    /**
     * This is _the_way_ to get the value of an attribute off of node
     */
    'getAttribute': function (self, node, localName, namespaceURI,
                              namespaceIdentifier) {
        if(namespaceURI == undefined && namespaceIdentifier == undefined) {
            localName = self._mangleAttributeName(localName);
        }
        if (node.hasAttributeNS) {
            if (node.hasAttributeNS(namespaceURI, localName)) {
                return node.getAttributeNS(namespaceURI, localName);
            } else if (node.hasAttributeNS(namespaceIdentifier, localName)) {
                return node.getAttributeNS(namespaceIdentifier, localName);
            }
        }
        if (node.hasAttribute) {
            var r = (typeof namespaceURI != 'undefined') ? namespaceURI + ':' + localName : localName;
            if (node.hasAttribute(r)) {
                return node.getAttribute(r);
            }
        }
        if (node.getAttribute) {
            var s;
            if(namespaceIdentifier == undefined) {
                s = localName;
            } else {
                s = namespaceIdentifier + ':' + localName;
            }
            try {
                return node.getAttribute(s);
            } catch(err) {
                // IE has a stupid bug where getAttribute throws an error ... on
                // TABLE elements and perhaps other elememnt types!
                // Resort to looking in the attributes.
                var value = node.attributes[s];
                if(value != null) {
                    return value.nodeValue;
                }
            }
        }
        return null;
    },


    'makeHTTPRequest': function (self) {
        return new XMLHttpRequest();
    },


    /**
     * Asynchronously retrieve an HTTP resource.
     *
     * @param url: a string; the relative path of an URL.
     *
     * @param args: optional; an array of arrays (key-value pairs)
     * representing query arguments to add to the URL.  defaults to [].
     *
     * @param action: optional; the HTTP method to use.  defaults to 'GET'.
     *
     * @param headers: optional; an array of arrays (key-value pairs)
     * representing HTTP headers to set in the request.  defaults to [].
     *
     * @param content: optional; the payload of the HTTP request.  defaults to
     * ''.
     *
     * @return: an array with 2 elements.  The first is an XMLHttpRequest
     * object, whose API is browser-dependent but bears at least a passing
     * resemblance to http://www.w3.org/TR/XMLHttpRequest/.  The second is a
     * Deferred, which will fire when the request has completed, with an
     * object that has 2 attributes: 'status' and 'response', or errback if
     * the request fails due to a network error before a status has been
     * retrieved.  The 'status' will be an integer, giving the HTTP status
     * code of the response.  For example, 200 if successful.  The 'response'
     * will be a string, the text of the response.
     */
    'getPage': function (self, url, /* optional */ args, action, headers,
                         content, synchronous) {
        // Fill out defaults.
        if (args === undefined) {
            args = [];
        }
        if (action === undefined) {
            action = 'GET';
        }
        if (headers === undefined) {
            headers = [];
        }
        if (content === undefined) {
            content = '';
        }
        if (synchronous === undefined) {
            synchronous = false;
        }

        // Construct URL by quoting and appending query arguments.
        var qargs = [];
        for (var i = 0; i < args.length; ++i) {
            /* TODO: encodeURIComponent is not present on Safari, according to
             * http://aptana.com/reference/api/Global.html: we'll have to
             * update this to support it.
             */
            qargs.push(args[i][0] + '=' + encodeURIComponent(args[i][1]));
        }
        if (qargs.length) {
            url = url + '?' + qargs.join('&');
        }

        // Build request with appropriate headers.
        var req = self.makeHTTPRequest();
        req.open(action, url, !synchronous);
        for (var i = 0; i < headers.length; ++i) {
            req.setRequestHeader(headers[i][0], headers[i][1]);
        }

        // Set up a callback to fire a deferred.
        var d = new Divmod.Defer.Deferred();
        req.onreadystatechange = function() {
            if (req.readyState == Divmod.Runtime.Platform.XHR_DONE) {
                var result = null;
                try {
                    result = {'status': req.status,
                              'response': req.responseText};
                } catch (err) {
                    d.errback(err);
                }
                if (result != null) {
                    d.callback(result);
                }
            }
        };

        req.send(content);
        return [req, d];
    },

    'parseXHTMLString': function (self, s) {
        throw new Error("parseXHTMLString not implemented on " + self.name);
    },

    'traverse': function (self, rootNode, visitor) {
        if(rootNode == undefined) {
            throw new Error("traverse() passed bad rootNode");
        }
        var deque = [rootNode];
        while (deque.length != 0) {
            var curnode = deque.pop();
            var visitorResult = visitor(curnode);
            switch (visitorResult) {
            case Divmod.Runtime.Platform.DOM_DESCEND:
                for (var i = curnode.childNodes.length - 1; i > -1 ; i--) {
                    // "maybe you could make me care about how many stop
                    // bits my terminal has!  that would be so retro!"
                    deque.push(curnode.childNodes[i]);
                }
                break;

            case Divmod.Runtime.Platform.DOM_CONTINUE:
                break;

            case Divmod.Runtime.Platform.DOM_TERMINATE:
                return;

            default :
                throw new Error(
                    "traverse() visitor returned illegal value: " + visitorResult);
                break;
            }
        }
    },

    /**
     * Parse the given XHTML 1.0 string and append its top-level node as a
     * child of the given node.
     *
     * @param node: A DOM node.
     * @param innerHTML The XHTML 1.0 string to append.
     */
    'appendNodeContent': function (self, node, innerHTML) {
        throw new Error("appendNodeContent not implemented on " + self.name);
    },

    /**
     * Parse the given XHTML 1.0 string and use its top-level node to replace
     * all of the given node's children.
     *
     * @param node: A DOM node.
     * @param innerHTML The XHTML 1.0 string to append.
     */
    'setNodeContent': function (self, node, innerHTML) {
        while (node.childNodes.length) {
            node.removeChild(node.firstChild);
        }
        self.appendNodeContent(node, innerHTML);
    },

    'loadScript': function (self, location) {
        // <script> tricks produce spectacularly bizarre behaviour in IE and
        // Safari doesn't support onerror, so we just use getPage/eval here.
        var req = Divmod.Runtime.theRuntime.getPage(location);
        var d = req[1];
        d.addCallback(
            function (result) {
                eval(result['response']);
            });
        return d;
    },

    /**
     * Load the stylesheet at the given URL by appending a C{link} tag to the
     * document's head.
     *
     * @type stylesheetURL: C{String}
     *
     * @rtype: C{undefined}
     */
    'loadStylesheet': function (self, location) {
        var linkNode = document.createElement('link');
        linkNode.setAttribute('rel', 'stylesheet');
        linkNode.setAttribute('type', 'text/css');
        linkNode.setAttribute('href', location);
        var headNode = document.getElementsByTagName('head')[0];
        headNode.appendChild(linkNode);
    },

    /**
     * Simulate the functionality of the DOM Level 2 Document.importNode
     * method, used on the browser document.
     *
     * @param node: A DOM Node to import.
     * @param deep: A boolean indicating whether children should be imported.
     * @returns: The imported Node.
     */
    'importNode': function (self, node, deep) {
        return document.importNode(node, deep);
    },

    /**
     * Retrieve an element from the document by id, where the element is
     * expected to be the child of a particular node (typically a widget's
     * top-most node). Note that this method does not enforce that the element
     * ultimately located is, in fact, a child of the node passed in; the API
     * is merely to allow for platfom-specific workarounds for certain edge
     * cases.
     */
    'getElementByIdWithNode': function (self, node, id) {
        var foundNode = node.ownerDocument.getElementById(id);
        if (foundNode == null) {
            throw Divmod.Runtime.NodeNotFound('Node with id ' + id + ' not found');
        }
        return foundNode;
    },

    /**
     * Arrange for the given function to be called when the page is fully
     * loaded.  Due to the behavior of various browsers (particularly with
     * respect to their "page loading" aka "throbber" user interface element)
     * this callable is not invoked directly in response to the DOM page load
     * event, but in a delayed call scheduled from that event.
     */
    'addLoadEvent': function (self, callable) {
        var func = function() { setTimeout(callable, self._loadEventDelay); };
        Divmod.Base.addToCallStack(window, "onload", func, true);
    },

    /**
     * Add a beforeunload event handler.
     *
     * @param aWindow: The window object.
     * @param handler: The handler.
     */
    'addBeforeUnloadHandler': function (self, aWindow, handler) {
        Divmod.Base.addToCallStack(aWindow, 'onbeforeunload', handler);
    },


    /**
     * Is this a legacy browser?
     */
    'isLegacy': function (self) {
        return false;
    }
});


/**
 * Spidermonkey runtime for unit testing.
 *
 * @type loadEvents: Array
 * @ivar loadEvents: A list of load events that have been added.
 */
Divmod.Runtime.Spidermonkey = Divmod.Runtime.Platform.subclass(
    'Divmod.Runtime.Spidermonkey');
Divmod.Runtime.Spidermonkey.methods(
    function __init__(self, name) {
        Divmod.Runtime.Spidermonkey.upcall(self, '__init__', name);
        self.loadEvents = [];
    },

    /**
     * Add the given function to loadEvents.
     */
    function addLoadEvent(self, callable) {
        self.loadEvents.push(callable);
    });

Divmod.Runtime.Spidermonkey.isThisTheOne = function isSpidermonkeyTheOne() {
    try {
        window;
    } catch (error) {
        return true;
    }
    return false;
};



Divmod.Runtime.Firefox = Divmod.Runtime.Platform.subclass(
    'Divmod.Runtime.Firefox');

Divmod.Runtime.Firefox.isThisTheOne = function isThisTheOne() {
    try {
        return navigator.appName == "Netscape";
    } catch (err) {
        if (err instanceof ReferenceError) {
            return false;
        } else {
            throw err;
        }
    }
};

Divmod.Runtime.Firefox.methods(
    function __init__(self) {
        Divmod.Runtime.Firefox.upcall(self, '__init__', 'Firefox');
        self._xmlparser = Divmod.Runtime._XMLParser();
        self._scriptCounter = 0;
        self._scriptDeferreds = {};
        Divmod.Runtime._registerStandardErrorSerializer();
    },

    function makeHTML(self, element) {
        throw new Error("This sucks don't use it");

        var HTML_ELEMENT;

        if (element.nodeName.charAt(0) == '#') {
            HTML_ELEMENT = document.createTextNode(element.nodeValue);
        } else {
            HTML_ELEMENT = document.createElement(element.nodeName);
        }

        if (element.attributes != undefined) {
            for (var i = 0; i < element.attributes.length; ++i) {
                attr = element.attributes[i];
                HTML_ELEMENT.setAttribute(attr.nodeName, attr.nodeValue);
            }
        }

        for (var i = 0; i < element.childNodes.length; ++i) {
            HTML_ELEMENT.appendChild(MAKE_HTML(element.childNodes[i]));
        }
        return HTML_ELEMENT;
    },


    function _nsResolver(self, prefix) {
        var ns;
        switch (prefix) {
            case 'html':
                ns = 'http://www.w3.org/1999/xhtml';
                break;
            case 'athena':
                ns = 'http://divmod.org/ns/athena/0.7';
                break;
            default:
                // this should never happen, but browsers still suck...
                ns = null;
        }
        return ns;
    },

    function parseXHTMLString(self, s) {
        return self._xmlparser.parseXHTMLString(s);
    },

    function appendNodeContent(self, node, innerHTML) {
        var xpath = "//html:script";
        var doc = self.parseXHTMLString(innerHTML);
        var scripts = doc.evaluate(
            xpath,
            doc,
            self._nsResolver,
            XPathResult.UNORDERED_NODE_SNAPSHOT_TYPE, null
        );
        var oldScript;
        var newScript;
        var newAttr;
        for (var i = 0; i < scripts.snapshotLength; ++i) {
            oldScript = scripts.snapshotItem(i);
            newScript = document.createElement('script');
            for (var j = 0; j < oldScript.attributes.length; ++j) {
                newAttr = oldScript.attributes[j];
                newScript.setAttribute(newAttr.name, newAttr.value);
            }
            for (var j = 0; j < oldScript.childNodes.length; ++j) {
                newScript.appendChild(oldScript.childNodes[j].cloneNode(true));
            }
            if (oldScript.parentNode) {
                oldScript.parentNode.removeChild(oldScript);
            }
            node.appendChild(newScript);
        }
        node.appendChild(document.importNode(doc.documentElement, true));
    },


    /**
     * Load the JavaScript module at the given URL.
     *
     * The manner in which the JavaScript is evaluated is implementation
     * dependent.
     *
     * @return: A Deferred which fires when the contents of the module have
     * been evaluated.
     */
    function loadScript(self, location) {
        self._scriptCounter += 1;
        var scriptID = '__athena_runtime_script_loader_' + self._scriptCounter + '__';
        self._scriptDeferreds[scriptID] = Divmod.Defer.Deferred();

        var language = '"text/javascript"';
        var singleQuotedID = "'" + scriptID + "'";
        var doubleQuotedID = '"' + scriptID + '"';
        var onload = '"Divmod.Runtime.theRuntime._scriptLoaded(' + singleQuotedID + ')"';
        var onerror = '"Divmod.Runtime.theRuntime._scriptError(' + singleQuotedID + ', arguments[0])"';
        var src = '"' + location + '"';
        var xmlns = '"http://www.w3.org/1999/xhtml"';
        var script = (
            '<span ' +
            'style="display: none" ' +
            'xmlns=' + xmlns + ' ' +
            'id=' + doubleQuotedID + '>' +
            '<script ' +
            'type=' + language + ' ' +
            'onload=' + onload + ' ' +
            'onerror=' + onerror + ' ' +
            'src=' + src + '>' +
            '</script>' +
            '</span>');

        self.appendNodeContent(document.body, script);

        return self._scriptDeferreds[scriptID];
    },


    function _scriptLoaded(self, scriptID) {
        var script = document.getElementById(scriptID);
        script.parentNode.removeChild(script);

        var loaded = self._scriptDeferreds[scriptID];
        delete self._scriptDeferreds[scriptID];
        loaded.callback(null);
    },


    function _scriptError(self, scriptID, error) {
        var script = document.getElementById(scriptID);
        script.parentNode.removeChild(script);

        var loaded = self._scriptDeferreds[scriptID];
        delete self._scriptDeferreds[scriptID];
        loaded.errback(Divmod.Runtime.ScriptLoadingError(error));
    },


    function getElementByIdWithNode(self, node, id) {
        return Divmod.Runtime._getElementByIdWithNode(node, document, id);
    });



Divmod.Runtime.WebKit = Divmod.Runtime.Platform.subclass(
    'Divmod.Runtime.WebKit');

Divmod.Runtime.WebKit.isThisTheOne = function isThisTheOne() {
    try {
        return navigator.userAgent.indexOf('WebKit') != -1;
    } catch (err) {
        if (err instanceof ReferenceError) {
            return false;
        } else {
            throw err;
        }
    }
};

Divmod.Runtime.WebKit.methods(
    function __init__(self) {
        Divmod.Runtime.WebKit.upcall(self, '__init__', 'WebKit');
        self._xmlparser = Divmod.Runtime._XMLParser();
        // WebKit has no equivalent to the stacktrace that FF provides, so this
        // JSON adapter will provide a dummy object to make Athena happy when
        // it tries to send exceptions from the client to the server
        Divmod.Base.registerJSON(
            'Error',
            function(obj) {
                return arguments[1] instanceof Error;
            },
            function(obj) {
                var exc = arguments[1];
                return {
                    'name': exc.name,
                    'message': exc.message,
                    'stack': 'No stacktrace available\n'
                };
            }
        );
        /*
         * WebKit fires the onload event long before the page has actually
         * loaded.  This has two consequences.  First, if the Athena transport
         * is started when the onload event fires, then WebKit will believe
         * that the page never actually completes loading, since there will be
         * an open, long-lived XHR.  This means its spinner will never stop
         * spinning, which will aggravate users.  Second, if the Athena
         * transport is started before the page fully loads, application-level
         * JavaScript may fail, since the page is supposed to have loaded by
         * the time that event fires.  This delay is a complete and utter hack
         * to try to work around these two problems in *most* cases.  It will
         * certainly fail in some cases.  Unless WebKit exposes a real event
         * which fires when the page is really loaded, though, I don't see any
         * easy way around this. -exarkun
         */
        self._loadEventDelay = 200;
    },

    function getElementByIdWithNode(self, node, id) {
        return Divmod.Runtime._getElementByIdWithNode(node, document, id);
    },

    function parseXHTMLString(self, s) {
        return self._xmlparser.parseXHTMLString(s);
    },

    function appendNodeContent(self, node, innerHTML) {
        var doc = self.parseXHTMLString(innerHTML);
        node.appendChild(document.importNode(doc.documentElement, true));
    });



Divmod.Runtime._internetExplorerVersion = function _internetExplorerVersion() {
    try {
        // http://msdn.microsoft.com/en-us/library/ms537509%28v=vs.85%29.aspx
        var userAgent = navigator.userAgent;
        var result = userAgent.match(/MSIE ([0-9]+[\.0-9]*)/);
        if (result === null && navigator.appName === 'Netscape') {
            // We might be IE 11.
            result = userAgent.match(/Trident\/.*rv:([0-9]+[\.0-9])/);
        }
        if (result === null) {
            return null;
        }
        return parseFloat(result[1]);
    } catch (err) {
        if (err instanceof ReferenceError) {
            return null;
        } else {
            throw err;
        }
    }
};



Divmod.Runtime.InternetExplorerModern = Divmod.Runtime.Platform.subclass("Divmod.Runtime.InternetExplorerModern");

Divmod.Runtime.InternetExplorerModern.isThisTheOne = function isThisTheOne() {
    var version = Divmod.Runtime._internetExplorerVersion();
    return version !== null && version >= 10;
};

Divmod.Runtime.InternetExplorerModern.methods(
    function __init__(self) {
        Divmod.Runtime.InternetExplorerModern.upcall(
            self, '__init__', 'Internet Explorer 10+');
        self._xmlparser = Divmod.Runtime._XMLParser();
    },


    function appendNodeContent(self, node, innerHTML) {
        var head = document.getElementsByTagName('head').item(0);
        var doc = self.parseXHTMLString(innerHTML);
        var scripts = doc.getElementsByTagName('script');

        while (scripts.length > 0) {
            var oldScript = scripts[0].parentNode.removeChild(scripts[0]);
            var src = oldScript.getAttribute('src');
            var text = oldScript.text;
            var script = document.createElement('script');
            script.type = 'text/javascript';
            if(src != '' && src != null){
                script.src = src;
            }
            else if(text != '' && text != null){
                script.text = text;
            }
            head.appendChild(script);
        }
        node.appendChild(document.importNode(doc.documentElement, true));
    },


    function parseXHTMLString(self, s) {
        return self._xmlparser.parseXHTMLString(s);
    },


    function getElementByIdWithNode(self, node, id) {
        return Divmod.Runtime._getElementByIdWithNode(node, document, id);
    });



Divmod.Runtime.InternetExplorerSemiModern = Divmod.Runtime.Platform.subclass("Divmod.Runtime.InternetExplorerSemiModern");

Divmod.Runtime.InternetExplorerSemiModern.isThisTheOne = function isThisTheOne() {
    var version = Divmod.Runtime._internetExplorerVersion();
    return version !== null && version >= 8 && version < 10;
};

Divmod.Runtime.InternetExplorerSemiModern.methods(
    function __init__(self) {
        Divmod.Runtime.InternetExplorerSemiModern.upcall(
            self, '__init__', 'Internet Explorer 8/9');
        Divmod.Runtime._registerStandardErrorSerializer();
    },


    function parseXHTMLString(self, s) {
        var xmldoc = new ActiveXObject("MSXML.DOMDocument");
        xmldoc.async = false;

        if(!xmldoc.loadXML(s)){
            throw new Error('XML parsing error: ' + xmldoc.parseError.reason);
        }
        return xmldoc;
    },


    function appendNodeContent(self, node, innerHTML) {
        var head = document.getElementsByTagName('head').item(0);
        var doc = self.parseXHTMLString(innerHTML);
        var scripts = doc.getElementsByTagName('script');

        for(var i = 0;i < scripts.length;i++){
            var oldScript = scripts[i].parentNode.removeChild(scripts[i]);
            var src = oldScript.getAttribute('src');
            var text = oldScript.text;
            var script = document.createElement('script');
            script.type = 'text/javascript';
            if(src != '' && src != null){
                script.src = src;
            }
            else if(text != '' && text != null){
                script.text = text;
            }
            head.appendChild(script);
        }

        node.innerHTML += doc.xml;
    },


    /**
     * Simulate importNode by rebuilding the node contents in a node created in
     * the browser document; IE doesn't support DOM Level 2, and importNode in
     * particular.
     */
    function importNode(self, node, deep) {
        var nodeXML = node.xml || node.outerHTML;
        if (!nodeXML) {
            // This probably isn't a node at all, but some other junk
            throw new Error('Unable to retrieve XML content of node');
        }

        var tmpNode = document.createElement('div');
        tmpNode.innerHTML = nodeXML;
        return tmpNode.firstChild.cloneNode(deep);
    },


    function getElementByIdWithNode(self, node, id) {
        var foundNode = node.ownerDocument.getElementById(id);
        if (foundNode == null) {
            // We didn't find it, maybe we need a workaround.

            // Let's find the root node of the hierarchy.
            var root = node;
            while (root.parentNode != null) {
                root = root.parentNode;
            }

            var DOCUMENT_FRAGMENT_NODE = 11;
            if (root.nodeType == DOCUMENT_FRAGMENT_NODE) {
                // We're in a DocumentFragment, and thus getElementById won't
                // find any of our children.
                foundNode = Divmod.Runtime._getElementByIdWithDocument(
                    node, document, id);
            }
        }

        if (foundNode == null) {
            throw Divmod.Runtime.NodeNotFound('Node with id ' + id + ' not found');
        }

        return foundNode;
    },


    /**
     * Add the handler to the <body> element instead.
     */
    function addBeforeUnloadHandler(self, aWindow, handler) {
        Divmod.Base.addToCallStack(aWindow.document.body, 'onbeforeunload', handler);
    });



Divmod.Runtime.InternetExplorerLegacy = Divmod.Runtime.InternetExplorerSemiModern.subclass("Divmod.Runtime.InternetExplorerLegacy");

Divmod.Runtime.InternetExplorerLegacy.isThisTheOne = function isThisTheOne() {
    var version = Divmod.Runtime._internetExplorerVersion();
    return version !== null && version < 8;
};

Divmod.Runtime.InternetExplorerLegacy.methods(
    function __init__(self) {
        Divmod.Runtime.InternetExplorerLegacy.upcall(
            self, '__init__', 'Internet Explorer 6/7');
        /* IE rewrites attributes with names matching these
           keys to their corresponding values.
           e.g. class -> className, etc
         */
        self.attrNameToMangled = {"class": "className",
                                  "checked": "defaultChecked",
                                  "usemap": "useMap",
                                  "for": "htmlFor"};
    },


    function isLegacy(self) {
        return true;
    },


    function makeHTTPRequest(self) {
        if (!self._xmlhttpname) {
            var names = ["Msxml2.XMLHTTP", "Microsoft.XMLHTTP", "Msxml2.XMLHTTP.4.0"];
            while (names.length) {
                self._xmlhttpname = names.shift();
                try {
                    return self.makeHTTPRequest();
                } catch (e) {
                    // pass
                }
            }
            self._xmlhttpname = null;
            throw new Error("No support XML HTTP Request thingy on this platform");
        } else {
            return new ActiveXObject(self._xmlhttpname);
        }
    });



Divmod.Runtime.Opera = Divmod.Runtime.Platform.subclass("Divmod.Runtime.Opera");

Divmod.Runtime.Opera.isThisTheOne = function isThisTheOne() {
    try {
        return navigator.userAgent.indexOf('Opera') != -1;
    } catch (err) {
        if (err instanceof ReferenceError) {
            return false;
        } else {
            throw err;
        }
    }
};

Divmod.Runtime.Opera.methods(
    function __init__(self) {
        Divmod.Runtime.Opera.upcall(self, '__init__', 'Opera');
        self.lp = document.implementation.createLSParser(DOMImplementationLS.MODE_SYNCHRONOUS, null);
        self.ls = document.implementation.createLSSerializer();

        // Provide a JSON adapter for client-side errors, to make Athena happy
        // when it tries to send exceptions from the client to the server

        // TODO: Convert Opera's backtrace string to FF's stacktrace format
        Divmod.Base.registerJSON(
            'Error',
            function(obj) {
                return obj instanceof Error;
            },
            function(obj) {
                var stack = 'No stacktrace available\n';
                var message = obj.message;
                var backtrace = message.indexOf('Backtrace:');
                if(backtrace != -1) {
                    stack = message.slice(backtrace);
                    message = message.slice(0, backtrace);
                }
                return {
                    'name': obj.name,
                    'message': message,
                    'stack': stack
                };
            }
        );
    },

    function parseXHTMLString(self, s) {
        var lsi = document.implementation.createLSInput();
        lsi.stringData = s;
        return self.lp.parse(lsi);
    },

    function appendNodeContent(self, node, innerHTML) {
        var doc = self.parseXHTMLString(innerHTML);
        node.appendChild(document.importNode(doc.documentElement, true));
    });



Divmod.Runtime.Platform.determinePlatform = function determinePlatform() {
    var platforms = [
        Divmod.Runtime.WebKit,
        Divmod.Runtime.InternetExplorerModern,
        Divmod.Runtime.Firefox,
        Divmod.Runtime.InternetExplorerSemiModern,
        Divmod.Runtime.InternetExplorerLegacy,
        Divmod.Runtime.Opera,
        Divmod.Runtime.Spidermonkey];
    for (var cls = 0; cls < platforms.length; ++cls) {
        if (platforms[cls].isThisTheOne()) {
            return platforms[cls];
        }
    }
    throw new Error("Unsupported platform");
};

/**
 * Initialise the Divmod runtime.
 */
Divmod.Runtime.initRuntime = function initRuntime(runtimeType) {
    // If the runtime type has already been determined, then we do not attempt
    // detection again. The platform type shouldn't be changing at runtime, and
    // the detection heuristics can be broken by code that executes later.

    if (Divmod.Runtime.theRuntimeType === undefined) {
        Divmod.Runtime.theRuntimeType = Divmod.Runtime.Platform.determinePlatform();
    }

    Divmod.Runtime.theRuntime = new Divmod.Runtime.theRuntimeType;
}

Divmod.Runtime.initRuntime();
