(comment-end-bang-state) ( document n/f string ch/f -- document n'/f string )

Vocabulary

html5

Inputs

document	an object
n/f	an object
string	an object
ch/f	an object

Outputs

document	an object
n'/f	an object
string	an object

Definition

USING: combinators kernel ;

IN: html5

: (comment-end-bang-state)
    ( document n/f string ch/f -- document n'/f string )
    {
        {
            [ dup 45 = ]
            [
                drop "--!" reach push-all-comment-token
                comment-end-dash-state
            ]
        }
        {
            [ dup 62 = ]
            [
                drop
                "incorrectly-closed-comment" report-parse-error
                pick emit-comment-token data-state
            ]
        }
        {
            [ dup f = ]
            [
                drop "eof-in-comment" report-parse-error pick
                [ emit-comment-token ] [ emit-eof ] bi
            ]
        }
        [
            [ "--!" reach push-all-comment-token ] dip
            (comment-state)
        ]
    } cond ;