Author: jkeenan Date: Tue Jan 30 17:22:41 2007 New Revision: 16848 Added: branches/buildtools/docs/roles_responsibilities.pod (props changed) - copied unchanged from r16847, /trunk/docs/roles_responsibilities.pod branches/buildtools/languages/PIR/ (props changed) - copied from r16847, /trunk/languages/PIR/ branches/buildtools/languages/PIR/README (props changed) - copied unchanged from r16847, /trunk/languages/PIR/README branches/buildtools/languages/PIR/TODO - copied unchanged from r16847, /trunk/languages/PIR/TODO branches/buildtools/languages/PIR/config/ - copied from r16847, /trunk/languages/PIR/config/ branches/buildtools/languages/PIR/config/makefiles/ - copied from r16847, /trunk/languages/PIR/config/makefiles/ branches/buildtools/languages/PIR/config/makefiles/root.in (props changed) - copied unchanged from r16847, /trunk/languages/PIR/config/makefiles/root.in branches/buildtools/languages/PIR/examples/ - copied from r16847, /trunk/languages/PIR/examples/ branches/buildtools/languages/PIR/examples/call.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/call.pir branches/buildtools/languages/PIR/examples/call2.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/call2.pir branches/buildtools/languages/PIR/examples/calltest.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/calltest.pir branches/buildtools/languages/PIR/examples/dot.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/dot.pir branches/buildtools/languages/PIR/examples/flags.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/flags.pir branches/buildtools/languages/PIR/examples/keys.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/keys.pir branches/buildtools/languages/PIR/examples/label.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/label.pir branches/buildtools/languages/PIR/examples/labels.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/labels.pir branches/buildtools/languages/PIR/examples/line.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/line.pir branches/buildtools/languages/PIR/examples/macro.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/macro.pir branches/buildtools/languages/PIR/examples/macrotry.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/macrotry.pir branches/buildtools/languages/PIR/examples/multi.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/multi.pir branches/buildtools/languages/PIR/examples/namespace.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/namespace.pir branches/buildtools/languages/PIR/examples/namespaces.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/namespaces.pir branches/buildtools/languages/PIR/examples/nci.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/nci.pir branches/buildtools/languages/PIR/examples/obj.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/obj.pir branches/buildtools/languages/PIR/examples/pasmtest.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/pasmtest.pir branches/buildtools/languages/PIR/examples/pod.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/pod.pir branches/buildtools/languages/PIR/examples/reserved.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/reserved.pir branches/buildtools/languages/PIR/examples/string.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/string.pir branches/buildtools/languages/PIR/examples/subs.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/subs.pir branches/buildtools/languages/PIR/examples/test.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/test.pir branches/buildtools/languages/PIR/examples/test1.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/examples/test1.pir branches/buildtools/languages/PIR/lib/ (props changed) - copied from r16847, /trunk/languages/PIR/lib/ branches/buildtools/languages/PIR/lib/ASTGrammar.tg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/ASTGrammar.tg branches/buildtools/languages/PIR/lib/pasm.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pasm.pg branches/buildtools/languages/PIR/lib/pasm_args.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pasm_args.pg branches/buildtools/languages/PIR/lib/pasm_core.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pasm_core.pg branches/buildtools/languages/PIR/lib/pasm_instr.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pasm_instr.pg branches/buildtools/languages/PIR/lib/pasm_io.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pasm_io.pg branches/buildtools/languages/PIR/lib/pasm_pmc.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pasm_pmc.pg branches/buildtools/languages/PIR/lib/pir.pg (props changed) - copied unchanged from r16847, /trunk/languages/PIR/lib/pir.pg branches/buildtools/languages/PIR/pirc.pir (props changed) - copied unchanged from r16847, /trunk/languages/PIR/pirc.pir branches/buildtools/languages/PIR/t/ - copied from r16847, /trunk/languages/PIR/t/ branches/buildtools/languages/PIR/t/harness - copied unchanged from r16847, /trunk/languages/PIR/t/harness branches/buildtools/languages/PIR/t/sub.t - copied unchanged from r16847, /trunk/languages/PIR/t/sub.t branches/buildtools/languages/perl5/ (props changed) - copied from r16847, /trunk/languages/perl5/ branches/buildtools/languages/perl5/README - copied unchanged from r16847, /trunk/languages/perl5/README branches/buildtools/languages/perl5/config/ - copied from r16847, /trunk/languages/perl5/config/ branches/buildtools/languages/perl5/config/makefiles/ - copied from r16847, /trunk/languages/perl5/config/makefiles/ branches/buildtools/languages/perl5/config/makefiles/root.in - copied unchanged from r16847, /trunk/languages/perl5/config/makefiles/root.in branches/buildtools/languages/perl5/docs/ - copied from r16847, /trunk/languages/perl5/docs/ branches/buildtools/languages/perl5/docs/perlarray.pod (props changed) - copied unchanged from r16847, /trunk/languages/perl5/docs/perlarray.pod branches/buildtools/languages/perl5/docs/perlhash.pod (props changed) - copied unchanged from r16847, /trunk/languages/perl5/docs/perlhash.pod branches/buildtools/languages/perl5/docs/perlstring.pod (props changed) - copied unchanged from r16847, /trunk/languages/perl5/docs/perlstring.pod branches/buildtools/languages/perl5/src/ - copied from r16847, /trunk/languages/perl5/src/ branches/buildtools/languages/perl5/src/pmc/ (props changed) - copied from r16847, /trunk/languages/perl5/src/pmc/ branches/buildtools/languages/perl5/src/pmc/perlarray.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlarray.pmc branches/buildtools/languages/perl5/src/pmc/perlenv.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlenv.pmc branches/buildtools/languages/perl5/src/pmc/perlhash.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlhash.pmc branches/buildtools/languages/perl5/src/pmc/perlint.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlint.pmc branches/buildtools/languages/perl5/src/pmc/perlnum.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlnum.pmc branches/buildtools/languages/perl5/src/pmc/perlscalar.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlscalar.pmc branches/buildtools/languages/perl5/src/pmc/perlstring.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlstring.pmc branches/buildtools/languages/perl5/src/pmc/perlundef.pmc (props changed) - copied unchanged from r16847, /trunk/languages/perl5/src/pmc/perlundef.pmc branches/buildtools/languages/perl5/t/ (props changed) - copied from r16847, /trunk/languages/perl5/t/ branches/buildtools/languages/perl5/t/perlarray.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlarray.t branches/buildtools/languages/perl5/t/perlenv.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlenv.t branches/buildtools/languages/perl5/t/perlhash.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlhash.t branches/buildtools/languages/perl5/t/perlint.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlint.t branches/buildtools/languages/perl5/t/perlnum.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlnum.t branches/buildtools/languages/perl5/t/perlscalar.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlscalar.t branches/buildtools/languages/perl5/t/perlstring.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlstring.t branches/buildtools/languages/perl5/t/perlundef.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/perlundef.t branches/buildtools/languages/perl5/t/sparse_perlarray.t (props changed) - copied unchanged from r16847, /trunk/languages/perl5/t/sparse_perlarray.t branches/buildtools/lib/Parrot/Test/PIR_PGE.pm - copied unchanged from r16847, /trunk/lib/Parrot/Test/PIR_PGE.pm Removed: branches/buildtools/docs/pmc/perlarray.pod branches/buildtools/docs/pmc/perlhash.pod branches/buildtools/docs/pmc/perlstring.pod branches/buildtools/src/dynpmc/perlarray.pmc branches/buildtools/src/dynpmc/perlenv.pmc branches/buildtools/src/dynpmc/perlhash.pmc branches/buildtools/src/dynpmc/perlint.pmc branches/buildtools/src/dynpmc/perlnum.pmc branches/buildtools/src/dynpmc/perlscalar.pmc branches/buildtools/src/dynpmc/perlstring.pmc branches/buildtools/src/dynpmc/perlundef.pmc branches/buildtools/t/dynpmc/perlarray.t branches/buildtools/t/dynpmc/perlenv.t branches/buildtools/t/dynpmc/perlhash.t branches/buildtools/t/dynpmc/perlint.t branches/buildtools/t/dynpmc/perlnum.t branches/buildtools/t/dynpmc/perlscalar.t branches/buildtools/t/dynpmc/perlstring.t branches/buildtools/t/dynpmc/perlundef.t branches/buildtools/t/dynpmc/sparse_perlarray.t Modified: branches/buildtools/ (props changed) branches/buildtools/DEPRECATED.pod branches/buildtools/MANIFEST branches/buildtools/MANIFEST.SKIP branches/buildtools/RELEASE_INSTRUCTIONS branches/buildtools/config/gen/languages.pm branches/buildtools/config/gen/makefiles/dynpmc.in branches/buildtools/config/gen/makefiles/languages.in branches/buildtools/docs/parrothist.pod branches/buildtools/languages/LANGUAGES.STATUS.pod branches/buildtools/languages/lua/Lua/build.pm branches/buildtools/languages/lua/t/function.t branches/buildtools/languages/lua/t/object.t branches/buildtools/languages/lua/t/shootout.t branches/buildtools/languages/plumhead/src/antlr3/GenPastPirTreeParser.java branches/buildtools/languages/plumhead/src/antlr3/PlumheadLexer.java branches/buildtools/languages/plumhead/src/antlr3/PlumheadParser.java branches/buildtools/languages/plumhead/src/partridge/Plumhead.pg branches/buildtools/languages/plumhead/src/partridge/PlumheadPAST.tg branches/buildtools/languages/plumhead/t/hello.t branches/buildtools/lib/Parrot/Distribution.pm branches/buildtools/lib/Parrot/Docs/Section/Languages.pm branches/buildtools/t/pmc/mmd.t branches/buildtools/t/pmc/sub.t branches/buildtools/t/pmc/threads.t
Log: Synching buildtools branch to trunk (16847). Modified: branches/buildtools/DEPRECATED.pod ============================================================================== --- branches/buildtools/DEPRECATED.pod (original) +++ branches/buildtools/DEPRECATED.pod Tue Jan 30 17:22:41 2007 @@ -53,14 +53,4 @@ print $S0 substr $P0, 1, 2, "x" -=item Perl PMCs [#41238] - -The dynamic PMCS PerlString, PerlUndef, etc. were originally created with an -eye towards being used in Perl6 development, and as the first set of full -featured PMCs. However, Perl6 development is not going to be using them, and -the core PMCs (String, Undef, Integer ...) have replaced them for usage. - -These PMCs will be moved to languages/perl5 after the next release. At some -point after that they may be removed the repository altogether. - =back Modified: branches/buildtools/MANIFEST ============================================================================== --- branches/buildtools/MANIFEST (original) +++ branches/buildtools/MANIFEST Tue Jan 30 17:22:41 2007 @@ -1,7 +1,7 @@ # ex: set ro: # $Id$ # -# generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 24 18:17:33 2007 UT +# generated by tools/dev/mk_manifest_and_skip.pl Tue Jan 30 19:21:09 2007 UT # # See tools/dev/install_files.pl for documentation on the # format of this file. @@ -389,9 +389,6 @@ docs/pmc.pod [main]doc docs/pmc/array.pod [main]doc docs/pmc/iterator.pod [main]doc -docs/pmc/perlarray.pod [main]doc -docs/pmc/perlhash.pod [main]doc -docs/pmc/perlstring.pod [main]doc docs/pmc/struct.pod [main]doc docs/pmc/subs.pod [main]doc docs/porting_intro.pod [main]doc @@ -401,6 +398,7 @@ docs/resources/parrot.small.png [main]doc docs/resources/perl.css [main]doc docs/resources/up.gif [main]doc +docs/roles_responsibilities.pod [main]doc docs/running.pod [main]doc docs/stability.pod [main]doc docs/stm/atomic.pod [main]doc @@ -848,6 +846,43 @@ languages/HQ9plus/t/basic.t [HQ9plus] languages/HQ9plus/t/harness [HQ9plus] languages/LANGUAGES.STATUS.pod [] +languages/PIR/README [PIR] +languages/PIR/TODO [PIR] +languages/PIR/config/makefiles/root.in [PIR] +languages/PIR/examples/call.pir [PIR] +languages/PIR/examples/call2.pir [PIR] +languages/PIR/examples/calltest.pir [PIR] +languages/PIR/examples/dot.pir [PIR] +languages/PIR/examples/flags.pir [PIR] +languages/PIR/examples/keys.pir [PIR] +languages/PIR/examples/label.pir [PIR] +languages/PIR/examples/labels.pir [PIR] +languages/PIR/examples/line.pir [PIR] +languages/PIR/examples/macro.pir [PIR] +languages/PIR/examples/macrotry.pir [PIR] +languages/PIR/examples/multi.pir [PIR] +languages/PIR/examples/namespace.pir [PIR] +languages/PIR/examples/namespaces.pir [PIR] +languages/PIR/examples/nci.pir [PIR] +languages/PIR/examples/obj.pir [PIR] +languages/PIR/examples/pasmtest.pir [PIR] +languages/PIR/examples/pod.pir [PIR] +languages/PIR/examples/reserved.pir [PIR] +languages/PIR/examples/string.pir [PIR] +languages/PIR/examples/subs.pir [PIR] +languages/PIR/examples/test.pir [PIR] +languages/PIR/examples/test1.pir [PIR] +languages/PIR/lib/ASTGrammar.tg [PIR] +languages/PIR/lib/pasm.pg [PIR] +languages/PIR/lib/pasm_args.pg [PIR] +languages/PIR/lib/pasm_core.pg [PIR] +languages/PIR/lib/pasm_instr.pg [PIR] +languages/PIR/lib/pasm_io.pg [PIR] +languages/PIR/lib/pasm_pmc.pg [PIR] +languages/PIR/lib/pir.pg [PIR] +languages/PIR/pirc.pir [PIR] +languages/PIR/t/harness [PIR] +languages/PIR/t/sub.t [PIR] languages/WMLScript/build/SRM/Register.pm [WMLScript] languages/WMLScript/build/SRM/Stack.pm [WMLScript] languages/WMLScript/build/stdlibs.pl [WMLScript] @@ -1520,6 +1555,28 @@ languages/parrot_compiler/sample.pasm [parrot_compiler] languages/parrot_compiler/t/basic/hello.t [parrot_compiler] languages/parrot_compiler/t/harness [parrot_compiler] +languages/perl5/README [perl5] +languages/perl5/config/makefiles/root.in [perl5] +languages/perl5/docs/perlarray.pod [perl5] +languages/perl5/docs/perlhash.pod [perl5] +languages/perl5/docs/perlstring.pod [perl5] +languages/perl5/src/pmc/perlarray.pmc [perl5] +languages/perl5/src/pmc/perlenv.pmc [perl5] +languages/perl5/src/pmc/perlhash.pmc [perl5] +languages/perl5/src/pmc/perlint.pmc [perl5] +languages/perl5/src/pmc/perlnum.pmc [perl5] +languages/perl5/src/pmc/perlscalar.pmc [perl5] +languages/perl5/src/pmc/perlstring.pmc [perl5] +languages/perl5/src/pmc/perlundef.pmc [perl5] +languages/perl5/t/perlarray.t [perl5] +languages/perl5/t/perlenv.t [perl5] +languages/perl5/t/perlhash.t [perl5] +languages/perl5/t/perlint.t [perl5] +languages/perl5/t/perlnum.t [perl5] +languages/perl5/t/perlscalar.t [perl5] +languages/perl5/t/perlstring.t [perl5] +languages/perl5/t/perlundef.t [perl5] +languages/perl5/t/sparse_perlarray.t [perl5] languages/perl6/README [perl6] languages/perl6/STATUS [perl6] languages/perl6/config/makefiles/root.in [perl6] @@ -2113,6 +2170,7 @@ lib/Parrot/Test/Cardinal.pm [devel] lib/Parrot/Test/Harness.pm [devel] lib/Parrot/Test/PGE.pm [devel] +lib/Parrot/Test/PIR_PGE.pm [devel] lib/Parrot/Test/Perl6.pm [devel] lib/Parrot/Test/Punie.pm [devel] lib/Parrot/Vtable.pm [devel] @@ -2268,14 +2326,6 @@ src/dynpmc/main.pasm [] src/dynpmc/match.pmc [] src/dynpmc/matchrange.pmc [] -src/dynpmc/perlarray.pmc [] -src/dynpmc/perlenv.pmc [] -src/dynpmc/perlhash.pmc [] -src/dynpmc/perlint.pmc [] -src/dynpmc/perlnum.pmc [] -src/dynpmc/perlscalar.pmc [] -src/dynpmc/perlstring.pmc [] -src/dynpmc/perlundef.pmc [] src/dynpmc/quantumreg.pmc [] src/dynpmc/rotest.pmc [] src/dynpmc/subproxy.pmc [] @@ -2594,16 +2644,7 @@ t/dynpmc/dynlexpad.t [] t/dynpmc/foo.t [] t/dynpmc/gdbmhash.t [] -t/dynpmc/perlarray.t [] -t/dynpmc/perlenv.t [] -t/dynpmc/perlhash.t [] -t/dynpmc/perlint.t [] -t/dynpmc/perlnum.t [] -t/dynpmc/perlscalar.t [] -t/dynpmc/perlstring.t [] -t/dynpmc/perlundef.t [] t/dynpmc/quantumreg.t [] -t/dynpmc/sparse_perlarray.t [] t/dynpmc/sub.t [] t/dynpmc/subclass_with_pir_method.t [] t/examples/japh.t [] Modified: branches/buildtools/MANIFEST.SKIP ============================================================================== --- branches/buildtools/MANIFEST.SKIP (original) +++ branches/buildtools/MANIFEST.SKIP Tue Jan 30 17:22:41 2007 @@ -1,6 +1,6 @@ # ex: set ro: # $Id$ -# generated by tools/dev/mk_manifest_and_skip.pl Wed Jan 24 18:17:33 2007 UT +# generated by tools/dev/mk_manifest_and_skip.pl Tue Jan 30 19:21:09 2007 UT # # This file should contain a transcript of the svn:ignore properties # of the directories in the Parrot subversion repository. (Needed for @@ -366,6 +366,44 @@ ^languages/HQ9plus/t/.*\.HQ9plus/ ^languages/HQ9plus/t/.*\.out$ ^languages/HQ9plus/t/.*\.out/ +# generated from svn:ignore of 'languages/PIR/' +^languages/PIR/Makefile$ +^languages/PIR/Makefile/ +^languages/PIR/pir\.pbc$ +^languages/PIR/pir\.pbc/ +# generated from svn:ignore of 'languages/PIR/lib/' +^languages/PIR/lib/ASTGrammar\.pbc$ +^languages/PIR/lib/ASTGrammar\.pbc/ +^languages/PIR/lib/ASTGrammar\.pir$ +^languages/PIR/lib/ASTGrammar\.pir/ +^languages/PIR/lib/pasm_args_gen\.pbc$ +^languages/PIR/lib/pasm_args_gen\.pbc/ +^languages/PIR/lib/pasm_args_gen\.pir$ +^languages/PIR/lib/pasm_args_gen\.pir/ +^languages/PIR/lib/pasm_core_gen\.pbc$ +^languages/PIR/lib/pasm_core_gen\.pbc/ +^languages/PIR/lib/pasm_core_gen\.pir$ +^languages/PIR/lib/pasm_core_gen\.pir/ +^languages/PIR/lib/pasm_grammar_gen\.pbc$ +^languages/PIR/lib/pasm_grammar_gen\.pbc/ +^languages/PIR/lib/pasm_grammar_gen\.pir$ +^languages/PIR/lib/pasm_grammar_gen\.pir/ +^languages/PIR/lib/pasm_instr_gen\.pbc$ +^languages/PIR/lib/pasm_instr_gen\.pbc/ +^languages/PIR/lib/pasm_instr_gen\.pir$ +^languages/PIR/lib/pasm_instr_gen\.pir/ +^languages/PIR/lib/pasm_io_gen\.pbc$ +^languages/PIR/lib/pasm_io_gen\.pbc/ +^languages/PIR/lib/pasm_io_gen\.pir$ +^languages/PIR/lib/pasm_io_gen\.pir/ +^languages/PIR/lib/pasm_pmc_gen\.pbc$ +^languages/PIR/lib/pasm_pmc_gen\.pbc/ +^languages/PIR/lib/pasm_pmc_gen\.pir$ +^languages/PIR/lib/pasm_pmc_gen\.pir/ +^languages/PIR/lib/pir_grammar_gen\.pbc$ +^languages/PIR/lib/pir_grammar_gen\.pbc/ +^languages/PIR/lib/pir_grammar_gen\.pir$ +^languages/PIR/lib/pir_grammar_gen\.pir/ # generated from svn:ignore of 'languages/WMLScript/' ^languages/WMLScript/Makefile$ ^languages/WMLScript/Makefile/ @@ -806,6 +844,55 @@ ^languages/parrot_compiler/t/basic/.*\.code/ ^languages/parrot_compiler/t/basic/.*\.out$ ^languages/parrot_compiler/t/basic/.*\.out/ +# generated from svn:ignore of 'languages/perl5/' +^languages/perl5/Makefile$ +^languages/perl5/Makefile/ +# generated from svn:ignore of 'languages/perl5/src/pmc/' +^languages/perl5/src/pmc/.*\.dump$ +^languages/perl5/src/pmc/.*\.dump/ +^languages/perl5/src/pmc/perl_group\.bundle$ +^languages/perl5/src/pmc/perl_group\.bundle/ +^languages/perl5/src/pmc/perl_group\.c$ +^languages/perl5/src/pmc/perl_group\.c/ +^languages/perl5/src/pmc/perl_group\.h$ +^languages/perl5/src/pmc/perl_group\.h/ +^languages/perl5/src/pmc/perlarray\.c$ +^languages/perl5/src/pmc/perlarray\.c/ +^languages/perl5/src/pmc/perlenv\.c$ +^languages/perl5/src/pmc/perlenv\.c/ +^languages/perl5/src/pmc/perlhash\.c$ +^languages/perl5/src/pmc/perlhash\.c/ +^languages/perl5/src/pmc/perlint\.c$ +^languages/perl5/src/pmc/perlint\.c/ +^languages/perl5/src/pmc/perlnum\.c$ +^languages/perl5/src/pmc/perlnum\.c/ +^languages/perl5/src/pmc/perlscalar\.c$ +^languages/perl5/src/pmc/perlscalar\.c/ +^languages/perl5/src/pmc/perlstring\.c$ +^languages/perl5/src/pmc/perlstring\.c/ +^languages/perl5/src/pmc/perlundef\.c$ +^languages/perl5/src/pmc/perlundef\.c/ +^languages/perl5/src/pmc/pmc_perlarray\.h$ +^languages/perl5/src/pmc/pmc_perlarray\.h/ +^languages/perl5/src/pmc/pmc_perlenv\.h$ +^languages/perl5/src/pmc/pmc_perlenv\.h/ +^languages/perl5/src/pmc/pmc_perlhash\.h$ +^languages/perl5/src/pmc/pmc_perlhash\.h/ +^languages/perl5/src/pmc/pmc_perlint\.h$ +^languages/perl5/src/pmc/pmc_perlint\.h/ +^languages/perl5/src/pmc/pmc_perlnum\.h$ +^languages/perl5/src/pmc/pmc_perlnum\.h/ +^languages/perl5/src/pmc/pmc_perlscalar\.h$ +^languages/perl5/src/pmc/pmc_perlscalar\.h/ +^languages/perl5/src/pmc/pmc_perlstring\.h$ +^languages/perl5/src/pmc/pmc_perlstring\.h/ +^languages/perl5/src/pmc/pmc_perlundef\.h$ +^languages/perl5/src/pmc/pmc_perlundef\.h/ +# generated from svn:ignore of 'languages/perl5/t/' +^languages/perl5/t/.*\.pasm$ +^languages/perl5/t/.*\.pasm/ +^languages/perl5/t/.*\.pir$ +^languages/perl5/t/.*\.pir/ # generated from svn:ignore of 'languages/perl6/' ^languages/perl6/.*\.pbc$ ^languages/perl6/.*\.pbc/ @@ -816,11 +903,12 @@ ^languages/perl6/src/.*\.pbc/ ^languages/perl6/src/builtins_gen\.pir$ ^languages/perl6/src/builtins_gen\.pir/ -^languages/perl6/src/grammar_gen\.pir$ -^languages/perl6/src/grammar_gen\.pir/ # generated from svn:ignore of 'languages/perl6/src/PAST/' ^languages/perl6/src/PAST/Grammar_gen\.pir$ ^languages/perl6/src/PAST/Grammar_gen\.pir/ +# generated from svn:ignore of 'languages/perl6/src/parser/' +^languages/perl6/src/parser/grammar_gen\.pir$ +^languages/perl6/src/parser/grammar_gen\.pir/ # generated from svn:ignore of 'languages/perl6/src/pmc/' ^languages/perl6/src/pmc/.*\.bundle$ ^languages/perl6/src/pmc/.*\.bundle/ Modified: branches/buildtools/RELEASE_INSTRUCTIONS ============================================================================== --- branches/buildtools/RELEASE_INSTRUCTIONS (original) +++ branches/buildtools/RELEASE_INSTRUCTIONS Tue Jan 30 17:22:41 2007 @@ -76,6 +76,10 @@ 8. Upload to CPAN. + NOTE: you may get a failure message from the CPAN Indexer about + the content of META.yml. Don't worry, the tarball still uploaded okay. + You can fix META.yml after the release. + 9. Compose and send out the announcements -- parrot-porters, perl6-language, perl6-announce, perl5-porters, use Perl, PerlMonks, comp.lang.perl.misc, etc. Don't forget to include the next Modified: branches/buildtools/config/gen/languages.pm ============================================================================== --- branches/buildtools/config/gen/languages.pm (original) +++ branches/buildtools/config/gen/languages.pm Tue Jan 30 17:22:41 2007 @@ -30,8 +30,8 @@ my @languages = qw{ APL amber abc befunge bf cardinal c99 cola ecmascript forth HQ9plus - jako lisp lua m4 ook parrot_compiler perl6 pheme plumhead pugs punie - regex scheme tap urm WMLScript Zcode + jako lisp lua m4 ook parrot_compiler perl5 perl6 pheme PIR plumhead + pugs punie regex scheme tap urm WMLScript Zcode }; foreach my $language (@languages) { Modified: branches/buildtools/config/gen/makefiles/dynpmc.in ============================================================================== --- branches/buildtools/config/gen/makefiles/dynpmc.in (original) +++ branches/buildtools/config/gen/makefiles/dynpmc.in Tue Jan 30 17:22:41 2007 @@ -19,37 +19,8 @@ #CONDITIONED_LINE(has_gdbm):gdbmhash \ match \ matchrange \ - perlarray perlhash perlnum perlstring perlenv perlint perlscalar perlundef \ subproxy -DISABLED_PMCS = \ - pybuiltin \ - pyclass \ - pyobject \ - pyboolean \ - pycomplex \ - pydict \ - pyexception \ - pyfloat \ - pyfunc \ - pyboundmeth \ - pyboundcall \ - pynci \ - pystaticmeth \ - pygen \ - pyint \ - pylist \ - pylong \ - pymodule \ - pynone \ - pytype \ - pyslice \ - pystring \ - pytuple \ - pyproxytype \ - pyproxyclass \ - pyiter - BUILD = $(PERL) @build_dir@/tools/build/dynpmc.pl all : Modified: branches/buildtools/config/gen/makefiles/languages.in ============================================================================== --- branches/buildtools/config/gen/makefiles/languages.in (original) +++ branches/buildtools/config/gen/makefiles/languages.in Tue Jan 30 17:22:41 2007 @@ -12,6 +12,7 @@ APL \ BASIC \ HQ9plus \ + PIR \ WMLScript \ Zcode \ abc \ @@ -29,6 +30,7 @@ m4 \ ook \ parrot_compiler \ + perl5 \ perl6 \ pheme \ punie \ @@ -83,6 +85,7 @@ APL.clean \ BASIC.clean \ HQ9plus.clean \ + PIR.clean \ WMLScript.clean \ Zcode.clean \ abc.clean \ @@ -100,6 +103,7 @@ m4.clean \ ook.clean \ parrot_compiler.clean \ + perl5.clean \ perl6.clean \ pheme.clean \ punie.clean \ @@ -133,6 +137,14 @@ BASIC.clean: # Don't know how to clean BASIC +PIR: PIR.dummy +PIR.dummy: + - $(MAKE) PIR +PIR.test: + - $(MAKE) PIR test +PIR.clean: + - $(MAKE) PIR clean + WMLScript: WMLScript.dummy WMLScript.dummy: - $(MAKE) WMLScript @@ -278,6 +290,14 @@ parrot_compiler.clean: - $(MAKE) parrot_compiler clean +perl5 : perl5.dummy +perl5.dummy: + - $(MAKE) perl5 +perl5.test: + - $(MAKE) perl5 test +perl5.clean: + - $(MAKE) perl5 clean + perl6 : perl6.dummy perl6.dummy: - $(MAKE) perl6 Modified: branches/buildtools/docs/parrothist.pod ============================================================================== --- branches/buildtools/docs/parrothist.pod (original) +++ branches/buildtools/docs/parrothist.pod Tue Jan 30 17:22:41 2007 @@ -85,5 +85,6 @@ Chip 0.4.6 2006-Aug-08 n/a 0.4.7 2006-Nov-14 "Caique" - Jerry 0.4.8 2007-Jan-16 "Eponymous" + Jerry 0.4.8b 2007-Jan-16 "Eponymous" + =cut Modified: branches/buildtools/languages/LANGUAGES.STATUS.pod ============================================================================== --- branches/buildtools/languages/LANGUAGES.STATUS.pod (original) +++ branches/buildtools/languages/LANGUAGES.STATUS.pod Tue Jan 30 17:22:41 2007 @@ -763,6 +763,20 @@ =back +=head2 Perl 5 + +=over 4 + +=item Description + +Primarily a repository for some perl5-specific functionality that was +heavily used in early parrot development. This code is not slated for use +with the Perl 6 implementation, and core parrot PMCs exist that provide +much of the functionality here. + +This directory may be removed in a future release. + +=back =head2 Perl 6 parser/compiler @@ -854,6 +868,35 @@ =back +=head2 PIR + +=over 4 + +=item Author + +Klaas-Jan Stol + +=item Description + +A PIR compiler using Parrot compiler tools. + +=item Status + +Initial implementation. Not complete. +Only Parser currently (using PGE). + +=item Last verified with parrot version + +0.4.8 + +=item location + +languages/PIR + +=back + + + =head2 Plumhead =over 4 @@ -1290,3 +1333,4 @@ =back + Modified: branches/buildtools/languages/lua/Lua/build.pm ============================================================================== --- branches/buildtools/languages/lua/Lua/build.pm (original) +++ branches/buildtools/languages/lua/Lua/build.pm Tue Jan 30 17:22:41 2007 @@ -1140,7 +1140,10 @@ my $expr = $exprs->[0]; if ( scalar $expr->[1] ) { my @opcodes = @{ $expr->[1] }; - if ( scalar @opcodes and $opcodes[-1]->isa('CallOp') ) { + if ( scalar @opcodes + and $opcodes[-1]->isa('CallOp') + and !exists $opcodes[-1]->{result}->[0]->{pragma} ) + { my $call = pop @opcodes; my $ass = pop @opcodes; my $loc = pop @opcodes; Modified: branches/buildtools/languages/lua/t/function.t ============================================================================== --- branches/buildtools/languages/lua/t/function.t (original) +++ branches/buildtools/languages/lua/t/function.t Tue Jan 30 17:22:41 2007 @@ -23,7 +23,7 @@ use FindBin; use lib "$FindBin::Bin"; -use Parrot::Test tests => 12; +use Parrot::Test tests => 14; use Test::More; language_output_is( 'lua', <<'CODE', <<'OUT', 'add' ); @@ -220,6 +220,40 @@ end 0 OUT +language_output_is( 'lua', <<'CODE', <<'OUT', 'no tail call' ); +local function foo (n) + print(n) + if n > 0 then + return (foo(n -1)) + end + return 'end', 0 +end + +print(foo(3)) +CODE +3 +2 +1 +0 +end +OUT + +language_output_is( 'lua', <<'CODE', <<'OUT', 'no tail call' ); +local function foo (n) + print(n) + if n > 0 then + foo(n -1) + end +end + +foo(3) +CODE +3 +2 +1 +0 +OUT + # Local Variables: # mode: cperl # cperl-indent-level: 4 Modified: branches/buildtools/languages/lua/t/object.t ============================================================================== --- branches/buildtools/languages/lua/t/object.t (original) +++ branches/buildtools/languages/lua/t/object.t Tue Jan 30 17:22:41 2007 @@ -21,7 +21,7 @@ use FindBin; use lib "$FindBin::Bin"; -use Parrot::Test tests => 8; +use Parrot::Test tests => 9; use Test::More; language_output_is( 'lua', <<'CODE', <<'OUT', 'object' ); @@ -164,6 +164,10 @@ -100 OUT +TODO: +{ + local $TODO = 'pb with tail call ?'; + language_output_is( 'lua', <<'CODE', <<'OUT', 'multiple inheritance' ); -- look up for 'k' in list of tables 'plist' local function search (k, plist) @@ -180,9 +184,69 @@ -- class will search for each method in the list of its -- parents ('arg' is the list of parents) setmetatable(c, {__index = function (t, k) + return search(k, arg) + end}) + + -- prepare 'c' to be the metatable of its instance + c.__index = c + + -- define a new constructor for this new class + function c:new (o) + o = o or {} + setmetatable(o, c) + return o + end + + -- return new class + return c +end + +Account = {balance = 0} +function Account:deposit (v) + self.balance = self.balance + v +end +function Account:withdraw (v) + self.balance = self.balance - v +end + +Named = {} +function Named:getname () + return self.name +end +function Named:setname (n) + self.name = n +end + +NamedAccount = createClass(Account, Named) + +account = NamedAccount:new{name = "Paul"} +print(account:getname()) +account:deposit(100.00) +print(account.balance) +CODE +Paul +100 +OUT +} + +language_output_is( 'lua', <<'CODE', <<'OUT', 'multiple inheritance (patched)' ); +-- look up for 'k' in list of tables 'plist' +local function search (k, plist) + for i=1, #plist do + local v = plist[i][k] -- try 'i'-th superclass + if v then return v end + end +end + +function createClass (...) + local c = {} -- new class + local arg = {...} + + -- class will search for each method in the list of its + -- parents ('arg' is the list of parents) + setmetatable(c, {__index = function (t, k) -- return search(k, arg) - local r = search(k, arg) - return r + return (search(k, arg)) end}) -- prepare 'c' to be the metatable of its instance Modified: branches/buildtools/languages/lua/t/shootout.t ============================================================================== --- branches/buildtools/languages/lua/t/shootout.t (original) +++ branches/buildtools/languages/lua/t/shootout.t Tue Jan 30 17:22:41 2007 @@ -174,9 +174,14 @@ # Symmetrical thread rendez-vous requests # +TODO: +{ + local $TODO = 'pb with tail call ?'; + $code = Parrot::Test::slurp_file(File::Spec->catfile( @dir, 'chameneos.lua' )); $out = Parrot::Test::slurp_file(File::Spec->catfile( @dir, 'chameneos-output.txt' )); language_output_is( 'lua', $code, $out, 'chameneos', params => '100' ); +} # # reverse-complement Modified: branches/buildtools/languages/plumhead/src/antlr3/GenPastPirTreeParser.java ============================================================================== --- branches/buildtools/languages/plumhead/src/antlr3/GenPastPirTreeParser.java (original) +++ branches/buildtools/languages/plumhead/src/antlr3/GenPastPirTreeParser.java Tue Jan 30 17:22:41 2007 @@ -1,4 +1,4 @@ -// $ANTLR 3.0b5 src/antlr3/GenPastPir.g 2007-01-26 21:49:23 +// $ANTLR 3.0b5 src/antlr3/GenPastPir.g 2007-01-28 15:56:50 import java.util.regex.*; Modified: branches/buildtools/languages/plumhead/src/antlr3/PlumheadLexer.java ============================================================================== --- branches/buildtools/languages/plumhead/src/antlr3/PlumheadLexer.java (original) +++ branches/buildtools/languages/plumhead/src/antlr3/PlumheadLexer.java Tue Jan 30 17:22:41 2007 @@ -1,4 +1,4 @@ -// $ANTLR 3.0b5 src/antlr3/Plumhead.g 2007-01-26 21:49:20 +// $ANTLR 3.0b5 src/antlr3/Plumhead.g 2007-01-28 15:56:48 import org.antlr.runtime.*; import java.util.Stack; Modified: branches/buildtools/languages/plumhead/src/antlr3/PlumheadParser.java ============================================================================== --- branches/buildtools/languages/plumhead/src/antlr3/PlumheadParser.java (original) +++ branches/buildtools/languages/plumhead/src/antlr3/PlumheadParser.java Tue Jan 30 17:22:41 2007 @@ -1,4 +1,4 @@ -// $ANTLR 3.0b5 src/antlr3/Plumhead.g 2007-01-26 21:49:19 +// $ANTLR 3.0b5 src/antlr3/Plumhead.g 2007-01-28 15:56:47 import org.antlr.runtime.*; import java.util.Stack; Modified: branches/buildtools/languages/plumhead/src/partridge/Plumhead.pg ============================================================================== --- branches/buildtools/languages/plumhead/src/partridge/Plumhead.pg (original) +++ branches/buildtools/languages/plumhead/src/partridge/Plumhead.pg Tue Jan 30 17:22:41 2007 @@ -9,20 +9,29 @@ regex sea { .* <before: \<> } -token string { " <-["]>* " } +token DOUBLEQUOTE_STRING { " <-["]>* " } + +token SINGLEQUOTE_STRING { ' <-[']>* ' } + +token NUMBER { 1 } token start_code { \< \? p h p } token end_code { \? \> } -token echo { echo } +token echo { e c h o } token ws { \s* } rule statement { <echo> } -rule program { ^<sea><code>? } +token program { ^ <sea> <code> } + +rule code { <start_code> <statement>* <end_code> } + +rule statement { <echo> <expression> ; } + +token expression { <DOUBLEQUOTE_STRING> | <adding_expression> } -rule code { <start_code> <statement>? <end_code> } +rule adding_expression { <NUMBER> } -rule statement { <echo> <string> ; } Modified: branches/buildtools/languages/plumhead/src/partridge/PlumheadPAST.tg ============================================================================== --- branches/buildtools/languages/plumhead/src/partridge/PlumheadPAST.tg (original) +++ branches/buildtools/languages/plumhead/src/partridge/PlumheadPAST.tg Tue Jan 30 17:22:41 2007 @@ -81,9 +81,11 @@ .local pmc cnode, cnode2, cpast cnode = shift iter if null cnode goto iter_loop - $P1 = cnode['string'] + $P1 = cnode['expression'] if null $P1 goto iter_loop - cpast = tree.'get'('past', $P1, 'Plumhead::Grammar::string') + $P2 = $P1['DOUBLEQUOTE_STRING'] + if null $P2 goto iter_loop + cpast = tree.'get'('past', $P2, 'Plumhead::Grammar::DOUBLEQUOTE_STRING') if null cpast goto iter_loop past.'push'(cpast) goto iter_loop @@ -95,7 +97,7 @@ } -transform past (Plumhead::Grammar::string) :language('PIR') { +transform past (Plumhead::Grammar::DOUBLEQUOTE_STRING) :language('PIR') { .local pmc past_val past_val = new 'PAST::Val' Modified: branches/buildtools/languages/plumhead/t/hello.t ============================================================================== --- branches/buildtools/languages/plumhead/t/hello.t (original) +++ branches/buildtools/languages/plumhead/t/hello.t Tue Jan 30 17:22:41 2007 @@ -18,7 +18,7 @@ use lib "$FindBin::Bin/../lib", "$FindBin::Bin/../../../lib"; # core Perl modules -use Test::More tests => 11; +use Test::More tests => 12; # Parrot modules use Parrot::Test; @@ -67,6 +67,15 @@ Hello, World! END_EXPECTED +language_output_is( 'Plumhead', <<'END_CODE', <<'END_EXPECTED', 'hello' ); +<?php +echo 'Hello, World!'; +echo "\n"; +?> +END_CODE +Hello, World! +END_EXPECTED + language_output_is( 'Plumhead', <<'END_CODE', 'Hello World', 'only alphanumic' ); <?php echo "Hello World"; ?> Modified: branches/buildtools/lib/Parrot/Distribution.pm ============================================================================== --- branches/buildtools/lib/Parrot/Distribution.pm (original) +++ branches/buildtools/lib/Parrot/Distribution.pm Tue Jan 30 17:22:41 2007 @@ -91,7 +91,7 @@ unless $self; if( defined $dist ) { - $self->_manifest_files( [ + $self->_dist_files( [ sort keys %{ ExtUtils::Manifest::maniread( File::Spec->catfile( $self->path, "MANIFEST" ) ) }, @@ -110,7 +110,7 @@ BEGIN { - my @getter_setters = qw{ _manifest_files }; + my @getter_setters = qw{ _dist_files }; for my $method ( @getter_setters ) { no strict 'refs'; @@ -225,13 +225,13 @@ *{ $method . '_file_directories' } = sub { my $self = shift; - # Look through the manifest + # Look through the list of distribution files # for files ending in the proper extension(s) # and make a hash out of the directories my %dirs = map { ( ( File::Spec->splitpath($_) )[1] => 1 ) } grep { m|(?i)(?:$filter_ext)| } - $self->_manifest_files; + $self->_dist_files; # Filter out ignored directories # and return the results @@ -268,14 +268,14 @@ *{ $method . '_files' } = sub { my( $self ) = @_; - # Look through the manifest + # Look through the list of distribution files # for files ending in the proper extension(s) # and return a sorted list of filenames return sort map { $self->file_with_name($_) } grep { m|(?i)(?:$filter_ext)| } - $self->_manifest_files; + $self->_dist_files; }; } } Modified: branches/buildtools/lib/Parrot/Docs/Section/Languages.pm ============================================================================== --- branches/buildtools/lib/Parrot/Docs/Section/Languages.pm (original) +++ branches/buildtools/lib/Parrot/Docs/Section/Languages.pm Tue Jan 30 17:22:41 2007 @@ -62,8 +62,10 @@ $self->new_section( 'M4', 'm4.html', '', 'languages/m4' ), $self->new_section( 'Ook!', 'ook.html', '', 'languages/ook' ), $self->new_section( 'Parakeet', 'parakeet.html', '', 'languages/parakeet' ), + $self->new_section( 'Perl5', 'perl5.html', '', 'languages/perl5' ), $self->new_section( 'Perl6', 'perl6.html', '', 'languages/perl6' ), $self->new_section( 'pheme', 'pheme.html', '', 'languages/pheme' ), + $self->new_section( 'PIR', 'pir.html', '', 'languages/PIR' ), $self->new_section( 'Plumhead', 'plumhead.html', '', 'languages/plumhead' ), $self->new_section( 'Pugs', 'pugs.html', '', 'languages/pugs' ), $self->new_section( 'Punie', 'punie.html', '', 'languages/punie' ), Modified: branches/buildtools/t/pmc/mmd.t ============================================================================== --- branches/buildtools/t/pmc/mmd.t (original) +++ branches/buildtools/t/pmc/mmd.t Tue Jan 30 17:22:41 2007 @@ -23,7 +23,7 @@ =cut -pir_output_is( <<'CODE', <<'OUTPUT', "PASM divide" ); +pir_output_is( <<'CODE', <<'OUTPUT', "PASM divide", todo=>'RT #41374'); .sub 'test' :main @@ -508,7 +508,7 @@ 42 OUT -pir_output_is( <<'CODE', <<'OUT', 'MMD on PMC types' ); +pir_output_is( <<'CODE', <<'OUT', 'MMD on PMC types', todo=>'RT #41374' ); .sub 'test' :main .local pmc lib_perl_group lib_perl_group = loadlib 'perl_group' @@ -549,7 +549,7 @@ String ok 4 OUT -pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types quoted" ); +pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types quoted", todo=>'RT #41374' ); .sub main :main .local pmc lib_perl_group lib_perl_group = loadlib 'perl_group' @@ -590,7 +590,7 @@ String ok 4 OUT -pir_output_like( <<'CODE', <<'OUT', "MMD on PMC types, invalid" ); +pir_output_like( <<'CODE', <<'OUT', "MMD on PMC types, invalid", todo=>'RT #41374' ); .sub main :main .local pmc lib_perl_group lib_perl_group = loadlib 'perl_group' @@ -634,7 +634,7 @@ Null PMC access in invoke\(\)/ OUT -pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types 3" ); +pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types 3", todo=>'RT #41374' ); .sub main :main .local pmc lib_perl_group lib_perl_group = loadlib 'perl_group' @@ -689,7 +689,7 @@ Intege 42 OUT -pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, global namespace" ); +pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, global namespace", todo=>'RT #41374' ); .sub main :main .local pmc lib_perl_group lib_perl_group = loadlib 'perl_group' @@ -732,7 +732,7 @@ String ok 4 OUT -pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, package namespace" ); +pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types, package namespace", todo=>'RT #41374' ); .namespace ["Some"] @@ -778,7 +778,7 @@ String ok 4 OUT -pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types - Any" ); +pir_output_is( <<'CODE', <<'OUT', "MMD on PMC types - Any", todo=>'RT #41374' ); .sub main :main .local pmc lib_perl_group @@ -871,7 +871,7 @@ 42 OUTPUT -pir_output_is( <<'CODE', <<'OUTPUT', "__add as method - inherited" ); +pir_output_is( <<'CODE', <<'OUTPUT', "__add as method - inherited", todo=>'RT #41374' ); .sub main :main .local pmc lib_perl_group lib_perl_group = loadlib 'perl_group' Modified: branches/buildtools/t/pmc/sub.t ============================================================================== --- branches/buildtools/t/pmc/sub.t (original) +++ branches/buildtools/t/pmc/sub.t Tue Jan 30 17:22:41 2007 @@ -26,11 +26,11 @@ =cut my $temp = "temp.pasm"; -my $load_perl = <<'END_PASM'; +my $load_types = <<'END_PASM'; loadlib P20, 'perl_group' - find_type I24, 'PerlInt' - find_type I25, 'PerlNum' - find_type I28, 'PerlUndef' + find_type I24, 'Integer' + find_type I25, 'Float' + find_type I28, 'Undef' END_PASM END { @@ -756,7 +756,7 @@ # This is the behavior of Parrot 0.4.3 # XXX Should there be a warning ? -pir_output_is( <<'CODE', '', 'warn on in main' ); +pir_output_is( <<'CODE', '', 'warn on in main'); .sub _main :main .include "warnings.pasm" warningson .PARROT_WARNINGS_UNDEF_FLAG @@ -786,7 +786,7 @@ # XXX This is the behavior of Parrot 0.4.3 # It looks like core PMCs never emit warning. # Look in perlundef.t for a more sane test of 'warningson' in subs -pir_output_is( <<'CODE', <<'OUTPUT', "warn on in sub, turn off in f2" ); +pir_output_is( <<'CODE', <<'OUTPUT', "warn on in sub, turn off in f2"); .sub _main :main .include "warnings.pasm" _f1() @@ -1115,14 +1115,14 @@ 2301 OUTPUT -pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in main' ); +pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in main', todo => "XXX core undef doesn't warn here. Should it?"); .sub 'test' :main .include "warnings.pasm" warningson .PARROT_WARNINGS_UNDEF_FLAG _f1() .end .sub _f1 -$load_perl +$load_types P0 = new I28 print P0 @@ -1133,7 +1133,7 @@ pir_output_is( <<"CODE", <<'OUTPUT', 'warn on in sub' ); .sub 'test' :main -$load_perl +$load_types .include "warnings.pasm" _f1() P0 = new I28 @@ -1147,9 +1147,9 @@ ok OUTPUT -pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in sub, turn off in f2' ); +pir_output_like( <<"CODE", <<'OUTPUT', 'warn on in sub, turn off in f2', todo=> "XXX core undef doesn't warn here. Should it?"); .sub 'test' :main -$load_perl +$load_types .include "warnings.pasm" _f1() P0 = new I28 @@ -1158,7 +1158,7 @@ print "ok\\n" .end .sub _f1 -$load_perl +$load_types warningson .PARROT_WARNINGS_UNDEF_FLAG _f2() P0 = new I28 Modified: branches/buildtools/t/pmc/threads.t ============================================================================== --- branches/buildtools/t/pmc/threads.t (original) +++ branches/buildtools/t/pmc/threads.t Tue Jan 30 17:22:41 2007 @@ -935,7 +935,7 @@ .end CODE -pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE|CLONE_GLOBALS|CLONE_HLL|CLONE_LIBRARIES" ); +pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE|CLONE_GLOBALS|CLONE_HLL|CLONE_LIBRARIES", todo=> 'RT#41373' ); .HLL 'Perl', 'perl_group' .include 'interpinfo.pasm'