#include <js_native_api.h>
#include <node_api.h>
#include <stdio.h>

#define NODE_API_CALL(env, call)                                               \
  do {                                                                         \
    napi_status status = (call);                                               \
    if (status != napi_ok) {                                                   \
      const napi_extended_error_info *error_info = NULL;                       \
      napi_get_last_error_info((env), &error_info);                            \
      const char *err_message = error_info->error_message;                     \
      bool is_pending;                                                         \
      napi_is_exception_pending((env), &is_pending);                           \
      /* If an exception is already pending, don't rethrow it */               \
      if (!is_pending) {                                                       \
        const char *message =                                                  \
            (err_message == NULL) ? "empty error message" : err_message;       \
        napi_throw_error((env), NULL, message);                                \
      }                                                                        \
      return NULL;                                                             \
    }                                                                          \
  } while (0)

static napi_value try_unwrap(napi_env env, napi_callback_info info) {
  size_t argc = 1;
  napi_value argv[1];
  NODE_API_CALL(env, napi_get_cb_info(env, info, &argc, argv, NULL, NULL));
  if (argc != 1) {
    napi_throw_error(env, NULL, "Wrong number of arguments to try_unwrap");
    return NULL;
  }

  double *pointer;
  if (napi_unwrap(env, argv[0], (void **)(&pointer)) != napi_ok) {
    napi_value undefined;
    NODE_API_CALL(env, napi_get_undefined(env, &undefined));
    return undefined;
  } else {
    napi_value number;
    NODE_API_CALL(env, napi_create_double(env, *pointer, &number));
    return number;
  }
}

/* napi_value */ NAPI_MODULE_INIT(/* napi_env env, napi_value exports */) {
  napi_value try_unwrap_function;
  NODE_API_CALL(env,
                napi_create_function(env, "try_unwrap", NAPI_AUTO_LENGTH,
                                     try_unwrap, NULL, &try_unwrap_function));
  NODE_API_CALL(env, napi_set_named_property(env, exports, "try_unwrap",
                                             try_unwrap_function));
  return exports;
}