6

您好我需要修改以下OMeta PEG ：

using OMetaSharp;
using System.Collections;
using System.Text;

ometa SExpression.GeneratedCode.SExpressionParser : Parser {
    SExpression = Spaces Atom:a Spaces -> { a }
                | Spaces List:l Spaces -> { l.As<SExprList>() },


    EscapeChar  = '\\' Character:c          -> { c },

    Atom        = String:s -> { new SExprAtomString(s.ToString()) }
                | Number:n -> { new SExprAtomNumber(n.ToString()) }
                | Symbol:sy -> { new SExprAtomSymbol(sy.ToString()) },

    Symbol      = FirstAndRest("Letter", "LetterOrDigit") | '+' | '-' | '*' | '/' | '^',

    String      = '"' (EscapeChar | ~'"' Character)*:s '"'  -> { s },

    Number      = Digit+,

    List        = '(' SExpression*:xs ')' -> { new SExprList(xs.ToIEnumerable<ISExpression>()) }
}

支持符号，包括下划线和点字符。Numbers中也应该支持点。

我尝试使用以下产品（取自原始Ometa#站点）修改Number规则，但在生成SExpression解析器时会出现运行时错误：

Number = Number:n Digit:D           -> (n * 10 + d)
         | Digit,

这似乎也不起作用：

Number      = Digit+
            | Digit+ '.' Digit+,

在这种情况下，我能够生成解析器，但是当我尝试解析类似0.25.

我还编写了这些规则以允许解析下划线（和点）丰富的符号，但它也不起作用：

Atom        = Sub:s                                     -> { new SExprAtomString(s.ToString()) }
            | Number:n                                  -> { new SExprAtomNumber(n.ToString()) }
            | Symbol:sy                                 -> { new SExprAtomSymbol(sy.ToString()) },

Sub         = String
            | String '_' String
            | String '.' String,

我试图解析的表达式如下：

(fp_text value V23105 (at -2 0 180) (layer FSilkS) hide
    (effects (font (size 1 1) (thickness 0.25)))
)

解析这个的异常总是这个：

在此处输入图像描述

没有堆栈跟踪:-(。

4

0 回答 0