Jonathan Worthington jnthn
jnthn
/ gist:2815880
Created
May 27, 2012 20:57
This file contains hidden or 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
| diff --git a/src/binder/container.c b/src/binder/container.c | |
| index 1853ec8..70b297e 100644 | |
| --- a/src/binder/container.c | |
| +++ b/src/binder/container.c | |
| @@ -87,7 +87,7 @@ void Rakudo_cont_store(PARROT_INTERP, PMC *cont, PMC *value, | |
| if (!PMC_IS_NULL(scalar->descriptor)) { | |
| Rakudo_ContainerDescriptor *desc = ((Rakudo_ContainerDescriptor *)PMC_data(scalar->descriptor)); | |
| ok = STABLE(value_decont)->type_check(interp, value_decont, desc->of); | |
| - if (!ok) { | |
| + if (!ok && desc->of != Rakudo_types_mu_get()) { |
jnthn
/ gist:2623892
Created
May 6, 2012 19:11
This file contains hidden or 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
| diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm | |
| index 19c6a30..b1a8182 100644 | |
| --- a/src/Perl6/Grammar.pm | |
| +++ b/src/Perl6/Grammar.pm | |
| @@ -753,12 +753,12 @@ grammar Perl6::Grammar is HLL::Grammar { | |
| [ | |
| || <.spacey> <arglist> | |
| { | |
| - my $ast := $<arglist>.ast; | |
| + my $ast := $<arglist><EXPR>.ast; |
jnthn
/ gist:2551710
Created
April 29, 2012 16:30
This file contains hidden or 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
| use QRegex; | |
| sub qast_to_pir($qast) { | |
| my $post := QAST::Compiler.as_post($qast); | |
| my $pir := QAST::Compiler.pir($post); | |
| say($pir); | |
| } | |
| qast_to_pir(QAST::Block.new( | |
| QAST::Op.new( |
jnthn
/ gist:2518262
Created
April 28, 2012 11:39
This file contains hidden or 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
| use v6; | |
| multi trait_mod:<is>(Method $m, :$signal!){ | |
| #proto handle_call(|$) { * } | |
| multi handle_call(|$args){ | |
| say $m.WHAT; | |
| } | |
| $m.wrap(&handle_call); | |
| } |
jnthn
/ gist:2518235
Created
April 28, 2012 11:37
This file contains hidden or 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
| use v6; | |
| role Signal { | |
| has Method @.slots; # a nice list of callbacks (that are methods) | |
| method connect(Any $sender, Any $rcpt, Method $method){ | |
| @.slots.push([$sender, $rcpt, $method]); | |
| } | |
| } | |
| multi trait_mod:<is>(Method $m, :$signal!){ |
jnthn
/ gist:2518209
Created
April 28, 2012 11:33
This file contains hidden or 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
| use v6; | |
| role Signal { | |
| has Method @.slots; # a nice list of callbacks (that are methods) | |
| method connect(Any $sender, Any $rcpt, Method $method){ | |
| @.slots.push([$sender, $rcpt, $method]); | |
| } | |
| } | |
| multi trait_mod:<is>(Method $m, :$signal!){ |
jnthn
/ PREPOSTSubmethods.pm
Created
March 11, 2012 18:22
This file contains hidden or 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
| module EXPORTHOW { | |
| class class is Metamodel::ClassHOW is Mu { | |
| has $!has-pre; | |
| has $!has-post; | |
| method add_method(Mu $obj, $name, $meth) { | |
| callsame; | |
| if $meth ~~ Submethod { | |
| $!has-pre = 1 if $name eq 'PRE'; | |
| $!has-post = 1 if $name eq 'POST'; | |
| } |
jnthn
/ gist:2015984
Created
March 11, 2012 10:56
This file contains hidden or 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
| NMAKE : warning U4006: special macro undefined : '$<' | |
| C:\consulting\rakudo\install\bin\parrot.exe -o src\stage0\NQPHLL.pbc | |
| Missing program name | |
| parrot -[acEGhrtvVwy.] [-d [FLAGS]] [-D [FLAGS]] [-O [level]] [-[LIX] path] [-R | |
| runcore] [-o FILE] <file> <args> | |
| NMAKE : fatal error U1077: 'C:\consulting\rakudo\install\bin\parrot.exe' : retur | |
| n code '0x1' | |
| Stop. | |
| Command failed (status 512): nmake | |
| Command failed (status 512): C:\Perl64\bin\perl.exe Configure.pl --with-parrot=C |
jnthn
/ gist:2000101
Created
March 8, 2012 10:08
This file contains hidden or 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
| Microsoft (R) Program Maintenance Utility Version 10.00.30319.01 | |
| Copyright (C) Microsoft Corporation. All rights reserved. | |
| C:\Perl64\bin\perl.exe C:\consulting\rakudo\install\lib\parrot\4.1.0-devel\tools\build\pmc2c.pl --no-lines --dump --include src\pmc --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel\pmc src\pmc\stable.pmc | |
| C:\Perl64\bin\perl.exe C:\consulting\rakudo\install\lib\parrot\4.1.0-devel\tools\build\pmc2c.pl --no-lines --c --include src\pmc --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel\pmc src\pmc\stable.pmc | |
| cl -Isrc\pmc -nologo -GF -W4 -MD -Zi -DNDEBUG -Ox -GL -fp:precise -DWIN32 -D_CONSOLE -DNO_STRICT -DWIN64 -DCONSERVATIVE -DUSE_SITECUSTOMIZE -D_CRT_SECURE_NO_DEPRECATE -DHASATTRIBUTE_DEPRECATED -wd4101 -DHASATTRIBUTE_NORETURN -wd4101 -DDISABLE_GC_DEBUG=1 -DNDEBUG -wd4127 -wd4054 -wd4310 -IC:\consulting\rakudo\install\include\parrot\4.1 |
jnthn
/ gist:2000073
Created
March 8, 2012 10:02
This file contains hidden or 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
| Microsoft (R) Program Maintenance Utility Version 10.00.30319.01 | |
| Copyright (C) Microsoft Corporation. All rights reserved. | |
| C:\Perl64\bin\perl.exe C:\consulting\rakudo\install\lib\parrot\4.1.0-devel\tools\build\pmc2c.pl --no-lines --dump --include src\pmc --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel\pmc src\pmc\stable.pmc | |
| C:\Perl64\bin\perl.exe C:\consulting\rakudo\install\lib\parrot\4.1.0-devel\tools\build\pmc2c.pl --no-lines --c --include src\pmc --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel --include C:\consulting\rakudo\install\src\parrot\4.1.0-devel\pmc src\pmc\stable.pmc | |
| cl -Isrc\pmc -nologo -GF -W4 -MD -Zi -DNDEBUG -Ox -GL -fp:precise -DWIN32 -D_CONSOLE -DNO_STRICT -DWIN64 -DCONSERVATIVE -DUSE_SITECUSTOMIZE -D_CRT_SECURE_NO_DEPRECATE -DHASATTRIBUTE_DEPRECATED -wd4101 -DHASATTRIBUTE_NORETURN -wd4101 -DDISABLE_GC_DEBUG=1 -DNDEBUG -wd4127 -wd4054 -wd4310 -IC:\consulting\rakudo\install\include\parrot\4.1 |