upper-colon? ( string -- ? )

Vocabulary

modern

Inputs

string

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel math sequences ;

IN: modern

: upper-colon? ( string -- ? )
    dup { [ length 0 > ] [ [ 58 = ] all? ] } 1&&
    [ drop t ] [
        {
            [ length 2 >= ]
            [ "\\" head? not ]
            [ ":" tail? ]
            [ dup [ 58 = ] find drop head strict-upper? ]
        } 1&&
    ] if ;