Lua 5.2.0-beta

Lua Team committed 15 years ago

Commit 8203bab1 parent c2bb1fc4 files · +64 −52Browse files

Unified · Split

4 files

doc/manual.html +11 −13
src/llex.c +39 −32
src/lua.hpp +9 −0
src/luaconf.h +5 −7

 <!-- ====================================================================== -->
 <p>
-<!-- $Id: manual.of,v 1.85 2011/07/05 19:15:00 roberto Exp $ -->
+<!-- $Id: manual.of,v 1.86 2011/07/08 20:00:45 roberto Exp $ -->
 <hr><h3><a name="lua_callk"><code>lua_callk</code></a></h3><p>
 <span class="apii">[-(nargs + 1), +nresults, <em>e</em>]</span>
-<pre>void lua_callk (lua_State *L, int nargs, int nresults,
+<pre>void lua_callk (lua_State *L, int nargs, int nresults, int ctx,
-                          int ctx, lua_CFunction k);</pre>
+                lua_CFunction k);</pre>
 <p>
 This function behaves exactly like <a href="#lua_call"><code>lua_call</code></a>,
 <hr><h3><a name="lua_pcallk"><code>lua_pcallk</code></a></h3><p>
 <span class="apii">[-(nargs + 1), +(nresults|1), <em>-</em>]</span>
 <pre>int lua_pcallk (lua_State *L, int nargs, int nresults, int errfunc,
-                          int ctx, lua_CFunction k);</pre>
+                int ctx, lua_CFunction k);</pre>
 <p>
 This function behaves exactly like <a href="#lua_pcall"><code>lua_pcall</code></a>,
 <hr><h3><a name="lua_yieldk"><code>lua_yieldk</code></a></h3><p>
 <span class="apii">[-?, +?, <em>-</em>]</span>
-<pre>int lua_yieldk  (lua_State *L, int nresults, int ctx,
+<pre>int lua_yieldk  (lua_State *L, int nresults, int ctx, lua_CFunction k);</pre>
-                           lua_CFunction k);</pre>
 <p>
 Yields a coroutine.
 <hr><h3><a name="lua_upvaluejoin"><code>lua_upvaluejoin</code></a></h3>
 <pre>void lua_upvaluejoin (lua_State *L, int fidx1, int n1,
-                                              int fidx2, int n2);</pre>
+                                    int fidx2, int n2);</pre>
 <p>
 Make the <code>n1</code>-th upvalue of the Lua closure at index <code>fidx1</code>
 <hr><h3><a name="luaL_fileresult"><code>luaL_fileresult</code></a></h3><p>
 <span class="apii">[-0, +(1|3), <em>m</em>]</span>
-<pre>int luaL_fileresult (lua_State *L, int stat,
+<pre>int luaL_fileresult (lua_State *L, int stat, const char *fname);</pre>
-                                             const char *fname);</pre>
 <p>
 This function produces the return values for
 <hr><h3><a name="luaL_requiref"><code>luaL_requiref</code></a></h3><p>
 <span class="apii">[-0, +1, <em>e</em>]</span>
 <pre>void luaL_requiref (lua_State *L, const char *modname,
-                              lua_CFunction openf, int glb);</pre>
+                    lua_CFunction openf, int glb);</pre>
 <p>
 Calls function <code>openf</code> with string <code>modname</code> as an argument
 <hr><h3><a name="luaL_traceback"><code>luaL_traceback</code></a></h3><p>
 <span class="apii">[-0, +1, <em>m</em>]</span>
-<pre>void luaL_traceback (lua_State *L, lua_State *L1,
+<pre>void luaL_traceback (lua_State *L, lua_State *L1, const char *msg,
-                               const char *msg, int level);</pre>
+                     int level);</pre>
 <p>
 Creates and pushes a traceback of the stack <code>L1</code>.
 <HR>
 <SMALL CLASS="footer">
 Last update:
-Tue Jul  5 19:16:15 BRT 2011
+Fri Jul  8 17:11:02 BRT 2011
 </SMALL>
 <!--
 Last change: revised for Lua 5.2.0 (beta)

src/llex.c+39−32

 /*
-** $Id: llex.c,v 2.50 2011/07/05 19:13:45 roberto Exp $
+** $Id: llex.c,v 2.53 2011/07/08 20:01:38 roberto Exp $
 ** Lexical Analyzer
 ** See Copyright Notice in lua.h
 */
 }
+static void escerror (LexState *ls, int *c, int n, const char *msg) {
+  int i;
+  luaZ_resetbuffer(ls->buff);  /* prepare error message */
+  save(ls, '\\');
+  for (i = 0; i < n && c[i] != EOZ; i++)
+    save(ls, c[i]);
+  lexerror(ls, msg, TK_STRING);
+}
 static int readhexaesc (LexState *ls) {
-  int c1 = next(ls);
+  int c[3];  /* keep input for error message */
-  int c2 = EOZ;
+  int i = 2;  /* at least 'x?' will go to error message */
-  if (lisxdigit(c1)) {
+  c[0] = 'x';
-    c2 = next(ls);
+  c[1] = next(ls);  /* first hexa digit */
-    if (lisxdigit(c2))
+  if (lisxdigit(c[1])) {
-      return (luaO_hexavalue(c1) << 4) + luaO_hexavalue(c2);
+    c[i++] = next(ls);  /* second hexa digit */
+    if (lisxdigit(c[2]))
+      return (luaO_hexavalue(c[1]) << 4) + luaO_hexavalue(c[2]);
     /* else go through to error */
   }
-  luaZ_resetbuffer(ls->buff);  /* prepare error message */
+  escerror(ls, c, i, "hexadecimal digit expected");
-  save(ls, '\\'); save(ls, 'x');
-  if (c1 != EOZ) save(ls, c1);
-  if (c2 != EOZ) save(ls, c2);
-  lexerror(ls, "hexadecimal digit expected", TK_STRING);
   return 0;  /* to avoid warnings */
 }
 static int readdecesc (LexState *ls) {
-  int c1 = ls->current;  /* first char must be a digit */
+  int c[3], r;
-  int c2 = next(ls);  /* read second char */
+  int i = 2;  /* at least two chars will be read */
-  int c = c1 - '0';  /* partial result */
+  c[0] = ls->current;  /* first char must be a digit */
-  if (lisdigit(c2)) {
+  c[1] = next(ls);  /* read second char */
-    int c3 = next(ls);  /* read third char */
+  r = c[0] - '0';  /* partial result */
-    c = 10*c + c2 - '0';  /* update result */
+  if (lisdigit(c[1])) {
-    if (lisdigit(c3)) {
+    c[i++] = next(ls);  /* read third char */
-      c = 10*c + c3 - '0';  /* update result */
+    r = 10*r + c[1] - '0';  /* update result */
-      if (c > UCHAR_MAX) {
+    if (lisdigit(c[2])) {
-        luaZ_resetbuffer(ls->buff);  /* prepare error message */
+      r = 10*r + c[2] - '0';  /* update result */
-        save(ls, '\\');
+      if (r > UCHAR_MAX)
-        save(ls, c1); save(ls, c2); save(ls, c3);
+        escerror(ls, c, i, "decimal escape too large");
-        lexerror(ls, "decimal escape too large", TK_STRING);
+      return r;
-      }
-      return c;
     }
   }
   /* else, has read one character that was not a digit */
   zungetc(ls->z);  /* return it to input stream */
-  return c;
+  return r;
 }
           case 'x': c = readhexaesc(ls); break;
           case '\n':
           case '\r': save(ls, '\n'); inclinenumber(ls); continue;
+          case '\\': case '\"': case '\'': c = ls->current; break;
           case EOZ: continue;  /* will raise an error next loop */
           case 'z': {  /* zap following span of spaces */
-            next(ls);  /* skip the '*' */
+            next(ls);  /* skip the 'z' */
             while (lisspace(ls->current)) {
               if (currIsNewline(ls)) inclinenumber(ls);
               else next(ls);
           }
           default: {
             if (!lisdigit(ls->current))
-              c = ls->current;  /* handles \\, \", and \' */
+              escerror(ls, &ls->current, 1, "invalid escape sequence");
-            else  /* digital escape \ddd */
+            /* digital escape \ddd */
-              c = readdecesc(ls);
+            c = readdecesc(ls);
             break;
           }
         }

src/lua.hpp+9−0

@@ -0,0 +1,9 @@
	1	// lua.hpp
	2	// Lua header files for C++
	3	// <<extern "C">> not supplied automatically because Lua also compiles as C++
	4
	5	extern "C" {
	6	#include "lua.h"
	7	#include "lualib.h"
	8	#include "lauxlib.h"
	9	}

src/luaconf.h+5−7

@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: luaconf.h,v 1.160 2011/06/28 17:14:12 roberto Exp $	2	** $Id: luaconf.h,v 1.161 2011/07/08 20:07:11 roberto Exp $
3	** Configuration file for Lua	3	** Configuration file for Lua
4	** See Copyright Notice in lua.h	4	** See Copyright Notice in lua.h
5	*/	5	*/
@@ -499,12 +499,12 @@ · 493 unmodified lines
499	** doubles with conventional endianess (12345678 or 87654321), in CPUs	499	** doubles with conventional endianess (12345678 or 87654321), in CPUs
500	** that do not produce signaling NaN values (all NaNs are quiet).	500	** that do not produce signaling NaN values (all NaNs are quiet).
501	*/	501	*/
502	#if defined(LUA_CORE) /* { */	502	#if defined(LUA_CORE) && \
503		503	defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) /* { */
504	#if defined(LUA_NUMBER_DOUBLE) && !defined(LUA_ANSI) /* { */
505		504
506	/* little-endian architectures that satisfy those conditions */	505	/* little-endian architectures that satisfy those conditions */
507	#if defined(__i386__) \|\| defined(__i386) \|\| defined(__X86__)	506	#if defined(__i386__) \|\| defined(__i386) \|\| defined(__X86__) \|\| \
		507	defined(_M_IX86)
508		508
509	#define LUA_NANTRICKLE	509	#define LUA_NANTRICKLE
510		510
@@ -512,8 +512,6 @@ · 1 unmodified line
512		512
513	#endif /* } */	513	#endif /* } */
514		514
515	#endif /* } */
516
517		515
518		516
519		517