Author: fperrad
Date: Fri Dec 26 04:10:49 2008
New Revision: 34376
Modified:
trunk/languages/lua/src/POSTGrammar.tg
trunk/languages/lua/t/shootout.t
Log:
[Lua]
- fix lexical generation
- unTODO some test
Modified: trunk/languages/lua/src/POSTGrammar.tg
==============================================================================
--- trunk/languages/lua/src/POSTGrammar.tg (original)
+++ trunk/languages/lua/src/POSTGrammar.tg Fri Dec 26 04:10:49 2008
@@ -976,6 +976,9 @@
ops.'push_pirop'('.local pmc', pname)
ops.'push_pirop'('.lex', lname, pname, 'result'=>pname)
storage_lex[name] = pname
+ ops.'push_pirop'('set', pname, 'node'=>node)
+ ops.'result'(pname)
+ .return (ops)
L3:
ops.'push_pirop'('store_lex', lname, 'node'=>node)
ops.'result'(lname)
Modified: trunk/languages/lua/t/shootout.t
==============================================================================
--- trunk/languages/lua/t/shootout.t (original)
+++ trunk/languages/lua/t/shootout.t Fri Dec 26 04:10:49 2008
@@ -59,14 +59,9 @@
# Generate and write random DNA sequences
#
-TODO:
-{
- local $TODO = 'broken';
-
$code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/fasta_lua-2.lua" );
$out = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/fasta-output.txt" );
language_output_is( 'lua', $code, $out, 'fasta', params => '1000' );
-}
#
# pidigits
@@ -111,14 +106,9 @@
# Indexed-access to bit-values
#
-TODO:
-{
- local $TODO = 'broken';
-
$code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/nsievebits.lua" );
$out = Parrot::Test::slurp_file(
"$FindBin::Bin/shootout/nsievebits-output.txt" );
language_output_is( 'lua', $code, $out, 'nsieve-bits' );
-}
#
# recursive
@@ -171,9 +161,9 @@
# Eigenvalue using the power method
#
-TODO:
+SKIP:
{
- local $TODO = 'broken';
+ skip('low memory', 1) unless ($test_prog eq 'lua');
$code = Parrot::Test::slurp_file(
"$FindBin::Bin/shootout/spectralnorm_lua-3.lua" );
$out = Parrot::Test::slurp_file(
"$FindBin::Bin/shootout/spectralnorm-output.txt" );
@@ -185,14 +175,9 @@
# Symmetrical thread rendez-vous requests
#
-TODO:
-{
- local $TODO = 'broken';
-
$code = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/chameneos.lua" );
$out = Parrot::Test::slurp_file( "$FindBin::Bin/shootout/chameneos-output.txt"
);
language_output_is( 'lua', $code, $out, 'chameneos', params => '100' );
-}
#
# reverse-complement
