Skip to content

Rewrote some erlang glue code and made use of some header files and records #47

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Magd74NA wants to merge 7 commits into
base: main
Choose a base branch
from
Open

Rewrote some erlang glue code and made use of some header files and records #47

Changes from all commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
1f6ed08
corrected typo
Jun 27, 2025
bc95634
Added a hrl file to represent the file info tuple used in simplifile_…
Jun 27, 2025
cba5d0c
reimplemented the file_info_result function to be a bit more maintain…
Jun 27, 2025
767245a
Wrote a new helper function to simplify filt type checking functions …
Jun 27, 2025
3c54bef
Revert "Wrote a new helper function to simplify filt type checking fu…
Jun 27, 2025
04ddb49
used record syntax without defining a new erlang record
Jun 27, 2025
2daeed4
fixed an oopsie added a file I didn't mean to
Jun 27, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
54 changes: 21 additions & 33 deletions src/simplifile_erl.erl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@

-include_lib("kernel/include/file.hrl").

%% A macro for checking whether the error returned is one of the atoms for a posixe error.
%% A macro for checking whether the error returned is one of the atoms for a posix error.
-define(is_posix_error(Error),
Error =:= eacces
orelse Error =:= eagain
Expand Down Expand Up @@ -203,38 +203,26 @@ is_symlink(Path) ->
posix_result({error, Reason})
end.

file_info_result(Result) ->
case Result of
{ok,
{file_info,
Size,
_Type,
_Access,
Atime,
Mtime,
Ctime,
Mode,
Links,
MajorDevice,
_MinorDevice,
Inode,
Uid,
Gid}} ->
{ok,
{file_info,
Size,
Mode,
Links,
Inode,
Uid,
Gid,
MajorDevice,
Atime,
Mtime,
Ctime}};
{error, Reason} when ?is_posix_error(Reason) ->
Result
end.
%% For information on the file_info record refer to
%% https://www.erlang.org/doc/apps/kernel/file.html#t:file_info/0
file_info_result(Result) ->
case Result of
{ok, FileInfo} when is_record(FileInfo, file_info) ->
{ok, {file_info,
FileInfo#file_info.size,
FileInfo#file_info.mode,
FileInfo#file_info.links,
FileInfo#file_info.inode,
FileInfo#file_info.uid,
FileInfo#file_info.gid,
FileInfo#file_info.major_device,
FileInfo#file_info.atime,
FileInfo#file_info.mtime,
FileInfo#file_info.ctime
}};
{error, Reason} when ?is_posix_error(Reason) ->
{error, Reason}
end.

file_info(Filename) ->
file_info_result(file:read_file_info(Filename, [{time, posix}])).
Expand Down