diff options
author | Adam Chlipala <adam@chlipala.net> | 2010-08-10 14:52:33 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2010-08-10 14:52:33 -0400 |
commit | 576949f00da484e776a75be16a45f5f39038ed21 (patch) | |
tree | 47b4a09d2970f105ce284d3bc687356fbb48b63b /src | |
parent | 3c78a631ea14620424da465279ce3f1d39521f5d (diff) |
HTML comments
Diffstat (limited to 'src')
-rw-r--r-- | src/urweb.lex | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/urweb.lex b/src/urweb.lex index 8a989884..88b7d857 100644 --- a/src/urweb.lex +++ b/src/urweb.lex @@ -173,6 +173,7 @@ ws = [\ \t\012]; intconst = [0-9]+; realconst = [0-9]+\.[0-9]*; notags = [^<{\n(]+; +xcom = ([^-]|(-[^-]))+; oint = [0-9][0-9][0-9]; xint = x[0-9a-fA-F][0-9a-fA-F]; @@ -207,6 +208,8 @@ xint = x[0-9a-fA-F][0-9a-fA-F]; <COMMENT> "*)" => (exitComment (); continue ()); +<XML> "<!--" {xcom} "-->" => (continue ()); + <STRING,CHAR> "\\\"" => (str := #"\"" :: !str; continue()); <STRING,CHAR> "\\'" => (str := #"'" :: !str; continue()); <STRING,CHAR> "\\n" => (str := #"\n" :: !str; continue()); |