masak

<p>Sometimes I read parts of <code>_why</code>'s <a
href="http://poignantguide.net/ruby/">Poignant Guide to Ruby</a>, and marvel at
the inimitable writing style, the pedagogical comics, and the balance between
explanations and, uh, story. But the other day I read <a
href="http://poignantguide.net/ruby/expansion-pak-1.html">The Tiger's Vest</a>,
and I realized that we in the Perl 6 community need to be really envious about
two things in Ruby, otherwise we're not going provide good enough versions of
these two things ourselves.</p>

<p>Actually, I'm not sure we need Envy to do this. It might be that this falls

masak

1. A bot may not bother a human user or, through inaction, allow a human user
   to become bothered.
2. A bot must obey commands given to it by human users, except where such
   commands would conflict with the First Law.
3. A bot must protect its own existence as long as such protection does not
   conflict with the First or Second Law.

masak

kaye:parrot masak$ perl Configure.pl 
Parrot Version 0.4.13 Configure 2.0
Copyright (C) 2001-2007, The Perl Foundation.

Hello, I'm Configure. My job is to poke and prod your system to figure out
how to build Parrot. The process is completely automated, unless you passed in
the `--ask' flag on the command line, in which case it'll prompt you for a few
pieces of info.

Since you're running this program, you obviously have Perl 5--I'll be pulling

masak

    say .substr(4) for split "\n", '
    Druid. Implementation © Carl Mäsak 2008-2009. Rules © Cameron Browne.

    Usage:
        % perl6 druid [switches]

        --size=<size>       Give the board a size between 3 and 26.
        --computer=[1|2]    The computer controls player one or two.
        --help              Display this help text.
    ';

masak

$ make spectest
../../parrot  perl6.pbc --target=pir --output=Test.pir Test.pm
cd t/spec && svn up
U    S29-list/map.t
U    S29-list/join.t
U    S29-list/end.t
U    S29-list/pick.t
U    S29-list/reduce.t
U    S29-list/sort.t
U    S29-list/minmax.t

masak

PS(1)                     BSD General Commands Manual                    PS(1)

NAME
     ps -- process status

SYNOPSIS
     ps [-AaCcEefhjlMmrSTvwXx] [-O fmt | -o fmt] [-G gid[,gid...]]
        [-g grp[,grp...]] [-u uid[,uid...]] [-p pid[,pid...]]
        [-t tty[,tty...]] [-U user[,user...]]
     ps [-L]

masak

$ perl Configure.pl 
$ make
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl generate perl6str objectref perl6scalar mutablevar perl6multisub
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl compile perl6str objectref perl6scalar mutablevar perl6multisub
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl linklibs perl6str objectref perl6scalar mutablevar perl6multisub
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl copy --destination=/Users/masak/work/hobbies/parrot/runtime/parrot/dynext perl6str objectref perl6scalar mutablevar perl6multisub
../../parrot  -o perl6.pbc perl6.pir
error:imcc:syntax error, unexpected VAR, expecting '(' ('sub')
	in file 'src/builtins/guts.pir' line 1071
	included from 'src/gen_builtins.pir' line 25

masak

16 rakudo$ make
../../parrot  /Users/masak/work/hobbies/parrot/runtime/parrot/library/PGE/Perl6Grammar.pbc \
	    --output=src/gen_grammar.pir \
	    src/parser/grammar.pg src/parser/grammar-oper.pg
../../parrot  /Users/masak/work/hobbies/parrot/compilers/nqp/nqp.pbc --output=src/gen_actions.pir \
	    --encoding=fixed_8 --target=pir src/parser/actions.pm
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl generate perl6str objectref perl6scalar mutablevar perl6multisub
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl compile perl6str objectref perl6scalar mutablevar perl6multisub
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl linklibs perl6str objectref perl6scalar mutablevar perl6multisub
cd src/pmc && perl /Users/masak/work/hobbies/parrot/tools/build/dynpmc.pl copy --destination=/Users/masak/work/hobbies/parrot/runtime/parrot/dynext perl6str objectref perl6scalar mutablevar perl6multisub

masak

$ git di
diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
index 092e1d2..5aab92c 100644
--- a/src/ops/perl6.ops
+++ b/src/ops/perl6.ops
@@ -14,7 +14,7 @@ inline op rebless_subclass(in PMC, in PMC) :base_core {
      * to re-bless it into. While we're at it, count the number of attributes
      * the current class has that the parent class does not. */
     PMC *current_class = VTABLE_get_class(interp, $1);
-    PMC *parent_list = VTABLE_inspect_str(interp, $2, const_string(interp, "all

masak

[user]
    name = Carl Masak
    email = [email protected]
[alias]
    st = status
    up = update
    ci = commit
    co = checkout
    di = diff