anchor.diff:      {reply, ok, State}.
   
   handle_info({_, {data, <<Cnt:64, InFd:32, _OutFd:32, Res:8, Err/binary>>}}, State) ->
  -    io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
       Reply = case Res of
                   1 ->
  -                    io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
                       {ok, Cnt};
                   0 ->
  -                    io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
                       {error,
                        list_to_atom(
                          lists:takewhile(fun(El) -> El =/= 0 end,
                                          binary_to_list(Err)))}
               end,
       CallerTable = State#state.caller_tbl,
  -    io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
       [{InFd, From}] = ets:lookup(CallerTable, InFd),
  -    io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
       gen_server:reply(From, Reply),
  -    io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
       ets:delete(CallerTable, InFd),
       {noreply, State};
   handle_info(_Info, State) ->
  
positive.code:          }).
  
  init([]) ->
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      process_flag(trap_exit, true),
      Shlib = "splice_drv",
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      Dir = code:priv_dir(?MODULE),
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      case erl_ddll:load_driver(Dir, Shlib) of
          ok -> io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]), ok;
          {error, already_loaded} -> ok;
          _ -> io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]), exit({error, "could not load driver " ++ Shlib})
      end,
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      Port = open_port({spawn, Shlib}, [binary]),
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      CallerTable = ets:new(splice_drv, []),
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      {ok, #state{port = Port, caller_tbl = CallerTable}}.
  
  handle_call({send, InFd, Msg}, From, State) ->
      io:format("Passei: ~p:~p~n", [?MODULE, ?LINE]),
      true = erlang:port_command(State#state.port, Msg),
      true = ets:insert(State#state.caller_tbl, {InFd, From}),
      {noreply, State};
  
negative.code: %% ------------------------------------------------------------------
  
  start_link() ->
      gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
  
  stop() ->
      gen_server:cast(?SERVER, stop).
  
  send(In, Out, Offset, Count) when is_integer(Count)->
      do_send(In, Out, Offset, Count).
  
  -ifdef(HAVE_SPLICE).
  enabled() ->
      true.
  -else.
  enabled() ->
      false.
  -endif.
  
  