From 3dcaa14870c6a3768421b142bbf43b48c5b5100d Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 8 Aug 2011 14:51:13 +0400
Subject: [PATCH] Revert "Support comments in attribute lists"

Apparently it's disallowed
---
 parser.ml | 25 -------------------------
 1 file changed, 25 deletions(-)

diff --git a/parser.ml b/parser.ml
index 059c921..cfd9128 100644
--- a/parser.ml
+++ b/parser.ml
@@ -304,29 +304,9 @@ let parse v s =
 
   and collect_attributes pos =
     let rec f accu pos =
-      let skip_comment pos =
-        if slen - pos < 6
-        then error "not enough data in attribute list after <" s pos;
-        if s.[pos] = '!' && s.[pos+1] = '-'
-        then
-          let pos =
-            try
-              find_substr (pos+2) "-->" r_comment_terminator
-            with Not_found ->
-              error "comment is not terminated" s pos
-          in
-          pos+3
-        else error "invalid < in attribute list" s pos
-      in
-
       let nameval pos =
         let pos, name = getname pos in
         let pos = find_non_white pos in
-        let pos =
-          if s.[pos] = '<'
-          then find_non_white (skip_comment (pos+1))
-          else pos
-        in
         if s.[pos] = '='
         then
           let qpos = pos+1 in
@@ -355,11 +335,6 @@ let parse v s =
       in
 
       let pos = find_non_white pos in
-      let pos =
-        if s.[pos] = '<'
-        then find_non_white (skip_comment (pos+1))
-        else pos
-      in
       if s.[pos] = '>'
       then
         accu, pos+1, false
-- 
2.11.4.GIT