Patrick R. Michaud via RT wrote:
does this patch work even if someone is running TAP::Harness instead
of Test::Harness ?
Probably no. But current t/harness explicitly use Test::Harness.
--
Bacek
Patrick R. Michaud wrote:
Is it feasible to catch all "Null PMC access" exceptions at the
top-level, promote PMCNULL to Undef (or Failure) and resume from
exception?
Good thinking... but there's not anything to "promote" -- i.e., from an
exception handler we wouldn't have the ability to change
Patrick R. Michaud wrote:
This is also related to RT #62948, where null values appear in arrays and other
aggregates. Instead of adding a bunch of "is this value null" checks
throughout the code, I'd prefer to look for a way to automatically promote nulls into
undefs at the appropriate points
Patrick R. Michaud via RT wrote:
On Sat, Mar 07, 2009 at 09:50:02PM -0800, Vasily Chekalkin wrote:
+our List multi min(*...@values) {
+my $by = @values[0] ~~ Code ?? shift @values !! sub { $^a cmp $^b };
+@values.min($by);
+}
This doesn't match the spec -- the $by paramet
jerry gay wrote:
On Wed, Jun 4, 2008 at 2:46 PM, Moritz Lenz <[EMAIL PROTECTED]> wrote:
Oops, forgot to attach patch. Now it's really there.
thanks, applied as of r28074.
~jerry
This is wrong patch. eval() shouldn't throws any exceptions.
Correct patch for 'eval()' and Test.pm attached.
-
jerry gay wrote:
would you reformat this in universal diff format please? my patch
program doesn't speak git.
Strange... It is 'universal diff' format. Can be applied with
'patch -p1 < eval.diff' in top-level parrot directory. Or with
'patch -p3 < eval.diff' in languages/perl6.
Anyway, attache
Hello.
There is implementation of List.min and List.max attached.
--
Bacek
Patrick R. Michaud via RT wrote:
For Rakudo and other PCT-related items we should generally not
be using the 'new' opcode to create objects. The correct
approach is
## $P1 = Range.new;
$P0 = get_hll_global 'Range'
$P1 = $P0.'new'()
Ok, but List is definetely wrong:
.sub "main"
perl6 via RT wrote:
During investigating bug from #58276 I found very nasty bug with
assigning to Perl6Scalar.
Actually bug #58278.
--
Bacek
Ilya Belikin wrote:
Hi,
look like bug (in r31017):
my $k = 'bar';
my %s;
say defined $k; # 1
say defined %s{$k}; # 0
say defined $k and defined %s{$k}; # 1 (!) must be 0
say 1 && 0; # 0
I replyed in ticket, but it doesn't hit mailinglist. This is bug in
parsing. "say defined $k and defined %
Patrick R. Michaud wrote:
that should have been ["b", "c"] on the second line
Now fixed in r30967. The problem is that the .kv method was
always stringifying the values of the output list. To illustrate:
.values still stringifying values.
Trivial patch attached.
--
Bacek.
diff --git a/la
Patrick R. Michaud via RT wrote:
On Sat, Sep 27, 2008 at 07:25:06AM -0700, Moritz Lenz via RT wrote:
On Sat Sep 27 05:47:14 2008, bacek wrote:
Small proxy class to support lvalue semantic of Str.substr. Holds
original string, start, len. In get_string method returns substring. In
infix:= const
Patrick R. Michaud via RT wrote:
On Sat, Sep 27, 2008 at 12:18:21AM -0700, Vasily Chekalkin wrote:
Hello.
There is implementation of Pair.pairs. +3 passed tests in "S29-hash/pairs.t"
+$P0 = get_hll_namespace ['Perl6Pair']
+'!EXPORT'('pairs', $P0
Hello.
Simplified implementation of Pair.pairs. moritz++ for pointing on it.
--
Bacek
commit 71b6abede127eaa73c4ea32b00ee21150793a7f2
Author: Vasily Chekalkin <[EMAIL PROTECTED]>
Date: Sat Sep 27 23:04:17 2008 +1000
Implement Pair.pairs
diff --git a/languages/perl6/src/classes/Pa
Patrick R. Michaud wrote:
...
This section of code would be much simpler (and more efficient)
by using the C and C instead of
individually examining each character one-at-a-time.
+.sub 'chop' :method
+len = length tmps
+if len == 0 goto done
+dec len
+substr tmps,tmps, 0, len
Patrick R. Michaud wrote:
Yes, please. And these are cleanups that someone should be able
to do with only a modest knowledge of PIR (and perhaps a good
chance to learn PIR :-).
Done. #59486 and #59490
--
Bacek
Hello.
WFM on r32022
--
Bacek
Hello.
Trivial patch attached.
--
Bacek
diff --git a/languages/perl6/src/parser/actions.pm b/languages/perl6/src/parser/actions.pm
index 394b419..5ad4325 100644
--- a/languages/perl6/src/parser/actions.pm
+++ b/languages/perl6/src/parser/actions.pm
@@ -2287,8 +2287,8 @@ method variable($/, $key)
Patrick R. Michaud via RT wrote:
On Mon, Oct 27, 2008 at 03:47:50AM -0700, Vasily Chekalkin wrote:
I've (slightly) refactor Junction.pir.
1. Get rid of "junction_comparision_helper". Use "infix_junction_helper"
instead.
2. In "infix" and "unary&q
errides. Parrot DTRT without them.
3. Replace 'junction_comparision_helper' with 'infix_junction_helper'.
--
Bacek
commit f15089f62abd7478573ad4145589153b5465ae92
Author: Vasily Chekalkin <[EMAIL PROTECTED]>
Date: Wed Nov 5 05:23:47 2008 +1100
Refactor junctions
diff --git a
Vasily Chekalkin wrote:
1. Refactor 'junction_comparision_helper' to 'get_bool' vtable.
2. Remove 'prefix:?' and 'prefix:!' overrides. Parrot DTRT without them.
3. Replace 'junction_comparision_helper' with 'infix_junction_helper'
Vasily Chekalkin via RT wrote:
Hello.
After some breakages and discussions on #perl6 and #parrot I've remade
this patch to proper handling boolean contexts.
1. Refactor 'junction_comparision_helper' to 'get_bool' vtable.
2. Remove 'prefix:?' and 'prefi
# New Ticket Created by "Vasily Chekalkin"
# Please include the string: [perl #60426]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=60426 >
Hello.
rakudo: enum Foo;
OUTPUT[A method named 'get_string&
Patrick R. Michaud wrote:
On Sat, Nov 08, 2008 at 07:35:57PM -0800, Vasily Chekalkin via RT wrote:
On Sun Nov 02 03:43:27 2008, masak wrote:
The core issue of this ticket still remains, though: to implement
Bool.pick in such a way that it returns either Bool::True or Bool::False.
Ad-hoc
Patrick R. Michaud via RT wrote:
I'd like to get a clarification from p6l as to whether junction states
should be made unique before applying or rejecting this patch. I'm
particularly curious about one() junctions.
Also, it seems like it would be better to make the list unique inside of
!MAKE_J
[EMAIL PROTECTED] (via RT) wrote:
Rakudo as of r33417 fails t/spec/S12-methods/default-trait.t and
t/spec/S12-methods/multi.t:
A method named 'bar' already exists in class 'Foo'. It may have been supplied
by a role.
current instr.: '!TOPERL6MULTISUB' pc 13534 (src/gen_builtins.pir:8162)
All Pe
# New Ticket Created by "Vasily Chekalkin"
# Please include the string: [perl #61120]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=61120 >
rakudo: class A { has $.a }; class B is A {}; my $b = B.new(a=>
Mark J. Reed wrote:
Arity 2 and a 1-elem list seems to be special-cased; otherwise, it
consistently warns once per undefined value in the expansion:
1-elem List reduce patch attached. Test added in r24567
--
Bacek
commit 9c1a3058064067dacab4c5f623a59ae768f19182
Author: Vasily Chekalkin
Date
Patrick R. Michaud via RT wrote:
On Mon, Dec 22, 2008 at 04:15:20AM -0800, Vasily Chekalkin wrote:
Trivial patch for Array.elems attached.
As far as I can tell, Array.elems already works in trunk without
the patch. Is there a specific test or set of tests this enables,
or a case that isn&#
in, max and minmax.
Spectest updated in r25027.
--
Bacek
commit 765c12dc6eb733b87e190ce39519af978ad66a79
Author: Vasily Chekalkin
Date: Mon Jan 26 09:20:45 2009 +1100
Proper implement min, max and minmax on Ranges.
diff --git a/languages/perl6/src/classes/Range.pir b/languages/perl6/src/
Moritz Lenz via RT wrote:
On Tue Feb 17 14:03:57 2009, bacek wrote:
Hello.
There is implementation of triangle form of reduce metaop.
Tests are coming.
FYI, there are already tests in S03-operators/reduce-metaop.t
And they partially wrong. I'm fixing them ATM.
--
Bacek
On Wed Feb 25 00:49:42 2009, ml...@physik.uni-wuerzburg.de wrote:
> 09:45 <@moritz_> rakudo: sub m (&f) { say "a" ~~ m// }; regex outer {
> a };
> m(&a)
> 09:45 < p6eval> rakudo 7f8ba6: OUTPUT«Null PMC access in isa()current
> instr.:
> '!SIGNATURE_BIND' pc 2559
(s
On Sat Jan 10 17:30:23 2009, s1n wrote:
> When mixing gather with a while loop, only the last element tested by the
> while predicate seems to actually be gathered. I created a test to mix
> gather and while in S04-statements/gather.t:
Patch to clone argument of "take" available at
http://github.
Hello.
This one is latest vesion. Sorry for messing with git-send-email :-/
--
Bacek
On Sat Mar 07 16:14:01 2009, bacek wrote:
> ---
> src/builtins/any-list.pir | 61
> -
> src/setting/Any-list.pm | 24 +
> 2 files changed, 24 insertions(+), 61 deletions(-)
>
After few iterations moritz++ implemented final versio
Hello.
This issue was resolved long time ago by jnhtn++ and pmichaud++. Closing
ticket.
--
Bacek
On Sat Mar 21 06:28:26 2009, Cybera wrote:
> Checked out revision 37535.
> Can't exec "C:/Program": No such file or directory at
>build/gen_parrot.pl line 63.
Attached patch solves this (and possible some other issues)
--
Bacek
diff --git a/build/gen_parrot.pl b/build/gen_parrot.pl
index f
On Sat Jun 07 07:13:07 2008, ronaldxs wrote:
Probably I don't understand correctly your question. This is output from
my version of patched rakudo:
$ ../../parrot perl6.pbc
> eval 'my $x = 2; $x = $x / 0; say $x;'; say 'eval exception ', $!;
eval exception Divide by zero
Is it what you want?
-
Hello.
There is patch for this (and not only this) issue.
1. Change logic in compilers/pct/src/PAST/Compiler.pir to handle
'control' attribute.
2. Implement "break" built-in in Rakudo.
3. Add "break" call to each "when" statements (in Rakudo)
--
Bacek
control_break.pir
Description: Binary dat
Sorry, this patch broke Rakudo. Shouldn't be applied.
--
Bacek
errides. Parrot DTRT without them.
3. Replace 'junction_comparision_helper' with 'infix_junction_helper'.
It now passed 6 of 8 recently added tests in
S03-junctions/boolen-context.t. And there is some problem with
true(Junction) calls.
--
Bacek
commit f15089f62abd7478573ad4145589153b5465ae92
Author
Another attempt. Now with short-circuit version of get_bool.
--
Bacek
commit e6661598b0f481003a46a54bf49287f252b2a32f
Author: Vasily Chekalkin <[EMAIL PROTECTED]>
Date: Wed Nov 5 05:23:47 2008 +1100
Refactor junctions
diff --git a/languages/perl6/src/classes/Junction.pir b/lan
On Sun Nov 02 03:43:27 2008, masak wrote:
>
> The core issue of this ticket still remains, though: to implement
> Bool.pick in such a way that it returns either Bool::True or Bool::False.
Ad-hoc implementation attached. I still trying to implement Enum.pick.
--
Bacek
diff --git a/languages/per
On Thu Nov 27 14:16:17 2008, masak wrote:
> rakudo: say undef ~~ undef; say undef & undef ~~ undef
> rakudo 33276: OUTPUT[10]
> what's going on there?
> rakudobug!
> finally :)
Actually, it's just lack of Junction autothreading. Becasue (undef &
undef) creates Junction which is defined.
--
On Mon Dec 29 10:17:11 2008, masak wrote:
> rakudo: my @a = <1 2 3 4 5 6>; my @b = (10..16); for @a Z @b
> <-> $a,$b { $a++ }; say @a;
> rakudo 34586: OUTPUT«234567»
> rakudo: my @a = <1 2 3 4 5 6>; my @b = (10..16); for @a Z @b
> <-> $a,$b { $a = $a +1 }; say @a;
> rakudo 34586: OUTPUT«Canno
On Mon Feb 02 10:33:44 2009, szab...@gmail.com wrote:
> The attached test script is a simplified version of a test script
> that fails. (if I remove the regex and manually add the values then
> the test passes).
It's actually not a bug. Result of matching is Match, not Str. To fix
you script just
On Tue Jan 27 06:10:21 2009, masak wrote:
> rakudo: sub List::a {}; <1 2 3>.a
> rakudo 36054: OUTPUT«Null PMC access in invoke() [...]
>
> I'm not at all sure subs should be called that way, but a Null PMC
> access is always wrong.
And it actually works:
$ ../../parrot perl6.pbc -e 'class List
On Tue Jan 27 06:10:21 2009, masak wrote:
> rakudo: sub List::a {}; <1 2 3>.a
> rakudo 36054: OUTPUT«Null PMC access in invoke() [...]
>
> I'm not at all sure subs should be called that way, but a Null PMC
> access is always wrong.
In recent rakudo it complains about routine definition:
$ ../.
On Thu Feb 12 06:05:34 2009, masak wrote:
> Rakudo b2e7ac:
>
> $ perl6 -e 'scalar'
> Null PMC access in getprop()
> [...]
Quick fix is there -
http://github.com/bacek/rakudo/commit/585a5f91d0e0d301e730be1e5849959f01681b96
I'm not sure is it fixing problem or symptoms...
--
Bacek
On Wed Jan 14 22:00:33 2009, masak wrote:
> rakudo: my $t = 5; say $t.i
> rakudo 35576: OUTPUT«Method 'i' not found for invocant of
> class 'Int [...]
> TimToady: should that work?
> think so
> * masak submits rakudobug
Implementation of postfix:i there -
http://github.com/bacek/rakudo/commit
On Sun Feb 01 09:27:58 2009, masak wrote:
> rakudo: package A {}; A::method_that_does_not_exist
> rakudo 36249: OUTPUT«Null PMC access in invoke() [...]
> * masak reports rakudobug
Patch is here
http://github.com/bacek/rakudo/commit/acdb19ee3ac09b390896c0f8f1fa32bcf7b7f9ae
--
Bacek
s VTABLE_cmp for Undef in Parrot. Other approach is to
add .sub 'cmp' :multi('Failure',_) to Rakudo. I can't judge with one is
better.
--
Bacek
commit 948c9412c390b86cf68eaf5cc76525e050a1e100
Author: Vasily Chekalkin
Date: Sat Feb 14 18:24:13 2009 +1100
Implement Undef.cmp
dif
On Sat Jan 10 09:42:10 2009, masak wrote:
> rakudo: " a b c".comb.perl.say
> rakudo 35345: OUTPUT«too few arguments passed (1) - 4 params
> expected [...]
> rakudo: " a b c".comb(" ").perl.say
> rakudo 35345: OUTPUT«invoke() not implemented in class
> 'Perl6Str' [...]
> rakudo: " a b c".com
On Fri Dec 26 05:05:27 2008, masak wrote:
> rakudo: sub foo { fail }; sub bar { foo(); 2; CATCH { 1; } };
> say bar();
> rakudo 34376: OUTPUT«Null PMC access in isa() [...]
> meh
> that's strange.
> that one didn't involve any 'whan' clause.
> no smartmatching.
> I might have misdiagnosed t
On Thu Dec 18 09:52:52 2008, masak wrote:
> rakudo: class Base { has $.foo }; class Deriving is Base {};
> say Deriving.new( :foo(5) ).foo()
> rakudo 34068: OUTPUT[You passed an initialization parameter
> that does not have a matching attribute. [...]
> and in general, it's not an error to pass
On Mon Jan 26 06:45:24 2009, masak wrote:
> rakudo: ord(""); say "Alive"
> rakudo 36030: OUTPUT«Cannot get character of empty string [...]
> should Rakudo really die here?
> * masak thinks not
> I think it should fail()
> <[particle]> return a Failure
> <[particle]> see what perl 5 does
> good
On Mon Jan 05 12:00:25 2009, moritz wrote:
> Carl MXXsak (via RT) wrote:
> >
> > $ perl6 -e 'my $a = 5; $a min= 2; say $a'
> > get_iter() not implemented in class 'Integer'
> > [...]
>
> Added tests to t/spec/S03-operators/assign.t (which grows to an
> alarming
> size...)
Rakudo fix available at
On Sat Dec 27 09:50:09 2008, masak wrote:
> Implement the ff and fff infix operators, as described in S03:2345.
Ok, first cut of flipflops implemented in
http://github.com/bacek/rakudo/commit/08fffbc6d62ab72e0dd9f80098275afce0f32fbf
and
http://github.com/bacek/rakudo/commit/7dfa1b13819bcb3d3d3f51
On Wed Dec 17 13:40:32 2008, masak wrote:
> rakudo: enum Test; say a ~~ Test
> rakudo 34047: OUTPUT[Null PMC access in isa() [...]
This ticket can be closed now:
rakudo 10909da98:
ba...@icering:~/src/parrot/languages/rakudo$ ../../parrot perl6.pbc -e
'enum Test; say a ~~ Test'
1
ba...@icering:~
On Sun Dec 14 02:15:27 2008, masak wrote:
> The following doesn't parse in Rakudo r33860:
>
> $ perl6 -e 'class A { method x { say "OH HAI" } }; my $c = class is A
> {}; $c.x'
> Statement not terminated properly at line 1, near "{}; $c.x"
> [...]
>
> I don't know if this is specced, but it seems
On Sat Feb 14 08:16:28 2009, masak wrote:
> rakudo: for "a".."c" Z ("?", "a".."b") -> $x1, $x2 { say $x1,
$x2 }
> rakudo a0a390: OUTPUT«a?baStopIteration [...]
> jnthn: does this look right to you?
> pugs: for "a".."c" Z ("?", "a".."b") -> $x1, $x2 { say $x1,
$x2 }
> pugs: OUTPUT«a?bacb»
>
On Sat Feb 14 16:38:43 2009, fri...@gmail.com wrote:
>
Fix is there
http://github.com/bacek/rakudo/commit/bb16aabbd266f503726b6d600c7a510c5c9be6e4
--
Bacek
On Tue Feb 17 14:03:57 2009, bacek wrote:
> Hello.
>
> There is implementation of triangle form of reduce metaop.
> Tests are coming.
Second patch for chained version.
--
Bacek
commit ea8a466adb691d7c9d0d9b4859142d1494a2ed24
Author: Vasily Chekalkin
Date: Wed Feb 18 20:21:0
63 matches
Mail list logo
