# New Ticket Created by chromatic
# Please include the string: [perl #39669]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=39669 >
I've been playing with embedding Parrot and trying to pass arbitrary PIR code
to the embedded interpreter. The easiest approach I've found so far is to
create a small eval.pbc file that takes one argument in argv as PIR code to
eval and execute.
(There should really be easier approaches, but I digress.)
Unfortunately, it appears that there is no PIR compiler available to embedded
Parrot. I'll check in a test to t/src/extend.t as soon as I get a bug number
here. My PIR code is:
.sub main :main
.param pmc argv
.local int argc
.local pmc compiler
compiler = compreg 'PIR'
.local string code
code = argv[1]
.local pmc new_sub
new_sub = compiler( code )
new_sub()
.end
-- c
