From 7a37fe6b7fb2df472e86760859b1ac805589d383 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Tue, 8 Apr 2014 19:44:05 +0200 Subject: Add typespecs to the sdl_clipboard module The interface for sdl_clipboard:get_text/0 changed to be easier to use as errors can happen. --- c_src/sdl_clipboard.c | 5 ++++- src/sdl_clipboard.erl | 3 +++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/c_src/sdl_clipboard.c b/c_src/sdl_clipboard.c index 2ecc485..4ddaaa2 100644 --- a/c_src/sdl_clipboard.c +++ b/c_src/sdl_clipboard.c @@ -30,7 +30,10 @@ NIF_FUNCTION(get_clipboard_text) SDL_free(text); - return term; + return enif_make_tuple2(env, + atom_ok, + term + ); } // has_clipboard_text diff --git a/src/sdl_clipboard.erl b/src/sdl_clipboard.erl index 4ac3c9a..2d2bda1 100644 --- a/src/sdl_clipboard.erl +++ b/src/sdl_clipboard.erl @@ -18,11 +18,14 @@ -export([has_text/0]). -export([set_text/1]). +-spec get_text() -> {ok, string()} | sdl:error(). get_text() -> esdl2:get_clipboard_text(). +-spec has_text() -> boolean(). has_text() -> esdl2:has_clipboard_text(). +-spec set_text(string()) -> ok | sdl:error(). set_text(Text) -> esdl2:set_clipboard_text(Text). -- cgit v1.2.3