/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

use servo_util::namespace;
use dom::attr::Attr;
use dom::bindings::codegen::InheritTypes::{ElementCast, TextCast, CommentCast};
use dom::bindings::codegen::InheritTypes::{DocumentTypeCast, CharacterDataCast};
use dom::bindings::codegen::InheritTypes::ProcessingInstructionCast;
use dom::bindings::js::JS;
use dom::characterdata::CharacterData;
use dom::comment::Comment;
use dom::documenttype::DocumentType;
use dom::element::Element;
use dom::node::NodeIterator;
use dom::node::{DoctypeNodeTypeId, DocumentFragmentNodeTypeId, CommentNodeTypeId};
use dom::node::{DocumentNodeTypeId, ElementNodeTypeId, ProcessingInstructionNodeTypeId};
use dom::node::{TextNodeTypeId, NodeHelpers};
use dom::processinginstruction::ProcessingInstruction;
use dom::text::Text;

pub fn serialize(iterator: &mut NodeIterator) -> ~str {
    let mut html = ~"";
    let mut open_elements: ~[~str] = ~[];

    for node in *iterator {
        while open_elements.len() > iterator.depth {
            html.push_str(~"</" + open_elements.pop().unwrap().as_slice() + ">");
        }
        html.push_str(
            match node.type_id() {
                ElementNodeTypeId(..) => {
                    let elem: JS<Element> = ElementCast::to(&node);
                    serialize_elem(&elem, &mut open_elements)
                }
                CommentNodeTypeId => {
                    let comment: JS<Comment> = CommentCast::to(&node);
                    serialize_comment(&comment)
                }
                TextNodeTypeId => {
                    let text: JS<Text> = TextCast::to(&node);
                    serialize_text(&text)
                }
                DoctypeNodeTypeId => {
                    let doctype: JS<DocumentType> = DocumentTypeCast::to(&node);
                    serialize_doctype(&doctype)
                }
                ProcessingInstructionNodeTypeId => {
                    let processing_instruction: JS<ProcessingInstruction> = ProcessingInstructionCast::to(&node);
                    serialize_processing_instruction(&processing_instruction)
                }
                DocumentFragmentNodeTypeId => {
                    ~""
                }
                DocumentNodeTypeId => {
                    fail!("It shouldn't be possible to serialize a document node")
                }
            }
        );
    }
    while open_elements.len() > 0 {
        html.push_str(~"</" + open_elements.pop().unwrap().as_slice() + ">");
    }
    html
}

fn serialize_comment(comment: &JS<Comment>) -> ~str {
    ~"<!--" + comment.get().characterdata.data + "-->"
}

fn serialize_text(text: &JS<Text>) -> ~str {
    match text.get().characterdata.node.parent_node {
        Some(ref parent) if parent.is_element() => {
            let elem: JS<Element> = ElementCast::to(parent);
            match elem.get().tag_name.as_slice() {
                "style" | "script" | "xmp" | "iframe" |
                "noembed" | "noframes" | "plaintext" |
                "noscript" if elem.get().namespace == namespace::HTML => {
                    text.get().characterdata.data.clone()
                },
                _ => escape(text.get().characterdata.data, false)
            }
        }
        _ => escape(text.get().characterdata.data, false)
    }
}

fn serialize_processing_instruction(processing_instruction: &JS<ProcessingInstruction>) -> ~str {
    ~"<?" + processing_instruction.get().target + " " + processing_instruction.get().characterdata.data + "?>"
}

fn serialize_doctype(doctype: &JS<DocumentType>) -> ~str {
    ~"<!DOCTYPE" + doctype.get().name + ">"
}

fn serialize_elem(elem: &JS<Element>, open_elements: &mut ~[~str]) -> ~str {
    let mut rv = ~"<" + elem.get().tag_name;
    for attr in elem.get().attrs.iter() {
        rv.push_str(serialize_attr(attr));
    };
    rv.push_str(">");
    match elem.get().tag_name.as_slice() {
        "pre" | "listing" | "textarea" if elem.get().namespace == namespace::HTML => {
            match elem.get().node.first_child {
                Some(ref child) if child.is_text() => {
                    let text: JS<CharacterData> = CharacterDataCast::to(child);
                    if text.get().data.len() > 0 && text.get().data[0] == 0x0A as u8 {
                        rv.push_str("\x0A");
                    }
                },
                _ => {}
            }
        },
        _ => {}
    }
    if !elem.get().is_void() {
        open_elements.push(elem.get().tag_name.clone());
    }
    rv
}

fn serialize_attr(attr: &JS<Attr>) -> ~str {
    let attr_name = if attr.get().namespace == namespace::XML {
        ~"xml:" + attr.get().local_name.clone()
    } else if attr.get().namespace == namespace::XMLNS &&
        attr.get().local_name.as_slice() == "xmlns" {
        ~"xmlns"
    } else if attr.get().namespace == namespace::XMLNS {
        ~"xmlns:" + attr.get().local_name.clone()
    } else if attr.get().namespace == namespace::XLink {
        ~"xlink:" + attr.get().local_name.clone()
    } else {
        attr.get().name.clone()
    };
    ~" " + attr_name + "=\"" + escape(attr.get().value, true) + "\""
}

fn escape(string: &str, attr_mode: bool) -> ~str {
    let replaced = string.replace("&", "&amp;").replace("\xA0", "&nbsp;");
    match attr_mode {
        true => {
            replaced.replace("\"", "&quot;")
        },
        false => {
            replaced.replace("<", "&lt;").replace(">", "&gt;")
        }
    }
}