rebol - 如何使用其字符串名称调用对象函数

Question

知道以下为什么不起作用吗？ (R3)

o: make object! [
    foo: does [do "bar"]
    bar: does [print "hello from bar"]
]

o/foo
** Script error: bar has no value
** Where: catch either -apply- do foo
** Near: catch/quit either var [[do/next data var]] [data]

Answer 1

试试这个:

o: make object! [
    foo: does [do get bind load "bar" self]
    bar: does [print "hello from bar"]
]
o/foo ;this will work

您需要绑定(bind)，因为您的“栏”存在于对象中，而不是全局范围内。

也检查一下:

my-func: does [print "ok"]
o: make object! [
    foo: does [do "my-func"]
    bar: does [print "hello from bar"]
]
o/foo ;this will work too

您需要加载它，因为它是一个字符串，但它必须是一个单词才能被绑定(bind)。所以这些也可以工作(把它们放在你的对象中):

do get bind to-word "bar" self

或

do get bind 'bar self