从另一个程序获取 Perl 6 文件的 QAST

Question

这与 this question on accesing the POD, but it goes further than that. You can easily access the Abstract Syntax Tree of a Perl 6 program 相关，使用：

perl6 --target=ast -e '"Þor is mighty!".say'

这将打印整个 Q 抽象语法树。不太清楚如何从您自己的程序中做到这一点，或者我还没有找到如何去做。事实上，the CoreHackers::Q module 将其作为外部脚本运行。但是能够从你自己的程序访问它，比如

use QAST; # It does not exist
my $this-qast = QAST::Load("some-external-file.p6") # Would want something like this

那就太好了。我很确定这应该是可能的，在 NQP 级别并且可能以依赖于 Rakudo 的方式。有人知道热吗？

Answer 1

由于 QAST 不是 Perl 6 语言规范的一部分，而是 Rakudo 的内部实现细节，因此没有官方方法可以做到这一点。最终会有一个 AST 形式作为语言规范的一部分，但目前还不存在（007 项目正在探索这个领域）。

但是，可以通过以下方式获得 QAST 树：

use nqp;
my $ast = nqp::getcomp("perl6").eval("say 42", :target<ast>);
say $ast.dump();

Obtaining the QAST of a Perl 6 file from another program