Support SAX handler as a function

lib/saxy.ex

@@ -113,7 +113,7 @@ defmodule Saxy do
   alias Saxy.{
     Encoder,
     Parser,
-    State
+    Parser.State
   }
 
   @doc ~S"""

lib/saxy/emitter.ex

@@ -1,7 +1,7 @@
 defmodule Saxy.Emitter do
   @moduledoc false
 
-  alias Saxy.State
+  alias Saxy.Parser.State
 
   def emit(event_type, data, state, on_halt) do
     case emit(event_type, data, state) do
@@ -22,10 +22,14 @@ defmodule Saxy.Emitter do
     end
   end
 
-  defp do_emit(event_type, data, handler, user_state) do
+  defp do_emit(event_type, data, handler, user_state) when is_atom(handler) do
     handler.handle_event(event_type, data, user_state)
   end
 
+  defp do_emit(event_type, data, handler, user_state) do
+    handler.(event_type, data, user_state)
+  end
+
   @compile {:inline, [convert_entity_reference: 2]}
 
   def convert_entity_reference("amp", _state), do: [?&]

lib/saxy/state.ex → lib/saxy/parser/state.ex

@@ -1,4 +1,4 @@
-defmodule Saxy.State do
+defmodule Saxy.Parser.State do
   @moduledoc false
 
   @enforce_keys [

lib/saxy/partial.ex

@@ -45,7 +45,7 @@ defmodule Saxy.Partial do
     character_data_max_length = Keyword.get(options, :character_data_max_length, :infinity)
     cdata_as_characters = Keyword.get(options, :cdata_as_characters, true)
 
-    state = %Saxy.State{
+    state = %Parser.State{
       prolog: nil,
       handler: handler,
       user_state: initial_state,

test/saxy/emitter_test.exs

@@ -74,6 +74,7 @@ defmodule Saxy.EmitterTest do
   defp parse(data, handler, state) do
     assert result = Saxy.parse_string(data, handler, state)
     assert Saxy.parse_stream([data], handler, state) == result
+    assert Saxy.parse_stream([data], &handler.handle_event/3, state) == result
 
     result
   end