spawner.erl

% c(spawner).
% c(conc_nif_caller).
% c(niftest).
% spawn(spawner,spawn_multiple_nif_callers,[10]).
-module(spawner).
-export([spawn_multiple_nif_callers/1]).

spawn_multiple_nif_callers(Val) ->
	FinalPidList = lists:foldl(fun(Int_Pid, PidList) -> 
								  Pid = spawn(conc_nif_caller, call_nif, []),
								  [{Int_Pid, Pid} | PidList]
      						   end,[], lists:seq(1,Val)),
	lists:foreach(fun(Elem) ->
		{A, B} = Elem,
		B ! A
      end, FinalPidList).