valid-name? ( str -- ? )

Vocabulary

xml.name

Inputs

str

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel sequences
xml.char-classes xml.state ;

IN: xml.name

: valid-name? ( str -- ? )
    [ f ] [
        version-1.0? swap {
            [ first name-start? ]
            [ rest-slice [ name-char? ] with all? ]
        } 2&&
    ] if-empty ;