Anonymous user
Get system command output: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 516:
=={{header|Forth}}==
Using Gforth 0.7.9
<lang forth>s" ps " system \ Output only
\ read via pipe into buffer
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
</lang>
{{out}}
| |||