Packages

oaspec

0.31.0
0.68.0 0.67.0 0.66.0 0.65.0 0.64.0 0.63.0 0.62.0 0.61.0 0.60.0 0.59.0 0.58.1 0.58.0 0.57.0 0.56.0 0.55.0 0.54.0 0.53.0 0.52.0 0.51.0 0.50.0 0.49.0 0.48.0 0.47.0 0.46.0 0.45.0 0.44.0 0.43.0 0.42.0 0.41.0 0.40.0 0.39.0 0.38.0 0.37.0 0.36.0 0.35.0 0.34.0 0.33.0 0.32.0 0.31.0 0.30.0 0.29.0 0.28.0 0.27.0 0.26.0 0.25.0 0.24.0 0.23.0 0.22.0 0.21.0 0.20.0 0.19.0 0.18.0 0.17.0 0.16.0 0.15.0 0.14.0 0.13.0 0.12.0 0.11.0 0.10.0 0.9.0 0.8.0 0.7.0 0.6.3 0.6.1 0.6.0 0.5.0 0.4.0 0.3.0 0.1.3

Generate Gleam code from OpenAPI 3.x specifications

HexDocs

Current section

Files

Jump to
Readme
70 Versions
8 Dependencies
2 Dependants
Files
Activity
oaspec src oaspec_ffi.erl
Raw

src/oaspec_ffi.erl 

-module(oaspec_ffi).

-export([find_executable/1, run_executable/2, is_stdout_tty/0, no_color_set/0]).



%% Find an executable on PATH. Returns {ok, Path} or {error, nil}.

-spec find_executable(binary()) -> {ok, binary()} | {error, nil}.

find_executable(Name) ->

    case os:find_executable(binary_to_list(Name)) of

        false -> {error, nil};

        Path -> {ok, list_to_binary(Path)}

    end.



%% Run an executable with arguments. Returns the exit code as an integer.

%% Uses spawn_executable to avoid shell injection.

-spec run_executable(binary(), list(binary())) -> integer().

run_executable(Executable, Args) ->

    Port = open_port(

        {spawn_executable, binary_to_list(Executable)},

        [exit_status, stderr_to_stdout, binary, {args, [binary_to_list(A) || A <- Args]}]

    ),

    collect_exit(Port).



collect_exit(Port) ->

    receive

        {Port, {data, _}} ->

            collect_exit(Port);

        {Port, {exit_status, Code}} ->

            Code

    after 60000 ->

        catch port_close(Port),

        1

    end.



%% Detect whether standard_io is connected to a terminal. io:getopts/1

%% reports a `terminal' flag for interactive sessions; non-TTY (pipe,

%% redirection, escript captured stdout) returns false or omits the key.

-spec is_stdout_tty() -> boolean().

is_stdout_tty() ->

    case io:getopts(standard_io) of

        {ok, Opts} ->

            case lists:keyfind(terminal, 1, Opts) of

                {terminal, true} -> true;

                _ -> false

            end;

        _ -> false

    end.



%% Honor the NO_COLOR convention (https://no-color.org/): an unset or

%% empty value means "do not opt out"; any non-empty value means "no

%% color".

-spec no_color_set() -> boolean().

no_color_set() ->

    case os:getenv("NO_COLOR") of

        false -> false;

        "" -> false;

        _ -> true

    end.