masak

diff --git a/src/classes/IO.pir b/src/classes/IO.pir
index 2459c9c..aa4c77a 100644
--- a/src/classes/IO.pir
+++ b/src/classes/IO.pir
@@ -14,7 +14,7 @@ This file implements the IO file handle class.
 .sub '' :anon :init :load
     .local pmc p6meta
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    $P0 = p6meta.'new_class'('IO', 'parent'=>'Any', 'attr'=>'$!PIO')
+    $P0 = p6meta.'new_class'('IO', 'parent'=>'Any', 'attr'=>'$!PIO $!ins')

masak

$ git di
diff --git a/src/classes/IO.pir b/src/classes/IO.pir
index 2459c9c..de931b1 100644
--- a/src/classes/IO.pir
+++ b/src/classes/IO.pir
@@ -14,7 +14,7 @@ This file implements the IO file handle class.
 .sub '' :anon :init :load
     .local pmc p6meta
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    $P0 = p6meta.'new_class'('IO', 'parent'=>'Any', 'attr'=>'$!PIO')

masak

$ <installer ~/work/hobbies/parrot/languages/rakudo/perl6 -e 'while !$*IN.eof {\
  my $line = $*IN.readline; if $line ~~ / \# \ [XXX|TODO|RAKUDO] / { say \
  "== Line ", $*IN.ins; while $line ~~ / \# / { say $line; last if $*IN.eof;\
  $line = $*IN.readline; }; say ""; } }'
== Line 99
        # TODO: Maybe just test everything installed?

== Line 108
        # TODO: Also need to check that projects are actually installed.

masak

$ cat test-daemon 
use v6;
use HTTP::Daemon;
defined @*ARGS[0] && @*ARGS[0] eq '--request' ?? request() !! daemon();

# handle a single browser request, executed in a child process of netcat
sub request {
    my HTTP::Daemon $d .= new;
    while my HTTP::Daemon::ClientConn $c = $d.accept {
        while my HTTP::Request $r = $c.get_request {

masak

r9505 | carl_masak | 2009-03-30 18:27:31 +0200 (Mon, 30 Mar 2009) | 7 lines

[ScriptingConsoleView] fixed #566

Turns out we don't want to eat spaces as aggressively as we have done so far;
it screws up indentation. New rule is to eat only one space, and only when
it contributed to the breaking of a line. This matters so that we won't loop
infinitely; see added comment.

masak

$c.send_response(
    show {
        html {
            head { title { 'Druid' } }
            body {
                pre { $view }
                ul {
                    for $game.possible-moves() -> $move {
                        li {
                            a :href("?move=$move"), { $move }

masak

$ cd november

$ git log | grep ^Author | perl6n -e 'BEGIN { $*h = {} }; ++$*h{$_}; \
  END { say .value, "\t", .key for $*h.pairs }' | sort -rn
340	Author: Carl Masak <[email protected]>
316	Author: Ilya Belikin <[email protected]>
112	Author: Johan Viklund <[email protected]>
103	Author: Carl Masak <[email protected]>
29	Author: Ilya Belikin <[email protected]>
6	Author: Gabor Szabo <[email protected]>

masak

$ grep 'http://rt.perl.org/rt3/Ticket/Display.html' rt-bugs-2009-04-13.html |
  perl6n -e '$_ ~~ /\<td.*?\<td.*?\d+\"\> (<-[<]>+) .*? \<small\> (<-[<,]>+)/ \
  or next; say $1' |
  perl6n -e 'BEGIN { $*h = {} }; ++$*h{$_}; \
  END { say .value, "\t", .key for $*h.pairs }' | sort -nr
314	[email protected]
55	[email protected]
44	[email protected]
39	[email protected]
31	[email protected]

masak

$ diff -U2 make break
--- make	2009-04-14 13:59:54.000000000 +0200
+++ break	2009-04-14 14:00:04.000000000 +0200
@@ -1 +1 @@
-what did it make broken?
+what did it break?

masak

        my $invocant  := $( $/[0] );
        my $call      := $( $/[1] );

        # [...]

        # We only want to evaluate invocant once; stash it in a register.
        $call.unshift(PAST::Op.new(
            :pasttype('bind'),
            PAST::Var.new(
                :name('detemp'),