Shared Lib fro Dynamic PMC

2006-08-02 Thread Vishal Soni

Hi,

I need to have a shared lib for a Dynamic PMC. The shared lib is generated
from my own code. What is a good location to place the shared lib that I
generate?

Is lib/blib a good location?

This is for Byte Code generator.

--
Thanks,
Vishal


Re: Shared Lib fro Dynamic PMC

2006-08-02 Thread chromatic
On Tuesday 01 August 2006 23:11, Vishal Soni wrote:

 I need to have a shared lib for a Dynamic PMC. The shared lib is generated
 from my own code. What is a good location to place the shared lib that I
 generate?

 Is lib/blib a good location?

 This is for Byte Code generator.

There's blib/lib, where libparrot goes (and where I'll probably put the 
compiled Parrot::Embed library), but there's also runtime/parrot/dynext/, 
where libnci_test goes.

I'm not sure what the difference is.

-- c


[svn:perl6-synopsis] r10537 - doc/trunk/design/syn

2006-08-02 Thread larry
Author: larry
Date: Wed Aug  2 00:20:22 2006
New Revision: 10537

Modified:
   doc/trunk/design/syn/S02.pod
   doc/trunk/design/syn/S12.pod

Log:
Added back in qx forms where x is single modifier character.


Modified: doc/trunk/design/syn/S02.pod
==
--- doc/trunk/design/syn/S02.pod(original)
+++ doc/trunk/design/syn/S02.podWed Aug  2 00:20:22 2006
@@ -12,9 +12,9 @@
 
   Maintainer: Larry Wall [EMAIL PROTECTED]
   Date: 10 Aug 2004
-  Last Modified: 26 July 2006
+  Last Modified: 2 Aug 2006
   Number: 2
-  Version: 56
+  Version: 57
 
 This document summarizes Apocalypse 2, which covers small-scale
 lexical items and typological issues.  (These Synopses also contain
@@ -1422,6 +1422,9 @@
 quote qn;   # completely raw quote qn//
 quote qnc;  # q:n:c//, interpolate only closures
 
+Actually, the first two are already assumed, because you get all of the
+forms that use as single character predeclared for free.
+
 If you want to abbreviate further, you may also give an explicit
 definition as either a string or quasiquote:
 

Modified: doc/trunk/design/syn/S12.pod
==
--- doc/trunk/design/syn/S12.pod(original)
+++ doc/trunk/design/syn/S12.podWed Aug  2 00:20:22 2006
@@ -1247,7 +1247,7 @@
 
 my Str_not2b $hamlet;
 $hamlet = 'isnt';   # Okay because 'isnt' ~~ /^[isnt|arent|amnot|aint]$/
-$hamlet = 'amnt';   # Bzzzt!   'amnt' !~ /^[isnt|arent|amnot|aint]$/
+$hamlet = 'amnt';   # Bzzzt!   'amnt' !~~ /^[isnt|arent|amnot|aint]$/
 
 my EvenNum $n;
 $n = 2; # Okay


[svn:perl6-synopsis] r10538 - doc/trunk/design/syn

2006-08-02 Thread larry
Author: larry
Date: Wed Aug  2 07:53:12 2006
New Revision: 10538

Modified:
   doc/trunk/design/syn/S05.pod

Log:
Clarified Unicode property names a bit.


Modified: doc/trunk/design/syn/S05.pod
==
--- doc/trunk/design/syn/S05.pod(original)
+++ doc/trunk/design/syn/S05.podWed Aug  2 07:53:12 2006
@@ -14,9 +14,9 @@
Maintainer: Patrick Michaud [EMAIL PROTECTED] and
Larry Wall [EMAIL PROTECTED]
Date: 24 Jun 2002
-   Last Modified: 1 Aug 2006
+   Last Modified: 2 Aug 2006
Number: 5
-   Version: 29
+   Version: 30
 
 This document summarizes Apocalypse 5, which is about the new regex
 syntax.  We now try to call them Iregex because they haven't been
@@ -924,8 +924,14 @@
 
 =item *
 
-The C\p and C\P properties become intrinsic grammar rules
-(C prop ...  and C !prop ... ).
+The C\p and C\P properties become intrinsic grammar rules such as
+(C alpha  and C !alpha ).  They may be combined using the
+above-mentioned character class notation: C [_]+alpha+digit .
+Regardless of the higher-level character class names, low-level
+Unicode properties are always available with a prefix of Cis.
+Hence, C +isLu+isLt  is equivalent to C +upper+title .
+If you define your own is properties they hide any Unicode properties
+of the same name.
 
 =item *
 


[svn:perl6-synopsis] r10539 - doc/trunk/design/syn

2006-08-02 Thread larry
Author: larry
Date: Wed Aug  2 09:00:38 2006
New Revision: 10539

Modified:
   doc/trunk/design/syn/S05.pod

Log:
Tweaks to allow foo+bar.


Modified: doc/trunk/design/syn/S05.pod
==
--- doc/trunk/design/syn/S05.pod(original)
+++ doc/trunk/design/syn/S05.podWed Aug  2 09:00:38 2006
@@ -16,7 +16,7 @@
Date: 24 Jun 2002
Last Modified: 2 Aug 2006
Number: 5
-   Version: 30
+   Version: 31
 
 This document summarizes Apocalypse 5, which is about the new regex
 syntax.  We now try to call them Iregex because they haven't been
@@ -629,6 +629,38 @@
 
  / sign? mantissa exponent? /
 
+The first character after the identifier determines the treatment of
+the rest of the text before the closing angle.  The underlying semantics
+is that of a function or method call, so if the first character is
+a left parenthesis, it really is a call:
+
+foo('bar')
+
+If the first character is a colon, the rest of the text (following any
+whitespace) is passed as a string, so the previous may also be written as:
+
+foo: bar
+
+If the first character is whitespace, the subsequent text is passed as regex,
+so:
+
+foo bar
+
+is more or less equivalent to
+
+foo(/bar/)
+
+If the first character is a plus or minus, the initial identifier taken
+as a character class, so
+
+foo+bar-baz
+
+is equivalent to
+
++foo+bar-baz
+
+(See below.)
+
 =item *
 
 The special named assertions include:
@@ -816,6 +848,10 @@
 
  / -[a..z_] -alpha /
 
+This is essentially the same as using negative lookahead and dot:
+
+/ ![a..z_] . !alpha . /
+
 =item *
 
 Character classes can be combined (additively or subtractively) within
@@ -824,9 +860,11 @@
  / [a..z]-[aeiou]+xdigit /  # consonant or hex digit
 
 If such a combination starts with a named character class, a leading
-C+ is required:
+C+ is allowed but not required, provided the next character is a
+character set operation:
 
- / +alpha-[Jj] /   # J-less alpha
+ / +alpha-[Jj] /  # J-less alpha
+ / alpha-[Jj] /   # same thing
 
 =item *
 


Re: [svn:perl6-synopsis] r10539 - doc/trunk/design/syn

2006-08-02 Thread Aaron Crane
[EMAIL PROTECTED] commits:
 +If the first character is a plus or minus, the initial identifier taken
 +as a character class, so

s/taken/is taken/

-- 
Aaron Crane


Re: [perl #40030] [PATCH] compiler/imcc missing dependency

2006-08-02 Thread fonseka

On 8/1/06, Leopold Toetsch [EMAIL PROTECTED] wrote:


Am Montag, 31. Juli 2006 22:38 schrieb [EMAIL PROTECTED]:

 The trunk wasn't compilling in my machines...

 After digging into Makefile I found missing depencies linking
 miniparrot and parrot

+$(IMCC_DIR)/imclexer$(O) $(IMCC_DIR)/parser_util$(O)
$(IMCC_DIR)/debug$(O)

This isn't correct either. These object files are already part of
libparrot
(see also IMCC_O_FILES).

There must be some other problem elsewhere.



Found the problem... it was MY problem... I had rests of an old instalation
of parrot in my /usr/local/lib, and gcc was pulling libparrot from there,
making the hole process borked...

Removed the old instalation, and parrot compiles fine now :) sorry for this
wrong patch :)


leo






--
Will work for bandwidth


Re: [perl #40030] [PATCH] compiler/imcc missing dependency

2006-08-02 Thread Leopold Toetsch
Am Mittwoch, 2. August 2006 19:52 schrieb [EMAIL PROTECTED]:
  There must be some other problem elsewhere.

 Found the problem... it was MY problem... I had rests of an old instalation
 of parrot in my /usr/local/lib, and gcc was pulling libparrot from there,
 making the hole process borked...

Strange. I tried hard to resolve:
http://rt.perl.org/rt3//Public/Bug/Display.html?id=39742
and didn't see any bad interaction of an installed Parrot (albeit there are a 
lot of such reports, that there is one).

leo


[perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk

2006-08-02 Thread via RT
# New Ticket Created by  Will Coleda 
# Please include the string:  [perl #40048]
# in the subject line of all future correspondence about this issue. 
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40048 


works fine with svn, but not svk. be nice if it worked under either  
system.

--
Will Coke Coleda
[EMAIL PROTECTED]




Re: [perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk

2006-08-02 Thread jerry gay

it's not like you to submit bug reports without useful information.
how do you quantify doesn't like svk?
what is the output of Cprove -v t/distro/file_metadata.t?
~jerry


Re: [perl #40030] [PATCH] compiler/imcc missing dependency

2006-08-02 Thread fonseka

On 8/2/06, Leopold Toetsch [EMAIL PROTECTED] wrote:


Am Mittwoch, 2. August 2006 19:52 schrieb [EMAIL PROTECTED]:
  There must be some other problem elsewhere.

 Found the problem... it was MY problem... I had rests of an old
instalation
 of parrot in my /usr/local/lib, and gcc was pulling libparrot from
there,
 making the hole process borked...

Strange. I tried hard to resolve:
http://rt.perl.org/rt3//Public/Bug/Display.html?id=39742
and didn't see any bad interaction of an installed Parrot (albeit there
are a
lot of such reports, that there is one).



I don't really know how to solve this problem... AFAIK gcc pulls by default
libs from /usr/local/lib or /usr/lib as soon as you do -llib... You can
pass -L/path to gcc, but maybe the deafult search paths has priority over
the hand-defined ones. Guess I'll have to digg it more...


leo






--
Will work for bandwidth


Re: [perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk

2006-08-02 Thread Will Coleda
Every single test fails because the file assumes svn instead of svk,  
e.g.:


my @cmd = qw(svn pg svn:mime-type);
   @cmd = qw(svn pg svn:keywords);

one reference is made to 'svk ls', but it's never considered as an  
option to get at the meta data, just as a criteria to then try to get  
the data with svn.


Regards.

On Aug 2, 2006, at 3:37 PM, Jerry Gay via RT wrote:


how do you quantify doesn't like svk?
what is the output of Cprove -v t/distro/file_metadata.t?
~jerry





--
Will Coke Coleda
[EMAIL PROTECTED]




Re: [perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk

2006-08-02 Thread chromatic
On Wednesday 02 August 2006 12:53, Will Coleda wrote:

 Every single test fails because the file assumes svn instead of svk,
 e.g.:

  my @cmd = qw(svn pg svn:mime-type);
 @cmd = qw(svn pg svn:keywords);

 one reference is made to 'svk ls', but it's never considered as an
 option to get at the meta data, just as a criteria to then try to get
 the data with svn.

Wow, this test takes a while.  Here's a brain-dead simple patch I wrote that 
seems to be working for now.

-- c
=== t/distro/file_metadata.t
==
--- t/distro/file_metadata.t	(revision 19697)
+++ t/distro/file_metadata.t	(local)
@@ -13,6 +13,8 @@
 use Parrot::Revision;
 use ExtUtils::Manifest qw( maniread );
 
+my $cmd = -d '.svn' ? 'svn' : 'svk';
+
 =head1 NAME
 
 t/distro/file_metadata.t - verify file metadata matches expectations
@@ -44,13 +46,13 @@
 	# find test files
 	my @test_files = grep { m/\Q$test_suffix\E$/} @manifest_files;
 
-	my @cmd = qw(svn pg svn:mime-type);
+	my @cmd = qw(pg svn:mime-type);
 
 	my $msg = test file has 'text/plain' mime-type;
 	diag $msg;
 
 	like(
-		sub{ my $r = qx(@cmd $_); chomp $r; $_ ($r) }-(),
+		sub{ my $r = qx($cmd @cmd $_); chomp $r; $_ ($r) }-(),
 		qr!^$_ \(text/plain!,
 		$msg ($_)
 	) for @test_files;
@@ -62,22 +64,22 @@
 KEYWORD_EXP: {
 	diag this may take a while...;
 
-	my @cmd = qw(svn pg svn:mime-type);
+	my @cmd = qw(pg svn:mime-type);
 
 	my @plain_files =
 		grep {
-		my $r = qx(@cmd $_); chomp $r; 
+		my $r = qx($cmd @cmd $_); chomp $r; 
 $r eq 'text/plain' or $r eq q{};
 } @manifest_files;
 	chomp @plain_files;
 
-	@cmd = qw(svn pg svn:keywords);
+	@cmd = qw(pg svn:keywords);
 
 	my $msg = 'text/plain' file has keyword expansion;
 	diag $msg;
 
 	is(
-		sub{ my $r = qx(@cmd $_); chomp $r; $_ ($r) }-(),
+		sub{ my $r = qx($cmd @cmd $_); chomp $r; $_ ($r) }-(),
 		$_ (Author Date Id Revision),
 		$msg ($_)
 	) for @plain_files;
@@ -85,7 +87,7 @@
 
 
 SKIP: {
-	skip 'custom svn keywords not yet supported' = 1;
+	skip custom $cmd keywords not yet supported = 1;
 ## Copyright keyword
 COPYRIGHT: {
 	my $readme = catfile( $PConfig{build_dir}, 'README' );
@@ -102,13 +104,13 @@
 	fail('official copyright not found') and last COPYRIGHT
 		unless length $official_copyright;
 
-	my @cmd = qw(svn pg Copyright);
+	my @cmd = qw(pg Copyright);
 
 	my $msg = 'Copyright property matches official copyright';
 	diag $msg;
 
 	is(
-		sub{ my $r = qx(@cmd $_); chomp $r; $_: $r }-(),
+		sub{ my $r = qx($cmd @cmd $_); chomp $r; $_: $r }-(),
 		$_: $official_copyright,
 		$msg ($_)
 	) for @manifest_files;


Re: [perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk

2006-08-02 Thread Will Coleda

Seems fine, modulo:

-   my @cmd = qw(svn pg Copyright);
+   my @cmd = qw(pg Copyright);

should probably be:

-   my @cmd = qw(svn pg Copyright);
+   my @cmd = qw($cmd pg Copyright);

(though that test is skipped right now anyway)

On Aug 2, 2006, at 3:55 PM, chromatic wrote:


On Wednesday 02 August 2006 12:53, Will Coleda wrote:


Every single test fails because the file assumes svn instead of svk,
e.g.:

 my @cmd = qw(svn pg svn:mime-type);
@cmd = qw(svn pg svn:keywords);

one reference is made to 'svk ls', but it's never considered as an
option to get at the meta data, just as a criteria to then try to get
the data with svn.


Wow, this test takes a while.  Here's a brain-dead simple patch I  
wrote that

seems to be working for now.

-- c
allow_svk.patch


--
Will Coke Coleda
[EMAIL PROTECTED]




Re: [perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk

2006-08-02 Thread chromatic
On Wednesday 02 August 2006 13:13, Will Coleda wrote:

 Seems fine, modulo:

 - my @cmd = qw(svn pg Copyright);
 + my @cmd = qw(pg Copyright);

 should probably be:

 - my @cmd = qw(svn pg Copyright);
 + my @cmd = qw($cmd pg Copyright);

 (though that test is skipped right now anyway)

$cmd doesn't interpolate in qw() unfortunately.

-- c


[perl #40053] Empty PGE rule causes error. rule x { }

2006-08-02 Thread via RT
# New Ticket Created by  Kevin Tew 
# Please include the string:  [perl #40053]
# in the subject line of all future correspondence about this issue. 
# URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40053 


It should die with a more informative error message and a line number or 
rule name.

Null PMC access in find_method()
current instr.: 'parrot;PGE::P6Regex;compile_p6regex' pc 6355 
(compilers/pge/PGE/P6Regex.pir:128)
called from Sub 'parrot;PGE::P6Grammar;regex_stmt' pc 626 
(../../compilers/pge/pgc.pir:338)
called from Sub 'parrot;PGE::P6Grammar;compile_p6grammar' pc 345 
(../../compilers/pge/pgc.pir:225)
called from Sub 'parrot;PGE::P6Grammar;main' pc 135 
(../../compilers/pge/pgc.pir:111)