用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:的重复。

在Lukas的回答之后，我想出了一个简单得多的解决方案：

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:的空白解析中(如果语法允许的话)，所以您不必一直考虑它。