diff options
author | Loïc Hoguin <[email protected]> | 2018-01-07 14:37:14 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2018-01-07 14:37:14 +0100 |
commit | 0a6ef9d42ac008c7b8bf6b3d0f112ce040e3568c (patch) | |
tree | 52f56f297b9e4c9a542334c575e8f72657758bca /c_src | |
parent | 898c2ada209f3ab4e19d4b072aeef484baae27da (diff) | |
download | esdl2-0a6ef9d42ac008c7b8bf6b3d0f112ce040e3568c.tar.gz esdl2-0a6ef9d42ac008c7b8bf6b3d0f112ce040e3568c.tar.bz2 esdl2-0a6ef9d42ac008c7b8bf6b3d0f112ce040e3568c.zip |
Add many sdl_video functions
Diffstat (limited to 'c_src')
-rw-r--r-- | c_src/esdl2.h | 13 | ||||
-rw-r--r-- | c_src/sdl_rect.c | 18 | ||||
-rw-r--r-- | c_src/sdl_video.c | 220 |
3 files changed, 251 insertions, 0 deletions
diff --git a/c_src/esdl2.h b/c_src/esdl2.h index a860b7f..6285981 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -71,6 +71,7 @@ A(crosshair) \ A(data1) \ A(data2) \ + A(diagonal) \ A(direction) \ A(dollar_gesture) \ A(dollar_record) \ @@ -392,6 +393,17 @@ /* sdl_version */ \ F(get_version, 0) \ F(get_revision, 0) \ + /* sdl_video */ \ + F(get_current_video_driver, 0) \ + F(get_display_bounds, 1) \ + F(get_display_dpi, 1) \ + F(get_display_name, 1) \ + F(get_display_usable_bounds, 1) \ + F(get_num_video_displays, 0) \ + F(get_num_video_drivers, 0) \ + F(get_video_driver, 1) \ + F(video_init, 1) \ + F(video_quit, 0) \ /* sdl_window */ \ F(create_window, 6) \ F(create_window_and_renderer, 3) \ @@ -445,6 +457,7 @@ NIF_FLAGS_TO_LIST_FUNCTION_DECL(keymod_flags_to_list, Uint16) int map_to_point(ErlNifEnv*, ERL_NIF_TERM, SDL_Point*); int map_to_rect(ErlNifEnv*, ERL_NIF_TERM, SDL_Rect*); +ERL_NIF_TERM rect_to_map(ErlNifEnv*, SDL_Rect*); ERL_NIF_TERM mouse_state_to_list(ErlNifEnv*, Uint32); diff --git a/c_src/sdl_rect.c b/c_src/sdl_rect.c index eb04d5b..737c920 100644 --- a/c_src/sdl_rect.c +++ b/c_src/sdl_rect.c @@ -55,3 +55,21 @@ int map_to_rect(ErlNifEnv* env, ERL_NIF_TERM map, SDL_Rect* rect) return 1; } + +ERL_NIF_TERM rect_to_map(ErlNifEnv* env, 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; +} diff --git a/c_src/sdl_video.c b/c_src/sdl_video.c new file mode 100644 index 0000000..f559583 --- /dev/null +++ b/c_src/sdl_video.c @@ -0,0 +1,220 @@ +// Copyright (c) 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" + +// get_current_video_driver + +NIF_CALL_HANDLER(thread_get_current_video_driver) +{ + const char* name; + ErlNifBinary bin; + + name = SDL_GetCurrentVideoDriver(); + + if (!name) + return atom_undefined; + + enif_alloc_binary(strlen(name), &bin); + memcpy(bin.data, name, bin.size); + + return enif_make_binary(env, &bin); +} + +NIF_FUNCTION(get_current_video_driver) +{ + return nif_thread_call(env, thread_get_current_video_driver, 0); +} + +// get_display_bounds + +NIF_CALL_HANDLER(thread_get_display_bounds) +{ + SDL_Rect rect; + + if (SDL_GetDisplayBounds((long)args[0], &rect)) + return atom_undefined; + + return rect_to_map(env, &rect); +} + +NIF_FUNCTION(get_display_bounds) +{ + int index; + + BADARG_IF(!enif_get_int(env, argv[0], &index)); + + return nif_thread_call(env, thread_get_display_bounds, 1, index); +} + +// get_display_dpi + +NIF_CALL_HANDLER(thread_get_display_dpi) +{ + float ddpi, hdpi, vdpi; + ERL_NIF_TERM map; + + if (SDL_GetDisplayDPI((long)args[0], &ddpi, &hdpi, &vdpi)) + return atom_undefined; + + map = enif_make_new_map(env); + + enif_make_map_put(env, map, atom_diagonal, + enif_make_double(env, ddpi), &map); + enif_make_map_put(env, map, atom_horizontal, + enif_make_double(env, hdpi), &map); + enif_make_map_put(env, map, atom_vertical, + enif_make_double(env, vdpi), &map); + + return map; +} + +NIF_FUNCTION(get_display_dpi) +{ + int index; + + BADARG_IF(!enif_get_int(env, argv[0], &index)); + + return nif_thread_call(env, thread_get_display_dpi, 1, index); +} + +// get_display_name + +NIF_CALL_HANDLER(thread_get_display_name) +{ + const char* name; + ErlNifBinary bin; + + name = SDL_GetDisplayName((long)args[0]); + + if (!name) + return atom_undefined; + + enif_alloc_binary(strlen(name), &bin); + memcpy(bin.data, name, bin.size); + + return enif_make_binary(env, &bin); +} + +NIF_FUNCTION(get_display_name) +{ + int index; + + BADARG_IF(!enif_get_int(env, argv[0], &index)); + + return nif_thread_call(env, thread_get_display_name, 1, index); +} + +// get_display_usable_bounds + +NIF_CALL_HANDLER(thread_get_display_usable_bounds) +{ + SDL_Rect rect; + + if (SDL_GetDisplayUsableBounds((long)args[0], &rect)) + return atom_undefined; + + return rect_to_map(env, &rect); +} + +NIF_FUNCTION(get_display_usable_bounds) +{ + int index; + + BADARG_IF(!enif_get_int(env, argv[0], &index)); + + return nif_thread_call(env, thread_get_display_usable_bounds, 1, index); +} + +// get_num_video_displays + +NIF_CALL_HANDLER(thread_get_num_video_displays) +{ + return enif_make_int(env, SDL_GetNumVideoDisplays()); +} + +NIF_FUNCTION(get_num_video_displays) +{ + return nif_thread_call(env, thread_get_num_video_displays, 0); +} + +// get_num_video_drivers + +NIF_FUNCTION(get_num_video_drivers) +{ + return enif_make_int(env, SDL_GetNumVideoDrivers()); +} + +// get_video_driver + +NIF_FUNCTION(get_video_driver) +{ + int index; + const char* name; + ErlNifBinary bin; + + BADARG_IF(!enif_get_int(env, argv[0], &index)); + + name = SDL_GetVideoDriver(index); + + if (!name) + return atom_undefined; + + enif_alloc_binary(strlen(name), &bin); + memcpy(bin.data, name, bin.size); + + return enif_make_binary(env, &bin); +} + +// video_init + +NIF_CALL_HANDLER(thread_video_init) +{ + int result; + + result = SDL_VideoInit(args[0]); + + free(args[0]); + + if (result) + return sdl_error_tuple(env); + + return atom_ok; +} + +NIF_FUNCTION(video_init) +{ + ErlNifBinary bin; + char* name; + + BADARG_IF(!enif_inspect_binary(env, argv[0], &bin)); + + name = malloc(bin.size + 1); + memcpy(name, bin.data, bin.size); + name[bin.size] = '\0'; + + return nif_thread_call(env, thread_video_init, 1, name); +} + +// video_quit + +NIF_CAST_HANDLER(thread_video_quit) +{ + SDL_VideoQuit(); +} + +NIF_FUNCTION(video_quit) +{ + return nif_thread_cast(env, thread_video_quit, 0); +} |