Question

如果你想根据规则检查一些输入只是为了验证它，但没有评估括号的内容，你怎么能这样做？

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

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

Rebol 2：使用解析规则检查输入而不执行代码

2 个答案: