masak

$ cat array_star 
my @a; say @a[+*]
$ perl STD5_dump_match array_star
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.
Use of uninitialized value in numeric eq (==) at DumpMatch.pm line 62.

masak

        if defined $link_maker {
            my $link_regex = / '[[' (<-[\]]>+) ']]' /; # /
            while $result ~~ $link_regex {
                $result .= subst( $link_regex, { $link_maker($0) } );
            }
        }

masak

$ cat grammar-semicolon 
grammar A {
}

say "OH HAI";
$ perl6 grammar-semicolon 
OH HAI

masak

      A     B     C     D     E     F     G     H                          
   +-----+-----+-----+-----+-----+-----+--+-----+--+  
 8 |                                     /| h h |  | 8
   |                                    /||+-----+ |                       
   +     +     +     +     +     +     /||/| h h | +                       
 7 |                                   ||/|| h h | | 7                     
   |                                   |/||+-----+ |                       
   +     +     +     +     +     +     /-|/-----/  +                       
 6 |                                     /| h h |  | 6                     
   |                                    /|| h h |  |      

masak

$ cat CGI.pm # the one we compile
use v6;
use URI;

class CGI {
    has URI $.uri;
}

$ cat URI.pm
use v6;

masak

$ svn co http://svn.pugscode.org/pugs/
[...]
A    pugs/v6/smop/m0ld/m0ld.cabal
A    pugs/v6/smop/m0ld/m0ld_boilerplate_back
svn: In directory 'pugs/v6/smop/m0ld'
svn: Can't copy 'pugs/v6/smop/m0ld/.svn/tmp/text-base/m0ld.hs.svn-base' to 'pugs/v6/smop/m0ld/.svn/tmp/m0ld.hs.tmp.tmp': No such file or directory
$ 

masak

$ make lua
../../parrot ../../runtime/parrot/library/PGE/Perl6Grammar.pir --output=src/lua51_gen.pir src/lua51.pg
../../parrot ../../compilers/tge/tgc.pir --output=src/PASTGrammar_gen.pir src/PASTGrammar.tg
../../parrot ../../compilers/tge/tgc.pir --output=src/POSTGrammar_gen.pir src/POSTGrammar.tg
perl -i.bak -pe "s|'PAST::|'PAST;|" src/POSTGrammar_gen.pir
../../parrot -o lua.pbc --output-pbc lua.pir
make: *** [lua.pbc] Bus error

masak

ScriptAlias /wiki/ /Users/masak/november/p6w/

<Directory /Users/masak/november/p6w>
  Allow from all
  Options +ExecCGI
  SetHandler cgi-script
</Directory>

masak

sub put($sky, $row, $column, $char) {
    return $sky unless 0 <= $row <= 24 && 0 <= $column <= 79;
    my $pos = 80 * $row + $column;
    return $sky.substr(0,$pos) ~ $char ~ $sky.substr($pos+1);
}

my $empty_sky = (' ' x 79 ~ "\n") x 24;

my $n = 20;

masak

Vi har varit flitiga under januaris första vecka och skrivit nästan
ett helt kapitel i boken "Extending Bioclipse". Snart är vi framme
vid de sakerna som vi själva tycker är intressanta. En i stort sett
komplett lista med kapitel finns också.

Håll till godo! Commitbit till SVN-repot delas villigt ut.

// Carl