glearray

-module(glearray_ffi).

-export([new/0, get/2, get_or_default/3, set/3, insert/3]).

new() -> {}.

get(Array, Index) ->
  case catch element(Index + 1, Array) of
    {'EXIT', _} -> {error,nil};
    E -> {ok,E}
  end.

get_or_default(Array, Index, Default) ->
  case catch element(Index + 1, Array) of
    {'EXIT', _} -> Default;
    E -> E
  end.

set(Array, Index, Value) ->
  case catch setelement(Index + 1, Array, Value) of
    {'EXIT', _} -> {error,nil};
    A -> {ok,A}
  end.

insert(Array, Index, Value) ->
  case catch erlang:insert_element(Index + 1, Array, Value) of
    {'EXIT', _} -> {error,nil};
    A -> {ok,A}
  end.