[perl #64452] 'make parrot' unreliable

2009-04-05 Thread via RT
# New Ticket Created by  Moritz Lenz 
# Please include the string:  [perl #64452]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=64452 >


git 58d1635151ad3eff623401fd53e352cdd88f09ae:

$ cd parrot/
$ svn info | grep ^Revis
Revision: 37869
$ cd ..
$ echo 37897 > build/PARROT_REVISION
$ make parrot
make: `parrot' is up to date.

That looks wrong to me - when I enter a newer version into
PARROT_REVISION, 'make parrot' should update my parrot build.

Cheers,
Moritz


Re: some questions about S02(type)

2009-04-05 Thread Xiao Yafeng
I don't think an array of hashes and a hash of arrays could perfectly
represent a Table type.
There are several important facts of a relational model:unordered
columns and tupples, various constraints on columns. E.g. how can we
represent multi-unique constraints as an array of hashes?


On 4/4/09, Timothy S. Nelson  wrote:
> On Sat, 4 Apr 2009, Xiao Yafeng wrote:
>
 3. Could I define primary key for a bag variable?
>>>
>>> All items in a Bag are "primary keys", but there's no data additional
>>> data associated with it.
>>
>> I mean whether I can see Set as a table  and Bag as a table with a
>> unique constraint? like:
>>subset test of Bag(test_name Str, test_ID Int, primary
>> key(test_ID))
>
>   I don't think you can really do something like that.  Perl 6 as
> specified leaves many things up to libraries.  Implementing a Table type
> will
> no doubt be one of those things.  I would like to have a Table type that
> will
> work well with the Tree/Plex type that I am working on.
>
>   In the meantime, a table would need to be represented as an array of
> hashes, or a hash of arrays.
>
>   HTH,
>
>
> -
> | Name: Tim Nelson | Because the Creator is,|
> | E-mail: wayl...@wayland.id.au| I am   |
> -
>
> BEGIN GEEK CODE BLOCK
> Version 3.12
> GCS d+++ s+: a- C++$ U+++$ P+++$ L+++ E- W+ N+ w--- V-
> PE(+) Y+>++ PGP->+++ R(+) !tv b++ DI D G+ e++> h! y-
> -END GEEK CODE BLOCK-
>
>


[perl #64458] (1..8).reverse listifies to an empty list in Rakudo

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


Rakudo 0bb68ee seems to be regressed on reversing ranges:

$ perl6 -e '.say for (1..8).reverse; say "!"; say (1..8).reverse.perl'
!
8..1

I expect the output to be something like this:

8
7
6
5
4
3
2
1
!
[8, 7, 6, 5, 4, 3, 2, 1]


[perl #64460] [PATCH] [Configure] Change option name to --gen-parrot-option; minor related cleanups

2009-04-05 Thread via RT
# New Ticket Created by  Geoffrey Broadwell 
# Please include the string:  [perl #64460]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=64460 >


---
 Configure.pl |9 +
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/Configure.pl b/Configure.pl
index 6e24616..7b5f2d5 100644
--- a/Configure.pl
+++ b/Configure.pl
@@ -8,7 +8,8 @@ use Getopt::Long;
 
 MAIN: {
 my %options;
-GetOptions(\%options, 'help!', 'parrot-config=s', 'gen-parrot!', 
'parrot-opt=s@');
+GetOptions(\%options, 'help!', 'parrot-config=s',
+   'gen-parrot!', 'gen-parrot-option=s@');
 
 # Print help if it's requested
 if ($options{'help'}) {
@@ -18,7 +19,7 @@ MAIN: {
 
 # Update/generate parrot build if needed
 if ($options{'gen-parrot'}) {
-my @opts= $options{'parrot-opt'} ? @{$options{'parrot-opt'}} : ();
+my @opts= @{ $options{'gen-parrot-option'} || {} };
 my @command = ($^X, "build/gen_parrot.pl", @opts);
 
 print "Generating Parrot ...\n";
@@ -127,10 +128,10 @@ Configure.pl - Rakudo Configure
 General Options:
 --help Show this text
 --gen-parrot   Download and build a copy of Parrot to use
+--gen-parrot-option='--option=value'
+   Set parrot config option when using --gen-parrot
 --parrot-config=(config)
Use configuration information from config
---parrot-opt='--option=value'
-   Set parrot config option when using --gen-parrot
 END
 
 return;
-- 
1.6.2.1



[perl #64462] [PATCH] [Configure] (try 2) Change option name to --gen-parrot-option; minor related cleanups

2009-04-05 Thread via RT
# New Ticket Created by  Geoffrey Broadwell 
# Please include the string:  [perl #64462]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=64462 >


See attached.


-'f



0001--Configure-Change-option-name-to-gen-parrot-optio.patch
Description: application/mbox


[perl #57790] [PATCH] nicer error message for 12345[1] (number scalar indexed with .[])

2009-04-05 Thread Ron Schmidt via RT
The attached patch should generate the desired error message.  If 
someone wants a test for this, just let me know which test file the 
test belongs in and I will be happy to post an appropriate test for 
that file.
--- a/src/classes/Positional.pir
+++ b/src/classes/Positional.pir
@@ -105,9 +105,24 @@ Returns a list element or slice.
 .param pmc invocant
 .param pmc argsblock
 .param pmc options :slurpy :named
+
+# if elements fails we can probably count on postcfix to err adequately
+push_eh call_and_throw_err
 $I0 = elements invocant
 $P0 = box $I0
 set_hll_global ['Whatever'], '$!slice', $P0
+goto just_call
+
+call_and_throw_err:
+.const string NO_ELEMENTS_MARKER = "elements() not implemented"
+.get_results ($P0)
+$I0 = length NO_ELEMENTS_MARKER
+$S0 = $P0
+$S0 = substr $S0, 0, $I0
+if $S0 == NO_ELEMENTS_MARKER goto just_call
+rethrow $P0
+
+just_call:
 .local pmc args
 args = argsblock()
 args = 'list'(args)


[perl #64464] Cannot refer to a regex with dashes or apostrophes in it in Rakudo

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


 rakudo: regex foo_bar { foobar }; say "foobar" ~~ //
 rakudo 0bb68e: OUTPUT«foobar␤»
 rakudo: regex foo-bar { foobar }; say "foobar" ~~ /
 rakudo 0bb68e: OUTPUT«Statement not terminated properly at
line 1, near "~~ / pmichaud: can I report this to rakudobug?
 masak:  no, because it's not a bug :-)
 I thought it best to ask for exactly this reason. :)
 or you can report it, but I'll respond with a message to
p6l saying "wtf?"
 :)
 it's ambiguous in the sepc, I think
 agreed.
 maybe we need a wtf mail
 ok, let's do it that way.
* masak submits rakudobug
 for example char classes could require whitespaces
 around the -
 oh
 std: //
 S05 beats us to it.
 std 26089: OUTPUT«ok 00:03 35m␤»
 However, in order to combine classes you must prefix a named
 character class with C<+> or C<->.  Whitespace is required before
 any C<-> that would be misparsed as an identifier extender.
 wow
 TimToady++
 okay, it's a rakudobug, and I don't have to ask p6l whazzup
 I just have to fix PGE to recognize perl6's new identifier
 it's because PGE wants  <+foo-bar>
 without that, it can't recognize  as being anything usable
 so the pattern fails, so the smart match fails, so...
 rakudo: regex foo'bar { foobar }; say "foobar" ~~ //
 that serial testing is slow :(
 rakudo 0bb68e: OUTPUT«Statement not terminated properly at
line 1, near "~~ / make sure you get that case too. :)


[perl #64472] useless error when use p5izm in ternary operator

2009-04-05 Thread via RT
# New Ticket Created by  Ilya Belikin 
# Please include the string:  [perl #64472]
# in the subject line of all future correspondence about this issue. 
# http://rt.perl.org/rt3/Ticket/Display.html?id=64472 >


Hi there!

> 1 ?? 2 :: 3;
ResizablePMCArray: Can't pop from an empty array!

I think not only I can use '::' instead '!!', so I like to see some
usefull error message if that is possiable.

Thank you!

Ilya


Fwd: Multi-Dimensional arrays

2009-04-05 Thread Peter Schwenn
-- Forwarded message --
From: Peter Schwenn 
Date: Apr 4, 2009 3:14 PM
Subject: Re: Multi-Dimensional arrays
To: Carl Mäsak 


I've had inconsistent/incorrect results, once having created an array
 of array of arrays, both while addressing elements in it as
 @A[l][m][n]=x and as @a[l][...@y ;  as severe, for example, as
 modifying @A[16]'s contents in addressing @A[14] .

 Perhaps I should wait.  Or perhaps what you're saying includes a
 prohibition against using any references to @A which have two or more
 "[..]"  .  The reason I thought I could use [][] and [][][] is because
 I had no problem using @B[]{} where I had an array of hashes.

 Another thing I could do is to learn how to search RT to see better
 what works and what doesn't.



 On 4/4/09, Carl Mäsak  wrote:
 > Peter (>):
 >
 > > Am I right that multi-dimensional arrays do not yet work fully in Rakudo?
 >
 >
 > Yes, you are.
 >
 >  That is to say, you can't do this yet:
 >
 >   my @a[4;2];   # Valid indices are 0..3 ; 0..1
 >
 >  There's nothing stopping you from creating an array of arrays, though.
 >
 >
 >  // Carl
 >


Fwd: Multi-Dimensional arrays

2009-04-05 Thread Carl Mäsak
-- Forwarded message --
From: Carl Mäsak 
Date: Sun, Apr 5, 2009 at 9:30 AM
Subject: Re: Multi-Dimensional arrays
To: Peter Schwenn 


Peter (>):
> I've had inconsistent/incorrect results, once having created an array
> of array of arrays, both while addressing elements in it as
> @A[l][m][n]=x and as @a[l][...@y ;  as severe, for example, as
> modifying @A[16]'s contents in addressing @A[14] .

Aye; that may or may not be a bug. I've previously fallen into this trap:

$ perl6 -e 'my @a = [[0 xx 3] xx 3] xx 3; @a[1][2][0] = 7; say @a.perl'
[[[7, 0, 0], [7, 0, 0], [7, 0, 0]], [[7, 0, 0], [7, 0, 0], [7, 0, 0]],
[[7, 0, 0], [7, 0, 0], [7, 0, 0]]]

But that (if I understand correctly) is how C is specced to
behave. It doesn't create clones of the Array, it gives you several
references to the same one.

What does work, and what I settled on in Druid (which pretty much
depends on multidimensional arrays working properly), is using map:

$ perl6 -e 'my @a = map {[map {[map { 0 }, ^3]}, ^3]},  ^3;
@a[1][2][0] = 7; say @a.perl'
[[[0, 0, 0], [0, 0, 0], [0, 0, 0]], [[0, 0, 0], [0, 0, 0], [7, 0, 0]],
[[0, 0, 0], [0, 0, 0], [0, 0, 0]]]

> Perhaps I should wait.  Or perhaps what you're saying includes a
> prohibition against using any references to @A which have two or more
> "[..]"  .  The reason I thought I could use [][] and [][][] is because
> I had no problem using @B[]{} where I had an array of hashes.

I'm not 100% sure, but I would bet that your problems stem from a
distinction such as the one above.

> Another thing I could do is to learn how to search RT to see better
> what works and what doesn't.

Yes, please do that! Not for this particular reason, but simply
because we need more people with knowledge about the tickets in RT.
Lately, they have grown unnecessarily, simply because we have too few
eyes finding closeables and duplicates.

// Carl


Re: Dallas.p6m

2009-04-05 Thread Chris Dolan

On Mar 19, 2009, at 2:35 PM, Andy Lester wrote:

I love love LOVE starting to get people together to talk about Perl  
6.  It's a crucial step in letting people know that Perl 6 is real.   
However, starting social groups that say they are specifically about  
Perl 6 makes me uncomfortable.


I think it would be better to call it Dallas.pm and just talk about  
Perl 6 in the meeting announcements.  The key is that we don't want  
people to think they must choose one or the other.  Technologically,  
Perl 5 and Perl 6 are very different, but culturally, they're very  
similar.


Keeping Perl 5 and Perl 6 groups together also means that we will  
increase cross-pollination of Perl 6 onto the Perl 5 people.


At Madison.pm, I give a 5-minute Perl 6 update each month.  It's easy  
to collect material because Rakudo and Parrot each release monthly, so  
I can always just rehash the release announcements.  I've found that  
the Perl 5 users are quite interested (and occasionally amazed).


Chris



Re: some questions about S02(type)

2009-04-05 Thread Timothy S. Nelson

On Sat, 4 Apr 2009, Darren Duncan wrote:

Speaking of libraries, I already implemented a table type ... it's called 
Set::Relation/::V2 and its on CPAN right now ... for Perl 5 ... I still have 
to port it to Perl 6, unless someone else wants to do that, but I designed it 
so that would be easy to do.  The port could stand for some additional Perl 6 
savvyness too.


Can it be attached to an SQL backend?

:)


-
| Name: Tim Nelson | Because the Creator is,|
| E-mail: wayl...@wayland.id.au| I am   |
-

BEGIN GEEK CODE BLOCK
Version 3.12
GCS d+++ s+: a- C++$ U+++$ P+++$ L+++ E- W+ N+ w--- V- 
PE(+) Y+>++ PGP->+++ R(+) !tv b++ DI D G+ e++> h! y-

-END GEEK CODE BLOCK-



Rakudo on Vista

2009-04-05 Thread Lyle

Hi,
 At B&BPM we are planning our first Perl 6 hackathon. We are pretty 
much all new to Perl 6 so it won't be much more than installing Raduko 
and trying out some of the Perl 6 syntax.
 I have Linux servers, but I usually develop locally on my Vista based 
desktop and laptop. I thought that there might be issues installing 
Rakudo on Vista, so I've had a go ahead of the hackathon.


I've documented my progress in my blog, but it seems like I'm falling at 
the last hurdle. There is a problem with the Rakudo Makefile? Help would 
be very much appreciated...

http://perl.bristolbath.org/blog/lyle/2009/04/first-perl-6-experiences.html


Lyle



Re: Rakudo on Vista

2009-04-05 Thread Bruce Gray


On Apr 5, 2009, at 6:48 PM, Lyle wrote:

--snip--
There is a problem with the Rakudo Makefile? Help would be very  
much appreciated...
http://perl.bristolbath.org/blog/lyle/2009/04/first-perl-6- 
experiences.html


Yes, there is a problem. I have duplicated it under MinGW/Win2K, but  
have not fully analyzed it yet.


Workaround:
Line 330 of the Makefile reads something like:
CRITIC_FILES=Configure.pl t\harness build\ tools\
Change all three of line 330's backslashes to forward-slashes, and  
then `mingw32-make` will work. i.e.:

CRITIC_FILES=Configure.pl t/harness build/ tools/

--
Hope this helps,
Bruce Gray
(Util on PerlMonks)