autopsy. ( autopsy -- )

Vocabulary

process-autopsy

Inputs

autopsy

an object

Outputs

None

Definition

USING: accessors assocs calendar combinators escape-strings io
kernel math math.parser sequences uuid ;

IN: process-autopsy

: autopsy. ( autopsy -- )
    {
        [ drop "<AUTOPSY: " uuid4 append print nl ]
        [
            bl bl timestamp>> timestamp>unix-time >float
            number>string "unix-time" tag-payload print nl
        ]
        [
            bl bl elapsed>> number>string "elapsed-nanos"
            tag-payload print nl
        ]
        [ bl bl cwd>> "cwd" tag-payload print nl ]
        [ bl bl uid>> number>string "uid" tag-payload print nl ]
        [
            bl bl euid>> number>string "euid" tag-payload print
            nl
        ]
        [ bl bl gid>> number>string "gid" tag-payload print nl ]
        [
            bl bl egid>> number>string "egid" tag-payload print
            nl
        ]
        [
            bl bl os-envs>> unparse-full "os-envs" tag-payload
            print nl
        ]
        [
            bl bl os-envs>> unparse-full "os-envs-after"
            tag-payload print nl
        ]
        [
            bl bl [ os-envs-after>> ] [ os-envs>> ] bi
            assoc-diff unparse-full "os-envs-diff" tag-payload
            print nl
        ]
        [
            bl bl [ os-envs>> ] [ os-envs-after>> ] bi
            assoc-diff
            unparse-full "os-envs-swap-diff" tag-payload print
            nl
        ]
        [
            bl bl process>> unparse-full "process" tag-payload
            print nl
        ]
        [ bl bl out>> "out" tag-payload print nl ]
        [ drop ";AUTOPSY>" print ]
    } cleave ;