10 lines
311 B
Forth
10 lines
311 B
Forth
|
s" ps " system \ Output only
|
||
|
|
\ read via pipe into buffer
|
||
|
|
create buffer 266 allot
|
||
|
|
s" ps " r/o open-pipe throw
|
||
|
|
dup buffer swap 256 swap
|
||
|
|
read-file throw
|
||
|
|
swap close-pipe throw drop
|
||
|
|
|
||
|
|
buffer swap type \ output is the same like above
|