Rebol Programming/dump-obj

USAGE:

DUMP-OBJ obj /match pat 

DESCRIPTION:

Returns a block of information about an object.

DUMP-OBJ is a function value.

ARGUMENTS

• obj -- (Type: object)

REFINEMENTS

• /match -- Include only those that match a string or datatype
  • pat -- (Type: any)

SOURCE CODE

dump-obj: func [
    "Returns a block of information about an object." 
    obj [object!] 
    /match "Include only those that match a string or datatype" pat 
    /local clip-str form-val form-pad words vals str wild
][
    clip-str: func [str] [
        trim/lines str 
        if (length? str) > 50 [str: append copy/part str 50 "..."] 
        str
    ] 
    form-val: func [val] [
        if any-block? :val [return reform ["length:" length? val]] 
        if image? :val [return reform ["size:" val/size]] 
        if any-function? :val [
            val: third :val 
            if block? val/1 [val: next val] 
            return clip-str either string? val/1 [copy val/1] [mold val]
        ] 
        if object? :val [val: next first val] 
        clip-str mold :val
    ] 
    form-pad: func [val size] [
        val: form val 
        insert/dup tail val #" " size - length? val 
        val
    ] 
    words: first obj 
    vals: next second obj 
    obj: copy [] 
    wild: all [string? pat find pat "*"] 
    foreach word next words [
        type: type?/word pick vals 1 
        str: form word 
        if any [
            not match 
            all [
                not unset? pick vals 1 
                either string? :pat [
                    either wild [
                        tail? any [find/any/match str pat pat]
                    ] [
                        find str pat
                    ]
                ] [
                    all [
                        datatype? get :pat 
                        type = :pat
                    ]
                ]
            ]
        ] [
            str: form-pad word 15 
            append str #" " 
            append str form-pad type 10 - ((length? str) - 15) 
            append obj reform [
                "  " str 
                if type <> 'unset! [form-val pick vals 1] 
                newline
            ]
        ] 
        vals: next vals
    ] 
    obj
]