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'
