pugscode.org/ | nopaste: sial.org/pbot/perl6 | pugs: [~] <m oo se> (or rakudo:, kp6:, smop: etc.) || We do Haskell, too | > reverse . show $ foldl1 (*) [1..4] | irclog: irc.pugscode.org/
Set by TimToady on 25 January 2008.
spinclad .oO{ buncha spam grmbl grr rindolf should know better } 00:11
Eevee guh, I don't know what to do after getting my feet wet 00:40
Eevee presumably get my ankles wet 00:40
meppl good night 00:48
bacek pugs: [~] <m oo se> 01:23
exp_evalbot RESULT["moose"]
bacek rakudo: [~] <m oo se>
exp_evalbot rakudo r27973 OUTPUT[Null PMC access in get_string()␤current instr.: 'parrot;P6metaclass;add_parent' pc 693 (runtime/parrot/library/P6object.pir:433)␤
bacek someone have to 'make realclean; make' for bot... 01:24
rakudo: say 'hello'
exp_evalbot rakudo r27973 OUTPUT[Null PMC access in get_string()␤current instr.: 'parrot;P6metaclass;add_parent' pc 693 (runtime/parrot/library/P6object.pir:433)␤
Auzon ok, I'll do it 01:28
bacek: Do you know how often Parrot will need a make realclean? 01:34
Basically, is it worth adding to the build script? 01:35
bacek Auzon, no idea... 01:36
[particle]1 how long does it take to build parrot?
Auzon not sure. It should be running now 01:37
rakudo: say "hi"
exp_evalbot rakudo r27973 OUTPUT[hi␤]
bacek rakudo: [~] <m oo se>
exp_evalbot rakudo r27973 OUTPUT[Syntax error at line 1, near "[~] <m oo "␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
Auzon Still bad?
bacek Auzon, no. Its really not implemented
Patterner I do a realclean on principle. better safe than sorry... 01:38
[particle]1 i wonder if i fresh svn co is faster than realclean
or, ditch svn metadata and just svn export
that should be faster
Auzon Let's see how long a realclean and build takes, then... 01:39
Auzon Hm. It takes a fairly long time due to the need to also build NQP for evalbot 01:45
Auzon 6m of realtime for Parrot+nqp. And 14s for Rakudo; but I'm skeptical of that 01:47
rakudo_svn r27974 | particle++ | [rakudo] add 9 more passing test files to spectest_regression (bacek++) 01:54
Auzon just ping me if you need evalbot rebuilt. I can do all maintenance tasks on it that are needed... 02:01
bacek perl6: my @a=<a b c d>; @a.map: {$_ ~= 'c'}; say ~@a; 02:04
exp_evalbot kp6 r20600: OUTPUT[error in Block at compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Sub.pm line 753, <> line 1.␤*** Syntax Error in Block: missing closing curly bracket ␤] 02:04
..pugs: OUTPUT[*** Can't modify constant item: VStr "a"␤ at /tmp/ff2w9Y1R7N line 1, column 27-36␤]
..rakudo r27974: OUTPUT[ac bc cc dc␤]
..elf r20600: OUTPUT[Use of uninitialized value in subroutine entry at ./elf_f_faster line 160.␤Can't use string ("") as a subroutine ref while "strict refs" in use at ./elf_f_faster line 160.␤ at ./elf_f_faster line 4492␤]
Auzon cool, rakudo++ 02:07
pugs_svnbot r20601 | diakopter++ | [yap6] new sample input for the fledgling yap6 and its export DEBUG=1 output 02:51
pugs_svnbot r20602 | diakopter++ | [yap6] Please Excuse My Dear Aunt *Sally* 02:54
pugs_svnbot r20603 | diakopter++ | [yap6] improved division by zero handling 03:13
Auzon pugs: say "------------------------------------------------------------------------".chars 03:31
exp_evalbot OUTPUT[72␤]
pugs_svnbot r20604 | diakopter++ | [yap6] stubbing out directory structure and module names 03:38
pugs_svnbot r20605 | diakopter++ | [yap6] staging commit; disregard 03:59
pugs_svnbot r20606 | diakopter++ | [yapc] lots more rearranging and stubbing 04:05
r20607 | diakopter++ | [yap6] still more rearranging 04:08
r20608 | diakopter++ | [yap6] more rearranging
r20609 | diakopter++ | [yap6] sorry for the compulsive rearranging 04:14
r20610 | diakopter++ | [yap6] stubs for the Grammar(s) 04:17
Auzon wishes for a scriptable svn search utility for use in one-liners 04:18
diakopter Auzon: do you mean search svn commit history? 04:36
Auzon Yes.
Specifically, I want to extract the list of filenames that I modified that contain "[gsoc" in the revision message. 04:37
diakopter I seem to recall someone in #parrot having written a perl module to do just that... it's on the CPAN I think. I just don't recall its name. 04:40
Auzon I'll look into that. Thanks :) 04:42
diakopter maybe not. although there's this cool tool... search.cpan.org/~infinoid/App-SVN-B...svn-bisect 04:43
lambdabot Title: svn-bisect - search.cpan.org
slavik are there any versions of pugs that build with ghc6 6.8? 04:46
pugs_svnbot r20611 | diakopter++ | [yap6] fixed to work in the new directory structure. 05:17
[particle] auzon: you can run svn log -r<some_rev>:HEAD --verbose | ack -A 99 \[gsoc | ack \w+/ # or something similar 05:18
Auzon Oh. I could just grab the revision numbers and log each one separately 05:19
pugs_svnbot r20612 | diakopter++ | [yap6] rearranging
Auzon As it stands, I did a complex string of svn log processed by perl5, xargs
The best bet is for me to just keep a count of my test cases. That's all I really need to do. 05:20
spinclad slavik: not sure. it's been broken for 6.6 for a while. i've just lately upgraded to 6.8, so i'll be trying soon. 05:22
slavik spinclad: ty 05:23
spinclad: I tried to build with 6.8 on ubuntu hardy and it fails for me
give an error about Bool and says to report a bug
spinclad now that 6.8 is in lenny, i'm ready to give it a go again 05:24
[particle] auzon: i think we could take bits of t/spec/fudge and run them on an svn diff of all your commits from start date of gsoc to get a count of tests, even broken down by file
spinclad so 6.8 claims a bug in itself? 05:25
slavik spinclad: I can try to build right now and give the exact message if you like
Auzon [particle]: Interesting. The only problem is excluding my "reorganized file" count from the "added tests" count. SVN thinks these are the same since moving and adding both give the same log entry. :-/ 05:26
spinclad slavik: i'll be off to bed soon (within 20 minutes); i can work with you till then.
[particle] you can every test addition and deletion, and determine the net
t/foo/bar.t 67 deleted ; t/spec/S02-foo/bar.t 53 added ; t/spec/S03-baz/quux.t 14 added 05:27
etc
Auzon Makes sense :)
Yeah, I'd be willing to look into that 05:28
[particle] let's point moritz at the log if you don't have the time
slavik spinclad: Invalid grammatical category: "Bool"
[particle] i'm sure he could code it up in no time
slavik Generating precompiled Prelude, Math::Basic... pugs: Internal error: 05:29
[particle] heads to bed &
pmichaud mmmmmm
[particle] pm?
pmichaud rakudo spectest_regression: Files=52, Tests=892
looking good
[particle] pmichaud: there are two passing todo tests for me in S29-list/map.t 05:30
if you can look into those and get them un-todoed everywhere, that file and 60 tests can be added as well
Auzon Good night [particle]
[particle] tests 59-60
night, Auzon
pmichaud looking
Auzon I'll be in S29 next week. :)
pmichaud Auzon++
spinclad slavik: offhand that sounds like internal to pugs, not 6.8... we don't have many lambdacamels here these days, but i can dig into it soon
[particle] pmichaud: we may be at 1000 passing spec tests by parrotsketch 05:31
spinclad (tomorrow or monday)
[particle] ok, night time &
slavik k
pmichaud particle: oh, that would be excellent.
spinclad -> $bed { ~~ } 05:43
clkao bed $ ~~
bacek__ perl6: my @a= [1..2]; @a.push; say ~@a; 06:56
exp_evalbot kp6 r20612: OUTPUT[syntax error at position 5, line 1 column 5:␤my @a= [1..2]; @a.push; say ~@a␤ ^ HERE␤]
..pugs: OUTPUT[1 2␤]
..rakudo r27992: OUTPUT[No applicable methods.␤current instr.: '_block11' pc 80 (EVAL_13:28)␤
..elf r20612: OUTPUT[¾­­¾¦×ÏÇÊÇËÖ␤]
bacek__ perl6: my @a= [1..2]; push @a; say ~@a; 06:57
exp_evalbot kp6 r20612: OUTPUT[syntax error at position 5, line 1 column 5:␤my @a= [1..2]; push @a; say ~@a␤ ^ HERE␤]
..pugs: OUTPUT[1 2␤]
..rakudo r27992: OUTPUT[No applicable methods.␤current instr.: '_block11' pc 83 (EVAL_13:28)␤
..elf r20612: OUTPUT[Undefined subroutine &GLOBAL::push called at (eval 14) line 4.␤ at ./elf_f_faster line 4492␤]
bacek__ perl6: my %h=(a 1 b 2); say ~kv(%h); 07:00
exp_evalbot kp6 r20612: OUTPUT[syntax error at position 5, line 1 column 5:␤my %h=(a 1 b 2); say ~kv(%h)␤ ^ HERE␤]
..pugs: OUTPUT[*** ␤ Unexpected "%h"␤ expecting "=", operator, ":", ",", ")", context or "("␤ at /tmp/w5Pl5uMilj line 1, column 4␤]
..rakudo r27992: OUTPUT[Statement not terminated properly at line 1, near "b 2); say "␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
..elf r20612: OUTPUT[Parse error in: /tmp/F0erYY43SD␤panic at line 1 column 0 (pos 0): Can't understand next input--giving up␤WHERE: my %h=(a 1 b 2); say ~kv(%h);␤WHERE:/\<-- HERE␤ STD_red/prelude.rb:98:in `panic'␤ STD_red/std.rb:76:in `scan_unitstopper'␤ STD_red/std.rb:224:in `comp_unit'␤
..STD_red/std.rb:210:in `_UNIT'␤ ./../STD_red/STD_red_run:108:in `m...
bacek__ perl6: my %h = hash(a 1 b 2); say ~kv(%h);
exp_evalbot kp6 r20612: OUTPUT[syntax error at position 12, line 1 column 12:␤my %h = hash(a 1 b 2); say ~kv(%h)␤ ^ HERE␤]
..pugs: OUTPUT[*** ␤ Unexpected "%h"␤ expecting "=", operator, ":", ",", ")", context or "("␤ at /tmp/ZLTUAB2afP line 1, column 4␤]
..rakudo r27992: OUTPUT[Statement not terminated properly at line 1, near "(a 1 b 2);"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
..elf r20612: OUTPUT[Parse error in: /tmp/pPVORl7pC9␤panic at line 1 column 0 (pos 0): Can't understand next input--giving up␤WHERE: my %h = hash(a 1 b 2); say ~kv␤WHERE:/\<-- HERE␤ STD_red/prelude.rb:98:in `panic'␤ STD_red/std.rb:76:in `scan_unitstopper'␤ STD_red/std.rb:224:in `comp_unit'␤
..STD_red/std.rb:210:in `_UNIT'␤ ./../STD_red/STD_red_run:108:in `...
bacek__ perl6: my %h = hash(a 1 b 2); my @k = kv(%h); say ~@k; 07:01
exp_evalbot kp6 r20612: OUTPUT[syntax error at position 12, line 1 column 12:␤my %h = hash(a 1 b 2); my @k = kv(%h); say ~@k␤ ^ HERE␤]
..pugs: OUTPUT[*** ␤ Unexpected "%h"␤ expecting "=", operator, ":", ",", ")", context or "("␤ at /tmp/GlEHXs97MJ line 1, column 4␤]
..rakudo r27992: OUTPUT[Statement not terminated properly at line 1, near "(a 1 b 2);"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
..elf r20612: OUTPUT[Parse error in: /tmp/MlMVa8EeBT␤panic at line 1 column 0 (pos 0): Can't understand next input--giving up␤WHERE: my %h = hash(a 1 b 2); my @k =␤WHERE:/\<-- HERE␤ STD_red/prelude.rb:98:in `panic'␤ STD_red/std.rb:76:in `scan_unitstopper'␤ STD_red/std.rb:224:in `comp_unit'␤
..STD_red/std.rb:210:in `_UNIT'␤ ./../STD_red/STD_red_run:108:in `...
bacek__ perl6: my %h = (a=>1, b=>2); my @k = kv(%h); say ~@k;
exp_evalbot kp6 r20612: OUTPUT[syntax error at position 6, line 1 column 6:␤my %h = (a=>1, b=>2); my @k = kv(%h); say ~@k␤ ^ HERE␤]
..pugs: OUTPUT[a 1 b 2␤]
..rakudo r27992: OUTPUT[No applicable methods.␤current instr.: '_block11' pc 100 (EVAL_11:31)␤
..elf r20612: OUTPUT[Odd number of elements in anonymous hash at (eval 14) line 3.␤Undefined subroutine &GLOBAL::kv called at (eval 14) line 4.␤ at ./elf_f_faster line 4492␤]
rakudo_svn r27993 | pmichaud++ | [rakudo]: 07:06
r27993 | pmichaud++ | * Fix Array.push() to work with empty argument lists. (bacek++)
r27993 | pmichaud++ | * While we're here, might as well fix Array.delete, Array.exists,
r27993 | pmichaud++ | Array.unshift too.
bacek__ perl6: my @a; @a.unshift; say ~@a; 07:07
exp_evalbot kp6 r20612: OUTPUT[␤] 07:08
..pugs: OUTPUT[␤]
..rakudo r27993: OUTPUT[␤]
..elf r20612: OUTPUT[¾­­¾¦×ÏÇÊÎÉËÖ␤]
bacek__ perl6: my @a; unshift(@a); say ~@a;
exp_evalbot kp6 r20612: OUTPUT[no method 'APPLY' in Class 'Undef'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x824be5c)', 'APPLY', 'HASH(0x8e53144)') called at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤
..main::DISPATCH('HASH(0x824be5c)', 'APPLY', 'HASH(0x8e53144)') ca...
..pugs: OUTPUT[␤]
..rakudo r27993: OUTPUT[␤]
..elf r20612: OUTPUT[Undefined subroutine &GLOBAL::unshift called at (eval 14) line 4.␤ at ./elf_f_faster line 4492␤]
pugs_svnbot r20613 | bacek++ | [spec] Fudge one test for rakudo. Whatever star is not yet implemented fully 07:19
rindolf Hi all. 07:20
rakudo_svn r27995 | pmichaud++ | [rakudo]: 07:24
r27995 | pmichaud++ | * Add two more spectest files to spectest_regression (bacek++)
bacek__ perl6: my @a=<5 -3 7 0 1 -9>; say @a.WHAT()' 07:30
perl6: my @a=<5 -3 7 0 1 -9>; say @a.WHAT();
exp_evalbot kp6 r20613: RESULT[error in Block at compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Sub.pm line 753, <> line 1.␤*** Syntax Error in Block: missing closing curly bracket ␤] 07:31
..pugs: OUTPUT[*** ␤ Unexpected "'"␤ expecting term postfix, operator, ":" or ","␤ at /tmp/I93xxHSnCc line 1, column 37␤]
..rakudo r27996: OUTPUT[Statement not terminated properly at line 1, near "'"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
..elf r20613: OUTPUT[Parse error in: /tmp/2S6nHBfUAx␤panic at line 1 column 23 (pos 23): Can't understand next input--giving up␤WHERE: my @a=<5 -3 7 0 1 -9>; say @a.WHAT()'␤WHERE: /\<-- HERE␤ STD_red/prelude.rb:98:in `panic'␤ STD_red/std.rb:76:in `scan_unitstopper'␤
..STD_red/std.rb:224:in `comp_unit'␤ STD_red/std.rb:210:in `_UNIT'␤ ....
kp6 r20613: OUTPUT[Array␤]
..pugs: OUTPUT[Array␤]
..rakudo r27996: OUTPUT[Array␤]
..elf r20613: OUTPUT[Array␤]
rindolf audreyt: here?
Hi bacek__
bacek__ perl6: my @a=<5 -3 7 0 1 -9>; say @a.WHAT(); say reduce({$^a+$^b}, @a); 07:32
exp_evalbot kp6 r20613: OUTPUT[no method 'APPLY' in Class 'Undef'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x824c05c)', 'APPLY', 'HASH(0x8e574fc)', 'HASH(0x8e523a0)') called at
..compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤ main::DISPATCH('HASH(0x824c05c)', 'APPLY', 'H...
..pugs: OUTPUT[Array␤1␤]
..rakudo r27996: OUTPUT[Array␤5␤]
bacek__ hi rindolf
exp_evalbot ..elf r20613: OUTPUT[Use of uninitialized value in addition (+) at (eval 14) line 5.␤Use of uninitialized value in addition (+) at (eval 14) line 5.␤Undefined subroutine &GLOBAL::reduce called at (eval 14) line 5.␤ at ./elf_f_faster line 4492␤Array␤]
bacek__ 5??? 07:33
rindolf bacek__: what's up? 07:35
bacek__ rindolf, testing rakudo 07:36
rindolf bacek__: ah, nice.
bacek__: do all tests pass?
bacek__: I went biking yesterday.
It was a Sat so: 1. Less cars. 2. More people, including more babes.
There's "babes", there's "foxen", there's "hotties", there's "hot chicks". 07:37
According to wikiquote "chick" also usually imply attractive. 07:38
bacek perl6: my $a='foo'; say $a ~~ Item; 08:14
exp_evalbot kp6 r20613: OUTPUT[no method 'APPLY' in Class 'Undef'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x824bf04)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤
..main::DISPATCH('HASH(0x824bf04)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/Kin...
..pugs: OUTPUT[1␤]
..rakudo r27998: OUTPUT[Null PMC access in find_method()␤current instr.: 'infix:~~' pc 8105 (src/gen_builtins.pir:5649)␤
..elf r20613: OUTPUT[syntax error at (eval 14) line 4, near "$a ~"␤ at ./elf_f_faster line 4492␤]
bacek perl6: say undef ~~ Item; 08:30
exp_evalbot kp6 r20613: OUTPUT[no method 'APPLY' in Class 'Undef'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x824bdf4)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤ 08:31
..main::DISPATCH('HASH(0x824bdf4)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/Kin...
..pugs: OUTPUT[1␤]
..rakudo r28000: OUTPUT[Null PMC access in find_method()␤current instr.: 'infix:~~' pc 8105 (src/gen_builtins.pir:5649)␤
..elf r20613: OUTPUT[Can't call method "Str" on an undefined value at ./elf_f_faster line 617.␤ at ./elf_f_faster line 4492␤]
bacek perl6: sub foo {}; say foo ~~ Item; 08:32
exp_evalbot kp6 r20613: OUTPUT[no method 'APPLY' in Class 'Undef'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x824c194)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤
..main::DISPATCH('HASH(0x824c194)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/Kin...
..pugs: OUTPUT[1␤]
..rakudo r28000: OUTPUT[Null PMC access in type()␤current instr.: '_block11' pc 31 (EVAL_10:16)␤
..elf r20613: RESULT[␤]
bacek hmm..
When ~~ Item returns false???
bacek perl6: say 1 ~~ Whatever; 08:48
exp_evalbot kp6 r20613: OUTPUT[no method 'APPLY' in Class 'Undef'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x824be0c)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤
..main::DISPATCH('HASH(0x824be0c)', 'APPLY') called at compiled/perl5-kp6-mp6/lib/Kin...
..pugs: OUTPUT[*** No such subroutine: "&Whatever"␤ at /tmp/0zC0tGfrpz line 1, column 5-18␤]
..rakudo r28001: OUTPUT[0␤]
..elf r20613: OUTPUT[syntax error at (eval 14) line 3, near "1 ~"␤ at ./elf_f_faster line 4492␤]
bacek perl6: say my @array = <1 2 3 4 5 6 7 8>; say @array.reduce: { $^a + $^b * $^c }, $result, "n-ary reduce() works"; 09:00
exp_evalbot kp6 r20613: OUTPUT[no method 'reduce' in Class 'Array'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x8e544bc)', 'reduce', 'HASH(0x8e56e0c)', 'HASH(0x8e526c4)', 'HASH(0x8e59e6c)') called at
..compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤ main::DISPATCH('HASH(0x8...
..pugs: OUTPUT[*** ␤ Unexpected ","␤ expecting "::"␤ Variable "$result" requires predeclaration or explicit package name␤ at /tmp/pD0wwMPWY9 line 1, column 85␤]
..rakudo r28001: OUTPUT[Scope not found for PAST::Var '$result'␤current instr.: 'parrot;PCT::HLLCompiler;panic' pc 156 (src/PCT/HLLCompiler.pir:103)␤
..elf r20613: OUTPUT[Can't call method "reduce" on unblessed reference at (eval 14) line 4.␤ at ./elf_f_faster line 4492␤12345678␤]
bacek perl6: say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce: { $^a + $^b * $^c }, $result, "n-ary reduce() works"; 09:01
exp_evalbot kp6 r20613: OUTPUT[no method 'reduce' in Class 'Array'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x8e55cac)', 'reduce', 'HASH(0x8e61130)', 'HASH(0x8e61070)', 'HASH(0x8e53e90)') called at
..compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤ main::DISPATCH('HASH(0x8...
..pugs: OUTPUT[*** ␤ Unexpected ","␤ expecting "::"␤ Variable "$result" requires predeclaration or explicit package name␤ at /tmp/pn4v2LfuoQ line 1, column 125␤]
..rakudo r28001: OUTPUT[Scope not found for PAST::Var '$result'␤current instr.: 'parrot;PCT::HLLCompiler;panic' pc 156 (src/PCT/HLLCompiler.pir:103)␤
..elf r20613: OUTPUT[syntax error at (eval 14) line 5, near "$r ~"␤ at ./elf_f_faster line 4492␤]
bacek perl6: say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce:{ $^a + $^b * $^c }, $result, "n-ary reduce() works"; 09:02
exp_evalbot kp6 r20613: OUTPUT[syntax error at position 94, line 1 column 94:␤say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce:{ $^a + $^b * $^c }, $result, "n-ary reduce() works"␤
.. ^ HERE␤]
..pugs: OUTPUT[*** ␤ Unexpected ","␤ expecting "::"␤ Variable "$result" requires predeclaration or explicit package name␤ at /tmp/oXG10S6Acg line 1, column 124␤]
..rakudo r28001: OUTPUT[Statement not terminated properly at line 1, near ":{ $^a + $"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
..elf r20613: OUTPUT[Parse error in: /tmp/MqLajgjqSd␤panic at line 1 column 114 (pos 114): No previous operator visible to adverbial pair ([#<Match:0xb7c43800 @on_str="say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce:{ $^a + $^b * $^c }, $result,
..\"n-ary reduce() works\";", @from=94, @to=114, @bool=true, @hash={:s...
bacek perl6: say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce:{ $^a + $^b * $^c }, 69, "n-ary reduce() works";
exp_evalbot kp6 r20613: OUTPUT[syntax error at position 94, line 1 column 94:␤say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce:{ $^a + $^b * $^c }, 69, "n-ary reduce() works"␤ 09:03
.. ^ HERE␤]
..pugs: OUTPUT[12345678␤n-ary reduce() works1␤]
..rakudo r28001: OUTPUT[Statement not terminated properly at line 1, near ":{ $^a + $"␤current instr.: 'parrot;PGE::Util;die' pc 120 (runtime/parrot/library/PGE/Util.pir:82)␤
..elf r20613: OUTPUT[Parse error in: /tmp/J35a2JHxDo␤panic at line 1 column 114 (pos 114): No previous operator visible to adverbial pair ([#<Match:0xb7bde8b0 @on_str="say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce:{ $^a + $^b * $^c }, 69, \"n-ary
..reduce() works\";", @from=94, @to=114, @bool=true, @hash={:struct...
bacek perl6: say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is @array.reduce: { $^a + $^b * $^c }, 69, "n-ary reduce() works";
exp_evalbot kp6 r20613: OUTPUT[no method 'reduce' in Class 'Array'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x8e55ca0)', 'reduce', 'HASH(0x8e61124)', 'HASH(0x8e60cd4)', 'HASH(0x8e53e90)') called at
..compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 169␤ main::DISPATCH('HASH(0x8...
..pugs: OUTPUT[12345678␤*** No compatible multi variant found: "&is"␤ at /tmp/4ckbER0qtj line 1, column 78-144␤]
..rakudo r28001: OUTPUT[12345678␤too many arguments passed (4) - 2 params expected␤current instr.: 'parrot;List;reduce' pc 2275 (src/gen_builtins.pir:1645)␤
..elf r20613: OUTPUT[syntax error at (eval 14) line 5, near "$r ~"␤ at ./elf_f_faster line 4492␤]
bacek nice...
Is it really bug in spectest? (S29-list/reduce:33) 09:04
bacek It have space after 'reduce:' 09:05
perl6: say my @array = <1 2 3 4 5 6 7 8>; sub is($r, $e,$m) { say $m ~ ($r~~$e) }; is(({ $^a * $^b }.reduce: 1,2,3,4,5), 120, "basic reduce works (3)");
exp_evalbot kp6 r20613: OUTPUT[no method 'reduce' in Class 'Int'␤ at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.pm line 345␤ KindaPerl6::Runtime::Perl5::MOP::__ANON__('HASH(0x8e53ecc)', 'reduce', 'HASH(0x8e53e78)', 'HASH(0x8e53ec0)', 'HASH(0x8e60b54)', 'HASH(0x8e60ff8)', 'HASH(0x8e610b8)')
..called at compiled/perl5-kp6-mp6/lib/KindaPerl6/Runtime/Perl5/MOP.p...
..pugs: OUTPUT[12345678␤basic reduce works (3)1␤]
..rakudo r28001: OUTPUT[12345678␤Method 'reduce' not found for invocant of class 'Closure'␤current instr.: '_block11' pc 162 (EVAL_13:51)␤
..elf r20613: OUTPUT[Parse error in: /tmp/JaKKoNR1kK␤panic at line 1 column 94 (pos 94): Statement not terminated properly␤WHERE: ($r~~$e) }; is(({ $^a * $^b }.reduce: 1,2,3,4,5), 120, "bas␤WHERE: /\<-- HERE␤ STD_red/prelude.rb:98:in `panic'␤ STD_red/std.rb:355:in
..`eat_terminator'␤ STD_red/std.rb:269:in `block in statementlist...
bacek pugs: say $_ for (1..5); 09:51
exp_evalbot OUTPUT[1␤2␤3␤4␤5␤]
bacek say $a for (1..5); 09:57
perl6: say $a for (1..5);
exp_evalbot kp6 r20613: OUTPUT[syntax error at position 11, line 1 column 11:␤say $a for (1..5)␤ ^ HERE␤]
..pugs: OUTPUT[*** ␤ Unexpected " for"␤ expecting "::"␤ Variable "$a" requires predeclaration or explicit package name␤ at /tmp/3IjNAx9Tc8 line 1, column 7␤]
..rakudo r28002: OUTPUT[Scope not found for PAST::Var '$a'␤current instr.: 'parrot;PCT::HLLCompiler;panic' pc 156 (src/PCT/HLLCompiler.pir:103)␤
..elf r20613: OUTPUT[Can't call method "Str" on an undefined value at ./elf_f_faster line 617.␤ at ./elf_f_faster line 4492␤]
bacek perl6: say { $a } for (1..5);
exp_evalbot kp6 r20613: OUTPUT[syntax error at position 15, line 1 column 15:␤say { $a } for (1..5)␤ ^ HERE␤]
..pugs: OUTPUT[*** ␤ Unexpected " }"␤ expecting "::"␤ Variable "$a" requires predeclaration or explicit package name␤ at /tmp/zbxN4LuLGi line 1, column 9␤]
..rakudo r28002: OUTPUT[Scope not found for PAST::Var '$a'␤current instr.: 'parrot;PCT::HLLCompiler;panic' pc 156 (src/PCT/HLLCompiler.pir:103)␤
..elf r20613: OUTPUT[Can't call method "Str" on an undefined value at ./elf_f_faster line 617.␤ at ./elf_f_faster line 4492␤]
masak bacek: you can't use $a like that without declaring it 10:01
either $_ or $^a or -> $a
bacek perl6: { say $^a for (1..5); }
exp_evalbot kp6 r20613: OUTPUT[error in Block at compiled/perl5-kp6-mp6/lib/KindaPerl6/Grammar/Sub.pm line 753, <> line 1.␤*** Syntax Error in Block: missing closing curly bracket ␤] 10:02
..pugs: OUTPUT[1␤2␤3␤4␤5␤]
..rakudo r28002: OUTPUT[too few arguments passed (0) - 1 params expected␤current instr.: '_block16' pc 36 (EVAL_13:23)␤
..elf r20613: OUTPUT[Can't call method "Str" on an undefined value at ./elf_f_faster line 617.␤ at ./elf_f_faster line 4492␤]
masak hm
I'd say that is syntactically right
but rakudo doesn't handle it
bacek rakudo bug in generating PIR...
masak if you say so
I wish I knew enough about the PIR generation to help
ah: www.parrotcode.org/docs/pdd/pdd19_pir.html 10:05
lambdabot Title: Parrot Intermediate Representation - parrotcode
bacek masak, actually it's wrong 'PAST' generated. 10:08
masak ah, so actions.pm contains the bug? 10:10
should be possible to get statement modifier 'for' to work when block 'for' apparently generates correct PAST... 10:11
nothingmuch that's what happenned with pugs 11:05
everybody started getting very descriptive
oh wait
did i just comment on scrollback from like 57 days ago
nothingmuch blushes
masak :) 11:06
rindolf nothingmuch: heh. 11:07
masak I'd think it would be fun to do some kind of analysis of pugs
rindolf nothingmuch: are you coming to the Firefox release party?
masak see what its strengths and weaknesses are
nothingmuch rindolf: nope 11:08
rindolf nothingmuch: ah, OK. 11:16
nothingmuch: I'd like to come.
nothingmuch: I've met Tomer Cohen of Mozilla-Israel fame in the w3c opening.
He seemed like a nice chap.
nothingmuch: are you now working on Rakudo? 11:17
nothingmuch nope, not atm
rindolf nothingmuch: ah, but in general? 11:17
nothingmuch not that either
mostly Moose stuff
rindolf nothingmuch: ah.
nothingmuch some B crack, too 11:18
rindolf nothingmuch: I'll probably going to abandon the Moosification of Test-Run.
Because it made it much slower.
nothingmuch: B crack?
nothingmuch various B/B::Generate hackery
rindolf nothingmuch: do you follow the use.perl.org feed?
nothingmuch no, i don't
rindolf nothingmuch: ah, cool.
nothingmuch: ah, it's very interesting. 11:19
And not too much high volume.
nothingmuch i find use.perl.org utterly unusable
rindolf nothingmuch: and some kinda-interesting off-topic stuff.
Like chromatic's rants about Perl FUD.
nothingmuch: I'm starting an alternative soon.
perl-speak.org
Already started playing with Drupal.
nothingmuch and looking at the front page none of the items are really what I'm interested in 11:20
++ on that
though maybe drupal will be a little hard to sell to people
rindolf nothingmuch: I'm talking about the blogs list. 11:21
nothingmuch: why would it be?
nothingmuch: because it's PHP?
nothingmuch yep
rindolf nothingmuch: I discuss it there. 11:24
But many Perl wikis use MediaWiki.
nothingmuch i'm just saying some people are liable to complain 11:25
personally I don't think it's an issue
but maybe for political reasons you should investigate e.g. bricolage
rindolf nothingmuch: Bricolage will be a mess to setup. 11:26
It requires Apache 1.3.x with mod_perl compiled in.
And lots of CPAN modules.
nothingmuch: it should be very powerful.
nothingmuch i'm not contesting that drupal is good software 11:27
rindolf nothingmuch: Drupal is much easier to setup.
nothingmuch or easier to setup
i'm saying that some people can't see beyond the fact that it's written in PHP 11:28
rindolf nothingmuch: I know.
nothingmuch: well, it's their loss.
nothingmuch esp. in the context of something that is supposed to be a perl community gateway you will probably find lots of resistence
rindolf nothingmuch: some Python-ILers had an issue with MediaWiki too.
nothingmuch: yes.
nothingmuch: but what can I do? 11:29
nothingmuch either try hard for a perl based solution, or let it be
rindolf nothingmuch: I want to let it be.
I'll handle the resistance.
nothingmuch *nod*
rindolf Well, I'm going for a walk. 11:30
If someone will ponie up a Bricolage/Slash/etc. hosting that I can rely on, then I'll consider switching. 11:31
nothingmuch don't look at me ;-) 11:32
bacek any parrot commiters alive here? 11:39
pugs_svnbot r20614 | diakopter++ | [yap6] more rearranging and renaming 12:39
r20615 | diakopter++ | [yap6] more renaming
r20616 | diakopter++ | [yap6] cleanup
rindolf nothingmuch: how many modules do you have on CPAN? 13:57
I mean distros.
nothingmuch rindolf: i dunno, maybe 80 or so 14:13
rindolf nothingmuch: wow.
nothingmuch but some I uploaded and they aren't really mine, and some others have done the same
rindolf nothingmuch: a lot
I think I have about 50.
nothingmuch: ah.
nothingmuch 50 is also quite a bit
rindolf I now have a Freecell (hi Muli!) related module. 14:14
Well, I didn't upload it yet.
It's not a solver - that would be too slow in Perl 5, but it's a verifier for solutions.
Which I need for Freecell Solver.
nothingmuch are there any practical applications for freecell solvers, btw? 14:17
Rindotje nothingmuch: yes. 14:18
nothingmuch: they are used in research.
nothingmuch: and by people who want to see if a certain position is solvable.
nothingmuch: well, they're not going to cure AIDS.
nothingmuch uh, i mean what is the merit of finding out if a position is solvable 14:19
Rindotje nothingmuch: if you can construct a Polynomial time Freecell solver then you'll solve the P-NP problem.
nothingmuch: so you'll know if you've reached a dead end.
And run-time solutions where the computer plays it by himself are really cool.
You press "play" and watch the machine do the thinking.
diakopter Auzon: I found a decent editor... it's called Editra 14:45
rindolf diakopter: text editor? 15:06
pmichaud @tell TimToady how is Item defined? It's mentioned several times in the synopsis, but not anything that identifies what Item represents. 15:55
lambdabot Consider it noted.
pmichaud @tell TimToady when I have questions like "how is Item defined?", where is best to ask them? p6c? p6l? #perl6? other? 15:56
lambdabot Consider it noted.
pmichaud thanks, lambdabot
TimToady pmichaud: Item() is identical to $() or item(), so it's really just the old scalar context. It would generally be redundant on scalar parameters. It might not even be a real type. 16:29
lambdabot TimToady: You have 2 new messages. '/msg lambdabot @messages' to read them.
TimToady @messages
lambdabot pmichaud said 34m 30s ago: how is Item defined? It's mentioned several times in the synopsis, but not anything that identifies what Item represents.
pmichaud said 32m 44s ago: when I have questions like "how is Item defined?", where is best to ask them? p6c? p6l? #perl6? other?
TimToady I generally backlog, so just mark it with my monicker so it highlights. 16:30
bbl &
(have to teach my sunday school class now... :) 16:31
moritz_ re 16:43
diakopter TimToady: to whom are you teaching your Sunday School class? 17:02
TimToady at the moment, a bunch of picky grammarians who are complaining about your grammar... :) 17:10
diakopter ha 17:15
yath hm? what was wrong with his grammar? ;) 17:19
pugs_svnbot r20617 | moritz++ | [spec]
r20617 | moritz++ | * fudged try.t
r20617 | moritz++ | * corrected POD
r20617 | moritz++ | * switched from try to eval for a test which produced a compile time error
diakopter yath: nothing; I was poking fun at a MMD failure of applying 'teach' (either used with an indirect object or not). 17:24
yath ah 17:25
yath is not a native speaker anyway, so he didn't notice ;)
diakopter "I'm teaching Perl (the subject) [to someone]" vs "I'm teaching (instructing) a class (a lesson) on Perl" vs "I'm teaching a class [a group of Perl students]" vs "I'm teaching a Perl class (e.g. Class::Struct) during a Perl class (an event) to a (particularly classy) class (a subtype) of Perl students". I was implying that TimToady's Sunday School class is an OO class whose API/usage needs explained/demonstrated to someone. 17:36
... and his reply was ironically reflective toward [the object of!] my inquiry. 17:38
yath ah. now :) 17:39
Auzon perl6: say 1 ~~ any(1,2,3) 17:48
exp_evalbot kp6 r20617: OUTPUT[1␤0␤0␤]
..pugs: OUTPUT[any(VBool False,VBool True)␤]
..rakudo r28017: OUTPUT[Method 'ACCEPTS' not found for invocant of class 'Junction'␤current instr.: 'infix:~~' pc 8105 (src/gen_builtins.pir:5649)␤
..elf r20617: OUTPUT[syntax error at (eval 14) line 3, near "1 ~"␤ at ./elf_f_faster line 4492␤]
Auzon perl6: say 1 == any(1,2,3)
exp_evalbot kp6 r20617: OUTPUT[1␤0␤0␤]
..pugs: OUTPUT[any(VBool False,VBool True)␤]
..rakudo r28017: OUTPUT[1␤]
..elf r20617: OUTPUT[Undefined subroutine &GLOBAL::any called at (eval 14) line 3.␤ at ./elf_f_faster line 4492␤]
moritz_ only rakudo is correct here 17:49
Auzon Yes.
I'm just toying with it because I want it in my Perl 5 testing, and I wanted to see the status in P6
moritz_ pugs: say ?(1 ~~ any(1, 2, 3)) 17:51
exp_evalbot OUTPUT[1␤]
Auzon pugs: say ?(1 ~~ all(1,2,3))
exp_evalbot OUTPUT[␤]
moritz_ rakudo: my $x; $x++; say $x 18:21
exp_evalbot rakudo r28017 OUTPUT[increment() not implemented in class 'Undef'␤current instr.: 'postfix:++' pc 9166 (src/gen_builtins.pir:6467)␤
moritz_ rakudo: my $x; ++$x; say $x 18:22
exp_evalbot rakudo r28017 OUTPUT[increment() not implemented in class 'Undef'␤current instr.: 'prefix:++' pc 9187 (src/gen_builtins.pir:6481)␤
Auzon hm. That should be fairly easy to write in Perl 6. 18:33
moritz_ problem is that that it mutates an Undef to an Int 18:34
Auzon Oh.
I thought you had my $x = 0;
rakudo: my Int $x; $x++; say $x 18:35
exp_evalbot rakudo r28017 OUTPUT[Int␤]
Auzon rakudo: my Int $x = 0; $x++; say $x
exp_evalbot rakudo r28017 OUTPUT[1␤]
moritz_ Auzon: in the first case $x holds an Int proto object
Auzon So you have to explicitly assign 0 to it for ++ to work? 18:36
moritz_ so either something[tm] needs fixing, or the proto object needs to have an 'increment' method
Auzon s/\+\+/any math/
moritz_ Auzon: that's not how it's specced
Auzon: that was just the explanation of why it fails in rakudo 18:37
Auzon Oh. OK.
moritz_ pugs: my $x; $x++; say $x 18:38
exp_evalbot OUTPUT[1␤]
pmurias @tell mncharity the js object model is not natural for supporting the p6 oo model, as it's primitive and inflexible (it was the simplest way of implementing oo) 19:02
lambdabot Consider it noted.
moritz_ Auzon: I backlogged now... I think you could rewrite svn.pugscode.org/pugs/misc/svn-sear.../search.pl as a CLI tool 19:10
moritz_ Auzon: I thought a bit about rakudo's "make realclean" problem... maybe we could add a command to exp_evalbot that takes care of this... 19:12
so you could say "rakudo clean" or something, and then exp_evalbot writes a temporary file... 19:13
Auzon We also check if Makefile.in changed.
(I think it's Makefile.in. Going from memory here.)
moritz_ and the cronjob that rebuilds rakudo check for that file, and if it exists 1) deletes it 2) make realclean; 3) perl Makefile.PL (in toplevel parrot dir) 4) make (in rakudo dir) 19:14
Auzon: probably config/makefiles/*.in
well, that would be the better alternative 19:15
because it involves no user interaction
which is safer and saner
Auzon regarding rewriting your svn search thing as a CLI: That'd be pretty easy, especially if I used HTML::Template to output text/XML/JSON/YAML/whatever.
I'll take a look at both of those issues shortly...
moritz_ only drawback is that you'll have to keep a kinosearch index locally
(and install KinoSearch with all its dependencies :/ ) 19:16
pmichaud (realclean) I'd recommend doing realclean when any of the following files changes 19:28
config/gen/makefiles/*.in # from parrot root
languages/perl6/config/makefiles/root.in
MANIFEST
I think that would catch nearly all of the cases where a realclean is required. 19:29
Auzon moritz_: How about I patch your CGI to have a parameter to output plain text or something like it? 19:36
Maybe a copy of it outputting JSON or something.
moritz_ Auzon: go right ahead ;) you could abstract away all of the param() calls, test if $ENV{REQUEST_URI} is present, and if not switch to Getopt::Long instead of CGI 19:37
Auzon well, I'll think about it. I'm not certain what all would be useful 19:55
pugs_svnbot r20618 | pmurias++ | [elf] refactored $*emitter and $*parser and $*compiler.emitter $*compiler.parser 20:42
r20618 | pmurias++ | supporting elf_moosish cleanly would require a better CLI
meppl good night 21:08
pmichaud TimToady: ("Item" from scrollback) Item is used as a type at S10:103, S10:146, S12:1703 . This isn't urgent, just was curious since it came up in scrollback earlier. 21:12
pasteling "diakopter" at 209.9.237.164 pasted "contents of "calc", "foo", the command line, and the resulting output. yap6 progresses..." (25 lines, 364B) at sial.org/pbot/31175 21:14
pugs_svnbot r20619 | moritz++ | [spec] $_ in a map block *is* mutable by default 21:18
r20619 | moritz++ | pmichaud++ for quoting the right part of the specs.
r20620 | diakopter++ | [yap6] latest changes to produce above output... enjoy.
r20620 | diakopter++ | refactored it into functional-style modules... you can swap out grammars at will.
r20620 | diakopter++ | Hopefully this is approaching the facility of the PCT, 'cept for the Perl 5 VM.
r20621 | diakopter++ | [yap6] forgot these files.
pugs_svnbot r20622 | diakopter++ | [yap6] oops forgot the biggest diffd file 21:21
diakopter Auzon: see dev.pugscode.org/browser/misc/yap6/...culator.pm for the calc grammar. 21:22
Auzon++ for suggesting to change 'print' to 'say' in the grammar :) 21:24
rakudo_svn r28018 | pmichaud++ | [rakudo]: 21:38
r28018 | pmichaud++ | * Add S04-statements/try.t to spectest_regression (moritz++)
pugs_svnbot r20623 | moritz++ | [spec] S29-num/pi.t - removed useless eval, fixed rakudo fudge reason 21:57
rakudo_svn r28019 | pmichaud++ | [rakudo]: 22:10
r28019 | pmichaud++ | * Clean up slurpy arguments to 'print'
r28019 | pmichaud++ | * Fix lookups of non-existent package items
r28019 | pmichaud++ | * moritz++