txt-file? ( path -- ? )

Vocabulary

codebase-analyzer

Inputs

path

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel sequences ;

IN: codebase-analyzer

: txt-file? ( path -- ? )
    {
        [ { [ ".txt" tail? ] [ ".TXT" tail? ] } 1|| ]
        [ "CMakeLists.txt" tail? not ]
    } 1&& ;