Packages

vix

0.6.1
0.40.0 0.39.0 0.38.0 0.37.0 0.36.0 0.35.0 0.34.0 0.33.1 0.33.0 0.32.0 0.31.1 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.1 0.22.0 0.21.0 0.20.0 0.19.0 0.18.0 0.17.0 0.16.4 0.16.3 0.16.2 0.16.1 0.16.0 0.15.1 0.15.0 0.14.0 0.13.0 0.12.0 0.11.0 0.10.1 0.10.0 0.9.0 0.8.0 0.7.0 0.6.1 0.6.0 0.5.0 0.4.0 0.3.0 0.2.1 0.2.0 retired 0.1.0

NIF based bindings for libvips

HexDocs

Current section

Files

Jump to
Readme
50 Versions
1 Dependency
Dependants
Files
Activity
vix c_src g_object g_boxed.c
Raw

c_src/g_object/g_boxed.c 

#include <glib-object.h>



#include "../utils.h"



#include "g_boxed.h"

#include "g_object.h"



ErlNifResourceType *G_BOXED_RT;



bool erl_term_to_g_boxed(ErlNifEnv *env, ERL_NIF_TERM term, gpointer *ptr) {

  GBoxedResource *boxed_r = NULL;



  if (enif_get_resource(env, term, G_BOXED_RT, (void **)&boxed_r)) {

    (*ptr) = boxed_r->boxed_ptr;

    return true;

  }



  return false;

}



bool erl_term_boxed_type(ErlNifEnv *env, ERL_NIF_TERM term, GType *type) {

  GBoxedResource *boxed_r = NULL;



  if (enif_get_resource(env, term, G_BOXED_RT, (void **)&boxed_r)) {

    (*type) = boxed_r->boxed_type;

    return true;

  }



  return false;

}



ERL_NIF_TERM boxed_to_erl_term(ErlNifEnv *env, gpointer ptr, GType type) {

  ERL_NIF_TERM term;

  GBoxedResource *boxed_r;



  boxed_r = enif_alloc_resource(G_BOXED_RT, sizeof(GBoxedResource));



  // TODO: use elixir-struct instead of c-struct, so that type

  // information is visible in elixir

  boxed_r->boxed_type = type;

  boxed_r->boxed_ptr = ptr;



  term = enif_make_resource(env, boxed_r);

  enif_release_resource(boxed_r);



  return term;

}



static void g_boxed_dtor(ErlNifEnv *env, void *obj) {

  GBoxedResource *boxed_r = (GBoxedResource *)obj;

  g_boxed_free(boxed_r->boxed_type, boxed_r->boxed_ptr);

  debug("GBoxedResource dtor");

}



int nif_g_boxed_init(ErlNifEnv *env) {

  G_BOXED_RT = enif_open_resource_type(

      env, NULL, "g_boxed_resource", (ErlNifResourceDtor *)g_boxed_dtor,

      ERL_NIF_RT_CREATE | ERL_NIF_RT_TAKEOVER, NULL);



  if (!G_BOXED_RT) {

    error("Failed to open g_boxed_resource");

    return 1;

  }



  return 0;

}