steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unix.linux.proc: Add some more /proc parsing.

db4
Doug Coleman 2013-02-24 18:29:57 -08:00
parent 1ef827cd92
commit 9dfa305561
1 changed files with 45 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
basis/unix/linux/proc/proc.factor
View File

@ -3,14 +3,13 @@
USING: accessors arrays combinators combinators.smart USING: accessors arrays combinators combinators.smart
io.encodings.utf8 io.files kernel math math.order math.parser io.encodings.utf8 io.files kernel math math.order math.parser
memoize sequences sorting.slots splitting splitting.monotonic memoize sequences sorting.slots splitting splitting.monotonic
strings io.pathnames ; strings io.pathnames calendar ;
IN: unix.linux.proc IN: unix.linux.proc
! /proc/* ! /proc/*
! /proc/buddyinfo ! /proc/buddyinfo
! /proc/cgroups ! /proc/cgroups
! /proc/cmdline
TUPLE: proc-cmdline string ; TUPLE: proc-cmdline string ;
C: <proc-cmdline> proc-cmdline C: <proc-cmdline> proc-cmdline
@ -18,9 +17,6 @@ C: <proc-cmdline> proc-cmdline
"/proc/cmdline" utf8 file-lines first <proc-cmdline> ; "/proc/cmdline" utf8 file-lines first <proc-cmdline> ;
! /proc/consoles
! /proc/cpuinfo
TUPLE: processor-info TUPLE: processor-info
{ processor integer } { processor integer }
{ vendor-id string } { vendor-id string }
@ -81,7 +77,8 @@ TUPLE: processor-info
] input<sequence processor-info boa ; ] input<sequence processor-info boa ;
MEMO: parse-proc-cpuinfo ( -- seq ) MEMO: parse-proc-cpuinfo ( -- seq )
"/proc/cpuinfo" utf8 file-lines { "" } split harvest [ lines>processor-info ] map ; "/proc/cpuinfo" utf8 file-lines
{ "" } split harvest [ lines>processor-info ] map ;
: sort-cpus ( seq -- seq ) : sort-cpus ( seq -- seq )
{ { physical-id>> <=> } { core-id>> <=> } } sort-by { { physical-id>> <=> } { core-id>> <=> } } sort-by
@ -94,7 +91,6 @@ MEMO: parse-proc-cpuinfo ( -- seq )
[ [ [ length ] map-sum ] map-sum ] tri ; [ [ [ length ] map-sum ] map-sum ] tri ;
! /proc/loadavg
TUPLE: proc-loadavg TUPLE: proc-loadavg
load-average-1 load-average-1
load-average-5 load-average-5
@ -116,9 +112,8 @@ TUPLE: proc-loadavg
] input<sequence proc-loadavg boa ; ] input<sequence proc-loadavg boa ;
! /proc/meminfo
! In the file as kb, convert to bytes ! In the file as kb, convert to bytes
TUPLE: meminfo TUPLE: proc-meminfo
mem-total mem-total
mem-free mem-free
buffers buffers
@ -165,11 +160,9 @@ TUPLE: meminfo
: parse-proc-meminfo ( -- meminfo ) : parse-proc-meminfo ( -- meminfo )
"/proc/meminfo" utf8 file-lines [ "/proc/meminfo" utf8 file-lines [
" " split harvest second string>number 1024 * " " split harvest second string>number 1024 *
] map [ meminfo boa ] input<sequence ; ] map [ proc-meminfo boa ] input<sequence ;
! /proc/stat
! All cpu-stat fields are measured in jiffies. ! All cpu-stat fields are measured in jiffies.
TUPLE: proc-stat TUPLE: proc-stat
cpu cpu
cpus cpus
@ -181,13 +174,13 @@ TUPLE: proc-stat
procs-blocked procs-blocked
softirq ; softirq ;
TUPLE: cpu-stat name user nice system idle iowait irq softirq steal guest guest-nice ; TUPLE: proc-cpu-stat name user nice system idle iowait irq softirq steal guest guest-nice ;
: line>cpu ( string -- cpu ) : line>cpu ( string -- cpu )
" " split " " split
unclip-slice unclip-slice
[ [ [ CHAR: \s = ] trim string>number ] map ] dip prefix [ [ [ CHAR: \s = ] trim string>number ] map ] dip prefix
[ cpu-stat boa ] input<sequence ; [ proc-cpu-stat boa ] input<sequence ;
: parse-proc-stat ( -- obj ) : parse-proc-stat ( -- obj )
"/proc/stat" utf8 file-lines "/proc/stat" utf8 file-lines
@ -214,9 +207,45 @@ TUPLE: cpu-stat name user nice system idle iowait irq softirq steal guest guest-
: active-cpus ( -- n ) : active-cpus ( -- n )
parse-proc-stat procs-running>> ; parse-proc-stat procs-running>> ;
! /proc/partitions TUPLE: proc-partition major minor #blocks name ;
! /proc/swaps : parse-proc-partitions ( -- partitions )
"/proc/partitions" utf8 file-lines 2 tail
[
" \t" split harvest
[
{
[ string>number ]
[ string>number ]
[ string>number ]
[ ]
} spread
] input<sequence proc-partition boa
] map ;
TUPLE: proc-swap filename type size used priority ;
: parse-proc-swaps ( -- sequence )
"/proc/swaps" utf8 file-lines rest
[
" \t" split harvest
[
{
[ ]
[ ]
[ string>number ]
[ string>number ]
[ string>number ]
} spread
] input<sequence proc-swap boa
] map ;
TUPLE: proc-uptime up idle ;
: parse-proc-uptime ( -- uptime )
"/proc/uptime" utf8 file-lines first
" " split first2 [ string>number seconds ] bi@
proc-uptime boa ;
! /proc/pid/* ! /proc/pid/*