Question

可以覆盖rebol系统字样，如print，make等，那么是否可以对路径操作符执行相同的操作？然后是什么语法？

Answer 1

你的意思是替换（说）....

print mold system/options

与（说）....

print mold system..options

....我用点点语法替换了REBOL的正斜杠？

简短回答：不。有些东西硬连线到解析器中。

Answer 2

另一种可能的方法是使用REBOL元编程功能并预处理您自己的代码以捕获路径访问并添加处理程序代码。这是一个例子：

apply-my-rule: func [spec [block!] /local value][
    print [
        "-- path access --" newline
        "object:" mold spec/1 newline
        "member:" mold spec/2 newline
        "value:" mold set/any 'value get in get spec/1 spec/2 newline
        "--"
    ]
    :value
]

my-do: func [code [block!] /local rule pos][
    parse code rule: [
        any [
            pos: path! (
                pos: either object? get pos/1/1 [
                    change/part pos reduce ['apply-my-rule to-block pos/1] 1
                ][
                    next pos
                ]
            ) :pos
            | into rule    ;-- dive into nested blocks
            | skip         ;-- skip every other values
        ]
    ]
    do code
]

;-- example usage -- 

obj: make object! [
    a: 5
]

my-do [
    print mold obj/a
]

这会给你：

-- path access --
object: obj
member: a
value: 5
--
5

另一种（更慢但更灵活）的方法也可以是将您的代码以字符串模式传递给预处理器，从而允许自己从任何REBOL特定语法规则中解放出来，如：

my-alternative-do {
    print mold obj..a
}

预处理器代码然后会发现所有..位置并更改代码以正确插入对“apply-my-rule”的调用，并最终运行代码：

do load code

在运行时处理和更改整个代码的程度没有实际限制（第一个示例的所谓“块模式”是最有效的方式）。

是否可以覆盖rebol路径运算符？

2 个答案: