core
/
oga
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleaned up lexing of comments/cdata. 

Thanks to @whitequark for suggesting the use of the "--" operator.
This commit is contained in:
Yorick Peterse 2014-08-16 16:03:55 +02:00
parent 0d7609da88
commit 56341b5585
1 changed files with 7 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ext/ragel/base_lexer.rl
View File

@ -50,25 +50,12 @@
comment_start = '<!--';
comment_end = '-->';
comment = comment_start (any* -- comment_end) comment_end;
action start_comment {
mark = te;
fnext comment_body;
callback("on_comment", data, encoding, ts + 4, te - 3);
}
comment_body := |*
comment_end => {
callback("on_comment", data, encoding, mark, te - 3);
mark = 0;
fnext main;
};
any;
*|;
# CDATA
#
# http://www.w3.org/TR/html-markup/syntax.html#cdata-sections
@ -79,25 +66,12 @@
cdata_start = '<![CDATA[';
cdata_end = ']]>';
cdata = cdata_start (any* -- cdata_end) cdata_end;
action start_cdata {
mark = te;
fnext cdata_body;
callback("on_cdata", data, encoding, ts + 9, te - 3);
}
cdata_body := |*
cdata_end => {
callback("on_cdata", data, encoding, mark, te - 3);
mark = 0;
fnext main;
};
any;
*|;
# Processing Instructions
#
# http://www.w3.org/TR/xpath/#section-Processing-Instruction-Nodes
@ -289,10 +263,11 @@
main := |*
doctype_start => start_doctype;
xml_decl_start => start_xml_decl;
comment_start => start_comment;
cdata_start => start_cdata;
comment => start_comment;
cdata => start_cdata;
proc_ins_start => start_proc_ins;
# The start of an element.
'<' => start_element;