Code

Add new rearranged /dom directory
[inkscape.git] / src / dom / xmlreader.cpp
diff --git a/src/dom/xmlreader.cpp b/src/dom/xmlreader.cpp
new file mode 100644 (file)
index 0000000..218a71b
--- /dev/null
@@ -0,0 +1,987 @@
+/**\r
+ * Phoebe DOM Implementation.\r
+ *\r
+ * This is a C++ approximation of the W3C DOM model, which follows\r
+ * fairly closely the specifications in the various .idl files, copies of\r
+ * which are provided for reference.  Most important is this one:\r
+ *\r
+ * http://www.w3.org/TR/2004/REC-DOM-Level-3-Core-20040407/idl-definitions.html\r
+ *\r
+ * Authors:\r
+ *   Bob Jamison\r
+ *\r
+ * Copyright (C) 2005 Bob Jamison\r
+ *\r
+ *  This library is free software; you can redistribute it and/or\r
+ *  modify it under the terms of the GNU Lesser General Public\r
+ *  License as published by the Free Software Foundation; either\r
+ *  version 2.1 of the License, or (at your option) any later version.\r
+ *\r
+ *  This library is distributed in the hope that it will be useful,\r
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU\r
+ *  Lesser General Public License for more details.\r
+ *\r
+ *  You should have received a copy of the GNU Lesser General Public\r
+ *  License along with this library; if not, write to the Free Software\r
+ *  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA\r
+ */\r
+\r
+\r
+\r
+#include "xmlreader.h"\r
+#include "charclass.h"\r
+#include "domimpl.h"\r
+#include "svg/svgimpl.h"\r
+\r
+#include <stdio.h>\r
+#include <stdarg.h>\r
+\r
+namespace org\r
+{\r
+namespace w3c\r
+{\r
+namespace dom\r
+{\r
+\r
+\r
+//#########################################################################\r
+//# E N T I T Y    T A B L E\r
+//#########################################################################\r
+struct EntityInfo\r
+{\r
+    char *escape;\r
+    int  escapeLength;\r
+    char *value;\r
+};\r
+\r
+\r
+static EntityInfo entityTable[] =\r
+{\r
+    { "&amp;"  , 5 , "&"  },\r
+    { "&lt;"   , 4 , "<"  },\r
+    { "&gt;"   , 4 , ">"  },\r
+    { "&apos;" , 6 , "'"  },\r
+    { "&quot;" , 6 , "\"" },\r
+    { NULL     , 0 , "\0" }\r
+};\r
+\r
+\r
+\r
+//#########################################################################\r
+//# M E S S A G E S\r
+//#########################################################################\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+void XmlReader::error(char *fmt, ...)\r
+{\r
+    va_list args;\r
+    fprintf(stderr, "XmlReader:error at line %d, column %d:", lineNr, colNr);\r
+    va_start(args, fmt);\r
+    vfprintf(stderr, fmt, args);\r
+    va_end(args) ;\r
+    fprintf(stderr, "\n");\r
+}\r
+\r
+\r
+\r
+//#########################################################################\r
+//# U T I L I T Y\r
+//#########################################################################\r
+\r
+static void trim(DOMString &str)\r
+{\r
+    int len = str.size();\r
+    if (len<1)\r
+        return;\r
+\r
+    int start = 0;\r
+    int end = 0;\r
+    for (start=0 ; start<len ; start++)\r
+        {\r
+        int ch = str[start];\r
+        if (ch<=' ' || ch>126)\r
+            break;\r
+        }\r
+    for (end=len-1 ; end>=0 ; end--)\r
+        {\r
+        int ch = str[end];\r
+        if (ch<=' ' || ch>126)\r
+            break;\r
+        }\r
+    if (start<end)\r
+        {\r
+        str = str.substr(start, end+1);\r
+        }\r
+}\r
+\r
+//#########################################################################\r
+//# P A R S I N G\r
+//#########################################################################\r
+\r
+/**\r
+ *  Get the character at the position and record the fact\r
+ */\r
+int XmlReader::get(int p)\r
+{\r
+    if (p >= len)\r
+        return -1;\r
+    int ch = parsebuf[p];\r
+    //printf("%c", ch);\r
+    if (ch == '\n' || ch == '\r')\r
+        {\r
+        colNr = 0;\r
+        lineNr++;\r
+        }\r
+    else\r
+        colNr++;\r
+    return ch;\r
+}\r
+\r
+/**\r
+ *  Look at the character at the position, but don't note the fact\r
+ */\r
+int XmlReader::peek(int p)\r
+{\r
+    if (p >= len)\r
+        return -1;\r
+    int ch = parsebuf[p];\r
+    return ch;\r
+}\r
+\r
+\r
+/**\r
+ *  Test if the given substring exists at the given position\r
+ *  in parsebuf.  Use peek() in case of out-of-bounds\r
+ */\r
+bool XmlReader::match(int pos, char *str)\r
+{\r
+    while (*str)\r
+       {\r
+       if (peek(pos++) != *str++)\r
+           return false;\r
+       }\r
+   return true;\r
+}\r
+\r
+\r
+\r
+/**\r
+ *  Test if the given substring exists at the given position\r
+ *  in a given buffer\r
+ */\r
+/*\r
+static bool bufMatch(const DOMString &buf, int pos, char *str)\r
+{\r
+    while (*str)\r
+       {\r
+       if (buf[pos++] != *str++)\r
+           return false;\r
+       }\r
+   return true;\r
+}\r
+*/\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+int XmlReader::skipwhite(int p)\r
+{\r
+  while (p < len)\r
+    {\r
+    int b = get(p);\r
+    if (!isWhitespace(b))\r
+        break;\r
+    p++;\r
+    }\r
+  return p;\r
+}\r
+\r
+/**\r
+ * modify this to allow all chars for an element or attribute name\r
+ */\r
+int XmlReader::getWord(int p, DOMString &result)\r
+{\r
+    while (p<len)\r
+        {\r
+        int b = get(p);\r
+        if (b<=' ' || b=='/' || b=='>' || b=='=')\r
+            break;\r
+        result.push_back(b);\r
+        p++;\r
+        }\r
+    return p;\r
+}\r
+\r
+/**\r
+ * get a name and prefix, if any\r
+ */\r
+int XmlReader::getPrefixedWord(int p, DOMString &prefix,\r
+                DOMString &shortWord, DOMString &fullWord)\r
+{\r
+    while (p<len)\r
+        {\r
+        int b = get(p);\r
+        if (b<=' ' || b=='/' || b=='>' || b=='=')\r
+            break;\r
+        else if (b == ':')\r
+            {\r
+            prefix = shortWord;\r
+            shortWord = "";\r
+            }\r
+        else\r
+            shortWord.push_back(b);\r
+        p++;\r
+        }\r
+    if (prefix.size() > 0)\r
+        fullWord = prefix + ":" + shortWord;\r
+    else\r
+        fullWord = shortWord;\r
+    return p;\r
+}\r
+\r
+\r
+/**\r
+ * Assume that we are starting on a quote.  Ends on the char\r
+ * after the final '"'\r
+ */\r
+int XmlReader::getQuoted(int p0, DOMString &result)\r
+{\r
+\r
+    int p = p0;\r
+\r
+    if (peek(p)!='"' && peek(p)!='\'')\r
+        return p0;\r
+\r
+    int b = get(p++); //go to next char\r
+\r
+    DOMString buf;\r
+\r
+    while (p<len )\r
+        {\r
+        b = get(p++);\r
+        if (b=='"' || b=='\'')\r
+            break;\r
+        else if (b=='&')\r
+            {\r
+            p = parseEntity(p, result);\r
+            if (p < 0)\r
+                return p0;\r
+            }\r
+        else\r
+            {\r
+            buf.push_back(b);\r
+            }\r
+        }\r
+\r
+    //printf("quoted text:'%s'\n", buf.c_str());\r
+\r
+    result.append(buf);\r
+\r
+    return p;\r
+}\r
+\r
+\r
+\r
+/**\r
+ * Parse a <!xml> tag.  Node may be null.  Assumes current char is '<'\r
+ * ends on char after '>'\r
+ */\r
+int XmlReader::parseVersion(int p0)\r
+{\r
+    int p = p0;\r
+\r
+    if (!match(p, "<?xml"))\r
+        return p0;\r
+\r
+    p     += 5;\r
+    colNr += 5;\r
+\r
+    bool quickCloseDummy;\r
+    Node *node = new NodeImpl();\r
+    int p2 = parseAttributes(p, node, &quickCloseDummy);\r
+    if (p2 < p)\r
+        {\r
+        delete node;\r
+        return p0;\r
+        }\r
+    p = p2;\r
+\r
+    //get the attributes that we need\r
+    NamedNodeMap attributes = node->getAttributes();\r
+    Node *attr = attributes.getNamedItem("version");\r
+    if (attr)\r
+        document->setXmlVersion(attr->getNodeValue());\r
+    attr = attributes.getNamedItem("encoding");\r
+    if (attr)\r
+        { /*document->setXmlEncoding(attr->getNodeValue());*/ }\r
+    attr = attributes.getNamedItem("standalone");\r
+    if (attr)\r
+        document->setXmlStandalone((attr->getNodeValue() == "yes"));\r
+    delete node;\r
+\r
+    //#now we should be pointing at '?>'\r
+    if (!match(p, "?>"))\r
+        {\r
+        return p0;\r
+        }\r
+\r
+    //skip over '?>'\r
+    get(p++);\r
+    get(p++);\r
+\r
+    return p;\r
+}\r
+\r
+\r
+/**\r
+ *  Parse a <!DOCTYPE> tag.  doctype may be null.  Expects '<'\r
+ *  on start.  Ends pointing at char after '>'\r
+ */\r
+int XmlReader::parseDoctype(int p0)\r
+{\r
+    int p = p0;\r
+\r
+    if (!match(p, "<!DOCTYPE"))\r
+        return p0;\r
+\r
+    p     += 9;\r
+    colNr += 9;\r
+\r
+    DocumentType *doctype = document->getDoctype();\r
+    if (!doctype)\r
+        return p0;\r
+\r
+\r
+    //### get the root name of the document\r
+    p = skipwhite(p);\r
+    DOMString rootName;\r
+    int p2 = getWord(p, rootName);\r
+    if (p2 <= p)\r
+        return p0;\r
+    p = p2;\r
+    //printf("doctype root '%s'\n", rootName.c_str());\r
+\r
+\r
+    while (p < len)\r
+        {\r
+        p = skipwhite(p);\r
+        if (peek(p) == '>')\r
+            break;\r
+        else if (peek(p) == '[') //just ignore 'internal' [] stuff\r
+            {\r
+            while (p < len)\r
+                {\r
+                int ch = get(p++);\r
+                if (ch == ']')\r
+                    break;\r
+                }\r
+            p++;\r
+            }\r
+        else if (match(p, "PUBLIC"))\r
+            {\r
+            p     += 6;\r
+            colNr += 6;\r
+            p = skipwhite(p);\r
+            DOMString pubIdLiteral;\r
+            int p2 = getQuoted(p, pubIdLiteral);\r
+            if (p2 <= p)\r
+                return p0;\r
+            p = p2;\r
+            p = skipwhite(p);\r
+            DOMString systemLiteral;\r
+            p2 = getQuoted(p, systemLiteral);\r
+            if (p2 <= p)\r
+                return p0;\r
+            p = p2;\r
+            //printf("PUBLIC \"%s\" \"%s\" \n",\r
+            //     pubIdLiteral.c_str(), systemLiteral.c_str());\r
+            }\r
+        else if (match(p, "SYSTEM"))\r
+            {\r
+            p     += 6;\r
+            colNr += 6;\r
+            p = skipwhite(p);\r
+            DOMString systemLiteral;\r
+            int p2 = getQuoted(p, systemLiteral);\r
+            if (p2 <= p)\r
+                return p0;\r
+            p = p2;\r
+            //printf("SYSTEM \"%s\" \n", systemLiteral.c_str());\r
+            }\r
+        }\r
+\r
+\r
+    //skip over '>'\r
+    get(p++);\r
+\r
+    return p;\r
+}\r
+\r
+\r
+\r
+/**\r
+ *  Expects '<' on startup, ends on char after '>'\r
+ */\r
+int XmlReader::parseComment(int p0, Comment *comment)\r
+{\r
+    int p = p0;\r
+\r
+    if (!match(p, "<!--"))\r
+        return p0;\r
+\r
+    colNr += 4;\r
+    p     += 4;\r
+\r
+    DOMString buf;\r
+\r
+    while (p<len-3)\r
+        {\r
+        if (match(p, "-->"))\r
+            {\r
+            p     += 3;\r
+            colNr += 3;\r
+            break;\r
+            }\r
+        int ch = get(p++);\r
+        buf.push_back(ch);\r
+        }\r
+\r
+    comment->setNodeValue(buf);\r
+\r
+    return p;\r
+}\r
+\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+int XmlReader::parseCDATA(int p0, CDATASection *cdata)\r
+{\r
+\r
+    int p = p0;\r
+\r
+    if (!match(p, "<![CDATA["))\r
+        return p0;\r
+\r
+    colNr += 9;\r
+    p     += 9;\r
+\r
+    DOMString buf;\r
+\r
+    while (p<len)\r
+        {\r
+        if (match(p, "]]>"))\r
+            {\r
+            p     +=3;\r
+            colNr += 3;\r
+            break;\r
+            }\r
+        int ch = get(p++);\r
+        buf.push_back(ch);\r
+        }\r
+\r
+    /*printf("Got CDATA:%s\n",buf.c_str());*/\r
+    cdata->setNodeValue(buf);\r
+\r
+    return p;\r
+}\r
+\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+int XmlReader::parseText(int p0, Text *text)\r
+{\r
+\r
+    int p = p0;\r
+\r
+    DOMString buf;\r
+\r
+    while (p<len)\r
+        {\r
+        if (peek(p) == '&')\r
+            {\r
+            p = parseEntity(p, buf);\r
+            if (p < 0) //error?\r
+                return p0;\r
+            }\r
+        else if (peek(p) == '<')\r
+            {\r
+            break;\r
+            }\r
+        else\r
+            {\r
+            int ch = get(p++);\r
+            buf.push_back(ch);\r
+            }\r
+        }\r
+\r
+    /*printf("Got Text:%s\n",buf.c_str());*/\r
+    text->setNodeValue(buf);\r
+\r
+    return p;\r
+}\r
+\r
+\r
+\r
+\r
+\r
+/**\r
+ * Parses attributes of a node.  Should end pointing at either the\r
+ * '?' of a version or doctype tag, or a '>' of a normal tag\r
+ */\r
+int XmlReader::parseAttributes(int p0, Node *node, bool *quickClose)\r
+{\r
+    *quickClose = false;\r
+\r
+    int p = p0;\r
+\r
+    NamedNodeMap attributes;\r
+\r
+    while (p<len)\r
+        {\r
+        /*printf("ch:%c\n",ch);*/\r
+        p  = skipwhite(p);\r
+        int ch = get(p);\r
+\r
+        /*printf("ch:%c\n",ch);*/\r
+        if (ch == '?'  ||  ch == '>')//done\r
+            break;\r
+        else if (ch=='/' && p<len+1)\r
+            {\r
+            p++;\r
+            p = skipwhite(p);\r
+            ch = peek(p);\r
+            if (ch == '>')\r
+                {\r
+                p++;\r
+                *quickClose = true;\r
+                /*printf("quick close\n");*/\r
+                return p;\r
+                }\r
+            }\r
+        DOMString shortName;\r
+        DOMString prefix;\r
+        DOMString qualifiedName;\r
+        int p2 = getPrefixedWord(p, prefix, shortName, qualifiedName);\r
+        if (p2 <= p)\r
+            break;\r
+\r
+        /*printf("name:%s",buf);*/\r
+        p = p2;\r
+        p = skipwhite(p);\r
+        ch = get(p);\r
+        /*printf("ch:%c\n",ch);*/\r
+        if (ch != '=')\r
+            break;\r
+        p++;\r
+        p = skipwhite(p);\r
+        /*ch = parsebuf[p];*/\r
+        /*printf("ch:%c\n",ch);*/\r
+        DOMString attrValue;\r
+        p2 = getQuoted(p, attrValue);\r
+        p  = p2;\r
+        /*printf("name:'%s'   value:'%s'\n",buf,buf2);*/\r
+\r
+        DOMString namespaceURI = "";\r
+        if (prefix == "xmlns" || shortName == "xmlns")\r
+            namespaceURI = XMLNSNAME;\r
+\r
+        //## Now let us make the attribute and give it to the node\r
+        Attr *attr = document->createAttributeNS(namespaceURI, qualifiedName);\r
+        attr->setValue(attrValue);\r
+        node->getAttributes().setNamedItemNS(attr);\r
+\r
+        }//while p<len\r
+\r
+    return p;\r
+}\r
+\r
+/**\r
+ * Appends the value of an entity to the buffer\r
+ */\r
+int XmlReader::parseEntity(int p0, DOMString &buf)\r
+{\r
+    int p = p0;\r
+    for (EntityInfo *info = entityTable ; info->escape ; info++)\r
+        {\r
+        if (match(p, info->escape))\r
+            {\r
+            p     += info->escapeLength;\r
+            colNr += info->escapeLength;\r
+            buf   += info->value;\r
+            return p;\r
+            }\r
+        }\r
+\r
+    error("unterminated entity");\r
+    return -1;\r
+}\r
+\r
+\r
+//#########################################################################\r
+//# P A R S E    A    N O D E\r
+//#########################################################################\r
+\r
+/**\r
+ *  Parse as a document, preserving the original structure as much as\r
+ *  possible\r
+ */\r
+int XmlReader::parseNode(int p0, Node *node, int depth)\r
+{\r
+\r
+    int p = p0;\r
+\r
+\r
+    //### OPEN TAG\r
+    int ch = get(p++);\r
+    if (ch !=  '<')\r
+        return p0;\r
+\r
+    p = skipwhite(p);\r
+    DOMString openTagName;\r
+    DOMString openTagNamePrefix;\r
+    DOMString openTagQualifiedName;\r
+    int p2 = getPrefixedWord(p,openTagNamePrefix,\r
+                    openTagName, openTagQualifiedName);\r
+    if (p2 <= p)\r
+        return p0;\r
+    p = p2;\r
+    p = skipwhite(p);\r
+\r
+    //printf("qualifiedName:%s\n", openTagQualifiedName.c_str());\r
+    DOMString namespaceURI = node->lookupNamespaceURI(openTagNamePrefix);\r
+    document->renameNode(node, namespaceURI, openTagQualifiedName);\r
+\r
+    //### ATTRIBUTES\r
+    bool quickClose;\r
+    p = parseAttributes(p, node, &quickClose);\r
+    if (quickClose)  //trivial tag:  <name/>\r
+        return p;\r
+\r
+    p++; //skip over '>'\r
+\r
+\r
+    DOMString nodeValue;\r
+\r
+    /* ### Get intervening data ### */\r
+    while (p<len && keepGoing)\r
+        {\r
+        //### COMMENT\r
+        if (match(p, "<!--"))\r
+            {\r
+            Comment *comment = document->createComment("");\r
+            p2 = parseComment(p, comment);\r
+            if (p2 <= p)\r
+                return p0;\r
+            p = p2;\r
+            if (parseAsData)\r
+                { //throw away\r
+                delete comment;\r
+                }\r
+            else\r
+                {\r
+                node->appendChild(comment);\r
+                }\r
+            }\r
+        //### VERSION\r
+        else if (match(p, "<?xml"))\r
+            {\r
+            p2 = parseVersion(p);\r
+            if (p2 <= p)\r
+                return p0;\r
+            }\r
+        //### DOCTYPE\r
+        else if (match(p, "<!DOCTYPE"))\r
+            {\r
+            p2 = parseDoctype(p);\r
+            if (p2 <= p)\r
+                return p0;\r
+            }\r
+        //### CDATA\r
+        else if (match(p, "<![CDATA["))\r
+            {\r
+            CDATASection *cdata = document->createCDATASection("");\r
+            p2 = parseCDATA(p, cdata);\r
+            if (p2 <= p)\r
+                return p0;\r
+            p = p2;\r
+            if (parseAsData)\r
+                {\r
+                nodeValue += cdata->getNodeValue();\r
+                delete cdata;\r
+                }\r
+            else\r
+                {\r
+                node->appendChild(cdata);\r
+                }\r
+            }\r
+         //### OPEN OR CLOSE TAG\r
+        else if (peek(p) == '<')\r
+            {\r
+            p2 = skipwhite(p+1);\r
+            if (peek(p2) =='/')\r
+                {\r
+                p = p2;\r
+                break;\r
+                }\r
+            else\r
+                {\r
+                /*Add element to tree*/\r
+                Element *elem = document->createElement(""); //fill in name later\r
+                node->appendChild(elem);\r
+                p2 = parseNode(p, elem, depth+1);\r
+                if (p2 <= p)\r
+                    {\r
+                    /*printf("problem on element:%ls.  p2:%d p:%d\n",n->name, p2, p);*/\r
+                    return p0;\r
+                    }\r
+                p = p2;\r
+                }\r
+            }\r
+        //### TEXT\r
+        else\r
+            {\r
+            Text *text = document->createTextNode("");\r
+            p2 = parseText(p, text);\r
+            if (p2 <= p)\r
+                return p0;\r
+            p = p2;\r
+            if (parseAsData)\r
+                {\r
+                nodeValue += text->getNodeValue();\r
+                delete text;\r
+                }\r
+            else\r
+                {\r
+                node->appendChild(text);\r
+                }\r
+            }\r
+\r
+        }//while (p<len)\r
+\r
+    //printf("%d : nodeValue:'%s'\n", p, nodeValue.c_str());\r
+    trim(nodeValue);\r
+    node->setNodeValue(nodeValue);\r
+\r
+    //### get close tag.  we should be pointing at '/'\r
+    p = skipwhite(p);\r
+    ch = get(p);\r
+    if (ch != '/')\r
+        {\r
+        error("no / on end tag");\r
+        return p0;\r
+        }\r
+    p++;\r
+\r
+    //### get word after '/'\r
+    p = skipwhite(p);\r
+    DOMString closeTagName;\r
+    DOMString closeTagNamePrefix;\r
+    DOMString closeTagQualifiedName;\r
+    p = getPrefixedWord(p, closeTagNamePrefix, closeTagName,\r
+                        closeTagQualifiedName);\r
+    if (openTagQualifiedName != closeTagQualifiedName)\r
+        {\r
+        error("Mismatched closing tag.  Expected </%S>. Got '%S'.",\r
+              openTagQualifiedName.c_str(), closeTagQualifiedName.c_str());\r
+        return p0;\r
+        }\r
+    p = skipwhite(p);\r
+    if (parsebuf[p] != '>')\r
+        {\r
+        error("no > on end tag");\r
+        return p0;\r
+        }\r
+    p++;\r
+    /*printf("close element:%ls\n",buf);*/\r
+    return p;\r
+}\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+org::w3c::dom::Document *\r
+XmlReader::parse(const DOMString &buf, int bufferOffset, int parseLen)\r
+{\r
+    len      = parseLen;\r
+    parsebuf = buf;\r
+\r
+    DOMImplementationSourceImpl source;\r
+    DOMImplementation *domImpl = source.getDOMImplementation("");\r
+\r
+    keepGoing = true;\r
+\r
+    document = domImpl->createDocument("", "", NULL);\r
+    //document = new svg::SVGDocumentImpl(domImpl, "", "", NULL);\r
+\r
+    int p  = bufferOffset;\r
+    int p2 = 0;\r
+\r
+    while (p<len && keepGoing)\r
+        {\r
+        p = skipwhite(p);\r
+        //### COMMENT\r
+        if (match(p, "<!--"))\r
+            {\r
+            Comment *comment = document->createComment("");\r
+            p2 = parseComment(p, comment);\r
+            if (p2 <= p)\r
+                return document;\r
+            p = p2;\r
+            if (parseAsData)\r
+                { //throw away\r
+                delete comment;\r
+                }\r
+            else\r
+                {\r
+                document->appendChild(comment);\r
+                }\r
+            }\r
+        //### VERSION\r
+        else if (match(p, "<?xml"))\r
+            {\r
+            p2 = parseVersion(p);\r
+            if (p2 <= p)\r
+                return document;\r
+            p = p2;\r
+            }\r
+        //### DOCTYPE\r
+        else if (match(p, "<!DOCTYPE"))\r
+            {\r
+            p2 = parseDoctype(p);\r
+            if (p2 <= p)\r
+                return document;\r
+            p = p2;\r
+            }\r
+        else\r
+            {\r
+            break;\r
+            }\r
+        }\r
+\r
+    p = skipwhite(p);\r
+    p = parseNode(p, document->getDocumentElement(), 0);\r
+\r
+    keepGoing = false;\r
+\r
+    return document;\r
+}\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+org::w3c::dom::Document *\r
+XmlReader::parse(const DOMString &str)\r
+{\r
+\r
+    Document *doc = parse(str, 0, str.size());\r
+    doc->normalizeDocument();\r
+\r
+    return doc;\r
+}\r
+\r
+/**\r
+ *\r
+ */\r
+org::w3c::dom::Document *\r
+XmlReader::parseFile(char *fileName)\r
+{\r
+\r
+    DOMString buf = loadFile(fileName);\r
+\r
+    Document *doc = parse(buf, 0, buf.size());\r
+\r
+    return doc;\r
+}\r
+\r
+\r
+\r
+//#########################################################################\r
+//# S T R E A M    R E A D I N G\r
+//#########################################################################\r
+\r
+/**\r
+ *\r
+ */\r
+org::w3c::dom::DOMString\r
+XmlReader::loadFile(char *fileName)\r
+{\r
+\r
+    if (!fileName)\r
+        return NULL;\r
+    FILE *f = fopen(fileName, "rb");\r
+    if (!f)\r
+        return NULL;\r
+\r
+    DOMString buf;\r
+    while (!feof(f))\r
+        {\r
+        int ch = fgetc(f);\r
+        if (ch<0)\r
+            break;\r
+        buf.push_back(ch);\r
+        }\r
+    fclose(f);\r
+\r
+    return buf;\r
+}\r
+\r
+\r
+//#########################################################################\r
+//# C O N S T R U C T O R    /    D E S T R U C T O R\r
+//#########################################################################\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+XmlReader::XmlReader()\r
+{\r
+    len         = 0;\r
+    lineNr      = 1;\r
+    colNr       = 0;\r
+    parseAsData = false;\r
+    keepGoing   = false;\r
+}\r
+\r
+/**\r
+ *\r
+ */\r
+XmlReader::XmlReader(bool parseAsDataArg)\r
+{\r
+    len         = 0;\r
+    lineNr      = 1;\r
+    colNr       = 0;\r
+    parseAsData = parseAsDataArg;\r
+    keepGoing   = false;\r
+}\r
+\r
+\r
+\r
+/**\r
+ *\r
+ */\r
+XmlReader::~XmlReader()\r
+{\r
+}\r
+\r
+\r
+}  //namespace dom\r
+}  //namespace w3c\r
+}  //namespace org\r
+\r
+\r
+//#########################################################################\r
+//# E N D    O F    F I L E\r
+//#########################################################################\r
+\r