limited-quirks-mode? ( doctype -- ? )

Vocabulary

html5

Inputs

doctype

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit sequences ;

IN: html5

: limited-quirks-mode? ( doctype -- ? )
    {
        [
            public-identifier>>
            "-//W3C//DTD XHTML 1.0 Frameset//" head?
        ]
        [
            public-identifier>>
            "-//W3C//DTD XHTML 1.0 Transitional//" head?
        ]
        [
            {
                [ system-identifier>> ]
                [
                    public-identifier>>
                    "-//W3C//DTD HTML 4.01 Frameset//" head?
                ]
            } 1&&
        ]
        [
            {
                [ system-identifier>> ]
                [
                    public-identifier>>
                    "-//W3C//DTD HTML 4.01 Transitional//" head?
                ]
            } 1&&
        ]
    } 1|| ;