lex-html ( stack n string -- stack n' string )

Vocabulary

modern.html

Inputs

stack	an object
n	an object
string	an object

Outputs

stack	an object
n'	an object
string	an object

Definition

USING: combinators kernel modern.slices sequences strings ;

IN: modern.html

: lex-html ( stack n string -- stack n' string )
    "<" slice-til-either {
        {
            60
            [
                1 split-slice-back
                [ >string f like [ reach push ] when* ] dip
                [ 2dup peek1-from ] dip swap {
                    { 47 ~quotation~ }
                    { 33 ~quotation~ }
                    { 63 ~quotation~ }
                    { 37 ~quotation~ }
                    [ drop read-open-tag ]
                } case
            ]
        }
        { f [ drop f ] }
        [ drop >string <text> ]
    } case [ reach push lex-html ] when* ;