license-file? ( path -- ? )

Vocabulary

codebase-analyzer

Inputs

path

an object

Outputs

?

an object

Definition

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

IN: codebase-analyzer

: license-file? ( path -- ? )
    >lower {
        [ file-stem "license" = ]
        [ file-stem "licenses" = ]
        [ "license-mit" tail? ]
        [ "license-apache" tail? ]
    } 1|| ;