read-open-tag ( n string opening -- n' string tag )

Vocabulary

modern.html

Inputs

n	an object
string	an object
opening	an object

Outputs

n'	an object
string	an object
tag	an object

Definition

USING: combinators.extras kernel sequences ;

IN: modern.html

: read-open-tag ( n string opening -- n' string tag )
    [ take-tag-name ] dip-1up
    [ read-props ] 2dip-2up dup ">" sequence=
    [ <open-tag> ] [ <self-close-tag> ] if ;