payload ( -- assoc )

Vocabulary

broadcast-server

Inputs

None

Outputs

assoc

an object

Definition

USING: accessors io.files.info kernel layouts make prettyprint
system system-info ;

IN: broadcast-server

: payload ( -- assoc )
    [
        computer-name "computer-name" ,, os unparse "os" ,,
        os-version "os-version" ,, cpu unparse "cpu" ,,
        cell-bits "cell-bits" ,, username "username" ,,
        build "build" ,, vm-git-id "git-id" ,,
        vm-info "version-info" ,, vm-path "vm-path" ,,
        vm-path file-info size>> "vm-size" ,,
        image-path "image-path" ,,
        image-path file-info size>> "image-size" ,,
        cpus "cpus" ,, cpu-mhz "cpu-mhz" ,,
        physical-mem "physical-mem" ,, vm-path file-system-info
        [ total-space>> "disk-total-size" ,, ]
        [ free-space>> "disk-free-size" ,, ] bi
    ] { } make ;