// Copyright (c) 2014-2018, Loïc Hoguin <[email protected]>
//
// Permission to use, copy, modify, and/or distribute this software for any
// purpose with or without fee is hereby granted, provided that the above
// copyright notice and this permission notice appear in all copies.
//
// THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
// WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
// MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
// ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
// WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
// ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
// OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include "esdl2.h"
int map_to_point(ErlNifEnv* env, ERL_NIF_TERM map, SDL_Point* point)
{
ERL_NIF_TERM x, y;
if (!enif_get_map_value(env, map, atom_x, &x))
return 0;
if (!enif_get_map_value(env, map, atom_y, &y))
return 0;
if (!enif_get_int(env, x, &point->x))
return 0;
if (!enif_get_int(env, y, &point->y))
return 0;
return 1;
}
ERL_NIF_TERM point_to_map(ErlNifEnv* env, const SDL_Point* point)
{
ERL_NIF_TERM map;
map = enif_make_new_map(env);
enif_make_map_put(env, map, atom_x,
enif_make_int(env, point->x), &map);
enif_make_map_put(env, map, atom_y,
enif_make_int(env, point->y), &map);
return map;
}
int map_to_rect(ErlNifEnv* env, ERL_NIF_TERM map, SDL_Rect* rect)
{
ERL_NIF_TERM x, y, w, h;
if (!enif_get_map_value(env, map, atom_x, &x))
return 0;
if (!enif_get_map_value(env, map, atom_y, &y))
return 0;
if (!enif_get_map_value(env, map, atom_w, &w))
return 0;
if (!enif_get_map_value(env, map, atom_h, &h))
return 0;
if (!enif_get_int(env, x, &rect->x))
return 0;
if (!enif_get_int(env, y, &rect->y))
return 0;
if (!enif_get_int(env, w, &rect->w))
return 0;
if (!enif_get_int(env, h, &rect->h))
return 0;
return 1;
}
ERL_NIF_TERM rect_to_map(ErlNifEnv* env, const SDL_Rect* rect)
{
ERL_NIF_TERM map;
map = enif_make_new_map(env);
enif_make_map_put(env, map, atom_x,
enif_make_int(env, rect->x), &map);
enif_make_map_put(env, map, atom_y,
enif_make_int(env, rect->y), &map);
enif_make_map_put(env, map, atom_w,
enif_make_int(env, rect->w), &map);
enif_make_map_put(env, map, atom_h,
enif_make_int(env, rect->h), &map);
return map;
}