OMeta下划线和点

Question

您好我需要修改以下 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>()) }
}

支持符号，包括下划线和点字符。还应在数字中支持点。

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

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

这似乎也不起作用：

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

在这种情况下，我能够生成解析器但是当我尝试解析像0.25这样的东西时，我得到了一个 OMeta 异常。

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

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)))
)

解析它的异常总是这样：

没有堆栈跟踪： - （。