smalltalk - 在 Pharo 中使用 PetitParser 解析注释

Question

有没有比这更简单的方法来解析 1 行注释？

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:（如果语法允许的话），因此您不必一直考虑它。