binary_test.erl

% c(binary_test).
% Ref=binary_test:open(<<1>>).
% binary_test:increment(Ref,<<3>>).
%%% The initial value of binary term changes always. Why is this happening?


-module(binary_test).
-export([open/1,increment/2,spawn_concurrent_increment/0,spawn_core/0]).
-on_load(init/0).

init() ->
    ok = erlang:load_nif("./binary_test", 0).

open(_T) ->
    exit(nif_library_not_loaded).

increment(_R,_B) ->
    exit(nif_library_not_loaded).

spawn_concurrent_increment() ->
	receive
		{From, {data, Ref, BinData}} ->
			Pid = spawn(?MODULE, spawn_core, []),
			Pid ! {self(), {data_core, Ref, BinData, From}},
			spawn_concurrent_increment()
	end.

spawn_core() ->
	receive
		{From, {data_core, Ref, BinData, OrigPid}} -> 
			Result = increment(Ref, BinData),
			OrigPid ! {self(), {result, Result}}
	end.