tadzik

weechat::register("think", "tjs", "0.1", "GPL3", ".o O ( think )", "", "");

weechat::hook_command("think", "Think", "", "", "", "think", ""); 

sub think {
    my (undef, $buffer, @args) = @_;
    weechat::command($buffer, ". o O ( " . $args[0] . " )", $channel);
    return weechat::WEECHAT_RC_OK;
}

tadzik

┌─[tadzik@yavin]─[~] 
└─[%]─> cat json-bug.pl 
my $json = '{"foo":[]}';
my ($tiny, $fast);
{
    use JSON::Tiny;
    $tiny = from-json $json;
}
{
    use JSON::Fast;

tadzik

$ cat jsontest 
use JSON::Tiny;


my $list = from-json slurp 'projects.json.bootstrap';
say $list.elems;
say $list.perl;
$ rakudobrew current
Currently running moar-HEAD
$ perl6 -I ext/JSON__Tiny/lib/ jsontest 

tadzik

MODULE_DEBUG: loading /home/tadzik/.rakudobrew/parrot-HEAD/install/lib/5.9.0-devel/languages/nqp/lib/Perl6/BOOTSTRAP.pbc
MODULE_DEBUG: done loading /home/tadzik/.rakudobrew/parrot-HEAD/install/lib/5.9.0-devel/languages/nqp/lib/Perl6/BOOTSTRAP.pbc
MODULE_DEBUG: loading /home/tadzik/src/github.com/tadzik/panda/ext/Shell__Command/lib/Shell/Command.pm
MODULE_DEBUG: loading /home/tadzik/src/github.com/tadzik/panda/HEREPANDA/lib/File/Find.pir
MODULE_DEBUG: done loading /home/tadzik/src/github.com/tadzik/panda/HEREPANDA/lib/File/Find.pir
MODULE_DEBUG: done loading /home/tadzik/src/github.com/tadzik/panda/ext/Shell__Command/lib/Shell/Command.pm
MODULE_DEBUG: loading /home/tadzik/src/github.com/tadzik/panda/lib/Panda.pm
MODULE_DEBUG: loading /home/tadzik/src/github.com/tadzik/panda/lib/Panda/Ecosystem.pm
MODULE_DEBUG: loading /home/tadzik/src/github.com/tadzik/panda/lib/Panda/Project.pm
MODULE_DEBUG: done loading /home/tadzik/src/github.com/tadzik/panda/lib/Panda/Project.pm

tadzik

==> Testing NativeCall
t/01-argless.t ......... java.lang.UnsatisfiedLinkError: Unable to load library './01-argless.so': Native library (linux-x86-64/./01-argless.so) not found in resource path ([file:/home/tadzik/.rakudobrew/jvm-HEAD/install/languages/perl6/runtime/, file:/home/tadzik/.rakudobrew/jvm-HEAD/install/languages/perl6/lib/, file:/home/tadzik/.rakudobrew/jvm-HEAD/install/languages/nqp/lib/])
  in method postcircumfix:<( )> at lib/NativeCall.pm6:121
  in any  at gen/jvm/BOOTSTRAP.nqp:1680
  in any  at gen/jvm/BOOTSTRAP.nqp:1663
  in block  at t/01-argless.t:13

t/01-argless.t ......... Dubious, test returned 1 (wstat 256, 0x100)
Failed 3/3 subtests 
t/02-simple-args.t ..... java.lang.UnsatisfiedLinkError: Unable to load library './02-simple-args.so': Native library (linux-x86-64/./02-simple-args.so) not found in resource path ([file:/home/tadzik/.rakudobrew/jvm-HEAD/install/languages/perl6/runtime/, file:/home/tadzik/.rakudobrew/jvm-HEAD/install/languages/perl6/lib/, file:/home/tadzik/.rakudobrew/j

tadzik

weechat::register("banantalk", "tjs", "0.2", "MIT", "Talk like banan", "", "");

weechat::hook_command("banantalk", "talk like banan", "", "", "", "banantalk", "");

sub banantalk {
    my (undef, $buffer, @args) = @_;
    my @args2 = split /\s/, $args[0];

    while (@args2) {
        my @tmp = splice(@args2, 0, int(rand(2))+2);

tadzik

socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP) = 10
[pid 12633] connect(10, {sa_family=AF_INET6, sin6_port=htons(80), inet_pton(AF_INET6, "2a02:2308:10::c:19", &sin6_addr), sin6_flowinfo=0, sin6_scope_id=0}, 28) = 0
[pid 12633] getsockname(10, {sa_family=AF_INET6, sin6_port=htons(38783), inet_pton(AF_INET6, "2001:6a0:200:375::2", &sin6_addr), sin6_flowinfo=0, sin6_scope_id=0}, [28]) = 0
[pid 12633] close(10)                   = 0
[pid 12633] socket(PF_INET6, SOCK_STREAM|SOCK_CLOEXEC|SOCK_NONBLOCK, IPPROTO_IP) = 10
[pid 12633] connect(10, {sa_family=AF_INET6, sin6_port=htons(80), inet_pton(AF_INET6, "2a02:2308:10::", &sin6_addr), sin6_flowinfo=0, sin6_scope_id=177}, 28) = -1 EINPROGRESS (Operation now in progress)
(hangs here)

tadzik

Test Summary Report
-------------------
t/spec/S02-types/baghash.rakudo.jvm                        (Wstat: 0 Tests: 226 Failed: 1)
  Failed test:  72
t/spec/S02-types/isDEPRECATED.rakudo.jvm                   (Wstat: 0 Tests: 20 Failed: 0)
  TODO passed:   2, 4, 12
t/spec/S02-types/mixhash.rakudo.jvm                        (Wstat: 0 Tests: 191 Failed: 1)
  Failed test:  72
t/spec/S04-phasers/rvalue.rakudo.jvm                       (Wstat: 0 Tests: 16 Failed: 0)
  TODO passed:   10-12

tadzik

┌─[tadzik@yavin]─[~/src/github.com/rakudo/rakudo] (nom)
└─[%]─> make release VERSION=2014.03
echo MANIFEST >MANIFEST
git ls-files | /home/tadzik/.plenv/versions/5.18.1/bin/perl5.18.1 -ne '/^\./ || print' >>MANIFEST
cd t/spec && git clean -xdf
find t/spec -type f | grep -v '\.git' >>MANIFEST
make: *** [manifest] Error 1

tadzik

use Steroids;

class Game is Steroids::Game {
    has $!ludek;

    method create {
        self.load_bitmap('background', 'background.bmp');
        self.load_bitmap('ludek', 'ludek.bmp');
        self.add_sprite('background', 0, 0);
        $!ludek = self.add_sprite('ludek', 50, 450);