source-files-usage ( paths -- )

Vocabulary

codebase-analyzer

Inputs

paths

an object

Outputs

None

Definition

USING: combinators io sequences sorting ;

IN: codebase-analyzer

: source-files-usage ( paths -- )
    {
        [
            c-files
            [ sort "has c files" print file-counts. ]
            unless-empty
        ]
        [
            c-header-files
            [ sort "has c header files" print file-counts. ]
            unless-empty
        ]
        [
            cpp-files
            [ sort "has c++ files" print file-counts. ]
            unless-empty
        ]
        [
            cpp-header-files
            [ sort "has c++ header files" print file-counts. ]
            unless-empty
        ]
        [
            erlang-files
            [ sort "has erlang files" print file-counts. ]
            unless-empty
        ]
        [
            factor-files
            [ sort "has factor files" print file-counts. ]
            unless-empty
        ]
        [
            python-files
            [ sort "has python files" print file-counts. ]
            unless-empty
        ]
        [
            python-packaging-files [
                sort "has python packaging files" print
                file-counts.
            ] unless-empty
        ]
        [
            rust-files
            [ sort "has rust files" print file-counts. ]
            unless-empty
        ]
        [
            java-files
            [ sort "has java files" print file-counts. ]
            unless-empty
        ]
        [
            javascript-files
            [ sort "has javascript files" print file-counts. ]
            unless-empty
        ]
        [
            css-files
            [ sort "has css files" print file-counts. ]
            unless-empty
        ]
        [
            html-files
            [ sort "has html files" print file-counts. ]
            unless-empty
        ]
        [
            shell-files
            [ sort "has shell files" print file-counts. ]
            unless-empty
        ]
        [
            doc-files
            [ sort "has doc files" print file-counts. ]
            unless-empty
        ]
        [
            citation-files
            [ sort "has citation files" print file-counts. ]
            unless-empty
        ]
        [
            sql-files
            [ sort "has sql files" print file-counts. ]
            unless-empty
        ]
        [
            cql-files
            [ sort "has cassandra files" print file-counts. ]
            unless-empty
        ]
    } cleave ;