#include "sgmltag.h"

void dummyCallBack(void *){}

estate (html_tag_class::*tagState)(wint_t kar);

estate html_tag_class::def(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return tag;
        default:
            return notag;
        }
    }
estate html_tag_class::lt(wint_t kar)
    {
    switch(kar)
        {
        case '>':
            tagState = &html_tag_class::def;
            return notag;
        case '!':
            tagState = &html_tag_class::markup;
            return tag;
        case '?':
#if XTRAXML
            CallBackStartScript(arg);
#endif
            tagState = &html_tag_class::script;
            return tag;
        case '/':
            CallBackEndTag(arg);
            tagState = &html_tag_class::endtag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        default:
            if('A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                {
                tagState = &html_tag_class::element;
                CallBackStartElementName(arg);
                return tag;
                }
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::element(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackEndElementName(arg);
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackEndElementName(arg);
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case '-':
        case '_':
        case ':':
        case '.':
            return tag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            CallBackEndElementName(arg);
            tagState = &html_tag_class::atts;
            return tag;
        case '/':
            CallBackEndElementName(arg);
#if XTRAXML
            CallBackEmptyTag(arg);
            CallBackNoMoreAttributes(arg);
#else
            CallBackNoMoreAttributes(arg);
            CallBackEmptyTag(arg);
#endif
            tagState = &html_tag_class::emptytag;
            return tag;
        default:
            if('0' <= kar && kar <= '9' || 'A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                return tag;
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::elementonly(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackEndElementName(arg);
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackEndElementName(arg);
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case '-':
        case '_':
        case ':':
        case '.':
            return tag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            CallBackEndElementName(arg);
            tagState = &html_tag_class::gt;
            return tag;
        default:
            if('0' <= kar && kar <= '9' || 'A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                return tag;
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::gt(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        default:
            tagState = &html_tag_class::def;
            return notag;
        }
    }

estate html_tag_class::emptytag(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            //CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            //CallBackNoMoreAttributes(arg);
            return endoftag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        default:
            tagState = &html_tag_class::def;
            return notag;
        }
    }

estate html_tag_class::atts(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        case '/':
#if XTRAXML
            CallBackEmptyTag(arg);
            CallBackNoMoreAttributes(arg);
#else
            CallBackNoMoreAttributes(arg);
            CallBackEmptyTag(arg);
#endif
            tagState = &html_tag_class::emptytag;
            return tag;
        default:
            if('A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                {
                CallBackStartAttributeName(arg);
                tagState = &html_tag_class::name;
                return tag;
                }
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::name(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackEndAttributeName(arg);
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackEndAttributeName(arg);
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case '-':
        case '_':
        case ':':
        case '.':
            return tag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            CallBackEndAttributeName(arg);
            tagState = &html_tag_class::atts_or_value;
            return tag;
        case '/':
            CallBackEndAttributeName(arg);
            CallBackEmptyTag(arg);
            tagState = &html_tag_class::emptytag;
            return tag;
        case '=':
            CallBackEndAttributeName(arg);
            tagState = &html_tag_class::value;
            return tag;
        default:
            if('0' <= kar && kar <= '9' || 'A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                return tag;
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::value(wint_t kar)
    {
    switch(kar)
        {
        case '>':
        case '/':
        case '=':
            tagState = &html_tag_class::def;
            return notag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        case '\'':
            tagState = &html_tag_class::singlequotes;
            return tag;
        case '"':
            tagState = &html_tag_class::doublequotes;
            return tag;
        /*case '-':
        case '_':
        case ':':
        case '.':
            tagState = &html_tag_class::invalue;
            return tag;*/
        default:
            if('0' <= kar && kar <= '9' || 'A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                {
                CallBackStartValue(arg);
                tagState = &html_tag_class::invalue;
                return tag;
                }
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::atts_or_value(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case '-':
        case '_':
        case ':':
        case '.':
            tagState = &html_tag_class::def;
            return notag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        case '/':
#if XTRAXML
            CallBackEmptyTag(arg);
            CallBackNoMoreAttributes(arg);
#else
            CallBackNoMoreAttributes(arg);
            CallBackEmptyTag(arg);
#endif
            tagState = &html_tag_class::emptytag;
            return tag;
        case '=':
            tagState = &html_tag_class::value;
            return tag;
        default:
            if('A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                {
                CallBackStartAttributeName(arg);
                tagState = &html_tag_class::name;
                return tag;
                }
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::invalue(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackEndValue(arg);
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackEndValue(arg);
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            CallBackEndValue(arg);
            tagState = &html_tag_class::atts;
            return tag;
        default:
            if('0' <= kar && kar <= '9' || 'A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                {
                return tag;
                }
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }

estate html_tag_class::singlequotes(wint_t kar)
    {
    CallBackStartValue(arg);
    switch(kar)
        {
        case '\'':
            CallBackEndValue(arg);
            tagState = &html_tag_class::endvalue;
            return tag;
        default:
            tagState = &html_tag_class::insinglequotedvalue;
            return tag;
        }
    }

estate html_tag_class::doublequotes(wint_t kar)
    {
    CallBackStartValue(arg);
    switch(kar)
        {
        case '\"':
            CallBackEndValue(arg);
            tagState = &html_tag_class::endvalue;
            return tag;
        default:
            tagState = &html_tag_class::indoublequotedvalue;
            return tag;
        }
    }

estate html_tag_class::insinglequotedvalue(wint_t kar)
    {
    switch(kar)
        {
        case '\'':
            CallBackEndValue(arg);
            tagState = &html_tag_class::endvalue;
            return tag;
        default:
            return tag;
        }
    }

estate html_tag_class::indoublequotedvalue(wint_t kar)
    {
    switch(kar)
        {
        case '\"':
            CallBackEndValue(arg);
            tagState = &html_tag_class::endvalue;
            return tag;
        default:
            return tag;
        }
    }


estate html_tag_class::endvalue(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            tagState = &html_tag_class::atts;
            return tag;
        case '/': // 20090708
#if XTRAXML
            CallBackEmptyTag(arg);
            CallBackNoMoreAttributes(arg);
#else
            CallBackNoMoreAttributes(arg);
            CallBackEmptyTag(arg);
#endif
            tagState = &html_tag_class::emptytag;
            return tag;
        default:
            tagState = &html_tag_class::def;
            return notag;
        }
    }

estate html_tag_class::markup(wint_t kar) // <!
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackEndMarkUp(arg);
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if XTRAXML
            CallBackEndMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg); // ???
#endif
            return endoftag;
        case '-':
            tagState = &html_tag_class::h1;
            return tag;
        case '[':
            tagState = &html_tag_class::CDATA1;
            return tag;
        case 'D':
            tagState = &html_tag_class::DOCTYPE1;
            return tag;
        default:
            return tag;
        }
    }

estate html_tag_class::script(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackEndScript(arg);
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if XTRAXML
            CallBackEndScript(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case '?':
//            CallBackEndTag(arg);
#if XTRAXML
            tagState = &html_tag_class::endscript;
            //CallBackEndScript(arg);
#else
            tagState = &html_tag_class::endtag;
#endif
            return tag;
        default:
            return tag;
        }
    }

estate html_tag_class::endscript(wint_t kar)
    {
    switch(kar)
        {
        case '>':
            tagState = &html_tag_class::def;
#if XTRAXML
            CallBackEndScript(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        default:
            tagState = &html_tag_class::CDATA7;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE1(wint_t kar) // <!D
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'O':
            tagState = &html_tag_class::DOCTYPE2;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE2(wint_t kar) // <!DO
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'C':
            tagState = &html_tag_class::DOCTYPE3;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE3(wint_t kar) // <!DOC
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'T':
            tagState = &html_tag_class::DOCTYPE4;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE4(wint_t kar) // <!DOCT
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'Y':
            tagState = &html_tag_class::DOCTYPE5;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE5(wint_t kar) // <!DOCTY
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'P':
            tagState = &html_tag_class::DOCTYPE6;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE6(wint_t kar) // <!DOCTYP
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'E':
            tagState = &html_tag_class::DOCTYPE7;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE7(wint_t kar) // <!DOCTYPE
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case ' ':
        case '\t':
        case '\r':
        case '\n':
#if XTRAXML
            CallBackStartDOCTYPE(arg);
#endif
            tagState = &html_tag_class::DOCTYPE8;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE8(wint_t kar) // <!DOCTYPE S
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if XTRAXML
            CallBackEndDOCTYPE(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case '[':
            tagState = &html_tag_class::DOCTYPE9;
            return tag;
        default:
            tagState = &html_tag_class::DOCTYPE8;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE9(wint_t kar)  // <!DOCTYPE S [
    {
    switch(kar)
        {
        case ']':
            tagState = &html_tag_class::DOCTYPE10;
            return tag;
        default:
            tagState = &html_tag_class::DOCTYPE9;
            return tag;
        }
    }

estate html_tag_class::DOCTYPE10(wint_t kar)  // <!DOCTYPE S [ ]
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if XTRAXML
            CallBackEndDOCTYPE(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case ' ':
        case '\t':
        case '\r':
        case '\n':
            tagState = &html_tag_class::DOCTYPE10;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA1(wint_t kar) // <![
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'C':
            tagState = &html_tag_class::CDATA2;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA2(wint_t kar) // <![C
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
            //CallBackNoMoreAttributes(arg);
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'D':
            tagState = &html_tag_class::CDATA3;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA3(wint_t kar) // <![CD
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'A':
            tagState = &html_tag_class::CDATA4;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA4(wint_t kar) // <![CDA
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'T':
            tagState = &html_tag_class::CDATA5;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA5(wint_t kar) // <![CDAT
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case 'A':
            tagState = &html_tag_class::CDATA6;
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA6(wint_t kar) // <![CDATA
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
#if !XTRAXML
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        case '[':
            tagState = &html_tag_class::CDATA7;
#if XTRAXML
            CallBackStartCDATA(arg);
#endif
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::CDATA7(wint_t kar) // <![CDATA[
    {
    switch(kar)
        {
        case ']':
            tagState = &html_tag_class::CDATA8;
            return tag;
        default:
            return tag;
        }
    }

estate html_tag_class::CDATA8(wint_t kar) // <![CDATA[ ]
    {
    switch(kar)
        {
        case ']':
            tagState = &html_tag_class::CDATA9;
            return tag;
        default:
            tagState = &html_tag_class::CDATA7;
            return tag;
        }
    }

estate html_tag_class::CDATA9(wint_t kar) // <![CDATA[ ]]
    {
    switch(kar)
        {
        case '>':  // <![CDATA[ ]]>
            tagState = &html_tag_class::def;
#if XTRAXML
            CallBackEndCDATA(arg);
#else
            CallBackNoMoreAttributes(arg);
#endif
            return endoftag;
        default:
            tagState = &html_tag_class::CDATA7;
            return tag;
        }
    }


estate html_tag_class::h1(wint_t kar) // <!-
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return notag;
        case '>':
            tagState = &html_tag_class::def;
            return notag;
        case '-':
            tagState = &html_tag_class::h2;
#if XTRAXML
            CallBackStartComment(arg);
#endif
            return tag;
        default:
            tagState = &html_tag_class::markup;
            return tag;
        }
    }

estate html_tag_class::h2(wint_t kar) // <!--
    {
    switch(kar)
        {
        case '-':
            tagState = &html_tag_class::h3;
            return tag;
        default:
            return tag;
        }
    }

estate html_tag_class::h3(wint_t kar) // <!--  -
    {
    switch(kar)
        {
        case '-': // <!-- --
            tagState = &html_tag_class::markup;
#if XTRAXML
            CallBackEndComment(arg);
#endif
            return tag;
        default:
            tagState = &html_tag_class::h2;
            return tag;
        }
    }

estate html_tag_class::endtag(wint_t kar)
    {
    switch(kar)
        {
        case '<':
            tagState = &html_tag_class::lt;
            CallBackNoMoreAttributes(arg);
#if XTRAXML
            CallBackStartMarkUp(arg);
#endif
            return endoftag_startoftag;
        case '>':
            tagState = &html_tag_class::def;
            CallBackNoMoreAttributes(arg);
            return endoftag;
        case 0xA0:
        case ' ':
        case '\t':
        case '\n':
        case '\r':
            return tag;
        default:
            if('A' <= kar && kar <= 'Z' || 'a' <= kar && kar <= 'z' || (kar & 0x80))
                {
                tagState = &html_tag_class::elementonly;
                CallBackStartElementName(arg);
                return tag;
                }
            else
                {
                tagState = &html_tag_class::def;
                return notag;
                }
        }
    }