Implement DOMImplementation::createHTMLDocument

Spec:
http://dom.spec.whatwg.org/#dom-domimplementation-createhtmldocument

Closes #1510.

src/components/script/dom/bindings/codegen/DOMImplementation.webidl

@@ -1,26 +0,0 @@
-/* -*- Mode: IDL; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
-/* 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/.
- *
- * The origin of this IDL file is
- * http://dom.spec.whatwg.org/#interface-domimplementation
- *
- * Copyright:
- * To the extent possible under law, the editors have waived all copyright and
- * related or neighboring rights to this work.
- */
-
-interface DOMImplementation {
-  /*boolean hasFeature(DOMString feature,
-                     [TreatNullAs=EmptyString] DOMString version);*/
-  [Creator, Throws]
-  DocumentType createDocumentType(DOMString qualifiedName, DOMString publicId,
-                                  DOMString systemId);
-  /*[Throws]
-  Document createDocument(DOMString? namespace,
-                          [TreatNullAs=EmptyString] DOMString qualifiedName,
-                          optional DocumentType? doctype = null);*/
-  /*[Throws]
-  Document createHTMLDocument(optional DOMString title);*/
-};

src/components/script/dom/domimplementation.rs

@@ -6,8 +6,15 @@ use dom::bindings::codegen::DOMImplementationBinding;
 use dom::bindings::utils::{DOMString, Reflector, Reflectable, reflect_dom_object};
 use dom::bindings::utils::{Fallible, InvalidCharacter, NamespaceError};
 use dom::bindings::utils::{QName, Name, InvalidXMLName, xml_name_type};
+use dom::document::{AbstractDocument, HTML, HTMLDocumentTypeId};
 use dom::documenttype::DocumentType;
-use dom::node::AbstractNode;
+use dom::htmldocument::HTMLDocument;
+use dom::htmlbodyelement::HTMLBodyElement;
+use dom::htmlheadelement::HTMLHeadElement;
+use dom::htmlhtmlelement::HTMLHtmlElement;
+use dom::htmltitleelement::HTMLTitleElement;
+use dom::node::{AbstractNode, DocumentNodeTypeId};
+use dom::text::Text;
 use dom::window::Window;
 
 pub struct DOMImplementation {
@@ -52,4 +59,59 @@ impl DOMImplementation {
             QName => Ok(DocumentType::new(qname, Some(pubid), Some(sysid), self.owner.Document()))
         }
     }
+
+    // http://dom.spec.whatwg.org/#dom-domimplementation-createhtmldocument
+    pub fn CreateHTMLDocument(&self, title: Option<DOMString>) -> AbstractDocument {
+        // Step 1.
+        let abstract_doc = HTMLDocument::new(self.owner);
+        assert!(abstract_doc.document().doctype == HTML);
+
+        let abstract_node = AbstractNode::from_document(abstract_doc);
+        assert!(abstract_node.type_id() == DocumentNodeTypeId(HTMLDocumentTypeId));
+
+        // Step 2.
+        // FIXME: https://github.com/mozilla/servo/pull/1519
+
+        {
+            // Step 3.
+            let doc_type = DocumentType::new(~"html", None, None, abstract_doc);
+            abstract_node.AppendChild(doc_type);
+        }
+
+        {
+            // Step 4.
+            let doc_html = HTMLHtmlElement::new(~"html", abstract_doc);
+            abstract_node.AppendChild(doc_html);
+
+            {
+                // Step 5.
+                let doc_head = HTMLHeadElement::new(~"head", abstract_doc);
+                doc_html.AppendChild(doc_head);
+
+                // Step 6.
+                match title {
+                    None => (),
+                    Some(title_str) => {
+                        // Step 6.1.
+                        let doc_title = HTMLTitleElement::new(~"title", abstract_doc);
+                        doc_head.AppendChild(doc_title);
+
+                        // Step 6.2.
+                        let title_text = Text::new(title_str, abstract_doc);
+                        doc_title.AppendChild(title_text);
+                    }
+                }
+            }
+
+            // Step 7.
+            let doc_body = HTMLBodyElement::new(~"body", abstract_doc);
+            doc_html.AppendChild(doc_body);
+        }
+
+        // Step 8.
+        // FIXME: https://github.com/mozilla/servo/issues/1522
+
+        // Step 9.
+        abstract_doc
+    }
 }

src/components/script/dom/webidls/DOMImplementation.webidl

@@ -21,6 +21,6 @@ interface DOMImplementation {
   Document createDocument(DOMString? namespace,
                           [TreatNullAs=EmptyString] DOMString qualifiedName,
                           optional DocumentType? doctype = null);*/
-  /*[Throws]
-  Document createHTMLDocument(optional DOMString title);*/
+  [Creator]
+  Document createHTMLDocument(optional DOMString title);
 };