[perl #61824] ++ makes variables rw, <-> seemingly doesn't

2009-02-10 Thread Vasily Chekalkin via RT
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«Cannot assign to readonly variable. [...]
>  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␤»
>  yea ++ is working regardless of anything else ;) how odd
> * masak submits rakudobug

Fix is here
http://github.com/bacek/rakudo/commit/0b681ae7d7ee98fe49e448424538ab89e9029a5f

"Ensure that (prefix|postfix)^(++|--) can not change readonly variables"

-- 
Bacek



[perl #63136] Printing to $*OUT and $*DEFOUT doesn't work in Rakudo

2009-02-10 Thread Carl Mäsak
# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #63136]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=63136 >


 rakudo: $*OUT.say: "OH HAI"
 rakudo 577566: OUTPUT«Cannot write to a filehandle not opened
for write [...]
* masak submits rakudobug
 rakudo: $*DEFOUT.say: "OH HAI"
 rakudo 577566: OUTPUT«too many arguments passed (3) - 1
params expected [...]


r25269 - docs/Perl6/Spec

2009-02-10 Thread pugs-commits
Author: hinrik
Date: 2009-02-10 15:54:04 +0100 (Tue, 10 Feb 2009)
New Revision: 25269

Modified:
   docs/Perl6/Spec/S05-regex.pod
Log:
[S05] fix Pod error due to misplaced =back

Modified: docs/Perl6/Spec/S05-regex.pod
===
--- docs/Perl6/Spec/S05-regex.pod   2009-02-10 14:51:35 UTC (rev 25268)
+++ docs/Perl6/Spec/S05-regex.pod   2009-02-10 14:54:04 UTC (rev 25269)
@@ -3644,8 +3644,6 @@
  $parsetree = m:keepall//;
  }
 
-=back
-
 =item *
 
 To switch to a different grammar in the middle of a regex, you may use the 
C<:lang> adverb.
@@ -3653,6 +3651,8 @@
 
 token funnylang { '{' [ :lang($funnylang.unbalanced('}'))  ] '}' }
 
+=back
+
 =head1 Syntactic categories
 
 For writing your own backslash and assertion subrules or macros, you may



Re: [perl #43715] [TODO] C should really be L (lib/Parrot/Docs/POD2HTML.pm)

2009-02-10 Thread Will Coleda
On Tue, Feb 10, 2009 at 9:54 AM, Christoph Otto via RT
 wrote:
> On Sun Feb 08 12:09:30 2009, jk...@verizon.net wrote:
>> On Tue Jul 10 05:15:33 2007, pcoch wrote:
>> > In the file lib/Parrot/Docs/POD2HTML.pm there is the todo item:
>> >
>> > # TODO - C should really be L
>> > # but this will do until the docs are changed.
>> >
>> > This needs to be implemented.
>>
>>
>> Cotto/anyone:
>>
>> Any progress on this?  Or, failing that, what does the comment about
>> "until the docs are changed" mean?
>>
>> Thank you very much.
>> kid51
>
> I haven't made any progress, and I don't know what change ptc's comment
> refers to.
> ___
> http://lists.parrot.org/mailman/listinfo/parrot-dev
>

At a guess: when generating HTML docs from POD, L<>'s actually turn
into ,s but C<> renders as  or  or 

Having links be links would be nice.

-- 
Will "Coke" Coleda


r25270 - docs/Perl6/Spec

2009-02-10 Thread pugs-commits
Author: hinrik
Date: 2009-02-10 16:01:32 +0100 (Tue, 10 Feb 2009)
New Revision: 25270

Modified:
   docs/Perl6/Spec/S29-functions.pod
Log:
[S29] fix Pod error due to missing =back

Modified: docs/Perl6/Spec/S29-functions.pod
===
--- docs/Perl6/Spec/S29-functions.pod   2009-02-10 14:54:04 UTC (rev 25269)
+++ docs/Perl6/Spec/S29-functions.pod   2009-02-10 15:01:32 UTC (rev 25270)
@@ -500,6 +500,8 @@
 
 Returns C.
 
+=back
+
 =head2 Scalar
 
 B: L
@@ -2203,7 +2205,6 @@
 
 =over 4
 
-
 =item dbmopen, dbmclose
 
  use DB_File;



[perl #63126] Junctions in array and hash indices don't work in Rakudo

2009-02-10 Thread Carl Mäsak
# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #63126]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=63126 >


 rakudo: my @a = "foo", "foot"; if @a[all(0,1)] ~~ /^ foo/ {
say "OH MY!" }
 rakudo 577566: OUTPUT«get_integer() not implemented in class
'Junction [...]
 so, does the fact that junctions are not handled in array and
hash indices reside somewhere in the long list of new or open bug
tickets on RT? :)
 I don't know, I just know it's on rakudo.org somewhere
 oh, what the heck. we can clean up duplicates later.
* masak submits rakudobug


[perl #63146] [TODO] Implement (*) in the LHS of 'my' declarations

2009-02-10 Thread Carl Mäsak
# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #63146]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=63146 >


 my (*) = 5 should work though
 iirc
 rakudo: my (*) = 5;
 rakudo 577566: OUTPUT«Could not find non-existent sub my [...]
* masak submits rakudobug


Re: [perl #63146] [TODO] Implement (*) in the LHS of 'my' declarations

2009-02-10 Thread Larry Wall
On Tue, Feb 10, 2009 at 12:14:35PM -0800, Carl Mäsak wrote:
: # New Ticket Created by  "Carl Mäsak" 
: # Please include the string:  [perl #63146]
: # in the subject line of all future correspondence about this issue. 
: # http://rt.perl.org/rt3/Ticket/Display.html?id=63146 >
: 
: 
:  my (*) = 5 should work though
:  iirc
:  rakudo: my (*) = 5;
:  rakudo 577566: OUTPUT«Could not find non-existent sub my [...]
: * masak submits rakudobug

Actually, that would have to be (*@) in a my, since a my takes a
signature.  You can only use (*) in an ordinary list assignment:

(*) = 5;
($a,$b,$c,*) = @values;

Larry


{*} and actions

2009-02-10 Thread Chris Dolan
1) Will the "{*}" syntax to invoke an external action method from  
within a grammar be an official part of the language, or an  
implementation hack?


2) If it becomes official, how should people specify the action class/ 
instance to be used with a grammar?


Currently in Rakudo, I use the following deprecated hack:

  my $method := &My::Grammar::TOP;
  my $match := $str.$method(:action(My::Grammar::Actions.new));

but I'd greatly prefer something more like

  my $grammar = My::Grammar.new(:action(My::Grammar::Actions.new));
  my $match = $str ~~ $grammar;

Chris