Author: fperrad
Date: Wed Feb 14 12:28:47 2007
New Revision: 16992
Modified:
trunk/languages/lua/doc/status.pod
trunk/languages/lua/src/parse.pir
Log:
[Lua]
- some updates
Modified: trunk/languages/lua/doc/status.pod
==============================================================================
--- trunk/languages/lua/doc/status.pod (original)
+++ trunk/languages/lua/doc/status.pod Wed Feb 14 12:28:47 2007
@@ -17,7 +17,13 @@
This implementation is aligned with Lua 5.1 specifications.
-=head1 Compiler
+=head1 PIR Compiler/Interpreter
+
+Work started in languages/lua/src.
+
+Not functional.
+
+=head1 Perl Compiler
This compiler is written in Perl5 :
Modified: trunk/languages/lua/src/parse.pir
==============================================================================
--- trunk/languages/lua/src/parse.pir (original)
+++ trunk/languages/lua/src/parse.pir Wed Feb 14 12:28:47 2007
@@ -97,7 +97,7 @@
L1:
$S0 = substr target, pos, 1
if $S0 != delim goto L2
- mob.'value'(literal)
+ mob.'result_object'(literal)
mpos = pos
.return (mob)
L2:
@@ -111,7 +111,7 @@
$S0 = substr target, pos, 1
$I0 = index 'abfnrtv', $S0
if $I0 < 0 goto L4
- $S0 = substr "\x07\x08\f\n\r\t\x0b", $I0, 1
+ $S0 = substr "\a\b\f\n\r\t\x0b", $I0, 1
goto CONCAT
L4:
$I0 = index "\n\r", $S0
@@ -201,7 +201,7 @@
($I0, $I1) = _skip_sep(target, pos, ']')
if $I1 != sep goto L7
pos = $I0 + 1
- mob.'value'(literal)
+ mob.'result_object'(literal)
mpos = pos
goto END
L7:
@@ -273,7 +273,7 @@
($I0, $I1) = _skip_sep(target, pos, ']')
if $I1 != sep goto L7
pos = $I0 + 1
-# mob.'value'(literal)
+# mob.'result_object'(literal)
mpos = pos
goto END
L7:
