read-tag ( sequence-parser -- string )

Vocabulary

html.parser.private

Inputs

sequence-parser

an object

Outputs

string

an object

Definition

USING: kernel sequences sequences.parser ;

IN: html.parser.private

: read-tag ( sequence-parser -- string )
    [ [ current "><" member? ] take-until [ 47 = ] trim-tail ]
    [ dup current 60 = [ advance ] unless drop ] bi ;