mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-22 21:01:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

details ("luaX_token2str" doesn't need LexState)

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1998-07-24 15:02:38 -03:00
parent afb5ef72e1
commit e1a127245d
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
llex.c
View File

@ -1,5 +1,5 @@
/*
** $Id: llex.c,v 1.22 1998/06/19 18:47:06 roberto Exp roberto $
** $Id: llex.c,v 1.23 1998/07/06 22:04:58 roberto Exp roberto $
** Lexical Analizer
** See Copyright Notice in lua.h
*/
@ -59,7 +59,7 @@ void luaX_error (LexState *ls, char *s) {
}
void luaX_token2str (LexState *ls, int token, char *s) {
void luaX_token2str (int token, char *s) {
if (token < 255) {
s[0] = token;
s[1] = 0;

4
llex.h
View File

@ -1,5 +1,5 @@
/*
** $Id: llex.h,v 1.8 1998/05/27 13:03:40 roberto Exp roberto $
** $Id: llex.h,v 1.9 1998/06/19 16:14:09 roberto Exp roberto $
** Lexical Analizer
** See Copyright Notice in lua.h
*/
@ -56,7 +56,7 @@ void luaX_setinput (LexState *LS, ZIO *z);
int luaX_lex (LexState *LS);
void luaX_syntaxerror (LexState *ls, char *s, char *token);
void luaX_error (LexState *ls, char *s);
void luaX_token2str (LexState *ls, int token, char *s);
void luaX_token2str (int token, char *s);
#endif

8
lparser.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lparser.c,v 1.2 1998/06/24 14:48:15 roberto Exp roberto $
** $Id: lparser.c,v 1.3 1998/07/06 22:07:51 roberto Exp roberto $
** LL(1) Parser and code generator for Lua
** See Copyright Notice in lua.h
*/
@ -580,7 +580,7 @@ static void next (LexState *ls) {
static void error_expected (LexState *ls, int token) {
char buff[100], t[TOKEN_LEN];
luaX_token2str(ls, token, t);
luaX_token2str(token, t);
sprintf(buff, "`%s' expected", t);
luaX_error(ls, buff);
}
@ -591,8 +591,8 @@ static void error_unmatched (LexState *ls, int what, int who, int where) {
else {
char buff[100];
char t_what[TOKEN_LEN], t_who[TOKEN_LEN];
luaX_token2str(ls, what, t_what);
luaX_token2str(ls, who, t_who);
luaX_token2str(what, t_what);
luaX_token2str(who, t_who);
sprintf(buff, "`%s' expected (to close `%s' at line %d)",
t_what, t_who, where);
luaX_error(ls, buff);