mirror of
https://github.com/processone/ejabberd.git
synced 2024-06-28 22:52:27 +02:00
* src/xml_stream.erl: Few optimizations
SVN Revision: 262
This commit is contained in:
parent
6755925676
commit
1f3eb68e48
|
@ -1,3 +1,7 @@
|
||||||
|
2004-08-27 Alexey Shchepin <alexey@sevcom.net>
|
||||||
|
|
||||||
|
* src/xml_stream.erl: Few optimizations
|
||||||
|
|
||||||
2004-08-24 Alexey Shchepin <alexey@sevcom.net>
|
2004-08-24 Alexey Shchepin <alexey@sevcom.net>
|
||||||
|
|
||||||
* src/mod_service_log.erl: Support for logging of user packets via
|
* src/mod_service_log.erl: Support for logging of user packets via
|
||||||
|
|
|
@ -47,41 +47,43 @@ loop(CallbackPid, Port, Stack) ->
|
||||||
process_data(CallbackPid, Stack, Data) ->
|
process_data(CallbackPid, Stack, Data) ->
|
||||||
case Data of
|
case Data of
|
||||||
{?XML_START, {Name, Attrs}} ->
|
{?XML_START, {Name, Attrs}} ->
|
||||||
if Stack == [] ->
|
if
|
||||||
|
Stack == [] ->
|
||||||
gen_fsm:send_event(CallbackPid,
|
gen_fsm:send_event(CallbackPid,
|
||||||
{xmlstreamstart, Name, Attrs});
|
{xmlstreamstart, Name, Attrs});
|
||||||
true -> true
|
true ->
|
||||||
|
ok
|
||||||
end,
|
end,
|
||||||
[{xmlelement, Name, Attrs, []} | Stack];
|
[{xmlelement, Name, Attrs, []} | Stack];
|
||||||
{?XML_END, EndName} ->
|
{?XML_END, EndName} ->
|
||||||
case Stack of
|
case Stack of
|
||||||
[{xmlelement, Name, Attrs, Els} | Tail] ->
|
[{xmlelement, Name, Attrs, Els} | Tail] ->
|
||||||
NewEl = {xmlelement, Name, Attrs, lists:reverse(Els)},
|
NewEl = {xmlelement, Name, Attrs, lists:reverse(Els)},
|
||||||
Len = length(Tail),
|
case Tail of
|
||||||
if
|
[] ->
|
||||||
Len > 1 -> add_subelement(NewEl, Tail);
|
gen_fsm:send_event(CallbackPid,
|
||||||
Len == 1 ->
|
{xmlstreamend, EndName}),
|
||||||
|
Tail;
|
||||||
|
[_] ->
|
||||||
gen_fsm:send_event(CallbackPid,
|
gen_fsm:send_event(CallbackPid,
|
||||||
{xmlstreamelement, NewEl}),
|
{xmlstreamelement, NewEl}),
|
||||||
Tail;
|
Tail;
|
||||||
Len == 0 ->
|
[{xmlelement, Name1, Attrs1, Els1} | Tail1] ->
|
||||||
gen_fsm:send_event(CallbackPid,
|
[{xmlelement, Name1, Attrs1, [NewEl | Els1]} |
|
||||||
{xmlstreamend, EndName}),
|
Tail1]
|
||||||
Tail
|
|
||||||
end
|
end
|
||||||
end;
|
end;
|
||||||
{?XML_CDATA, CData} ->
|
{?XML_CDATA, CData} ->
|
||||||
add_subelement({xmlcdata, CData}, Stack);
|
|
||||||
{?XML_ERROR, Err} -> gen_fsm:send_event(CallbackPid,
|
|
||||||
{xmlstreamerror, Err})
|
|
||||||
end.
|
|
||||||
|
|
||||||
|
|
||||||
add_subelement(El, Stack) ->
|
|
||||||
case Stack of
|
case Stack of
|
||||||
|
[El] ->
|
||||||
|
[El];
|
||||||
[{xmlelement, Name, Attrs, Els} | Tail] ->
|
[{xmlelement, Name, Attrs, Els} | Tail] ->
|
||||||
[{xmlelement, Name, Attrs, [El | Els]} | Tail];
|
[{xmlelement, Name, Attrs, [{xmlcdata, CData} | Els]} |
|
||||||
|
Tail];
|
||||||
[] -> []
|
[] -> []
|
||||||
|
end;
|
||||||
|
{?XML_ERROR, Err} ->
|
||||||
|
gen_fsm:send_event(CallbackPid, {xmlstreamerror, Err})
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user