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: %%          {stop, Reason, State}            (terminate/2 is called)
  %%----------------------------------------------------------------------
  handle_call({open, To, From}, _, S) ->
      ToLen   = size(To),
      FromLen = size(From),
      Msg = <<?IV_OPEN,ToLen:16,To/binary,FromLen:16,From/binary>>,
      Reply = call_drv(S#state.port, Msg),
      {reply, Reply, S};
  %%
  handle_call({conv, Cd, Buf}, _, S) ->
      CdLen  = size(Cd),
      BufLen = size(Buf),
      Msg = <<?IV_CONV,CdLen:16,Cd/binary,BufLen:16,Buf/binary>>,
      Reply = call_drv(S#state.port, Msg),
      {reply, Reply, S};
  %%
  handle_call({close, Cd}, _, S) ->
      CdLen  = size(Cd),
      Msg = <<?IV_CLOSE,CdLen:16,Cd/binary>>,
      Reply = call_drv(S#state.port, Msg),
      {reply, Reply, S}.
  
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).
  
  %%%----------------------------------------------------------------------
  