XoopsModules25x / xnewsletter

     * \---------^

     */

    $pos = tln_skipspace($body, $lt + 1);

    if ($pos >= mb_strlen($body)) {

        return [false, false, false, $lt, mb_strlen($body)];

    }

    /**

     * There are 3 kinds of tags:

     * 1. Opening tag, e.g.:

     * Look for next [\W-_], which will indicate the end of the tag name.

     */

    $regary = tln_findnxreg($body, $pos, '[^\w\-_]');

    if (false == $regary) {

        return [false, false, false, $lt, mb_strlen($body)];

    }

    list($pos, $tagname, $match) = $regary;

    $tagname = mb_strtolower($tagname);

    while ($pos <= mb_strlen($body)) {

        $pos = tln_skipspace($body, $pos);

        if ($pos == mb_strlen($body)) {

            /**

             * Non-closed tag.

             */

            return [false, false, false, $lt, $pos];

        }

        /**

         * See if we arrived at a ">" or "/>", which means that we reached

         * the end of the tag.

         * attrname="yes".

         */

        $regary = tln_findnxreg($body, $pos, '[^\w\-_]');

        if (false == $regary) {

            /**

             * Looks like body ended before the end of tag.

             */

            return [false, false, false, $lt, mb_strlen($body)];

        }

        list($pos, $attname, $match) = $regary;

        $attname = mb_strtolower($attname);

        /**

                    $quot = mb_substr($body, $pos, 1);

                    if ('\'' == $quot) {

                        $regary = tln_findnxreg($body, $pos + 1, '\'');

                        if (false == $regary) {

                            return [false, false, false, $lt, mb_strlen($body)];

                        }

                        list($pos, $attval, $match) = $regary;

                        $pos++;

                        $attary[$attname] = '\'' . $attval . '\'';

                        $attary[$attname] = '\'' . $attval . '\'';

                    } elseif ('"' == $quot) {

                        $regary = tln_findnxreg($body, $pos + 1, '\"');

                        if (false == $regary) {

                            return [false, false, false, $lt, mb_strlen($body)];

                        }

                        list($pos, $attval, $match) = $regary;

                        $pos++;

                        $attary[$attname] = '"' . $attval . '"';

                         * These are hateful. Look for \s, or >.

                         */

                        $regary = tln_findnxreg($body, $pos, '[\s>]');

                        if (false == $regary) {

                            return [false, false, false, $lt, mb_strlen($body)];

                        }

                        list($pos, $attval, $match) = $regary;

                        /**

                         * If it's ">" it will be caught at the top.