anchor.diff:  %%%----------------------------------------------------------------------
   
   load_path(File) ->
  -    case lists:zf(fun(Ebin) ->
  -			  Priv = Ebin ++ "/../priv/",
  -			  case file:read_file_info(Priv ++ File) of
  -			      {ok, _} -> {true, Priv};
  -			      _ -> false
  -			  end
  -		  end, code:get_path()) of
  -        [Dir|_] ->
  -            {ok, Dir};
  -        [] ->
  -            error_logger:format("Error: ~s not found in code path\n", [File]),
  -            {error, enoent}
  -    end.
  +	case lists:zf(fun(Ebin) ->
  +					Priv = Ebin ++ "/../priv/",
  +					case file:read_file_info(Priv ++ File) of
  +						{ok, _} -> {true, Priv};
  +						_ -> false
  +					end
  +			end, code:get_path()) of
  +		[Dir|_] ->
  +			{ok, Dir};
  +		[] ->
  +			error_logger:format("Error: ~s not found in code path\n", [File]),
  +			{error, enoent}
  +	end.
   
  -l2b(L) when list(L)   -> list_to_binary(L);
  -l2b(B) when binary(B) -> B.
  +l2b(L) when is_list(L)   -> list_to_binary(L);
  +l2b(B) when is_binary(B) -> B.
  
positive.code: %%----------------------------------------------------------------------
  init([]) ->
      erl_ddll:start(),
      Path = code:priv_dir(iconv),
      erl_ddll:load_driver(Path, ?DRV_NAME),
      Port = open_port({spawn, ?DRV_NAME}, [binary]),
      {ok, #state{port = Port}}.
  
  %%----------------------------------------------------------------------
  %% Func: handle_call/3
  
negative.code:     gen_server:call(?SERVER, {open, l2b(To), l2b(From)}, infinity).
  
  %%conv(Cd, String) -> {ok, l2b(String)};
  conv(Cd, String) when is_binary(Cd) ->
      gen_server:call(?SERVER, {conv, Cd, l2b(String)}, infinity).
  
  %%close(Cd) -> ok;
  close(Cd) when is_binary(Cd) ->
      gen_server:call(?SERVER, {close, Cd}, infinity).
  
  %%%----------------------------------------------------------------------
  