psu_parser: Replace a unix command call by its erlang equivalent.

This commit is contained in:
Loïc Hoguin 2010-07-26 23:39:15 +02:00
parent 64a69cd952
commit fa621c2a42

View File

@ -70,7 +70,9 @@ nbl_extract_files(NblFilename) ->
ok. ok.
nbl_cleanup() -> nbl_cleanup() ->
os:cmd("rm -rf tmp/"), {ok, Filenames} = file:list_dir("tmp/"),
[file:delete(io_lib:format("tmp/~s", [Filename])) || Filename <- Filenames],
file:del_dir("tmp/"),
ok. ok.
calc_base_ptr(Filename, [Current|_Tail], Ptr) when Filename =:= Current -> calc_base_ptr(Filename, [Current|_Tail], Ptr) when Filename =:= Current ->