-
Notifications
You must be signed in to change notification settings - Fork 128
/
dtop.erl
32 lines (25 loc) · 916 Bytes
/
dtop.erl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
%%%-------------------------------------------------------------------
%%% File : dtop.erl
%%% Author : Mats Cronqvist <locmacr@mwlx084>
%%% Created : 5 Sep 2005
%%% Description : top-like client for prf
%%%-------------------------------------------------------------------
-module(dtop).
-author('Mats Cronqvist').
-export([start/0,start/1,start/2,
stop/0,
sort/1,file/1]).
start() -> start(node()).
start([Node,Proxy]) -> start(Node,Proxy);
start([Node]) -> start([Node,no_proxy]);
start(Node) -> start([Node]).
start(Node,Proxy) when is_atom(Node),is_atom(Proxy) ->
prf:start(dtop,Node,dtopConsumer,Proxy).
stop() -> prf:stop(dtop).
sort(Sort) -> prf:config(dtop,consumer,{sort,Sort}).
file(Filename) ->
try {ok,FD} = file:open(Filename,[write]),
prf:config(dtop,consumer,{fd,FD}),
prf:config(dtop,consumer,{items,no_pad})
catch _:R -> {error,{R,Filename}}
end.