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

Question

这与关于访问POD的这个问题有关,但它远不止于此.您可以使用以下命令轻松访问Perl 6程序的抽象语法树:

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

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

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();