Парсинг комментариев с PetitParser в Pharo

Question

Есть ли более простой способ разбора однострочных комментариев, чем этот?

comment
    ^ '//' asParser ,
      (#any asParser starLazy: (#newline asParser)) ,
      #newline asParser
                  ==> [ :result | nil "Ignore comments" ]
program
    ^ (comment / instruction) star
        ==> [ :result | N2TProgramNode new
                                setNodes: (result copyWithout: nil) ]

Я особенно не уверен насчет повторения (#newline asParser) и #copyWithout:.

После ответа Лукаса я нашел гораздо более простое решение:

program
    ^ programEntity star
        ==> [ :result | N2TProgramNode new setNodes: result]

programEntity
    ^ instruction trim: ignorable

ignorable
    ^ comment / #space asParser

comment
    ^ '//' asParser ,  #newline asParser negate star

Answer 1

Почему не работает следующий парсер комментариев?

'//' asParser , #newline asParser negate star

Также вы можете включить анализ комментариев в анализ пробелов с помощью trim: (если это позволяет грамматика), так что вам не нужно постоянно думать об этом.