masak

diff --git a/proto b/proto
index 2f90ccb..ebfa71e 100755
--- a/proto
+++ b/proto
@@ -148,7 +148,7 @@ sub download_rakudo {
 
     print 'Downloading Perl 6...';
     if ( $config_info->{'Rakudo revision'} eq 'release' ) {
-        my $rakudo_release = '2009-02';
+        my $rakudo_release = '2009-03';

masak

------------------------------------------------------------ Kernel#trap
     Signal.trap( signal, proc ) => obj
     Signal.trap( signal ) {| | block } => obj
------------------------------------------------------------------------
     Specifies the handling of signals. The first parameter is a signal
     name (a string such as ``SIGALRM'', ``SIGUSR1'', and so on) or a
     signal number. The characters ``SIG'' may be omitted from the
     signal name. The command or block specifies code to be run when the
     signal is raised. If the command is the string ``IGNORE'' or
     ``SIG_IGN'', the signal will be ignored. If the command is

masak

$ perl6 -e 'my %seen; multi find-deps($file) { find-deps($file, 0) }; multi\
  find-deps($file, $ind) { say " " x $ind, $file; return if %seen{$file}++;\
  for lines($file) -> $line { if $line ~~ /^ \s* use \s+ (\w+[\:\: \w+]*) \;/ {\
  my $dep-file = [~] "lib/", $0.split("::").join("/"), ".pm"; next unless\
  $dep-file ~~ :f; find-deps($dep-file, $ind+4) } } }; find-deps("lib/November.pm")'
lib/November.pm
    lib/Session.pm
        lib/Config.pm
        lib/Utils.pm
    lib/CGI.pm

masak

----------------------------------------------------------- String#ljust
     str.ljust(integer, padstr=' ')   => new_str
------------------------------------------------------------------------
     If _integer_ is greater than the length of _str_, returns a new
     +String+ of length _integer_ with _str_ left justified and padded
     with _padstr_; otherwise, returns _str_.

        "hello".ljust(4)            #=> "hello"
        "hello".ljust(20)           #=> "hello               "
        "hello".ljust(20, '1234')   #=> "hello123412341234123"

masak

Ok, say I want the target(s) involved with compound 5555. You can follow
along at home by getting the files compounds.n3 activities.n3
assay2target.n3 target_dictionary.n3 from pele:/tmp/masak-can-haz-n3-files/.
Keep in mind that activities.n3 isn't complete.

$ grep -B4 MOLREGNO activities.n3 | grep -B4 'MOLREGNO         "5555"'
<star:activities/207697> a staro:ACTIVITIES;
    staro:ACTIVITY_ID      "1038792";
    staro:ASSAY_ID         "207697";
    staro:DOC_ID           "15844";

masak

How are you ? I guess you are fine and living good. my name is vivian a
beautiful young girl I find you and i'm interesting to know you and
establish a serious relationship with you. I wanna be your friend for first
friendship cannot be seen or even be touched, it must be felt within the
heart.Hoping you feel just the way i do. Wow! friends are like clothes
without them you feel naked!I  guess am right.I will tell you more about
me, my family and all that maybe necessary in this relationship, If this
is okay by you feel free to contact me as to enable us get to know each
other better. Have a wonderful day with lot of happiness.

masak

$ git di

diff --git a/S09-data.pod b/S09-data.pod
index fe8377f..a1eeece 100644
--- a/S09-data.pod
+++ b/S09-data.pod
@@ -1230,6 +1230,14 @@ returning C<Failure> when a lookup fails.  Note in partic
 autovivification is defined in terms of protoobjects rather than failure,
 it still works under "use fatal".
 

masak

$ git di
diff --git a/S09-data.pod b/S09-data.pod
index 1781a25..66c1450 100644
--- a/S09-data.pod
+++ b/S09-data.pod
@@ -1231,12 +1231,12 @@ autovivification is defined in terms of protoobjects rat
 it still works under "use fatal".
 
 This table solidifies the intuition that an operation pertaining to some data
-structure causes the protoobject to autivivify to such an object:

masak

            when $.lintel_move {
                # RAKUDO: Hoping these explicit int(...) conversions won't be
                #         necessary in the long run.
                my Int $row_1    = int($<coords>[0]<row_number> - 1);
                my Int $row_2    = int($<coords>[1]<row_number> - 1);
                my Int $column_1
                    = int(ord($<coords>[0]<col_letter>) - ord('a'));
                my Int $column_2
                    = int(ord($<coords>[1]<col_letter>) - ord('a'));

masak

$ ./proto update all
Updating november...updated
Updating html-template...updated
Building html-template...built
Building november...built
Updating html-template...updated
Building html-template...built
Updating druid...updated
Building druid...built
Updating perl6-examples...updated