1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
%%--------------------------------------------------------------------
%% %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
input_type % Source type: file | stream.
% This field is a preparation for an fix in R17 of a bug in
% the conformance against the standard.
% Today a file which contains two XML documents will be considered
% well-formed and the second is placed in the rest part of the
% return tuple, according to the conformance tests this should fail.
% In the future this will fail if xmerl_sax_aprser:file/2 is used but
% left to the user in the xmerl_sax_aprser:stream/2 case.
}).
|
