как пропустить все одно- и многострочные комментарии в парсе :: рекурсивный парсер

Question

В Parse :: RecDescent, как я могу эффективно игнорировать комментарии в стиле C++/Java? Это включает в себя однострочный ('//' до конца строки) и многострочный (/ все здесь /).

Answer 1

<skip> определяет, что анализатор рассматривает пробелы.

parse: <skip: qr{(?xs: 
      (?: \s+      # Whitespace 
      | /[*] (?:(?![*]/).)* [*]/ # Inline comment 
      | // [^\n]* \n?    # End of line comment 
     ) 
     )*}> 
     main_rule 
     /\Z/ 
     { $item[2] } 

В отличие от решения Nate Гленна, мой

• Не устанавливает глобальную переменную, затрагивающей все парсеры.
• Не использует ненужные захваты.
• Не использует неживой модификатор. (Он использовал нежадное модификатор, чтобы убедиться, некоторые символы не совпадает в некоторых местах, но не жадный модификатор не гарантирует, что.)

---

Примечание: (?:(?!STRING).)* является (?:STRING), как [^CHAR] - CHAR.

Answer 2

Вы должны установить значение $Parse::RecDescent::skip. По умолчанию Parse :: RecDescent пропускает все пробелы. Если вы установите эту переменную в соответствие пробелам и комментариям, вы можете пропустить их. Используйте это:

$Parse::RecDescent::skip = 
    qr{ 
     (
      \s+     #whitespace 
       |    #or 
      /[*] .*? [*]/ \s* #a multiline comment 
       |    #or 
      //.*?$    #a single line comment 
     )*      #zero or more 

    }mxs; 
# m allows '$' to match a newline, x allows regex comments/whitespace, 
# s allows '.' to match newlines.