diff options
Diffstat (limited to 'lib/xmerl/src/xmerl_sax_parser.hrl')
| -rw-r--r-- | lib/xmerl/src/xmerl_sax_parser.hrl | 93 |
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 + }). + + + |