Rebol 2:使用解析规则在不执行代码的情况下检查输入

Question

假设您有一个类似Rebol文档中关于解析的规则。

如果你想对照规则检查一些输入，只是为了验证它，但不需要评估括号的内容，你该怎么做？

有没有一种方法可以让您轻松地根据规则验证输入，而无需评估括号的内容？

rule: [
    set action ['buy | 'sell]
    set number integer!
    'shares 'at
    set price money!
    (either action = 'sell [
            print ["income" price * number]
            total: total + (price * number)
        ] [
            print ["cost" price * number]
            total: total - (price * number)
        ]
    )
]

Answer 1

好吧，您可以从规则中删除parens:

unparen: func [b [block!]][forall b [case [
    paren! = type? b/1 [remove b] block! = type? b/1 [unparen b/1]]] head b]
new-rule: unparen copy/deep rule

然后可以使用新规则进行解析。

然而，我担心这仍然违反了你的"轻松"要求！

而且它不处理嵌套的规则引用。

顺便说一句，理论上你的问题没有答案。例如，括号中的代码可能正在更改规则。

Answer 2

取决于您是指解析输入还是解析规则。

对于解析规则，您需要一些特殊的标志和函数来处理它：

do?: true
parse-do: function [code] [if do? [do code]]
rule: ['a (parse-do [print "got it"])]
parse [a] rule
do?: false
parse [a] rule

对于解析输入，使用INTO:

>> parse [paren (1 + 1)]['paren into [integer! '+ integer!]]
== true