26 lines
461 B
Erlang
26 lines
461 B
Erlang
|
-module(afile_client).
|
||
|
|
-compile([debug_info]).
|
||
|
|
-export([ls/1, get_file/2, put_file/3]).
|
||
|
|
|
||
|
|
ls(Server) ->
|
||
|
|
Server ! {self(), list_dir},
|
||
|
|
receive
|
||
|
|
{Server, FileList} ->
|
||
|
|
FileList
|
||
|
|
end.
|
||
|
|
|
||
|
|
get_file(Server, File) ->
|
||
|
|
Server ! {self(), {get_file, File}},
|
||
|
|
receive
|
||
|
|
{Server, Content} ->
|
||
|
|
Content
|
||
|
|
end.
|
||
|
|
|
||
|
|
put_file(Server, File, Contents) ->
|
||
|
|
Server ! {self(), {put_file, File, Contents}},
|
||
|
|
receive
|
||
|
|
{Server, Result} ->
|
||
|
|
Result
|
||
|
|
end.
|
||
|
|
|