efmt 0.21.0

Erlang code formatter
Documentation 
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

% From: http://www1.erlang.org/examples/examples-2.0.html
connect(Host, User, Password) ->
    {ftp_server, Host} ! {connect, self(),
                                   User,
                                   Password},
    receive
        {ftp_server, Reply} ->
            Reply;
        Other ->
            Other
    after
        10000 ->
            timeout
    end.


pwd(Handle) ->
    remote(Handle, pwd).


cd(Handle, Dir) ->
    remote(Handle, {cd, Dir}).


ls(Handle) ->
    remote(Handle, ls).


get(Handle, File) ->
    remote(Handle, {get, File}).


quit(Handle) ->
    remote(Handle, quit).


remote(Handle, Op) ->
    Handle ! {self(), Op},
    receive
        {ftp_server, Any} ->
            Any
    after
        1000 ->
            timeout
    end.


lcd(Dir) ->
    file:set_cwd(Dir),
    lpwd().


lpwd() ->
    cwd().


lls() ->
    element(2, file:list_dir(cwd())).


put(Handle, File) ->
    case file:read_file(File) of
        {ok, Contents} ->
            remote(Handle, {put, File, Contents});
        Other ->
            Other
    end.