FROGGS

#!/bin/bash

~/dev/make_moar && ~/dev/make_nqp && ~/dev/make_rakudo

FROGGS

diff --git a/src/spesh/log.c b/src/spesh/log.c
index ac1dafa..241b1d9 100644
--- a/src/spesh/log.c
+++ b/src/spesh/log.c
@@ -58,7 +58,7 @@ void MVM_spesh_log_add_logging(MVMThreadContext *tc, MVMSpeshGraph *g, MVMint32
             case MVM_OP_getlex_no:
             case MVM_OP_getattr_o:
             case MVM_OP_getattrs_o:
-            case MVM_OP_getlexstatic_o:
+            //~ case MVM_OP_getlexstatic_o:

FROGGS

use NativeCall;

class b2Vec2 is repr<CStruct> {
    has num32 $.x;
    has num32 $.y;
}

class b2World is repr<CPPStruct> {
    has OpaquePointer $.data;
    method new(b2Vec2)  is symbol<b2World::new>   is native("libBox2D") { * }

FROGGS

use v6;
use NativeCall;
use Test;

class b2Vec2 is repr<CStruct> { }

my role NativeCallSymbol[Str $name] {
    method native_symbol()  { $name }
}

FROGGS

PERL6LIB=lib prove -e perl6-m t/*.t
t/01-argless.t ......... ok   
t/02-simple-args.t ..... ok     
t/03-simple-returns.t .. ok   
t/04-pointers.t ........ ok     
t/05-arrays.t .......... 1/20 
# Failed test 'int in struct in element 0'
# at t/05-arrays.t line 50
# expected: '2'
#      got: '876148073976299522'

FROGGS

[
    [
        {
            "CompUnitRepo::Local::Installation" : {
                "perl" : "/home/froggs/dev/nqp/install/languages/perl6"
            }
        },
        {
            "CompUnitRepo::Local::Installation" : {
                "vendor" : "/home/froggs/dev/nqp/install/languages/perl6/vendor"

FROGGS

diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index c570f57..253a648 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -4734,11 +4734,39 @@ class Perl6::Actions is HLL::Actions does STDActions {
 
     method circumfix:sym<( )>($/) {
         my $past := $<semilist>.ast;
+        my @args;
+        # look for any chained adverb pairs

FROGGS

$ perl6-m --ll-exception -e 'sub a is export { "foo" }; say &EXPORT::ALL::a()'
foo
$ perl6-m --ll-exception -e 'sub a is export { "foo" }; say &EXPORT::ALL::a'
sub a () { #`(Sub|83431696) ... }
$ perl6-m --ll-exception -e 'sub a is export { "foo" }; say EXPORT::ALL::a'
(Any)

FROGGS

use v6;

grammar IETF::RFC_Grammar::IPv6 {
    token IPv6address       {
                                                [ <.h16> ':' ] ** 6 <.ls32> |
                                           '::' [ <.h16> ':' ] ** 5 <.ls32> |
        [                        <.h16> ]? '::' [ <.h16> ':' ] ** 4 <.ls32> |
        [ [ <.sep_h16> ]?        <.h16> ]? '::' [ <.h16> ':' ] ** 3 <.ls32> |
        [ [ <.sep_h16> ] ** 0..2 <.h16> ]? '::' [ <.h16> ':' ] ** 2 <.ls32> |        
        [ [ <.sep_h16> ] ** 0..3 <.h16> ]? '::' <.h16> ':'          <.ls32> |

FROGGS

use feature qw(say);
use MIME::Base64;
use Digest::SHA1 qw(sha1);
use Digest::HMAC qw(hmac);

# Calculates Pseudorandom SHA1 as defined in http://tools.ietf.org/html/rfc5246 (5.  HMAC and the Pseudorandom Function)
sub psha1 {
    my $secret  = shift;
    my $seed    = shift;
    my $keySize = shift || 256;