abstract-syntax-tree - 从另一个程序获取 Perl 6 文件的 QAST

Question

这与this question on accesing the POD有关，但它更进一步。您可以 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();