read-prop ( n string -- n' string prop/f closing/f )

Vocabulary

modern.html

Inputs

n	an object
string	an object

Outputs

n'	an object
string	an object
prop/f	an object
closing/f	an object

Definition

USING: arrays combinators kernel math modern.slices sequences
strings ;

IN: modern.html

: read-prop ( n string -- n' string prop/f closing/f )
    skip-whitespace " \n\r\t\"'<=/>?" slice-til-either {
        { 60 [ "< error" throw ] }
        {
            61
            [
                1 split-slice-back drop >string
                [ read-value ] dip swap 2array f
            ]
        }
        {
            47
            [
                ">" expect-and-span 2 split-slice-back
                [ >string f like ] bi@
            ]
        }
        { 62 [ 1 split-slice-back [ >string f like ] bi@ ] }
        { 39 [ first read-string >string <squote> f ] }
        { 34 [ first read-string >string <dquote> f ] }
        { 63 [ ">" expect-and-span >string f swap ] }
        { 32 [ [ 1 + ] 2dip >string f ] }
        { 13 [ [ 1 + ] 2dip >string f ] }
        { 10 [ [ 1 + ] 2dip >string f ] }
        { 9 [ [ 1 + ] 2dip >string f ] }
        { f [ "efff" throw ] }
    } case ;