ignore-def? ( def -- ? )

Vocabulary

lint.private

Inputs

def

an object

Outputs

?

an object

Definition

USING: assocs classes classes.tuple.private
combinators.short-circuit kernel kernel.private locals.backend
make math namespaces sequences slots.private words ;

IN: lint.private

: ignore-def? ( def -- ? )
    {
        [ length 1 <= ]
        [ trivial-defs member? ]
        [ [ \ curry = ] all? ]
        [ [ \ load-locals = ] any? ]
        [ [ wrapper? ] any? ]
        [ [ { [ number? ] [ ~array~ member? ] } 1|| ] all? ]
        [
            {
                [ length 2 = ]
                [ first2 [ word? ] either? ]
                [ first2 [ ~array~ member? ] either? ]
            } 1&&
        ]
        [
            {
                [ length 2 = ]
                [ first { ~quotation~ ~quotation~ } 1|| ]
                [
                    second
                    { clone clone-like like assoc-like make }
                    member?
                ]
            } 1&&
        ]
        [
            {
                [ length 2 = ]
                [ first word? ]
                [ second { get get-global , % } member? ]
            } 1&&
        ]
        [
            {
                [ length 2 = ]
                [ first { first second third } member? ]
                [ second { first second third } member? ]
            } 1&&
        ]
        [
            {
                [ length 2 = ]
                [ first { ~quotation~ ~quotation~ } 1&& ]
                [
                    second
                    { if if* unless unless* when when* curry }
                    member?
                ]
            } 1&&
        ]
        [
            {
                [ length 2 = ]
                [ first { ~quotation~ ~quotation~ } 1|| ]
                [
                    second {
                        +
                        -
                        /
                        *
                        <
                        <=
                        =
                        >=
                        >
                        shift
                        bitand
                        bitor
                        bitxor
                        eq?
                    } member?
                ]
            } 1&&
        ]
        [
            {
                [ length 3 = ]
                [ first { dup over } member? ]
                [ second number? ]
                [ third { + - / * < <= = >= > } member? ]
            } 1&&
        ]
        [
            {
                [ length 4 <= ]
                [
                    first
                    { drop 2drop 3drop nip 2nip 3nip 4nip }
                    member?
                ]
                [ rest-slice [ boolean? ] all? ]
            } 1&&
        ]
        [
            {
                [ length 3 = ]
                [ first \ length = ]
                [ second number? ]
                [ third { + - / * < <= = >= > } member? ]
            } 1&&
        ]
        [
            {
                [ length 4 = ]
                [ first { dup over } member? ]
                [ second \ length = ]
                [ third number? ]
                [ fourth { + - / * < <= = >= > } member? ]
            } 1&&
        ]
        [ [ { [ number? ] [ boolean? ] } 1|| ] all? ]
        [
            {
                [ length 3 = ]
                [ first \ tag = ]
                [ second number? ]
                [ third \ eq? = ]
            } 1&&
        ]
        [
            {
                [ length 3 = ]
                [ first { ~quotation~ ~quotation~ } 1&& ]
                [ second \ declare = ]
                [ third \ class-of = ]
            } 1&&
        ]
        [
            {
                [ length 3 = ]
                [ first2 [ number? ] both? ]
                [ third \ shift = ]
            } 1&&
        ]
        [
            {
                [ length 3 = ]
                [ first \ layout-of = ]
                [ second number? ]
                [ third \ slot = ]
            } 1&&
        ]
    } 1|| ;