Parrot Parrot Compiler Toolkit #61

Inline PIR ( Q:PIR {...} )

Q:PIR { load_bytecode 'PGE.pbc' };

my $name := 'Fred';
my @chars := Q:PIR {
        $P0 = find_lex '$name'
        $S0 = $P0
        %r = split '', $S0
    };
for @chars { say($_) }
Q:PIR {{
    print "\x{ab}Hello\x{bb}"
}}
Copyright © 2009
http://www.pmichaud.com/2009/pres/