The R13B03 release.OTP_R13B03

1 files changed, 93 insertions, 0 deletions

diff --git a/lib/xmerl/src/xmerl_sax_parser.hrl b/lib/xmerl/src/xmerl_sax_parser.hrl
new file mode 100644
index 0000000000..736316e069
--- /dev/null
+++ b/lib/xmerl/src/xmerl_sax_parser.hrl
@@ -0,0 +1,93 @@
+%%--------------------------------------------------------------------
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%----------------------------------------------------------------------
+%% File    : xmerl_sax_parser.hrl
+%% Description : 
+%%
+%% Created : 25 Jun 2008 
+%%----------------------------------------------------------------------
+%%======================================================================
+%% Include files
+%%======================================================================
+
+
+%%======================================================================
+%% Macros
+%%======================================================================
+
+%%----------------------------------------------------------------------
+%% Definition of XML whitespace characters. These are 'space', 
+%% 'carriage return', 'line feed' and 'tab'
+%%----------------------------------------------------------------------
+-define(is_whitespace(C), C=:=?space ; C=:=?cr ; C=:=?lf ; C=:=?tab).
+-define(space, 32).
+-define(cr,    13).
+-define(lf,    10).
+-define(tab,   9).
+
+%%----------------------------------------------------------------------
+%% Definition of hexadecimal digits
+%%----------------------------------------------------------------------
+-define(is_hex_digit(C), $0 =< C, C =< $9; $a =< C, C =< $f; $A =< C, C =< $F). 
+
+%%----------------------------------------------------------------------
+%% Definition of XML charcters
+%%
+%% [2] Char #x9 | #xA | #xD | [#x20-#xD7FF] | [#xE000-#xFFFD] | [#x10000-#x10FFFF]
+%%----------------------------------------------------------------------
+-define(is_char(C), ?space =< C, C =< 55295; C=:=?cr ; C=:=?lf ; C=:=?tab;
+       57344 =< C, C =< 65533; 65536 =< C, C =< 1114111).
+
+%% non-characters according to Unicode: 16#ffff and 16#fffe
+%% -define(non_character(H1,H2), H1==16#ff,H2==16#fe;H1==16#ff,H2==16#ff).
+%% -define(non_ascii(H), list(H),hd(H)>=128;integer(H),H>=128).
+
+%%----------------------------------------------------------------------
+%% Error handling
+%%----------------------------------------------------------------------
+-define(fatal_error(State, Reason), 
+	throw({fatal_error, {State, Reason}})).
+
+%%======================================================================
+%% Records
+%%======================================================================
+
+%%----------------------------------------------------------------------
+%% State record for the SAX parser
+%%----------------------------------------------------------------------
+-record(xmerl_sax_parser_state, {
+	  event_state,              % User state for events
+	  event_fun,                % Fun used for each event
+	  continuation_state,       % User state for continuation calls
+	  continuation_fun,         % Fun used to fetch more input
+	  encoding=utf8,            % Which encoding is used
+	  line_no = 1,              % Current line number
+	  ns = [],                  % List of current namespaces
+	  current_tag = [],         % Current tag 
+	  end_tags = [],            % Stack of tags used for end tag matching 
+	  match_end_tags = true,    % Flag which defines if the parser should match on end tags
+	  ref_table,                % Table containing entitity definitions
+	  standalone = no,          % yes if the document is standalone and don't need an external DTD.
+	  file_type = normal,       % Can be normal, dtd and entity
+	  current_location,         % Location of the currently parsed XML entity
+	  entity,                   % Parsed XML entity
+	  skip_external_dtd = false % If true the external DTD is skipped during parsing
+	 }).
+
+
+