First investigation for Red using RakuAST

test-rakuast.raku

#!/usr/bin/env raku

use v6.e.PREVIEW;

# Bla.^all.map: { $_ + 1 };
say [1,2,3].map: { $_ + 1 };

CHECK {
    sub translate-rakuast-to-redast($raku) {
        return RakuAST::IntLiteral.new: 42
    }

    for $*CU.grep: { $_ ~~ RakuAST::Call::Method && .name.canonicalize eq any <map grep first> } -> $ast {
        $ast.args.push: RakuAST::ColonPair::Value.new(
            key   => "red-ast",
            value => RakuAST::Circumfix::Parentheses.new(
                RakuAST::SemiList.new(
                    RakuAST::Statement::Expression.new(
                        expression => translate-rakuast-to-redast($ast.args[0])
                    )
                )
            )
        );
        say $ast.DEPARSE;
    }
    #exit
}