[modules] Disable HTML-like comments

src/parsing/scanner.cc

 // Copyright 2011 the V8 project authors. All rights reserved.
 // Use of this source code is governed by a BSD-style license that can be
 // found in the LICENSE file.
 
 // Features shared by parsing and pre-parsing scanners.
 
 #include "src/parsing/scanner.h"
 
 #include <stdint.h>
 
@@ skipping 24 matching lines @@
 
 // ----------------------------------------------------------------------------
 // Scanner
 
 Scanner::Scanner(UnicodeCache* unicode_cache)
     : unicode_cache_(unicode_cache),
       bookmark_c0_(kNoBookmark),
       octal_pos_(Location::invalid()),
       decimal_with_leading_zero_pos_(Location::invalid()),
       found_html_comment_(false),
+      allow_html_comments_(true),
       allow_harmony_exponentiation_operator_(false) {
   bookmark_current_.literal_chars = &bookmark_current_literal_;
   bookmark_current_.raw_literal_chars = &bookmark_current_raw_literal_;
   bookmark_next_.literal_chars = &bookmark_next_literal_;
   bookmark_next_.raw_literal_chars = &bookmark_next_raw_literal_;
 }
 
-
-void Scanner::Initialize(Utf16CharacterStream* source) {
+void Scanner::Initialize(Utf16CharacterStream* source,
+                         bool allow_html_comments) {
   source_ = source;
   // Need to capture identifiers in order to recognize "get" and "set"
   // in object literals.
   Init();
   // Skip initial whitespace allowing HTML comment ends just like
   // after a newline and scan first token.
   has_line_terminator_before_next_ = true;
+  allow_html_comments_ = allow_html_comments;
   SkipWhiteSpace();
   Scan();
 }
 
 template <bool capture_raw, bool unicode>
 uc32 Scanner::ScanHexNumber(int expected_length) {
   DCHECK(expected_length <= 4);  // prevent overflow
 
   int begin = source_pos() - 2;
   uc32 x = 0;
@@ skipping 247 matching lines @@
                  !IsLittleEndianByteOrderMark(c0_)) {
         break;
       }
       Advance();
     }
 
     // If there is an HTML comment end '-->' at the beginning of a
     // line (with only whitespace in front of it), we treat the rest
     // of the line as a comment. This is in line with the way
     // SpiderMonkey handles it.
-    if (c0_ == '-' && has_line_terminator_before_next_) {
+    if (c0_ == '-' && has_line_terminator_before_next_ &&
+        allow_html_comments_) {
       Advance();
       if (c0_ == '-') {
         Advance();
         if (c0_ == '>') {
           // Treat the rest of the line as a comment.
           SkipSingleLineComment();
           // Continue skipping white space after the comment.
           continue;
         }
         PushBack('-');  // undo Advance()
@@ skipping 152 matching lines @@
         token = ScanString();
         break;
 
       case '<':
         // < <= << <<= <!--
         Advance();
         if (c0_ == '=') {
           token = Select(Token::LTE);
         } else if (c0_ == '<') {
           token = Select('=', Token::ASSIGN_SHL, Token::SHL);
-        } else if (c0_ == '!') {
+        } else if (c0_ == '!' && allow_html_comments_) {
           token = ScanHtmlComment();
         } else {
           token = Token::LT;
         }
         break;
 
       case '>':
         // > >= >> >>= >>> >>>=
         Advance();
         if (c0_ == '=') {
@@ skipping 45 matching lines @@
         } else {
           token = Token::ADD;
         }
         break;
 
       case '-':
         // - -- --> -=
         Advance();
         if (c0_ == '-') {
           Advance();
-          if (c0_ == '>' && has_line_terminator_before_next_) {
+          if (c0_ == '>' && has_line_terminator_before_next_ &&
+              allow_html_comments_) {
             // For compatibility with SpiderMonkey, we skip lines that
             // start with an HTML comment end '-->'.
             token = SkipSingleLineComment();
           } else {
             token = Token::DEC;
           }
         } else if (c0_ == '=') {
           token = Select(Token::ASSIGN_SUB);
         } else {
           token = Token::SUB;
@@ skipping 1131 matching lines @@
     backing_store_.Add(static_cast<uint8_t>((one_byte_length >> 7) | 0x80u));
   }
   backing_store_.Add(static_cast<uint8_t>(one_byte_length & 0x7f));
 
   backing_store_.AddBlock(bytes);
   return backing_store_.EndSequence().start();
 }
 
 }  // namespace internal
 }  // namespace v8