External - SP Link - update to match Sonic Pi's version

Author: samaaron

app/external/sp_link/src/sp_link.erl

@@ -1,64 +1,73 @@
 -module(sp_link).
--export([is_nif_loaded/0, is_nif_initialized/0, init_nif/1, deinit_nif/0, enable/1, is_enabled/0, set_tempo/2, get_tempo/0, get_num_peers/0,
+-export([init/0, is_nif_loaded/0, is_nif_initialized/0, init_nif/1, deinit_nif/0, enable/1, is_enabled/0, set_tempo/2, get_tempo/0, get_num_peers/0,
     start_stop_sync_enable/1, is_start_stop_sync_enabled/0, set_is_playing/2, is_playing/0, get_time_for_is_playing/0,
     get_beat_at_time/2, get_phase_at_time/2, get_time_at_beat/2, request_beat_at_time/3, force_beat_at_time/3,
     request_beat_at_start_playing_time/2, set_is_playing_and_request_beat_at_time/4, set_callback_pid/1,
     get_current_time_microseconds/0, set_log_level/1]).
--on_load(init/0).
+
+-define(APPLICATION, tau).
+-define(LIBNAME, "libsp_link").
 
 init() ->
-    case os:type() of
-    {win32, _} ->
-        ok = erlang:load_nif("D:/projects/sp_link/build/Debug/libsp_link", 0);
-    _Else ->
-        ok = erlang:load_nif("/home/luis/projects/sp_link/build/libsp_link", 0)
-    end.
+    SoName = case code:priv_dir(?APPLICATION) of
+        {error, bad_name} ->
+            case filelib:is_dir(filename:join(["..", priv])) of
+                true ->
+                    filename:join(["..", priv, ?LIBNAME]);
+                _ ->
+                    filename:join([priv, ?LIBNAME])
+            end;
+        Dir ->
+            filename:join(Dir, ?LIBNAME)
+    end,
+    erlang:load_nif(SoName, 0).
 
 is_nif_loaded() ->
-    exit(nif_library_not_loaded).
+    false.
 is_nif_initialized() ->
-    exit(nif_library_not_loaded).
+    false.
 init_nif(_) ->
-    exit(nif_library_not_loaded).
+    done.
 deinit_nif() ->
-    exit(nif_library_not_loaded).
-enable(_) ->
-    exit(nif_library_not_loaded).
+    done.
 is_enabled() ->
-    exit(nif_library_not_loaded).
-set_tempo(_, _) ->
-    exit(nif_library_not_loaded).
-get_tempo() ->
-    exit(nif_library_not_loaded).
-get_num_peers() ->
-    exit(nif_library_not_loaded).
-start_stop_sync_enable(_) ->
-    exit(nif_library_not_loaded).
+    false.
+enable(_) ->
+    done.
 is_start_stop_sync_enabled() ->
-    exit(nif_library_not_loaded).
-set_is_playing(_, _) ->
-    exit(nif_library_not_loaded).
-is_playing() ->
-    exit(nif_library_not_loaded).
-get_time_for_is_playing() ->
-    exit(nif_library_not_loaded).
+    false.
+start_stop_sync_enable(_) ->
+    done.
+get_num_peers() ->
+    0.
+get_tempo() ->
+    60.
+set_tempo(_, _) ->
+    done.
 get_beat_at_time(_, _) ->
-    exit(nif_library_not_loaded).
+    0.
 get_phase_at_time(_, _) ->
-    exit(nif_library_not_loaded).
+    0.
 get_time_at_beat(_, _) ->
-    exit(nif_library_not_loaded).
+    0.
 request_beat_at_time(_, _, _) ->
-    exit(nif_library_not_loaded).
+    0.
 force_beat_at_time(_, _, _) ->
-    exit(nif_library_not_loaded).
+    0.
+set_is_playing(_, _) ->
+    done.
+is_playing() ->
+    false.
+get_time_for_is_playing() ->
+    0.
 request_beat_at_start_playing_time(_, _) ->
-    exit(nif_library_not_loaded).
+    0.
 set_is_playing_and_request_beat_at_time(_, _, _, _) ->
-    exit(nif_library_not_loaded).
+    done.
 set_callback_pid(_) ->
-    exit(nif_library_not_loaded).
+    done.
 get_current_time_microseconds() ->
-    exit(nif_library_not_loaded).
+    0.
 set_log_level(_) ->
-    exit(nif_library_not_loaded).
+    done.
+