如何访问 REBOL 标头？

【问题标题】：How do I access the REBOL header?如何访问 REBOL 标头？
【发布时间】：2009-02-12 05:41:25
【问题描述】：

假设我在另一个文件 (imported.r) 中有一个 REBOL 脚本，如下所示：

REBOL [
    作者：{格雷格}
    标题：{很棒的 REBOL 代码}
]
×：3

如何将此文件导入另一个脚本并访问 REBOL 标头的内容？我知道load/header，但我似乎无能为力。

imported: context load/header %imported.r

我现在该怎么做才能以object! 的形式访问imported.r 的标头？

【问题讨论】：

标签： rebol

【解决方案1】：

LOAD/HEADER 为您提供了一段代码，您可以通过 PROBEing 它返回的内容来查看。它包含用于构建标头对象的未评估源，然后是脚本的其余部分。

创建一个对象！从该标头代码中，一种方法是

>> set [header script] do/next load/header %imported.r
>> header/title 
== "Some script title"

或者，如果您只需要标头对象，则只需

>> header: first do/next load/header %imported.r
>> header/title 
== "Some script title"

这使您可以通过 HEADER 和 SCRIPT 块中的脚本代码访问对象，因为 DO/NEXT 仅计算第一个表达式并返回表达式的结果以及该计算后代码块中的位置。

【讨论】：