J in Raku (and Perl)

j.raku

#!/usr/bin/env raku

use NativeCall;

class J is repr('CPointer') {

    my constant $BIN = "/opt/j903/bin";
    my constant $LIB = "$BIN/libj.so";
    my constant $PRO = "$BIN/profile.ijs";
    
    sub JInit ()       returns J      is native($LIB) { * }
    sub JDo   (J, Str) returns uint32 is native($LIB) { * }
    sub JGetR (J)      returns Str    is native($LIB) { * }

    method new() {
        my $j = JInit();
        $j.do("0!:0<'$PRO'[BINPATH_z_=:'$BIN'[ARGV_z_=:''");
        return $j;
    }
    method do(Str \c) {
        JDo(self, c)
    }
    method getr() {
        JGetR(self)
    }
}

my $j = J.new;

loop {
    my $expr = prompt('   ');
    $j.do($expr);  # returns 0 on success
    print $j.getr();
}

Now a Raku module: Inline::J