flamegraph ( -- )

Vocabulary

flamegraph

Inputs

None

Outputs

None

Definition

USING: arrays flamegraph.private io.encodings.utf8 io.files
io.files.temp io.launcher io.pathnames kernel sequences ;

IN: flamegraph

: flamegraph ( -- )
    "output.txt" temp-file
    [ utf8 [ write-flamegraph ] with-file-writer ] [
        "vocab:flamegraph/flamegraph.pl" absolute-path swap
        2array process-contents
    ] bi "output.svg" temp-file
    [ utf8 set-file-contents ]
    [ { "open" "-a" "Safari" } swap suffix try-process ] bi ;