gladvent

-module(gladvent_ffi).

-export([
    find_files/2,
    open_file_exclusive/1,
    write/2,
    ensure_dir/1,
    function_arity_one_exists/2,
    module_exists/1,
    close_iodevice/1
]).

close_iodevice(IoDevice) ->
    to_gleam_result(file:close(IoDevice)).

find_files(Pattern, In) ->
    Results = filelib:wildcard(binary_to_list(Pattern), binary_to_list(In)),
    lists:map(fun list_to_binary/1, Results).

open_file_exclusive(File) ->
    file:open(File, [exclusive]).

to_gleam_result(Res) ->
    case Res of
        ok -> {ok, nil};
        Other -> Other
    end.

write(IODevice, Contents) ->
    to_gleam_result(file:write(IODevice, Contents)).

ensure_dir(Dir) ->
    to_gleam_result(filelib:ensure_dir(Dir)).

module_exists(ModuleName) ->
    case code:ensure_loaded(ModuleName) of
        {module, _} ->
            true;
        {error, _} ->
            false
    end.

function_arity_one_exists(ModuleName, Fn) ->
    case erlang:function_exported(ModuleName, Fn, 1) of
        true ->
            {ok, fun ModuleName:Fn/1};
        false ->
            {error, nil}
    end.