print-tag ( tag -- )

Vocabulary

html.parser.printer

Inputs

tag

an object

Outputs

None

Definition

USING: accessors combinators html.parser kernel strings ;

IN: html.parser.printer

: print-tag ( tag -- )
    {
        { [ dup name>> text = ] [ print-text-tag ] }
        { [ dup name>> comment = ] [ print-comment-tag ] }
        { [ dup name>> dtd = ] [ print-dtd-tag ] }
        {
            [ dup name>> string? ]
            [
                dup closing?>>
                [ print-closing-tag ] [ print-opening-tag ] if
            ]
        }
        [ unknown-tag-error ]
    } cond ;