This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SMOP__Mold_create(11,(SMOP__Object*[]) {SMOP__NATIVE__int_create(0),SMOP__NATIVE__int_create(1),SMOP__NATIVE__idconst_createn("FETCH",5),SMOP__NATIVE__idconst_createn("exists",6),SMOP__NATIVE__idconst_createn("goto",4),SMOP__NATIVE__idconst_createn("lookup",6),SMOP__NATIVE__idconst_createn("lookup_fail",11),SMOP__NATIVE__idconst_createn("outer",5),SMOP__NATIVE__idconst_createn("positional",10),SMOP__NATIVE__idconst_createn("postcircumfix:{ }",17),SMOP__NATIVE__idconst_createn("setr",4),SMOP__NATIVE__idconst_createn("true",4),NULL},97,(int[]) {1,15,12,8,1,1,0,1,16,12,8,1,0,0,1,17,16,3,1,15,0,4,17,25,46,1,19,16,9,1,15,0,1,18,13,10,1,19,0,1,18,14,4,1,13,0,1,20,16,7,0,0,1,21,20,11,0,0,1,22,20,2,0,0,4,21,68,89,1,19,22,5,1,15,0,1,18,13,10,1,19,0,1,18,14,4,1,13,0,1,18,16,6,1,15,0,0}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $capture; | |
my $back; | |
my $interpreter; | |
my $name = $capture."positional"(1); | |
my $invocant = $capture."positional"(0); | |
my $exists = $invocant."exists"($name); | |
my $void; | |
my $ret; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
grammar XML::SAX; | |
token TOP { | |
^ | |
<startDocument> | |
<element> | |
<endDocument> | |
$ | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
OUTPUT | |
# The Perl object is blessed into 'CLASS', which should be a | |
# char* having the name of the package for the blessing. | |
O_OBJECT | |
void*[] pointers = malloc(2 * sizeof(void*)); | |
pointers[0] = (void*)$var; | |
pointers[1] = (void*)my_perl; | |
sv_setref_pv( $arg, CLASS, (void*)pointers ); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
grammar MyApp { | |
token TOP { | |
( <public> | <auth> ) | |
( ( "/json" $ { c.forward("View::JSON") } ) | | |
{ c.forward("View::HTML") } | |
) | |
} | |
token public { | |
<main> | | |
<about> | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl6 | |
sub compare-cell($other, $this) { | |
if ($other ~~ Array) { | |
return 0; | |
} else { | |
return $other == $this; | |
} | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Program received signal SIGSEGV, Segmentation fault. | |
0xf68e64d3 in from_num () from /home/ruoso/devel/rakudo/install/lib/parrot/3.11.0-devel/dynext/nqp_bigint_ops.so | |
(gdb) bt | |
#0 0xf68e64d3 in from_num () from /home/ruoso/devel/rakudo/install/lib/parrot/3.11.0-devel/dynext/nqp_bigint_ops.so | |
#1 0xf68ec72b in Parrot_nqp_bigint_from_num_p_n_p () from /home/ruoso/devel/rakudo/install/lib/parrot/3.11.0-devel/dynext/nqp_bigint_ops.so | |
#2 0xf7eab6ec in runops_fast_core (interp=0x8053028, runcore_unused=0x80e5200, pc=0x0) at src/runcore/cores.c:503 | |
#3 0xf7eab536 in runops_int (interp=0x8053028, offset=746437) at src/runcore/main.c:220 | |
#4 0xf7e9296d in runops (interp=0x8053028, offs=746437) at src/call/ops.c:126 | |
#5 0xf7e8e0f3 in Parrot_pcc_invoke_from_sig_object (interp=0x8053028, sub_obj=0xc2f98d4, call_object=0xa42fee8) at src/call/pcc.c:338 | |
#6 0xf68b65f7 in Parrot_bind_signature () from dynext/perl6_ops.so |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
OLD=HEAD | |
for I in $(git tag | perl -e 'print join "\n", reverse <STDIN>') | |
do | |
if | |
[ "x$OLD" == "x$I" ] | |
then | |
echo "Changelog" | |
else | |
git log -n1 --format="$OLD -- %aD" $OLD |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ ./perl6 -e 'say any(1..5)' | |
Unhandled exception: Method 'backtrace' not found | |
in print_exception | |
in <anon> | |
in command_eval | |
in command_eval | |
in command_line | |
in MAIN | |
in | |
in |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ ./perl6 --ll-exception -e 'say any(1..5)' | |
Method 'postcircumfix:<( )>' not found | |
in | |
in | |
in infix:<cmp> | |
in infix:<cmp> | |
in reify | |
in | |
in reify | |
in |
OlderNewer