rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details

This commit is contained in:
Roberto Ierusalimschy 1997-12-23 17:24:19 -02:00
parent 807ba6301c
commit 541e722360
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lobject.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.h,v 1.10 1997/11/27 18:25:06 roberto Exp roberto $ ** $Id: lobject.h,v 1.11 1997/12/15 16:17:20 roberto Exp roberto $
** Type definitions for Lua objects ** Type definitions for Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -13,10 +13,16 @@
#include <limits.h> #include <limits.h>
/*
** "real" is the type "number" of Lua
** GREP LUA_NUMBER to change that
*/
#ifndef real #ifndef real
#define real float #define real float
#endif #endif
#define Byte lua_Byte /* some systems have Byte as a predefined type */ #define Byte lua_Byte /* some systems have Byte as a predefined type */
typedef unsigned char Byte; /* unsigned 8 bits */ typedef unsigned char Byte; /* unsigned 8 bits */

4
lua.stx
View File

@ -1,6 +1,6 @@
%{ %{
/* /*
** $Id: lua.stx,v 1.24 1997/12/22 17:24:11 roberto Exp roberto $ ** $Id: lua.stx,v 1.25 1997/12/22 20:57:18 roberto Exp roberto $
** Syntax analizer and code generator ** Syntax analizer and code generator
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -95,7 +95,7 @@ void luaY_syntaxerror (char *s, char *token)
{ {
if (token[0] == 0) if (token[0] == 0)
token = "<eof>"; token = "<eof>";
luaL_verror("%.100s;\n> last token read: \"%.50s\" at line %d in file %.50s", luaL_verror("%.100s;\n last token read: \"%.50s\" at line %d in file %.50s",
s, token, L->lexstate->linenumber, L->mainState->f->fileName->str); s, token, L->lexstate->linenumber, L->mainState->f->fileName->str);
} }

6
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.17 1997/12/15 16:17:20 roberto Exp roberto $ ** $Id: lvm.c,v 1.18 1997/12/17 20:48:58 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -43,7 +43,7 @@ static TaggedString *strconc (char *l, char *r)
int luaV_tonumber (TObject *obj) int luaV_tonumber (TObject *obj)
{ { /* LUA_NUMBER */
double t; double t;
char c; char c;
if (ttype(obj) != LUA_T_STRING) if (ttype(obj) != LUA_T_STRING)
@ -59,7 +59,7 @@ int luaV_tonumber (TObject *obj)
int luaV_tostring (TObject *obj) int luaV_tostring (TObject *obj)
{ { /* LUA_NUMBER */
if (ttype(obj) != LUA_T_NUMBER) if (ttype(obj) != LUA_T_NUMBER)
return 1; return 1;
else { else {