anchor.diff:  start_link() ->
       gen_server:start_link(?MODULE, [], []).
   
  -connect(C, Host, Username, Password, Opts) ->
  -    gen_server:cast(C, {connect, Host, Username, Password, Opts}).
  +connect(C, From, Ref, Host, Username, Password, Opts) ->
  +    gen_server:cast(C, {connect, From, Ref, Host, Username, Password, Opts}).
   
   close(C) when is_pid(C) ->
       catch gen_server:cast(C, stop),
       ok.
   
   get_parameter(C, Name) ->
  -    gen_server:call(C, {get_parameter, to_binary(Name)}).
  -
  -squery(C, Sql) ->
  -    gen_server:cast(C, {squery, Sql}).
  -
  -equery(C, Statement, Parameters) ->
  -    gen_server:cast(C, {equery, Statement, Parameters}).
  -
  -parse(C, Name, Sql, Types) ->
  -    gen_server:cast(C, {parse, Name, Sql, Types}).
  -
  -bind(C, Statement, PortalName, Parameters) ->
  -    gen_server:cast(C, {bind, Statement, PortalName, Parameters}).
  -
  -execute(C, Statement, PortalName, MaxRows) ->
  -    gen_server:cast(C, {execute, Statement, PortalName, MaxRows}).
  -
  -describe(C, Type, Name) ->
  -    gen_server:cast(C, {describe, Type, Name}).
  -
  -close(C, Type, Name) ->
  -    gen_server:cast(C, {close, Type, Name}).
  -
  -sync(C) ->
  -    gen_server:cast(C, sync).
  +    gen_server:call(C, {get_parameter, to_binary(Name)}, infinity).
  +
  +squery(C, From, Ref, Sql) ->
  +    gen_server:cast(C, {squery, From, Ref, Sql}).
  +
  +equery(C, From, Ref, Statement, Parameters) ->
  +    gen_server:cast(C, {equery, From, Ref, Statement, Parameters}).
  +
  +parse(C, From, Ref, Name, Sql, Types) ->
  +    gen_server:cast(C, {parse, From, Ref, Name, Sql, Types}).
  +
  +bind(C, From, Ref, Statement, PortalName, Parameters) ->
  +    gen_server:cast(C, {bind, From, Ref, Statement, PortalName, Parameters}).
  +
  +execute(C, From, Ref, Statement, PortalName, MaxRows) ->
  +    gen_server:cast(C, {execute, From, Ref, Statement, PortalName, MaxRows}).
  +
  +describe(C, From, Ref, Type, Name) ->
  +    gen_server:cast(C, {describe, From, Ref, Type, Name}).
  +
  +close(C, From, Ref, Type, Name) ->
  +    gen_server:cast(C, {close, From, Ref, Type, Name}).
  +
  +sync(C, From, Ref) ->
  +    gen_server:cast(C, {sync, From, Ref}).
   
   cancel(S) ->
       gen_server:cast(S, cancel).
  
positive.code:         8 -> Method = sspi;
          _ -> Method = unknown
      end,
      {stop,
       normal,
       gen_reply(State, {error, {unsupported_auth_method, Method}})};
  
  %% ErrorResponse
  auth({error, E}, State) ->
  
negative.code:         {value, {_, <<"on">>}}  -> put(datetime_mod, pgsql_idatetime);
          {value, {_, <<"off">>}} -> put(datetime_mod, pgsql_fdatetime)
      end,
      notify(State, ok),
      {noreply, State#state{handler = on_message,
                           txstatus = Status,
                           queue = queue:drop(Queue)}};
  
  initializing({error, _} = Error, State) ->
      notify(State, Error), 
      {stop, normal, State};
  
  initializing(Other, State) ->
      on_message(Other, State).
  