anchor.diff:  	  Smth -> Smth
     end.
   
  +pair_array_to_vector (Array) ->
  +  List = lists:map (
  +    fun ({Key, Value}) when is_atom (Key) ->
  +        string:join ([erlang:atom_to_list (Key), Value], "=") 
  +    end, Array),
  +  string:join (List, ",").
  +
   test (Port) ->
     port_control (Port, 1, <<"xxx">>),
     port_control (Port, 2, <<"xxx">>),
  
positive.code: run_job () ->
    gen_server:call (drmaa, {run_job}).
  
  remote_command (Command) when is_list (Command) ->
    gen_server:call (drmaa, {remote_command, Command}).
  
  v_argv (Argv) when is_list (Argv) ->
    gen_server:call (drmaa, {v_argv, Argv}).
  
  
  %% gen_server callbacks %%
  
negative.code: %% API
  -export ([allocate_job_template/0, delete_job_template/0]).
  -export ([run_job/0]).
  -export ([join_files/1]).
  -export ([remote_command/1, args/1, env/1]).
  
  %% Internal
  -export ([control/2, control/3]).
  -export ([pair_array_to_vector/1]).
  
  -define ('CMD_ALLOCATE_JOB_TEMPLATE',   1).
  -define ('CMD_DELETE_JOB_TEMPLATE',     2).
  