Re: mod_perl6 update
Jeff Horwitz wrote: It gives me great pleasure to introduce you to the world's first mod_perl6 handlers! They are run using Parrot's Perl6 compiler on top of mod_parrot, and are compiled on the fly the first time a handler is called. Each handler is passed an [Apache;RequestRec] object instantiated by mod_parrot, and the handlers can call methods on that object from Perl6 land. Wow, very cool! It's been a while since a counter got me addicted like this. Ron
[perl #45267] [TODO] Option '--trace' of the parrot executable
# New Ticket Created by Bernhard Schmalhofer # Please include the string: [perl #45267] # in the subject line of all future correspondence about this issue. # URL: http://rt.perl.org/rt3/Ticket/Display.html?id=45267 In t/run/options.t there is a TODO test for the '--trace' option of parrot. It looks like it behaves differently from the '-t' option. According to 'parrot --help' they should be aliased.
[perl #42300] [PATCH] t/pmc/sub.t: test for creation of lex by clone op
On Do. 26. Apr. 2007, 16:45:08, [EMAIL PROTECTED] wrote: Now it makes sense. :) Anyway, I found this by following the Compiler FAQ, which says that a new closure should be created by cloning the sub. I think it should be changed to say newclosure, or even explain this (because you might really want to clone the Sub in some cases.) Hi, in r21136 I have changed compiler_faq.pod, so that it now uses 'newclosure' instead of 'clone'. More explanation could also be added to 'examples/tutorial/80_closure.pir'. As the original issue has been clarified, can I close this ticket? Regards, Bernhard -- /* [EMAIL PROTECTED] */
Re: Build Farm
David Fetter wrote: Would people here be interested in running clients on various architectures, OSs, compilers, etc.? What kinds of things would you like to see in a status overview page I was discussing this with ptc off-list today. What I would most like out of a page which consolidates smoke test reports is to be able to answer the question: The code/test I committed to trunk yesterday: Did it break anything over night? To do that, I need to be able to search smoke reports (a) first by OS, then by date; and/or (b) by date, then by other criteria. Parrot's current smoke reports page doesn't DWIM because it doesn't enable me (AFAICT) to establish a search priority. kid51
[perl #45281] [CAGE] Replace io-vtable-whatever with VTABLE_whatever(interp, io, ...)
# New Ticket Created by chromatic # Please include the string: [perl #45281] # in the subject line of all future correspondence about this issue. # URL: http://rt.perl.org/rt3/Ticket/Display.html?id=45281 Several PMCs use vtable methods directly, rather than going through the accessor macros. These are particularly evident in bytecode freezing and thawing. The existing code looks like: io-vtable-push_integer(INTERP, io, sub-comp_flags); io-vtable-push_integer(INTERP, io, sub-vtable_index); and it should be: VTABLE_push_integer(INTERP, io, sub-comp_flags); VTABLE_push_integer(INTERP, io, sub-vtable_index); This task requires minimal C skills. The relevant PMCs are: src/pmc/array.pmc src/pmc/eval.pmc src/pmc/fixedbooleanarray.pmc src/pmc/fixedintegerarray.pmc src/pmc/fixedpmcarray.pmc src/pmc/fixedstringarray.pmc src/pmc/float.pmc src/pmc/hash.pmc src/pmc/integer.pmc src/pmc/key.pmc src/pmc/lexinfo.pmc src/pmc/orderedhash.pmc src/pmc/pair.pmc src/pmc/parrotclass.pmc src/pmc/parrotobject.pmc src/pmc/resizablebooleanarray.pmc src/pmc/string.pmc src/pmc/sub.pmc -- c
Re: welcome ron to the company of parrots
jerry gay wrote: i've just given ron blaschke (aka ron or rblasch) a commit bit. please join me in welcoming him to the core committers. over the last few years, ron has submitted many high-quality patches, and has always been willing to share his knowledge of windows-based programming. Many thanks! ron has told me privately that he plans to migrate the windows vista source to parrot. we look forward to a future where parrot acts as the virtual machine for an operating system, particularly one so loved and respected by all. The code name for this is Windows Vienna, in honor of this year's YAPC::EU. This is a considerable effort, but should be out by Christmas. Share the love! Ron
[perl #45281] [CAGE] Replace io-vtable-whatever with VTABLE_whatever(interp, io, ...)
On Sat Sep 08 12:37:00 2007, [EMAIL PROTECTED] wrote: Several PMCs use vtable methods directly, rather than going through the accessor macros. These are particularly evident in bytecode freezing and thawing. The existing code looks like: io-vtable-push_integer(INTERP, io, sub-comp_flags); io-vtable-push_integer(INTERP, io, sub-vtable_index); and it should be: VTABLE_push_integer(INTERP, io, sub-comp_flags); VTABLE_push_integer(INTERP, io, sub-vtable_index); This task requires minimal C skills. The relevant PMCs are: src/pmc/array.pmc src/pmc/eval.pmc src/pmc/fixedbooleanarray.pmc src/pmc/fixedintegerarray.pmc src/pmc/fixedpmcarray.pmc src/pmc/fixedstringarray.pmc src/pmc/float.pmc src/pmc/hash.pmc src/pmc/integer.pmc src/pmc/key.pmc src/pmc/lexinfo.pmc src/pmc/orderedhash.pmc src/pmc/pair.pmc src/pmc/parrotclass.pmc src/pmc/parrotobject.pmc src/pmc/resizablebooleanarray.pmc src/pmc/string.pmc src/pmc/sub.pmc Is this restricted to just the pmc's? Cack -l also found instances in: src/ops/io.ops src/hash.c src/pmc_freeze.c src/stm/backend.c I.e. should these be updated/changed as well? Paul
Re: [perl #45281] [CAGE] Replace io-vtable-whatever with VTABLE_whatever(interp, io, ...)
On Saturday 08 September 2007 14:00:39 Paul Cochrane via RT wrote: Is this restricted to just the pmc's? Cack -l also found instances in: src/ops/io.ops src/hash.c src/pmc_freeze.c src/stm/backend.c I.e. should these be updated/changed as well? Hm, I thought it was, but it's not. Those all need changes too. -- c
[svn:parrot-pdd] r21146 - trunk/docs/pdds/draft
Author: allison Date: Sat Sep 8 14:25:24 2007 New Revision: 21146 Modified: trunk/docs/pdds/draft/pdd25_concurrency.pod Log: [pdd] Add a reference to a PerlMonks thread about concurrency. Modified: trunk/docs/pdds/draft/pdd25_concurrency.pod == --- trunk/docs/pdds/draft/pdd25_concurrency.pod (original) +++ trunk/docs/pdds/draft/pdd25_concurrency.pod Sat Sep 8 14:25:24 2007 @@ -1021,6 +1021,9 @@ Sept. 2005 - consider using OS threads http://groups.google.com/group/perl.perl6.internals/browse_frm/thread/40b50e3aa9255f8e/036a87b5d2b5ed2c?lnk=gstq=threadsrnum=2#036a87b5d2b5ed2c +Aug. 2007 - multi-threading a work in progress +http://perlmonks.org/?node_id=636466 + Concurrency as Futures - http://www.cincomsmalltalk.com/userblogs/mls/blogView?showComments=trueentry=3336838959
[perl #45281] [CAGE] Replace io-vtable-whatever with VTABLE_whatever(interp, io, ...)
On Sat Sep 08 14:11:57 2007, [EMAIL PROTECTED] wrote: On Saturday 08 September 2007 14:00:39 Paul Cochrane via RT wrote: Is this restricted to just the pmc's? Cack -l also found instances in: src/ops/io.ops src/hash.c src/pmc_freeze.c src/stm/backend.c I.e. should these be updated/changed as well? Hm, I thought it was, but it's not. Those all need changes too. As it turns out src/ops/io.ops was an incorrect addition. The relevant files have been updated in revisions 21147 and 21148. Paul
[perl #44607] [CAGE] Hoist slurp_file() into Parrot::Util
Andy moved slurp_file() into Parrot::BuildUtil last month. So I don't think we need to start a separate module called Parrot::Util -- at least not yet. I'm adding one file, t/configure/039-slurp_file.t, to provide unit tests for Parrot::BuildUtil::slurp_file(). I also spruced up the POD in BuildUtil.pm a bit. With this, I think this ticket can be resolved for the time being. We can create new tickets for any other issues that have been discussed in this thread. kid51 Index: MANIFEST === --- MANIFEST(revision 21148) +++ MANIFEST(working copy) @@ -1,7 +1,7 @@ # ex: set ro: # $Id$ # -# generated by tools/dev/mk_manifest_and_skip.pl Fri Sep 7 23:13:02 2007 UT +# generated by tools/dev/mk_manifest_and_skip.pl Sun Sep 9 01:46:53 2007 UT # # See tools/dev/install_files.pl for documentation on the # format of this file. @@ -2916,6 +2916,7 @@ t/configure/036_config_steps.t [] t/configure/037-run_single_step.t [] t/configure/038-run_single_step.t [] +t/configure/039-slurp_file.t[] t/configure/101-init_manifest.01.t [] t/configure/101-init_manifest.02.t [] t/configure/102-init_defaults.01.t [] Index: lib/Parrot/BuildUtil.pm === --- lib/Parrot/BuildUtil.pm (revision 21148) +++ lib/Parrot/BuildUtil.pm (working copy) @@ -7,9 +7,9 @@ =head1 DESCRIPTION -For now, this package contains only one subroutine: Cparrot_version(). -This subroutine is not exported and so must be requested with a fully -qualified path. +This package holds two subroutines: Cparrot_version() and +slurp_file. Neither subroutine is exported and so each must be +requested with a fully qualified path. =cut @@ -69,7 +69,8 @@ =item Cslurp_file($filename) -Slurps up the filename and returns the content as one string. +Slurps up the filename and returns the content as one string. While +doing so, it converts all DOS-style line endings to newlines. =cut Index: t/configure/039-slurp_file.t === --- t/configure/039-slurp_file.t(revision 0) +++ t/configure/039-slurp_file.t(revision 0) @@ -0,0 +1,90 @@ +#! perl +# Copyright (C) 2007, The Perl Foundation. +# $Id$ +# 039-slurp_file.t + +use strict; +use warnings; + +use Test::More tests = 10; +use Carp; +use_ok( 'File::Temp', qw| tempfile | ); +use lib qw( lib ); +use Parrot::BuildUtil; + +{ +my ($fh, $tempfile) = tempfile(); +open $fh, , $tempfile +or croak Unable to open tempfile for writing; +print $fh Testing Parrot::BuildUtil::slurp_file()\n; +close $fh or croak Unable to close tempfile after writing; + +ok(-f $tempfile, tempfile created for testing); +my $str = Parrot::BuildUtil::slurp_file($tempfile); +ok($str, slurpfile() returned true value); +like($str, qr/Testing Parrot::BuildUtil::slurp_file/, +Main content of tempfile correctly slurped); +} + +{ +my ($fh, $tempfile) = tempfile(); +open $fh, , $tempfile +or croak Unable to open tempfile for writing; +print $fh Testing Parrot::BuildUtil::slurp_file()\cM\cJ\n; +close $fh or croak Unable to close tempfile after writing; + +ok(-f $tempfile, tempfile created for testing); +my $str = Parrot::BuildUtil::slurp_file($tempfile); +ok($str, slurpfile() returned true value); +like($str, qr/Testing Parrot::BuildUtil::slurp_file/, +Main content of tempfile correctly slurped); +like($str, qr/\n{2}/m, +DOS line endings correctly converted during slurp_file); +} + + + +{ +my $phony = q{foobar}; +my $str; +eval { $str = Parrot::BuildUtil::slurp_file($phony); }; +like($@, qr/open '$phony'/, +Got error message expected upon attempting to slurp non-existent file); +} + + +pass(Completed all tests in $0); + +### DOCUMENTATION ### + +=head1 NAME + +039-slurp_file.t - test CParrot::BuildUtil::slurp_file() + +=head1 SYNOPSIS + +% prove t/configure/039-slurp_file.t + +=head1 DESCRIPTION + +The files in this directory test functionality used by FConfigure.pl. + +The tests in this file test CParrot::BuildUtil::slurp_file(). + +=head1 AUTHOR + +James E Keenan + +=head1 SEE ALSO + +Parrot::BuildUtil, FConfigure.pl. + +=cut + +# Local Variables: +# mode: cperl +# cperl-indent-level: 4 +# fill-column: 100 +# End: +# vim: expandtab shiftwidth=4: + Property changes on: t/configure/039-slurp_file.t ___ Name: svn:mime-type + text/plain Name: svn:keywords + Author Date Id Revision Name: svn:eol-style + native