%%-*-erlang-*-
%%--------------------------------------------------------------------
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2008-2017. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%%
%% %CopyrightEnd%
%%----------------------------------------------------------------------
%% File : xmerl_sax_parser_list.erl
%% Description :
%%
%% Created : 25 Apr 2008
%%----------------------------------------------------------------------
-module(xmerl_sax_parser_list).
%%----------------------------------------------------------------------
%% Macros
%%----------------------------------------------------------------------
-define(STRING_EMPTY, []).
-define(STRING(MatchStr), MatchStr).
-define(STRING_REST(MatchStr, Rest), MatchStr ++ Rest).
-define(APPEND_STRING(Rest, New), Rest ++ New).
-define(TO_INPUT_FORMAT(Val), Val).
%% In the list case we can't use a '++' when matchin against an unbound variable
-define(STRING_UNBOUND_REST(MatchChar, Rest), [MatchChar | Rest]).
-define(PARSE_BYTE_ORDER_MARK(Bytes, State),
parse_byte_order_mark(Bytes, State) ->
parse_xml_decl(Bytes, State)).
-define(PARSE_XML_DECL(Bytes, State),
parse_xml_decl(Bytes, State) ->
parse_prolog(Bytes, State)).
-define(WHITESPACE(Bytes, State, Acc),
whitespace(?STRING_UNBOUND_REST(_C, _) = Bytes, State, Acc) ->
{lists:reverse(Acc), Bytes, State}).
-define(PARSE_EXTERNAL_ENTITY_BYTE_ORDER_MARK(Bytes, State),
parse_external_entity_byte_order_mark(Bytes, State) ->
parse_external_entity_1(Bytes, State)).
