upper-file? ( path -- ? )

Vocabulary

codebase-analyzer

Inputs

path

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit io.pathnames kernel math
sequences unicode ;

IN: codebase-analyzer

: upper-file? ( path -- ? )
    {
        [
            {
                [ file-stem length 4 > ]
                [ file-extension length 3 <= ]
            } 1&&
        ]
        [ file-stem upper? ]
        [
            file-stem
            [ { [ digit? ] [ "-." member? ] } 1|| ] all? not
        ]
    } 1&& ;