diff --git a/lbaselib.c b/lbaselib.c index bc169563..64a609fd 100644 --- a/lbaselib.c +++ b/lbaselib.c @@ -1,5 +1,5 @@ /* -** $Id: lbaselib.c,v 1.257 2010/12/27 18:00:38 roberto Exp roberto $ +** $Id: lbaselib.c,v 1.258 2011/01/07 12:41:48 roberto Exp roberto $ ** Basic library ** See Copyright Notice in lua.h */ @@ -135,7 +135,7 @@ static int luaB_rawequal (lua_State *L) { static int luaB_rawlen (lua_State *L) { int t = lua_type(L, 1); - luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, + luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, "table or string expected"); lua_pushinteger(L, lua_rawlen(L, 1)); return 1; diff --git a/ldblib.c b/ldblib.c index 2426f955..ad4c62ca 100644 --- a/ldblib.c +++ b/ldblib.c @@ -1,5 +1,5 @@ /* -** $Id: ldblib.c,v 1.127 2010/12/20 17:24:15 roberto Exp roberto $ +** $Id: ldblib.c,v 1.128 2011/01/10 15:51:19 roberto Exp roberto $ ** Interface from Lua to its debug API ** See Copyright Notice in lua.h */ @@ -253,7 +253,7 @@ static int db_upvaluejoin (lua_State *L) { } -#define gethooktable(L) luaL_findtable(L, LUA_REGISTRYINDEX, HOOKKEY); +#define gethooktable(L) luaL_findtable(L, LUA_REGISTRYINDEX, HOOKKEY); static void hookf (lua_State *L, lua_Debug *ar) { diff --git a/ldebug.c b/ldebug.c index cd506ac2..d473de7c 100644 --- a/ldebug.c +++ b/ldebug.c @@ -1,5 +1,5 @@ /* -** $Id: ldebug.c,v 2.74 2010/10/11 20:24:42 roberto Exp roberto $ +** $Id: ldebug.c,v 2.75 2010/11/30 17:17:51 roberto Exp roberto $ ** Debug Interface ** See Copyright Notice in lua.h */ @@ -325,7 +325,7 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int reg, if (reg == a) { int k = GETARG_C(i); /* key index */ int t = GETARG_B(i); - const char *vn = (op == OP_GETTABLE) /* name of indexed variable */ + const char *vn = (op == OP_GETTABLE) /* name of indexed variable */ ? luaF_getlocalname(p, t + 1, pc) : getstr(p->upvalues[t].name); kname(p, k, a, what, name); @@ -468,7 +468,7 @@ void luaG_typeerror (lua_State *L, const TValue *o, const char *op) { const char *kind = NULL; if (isLua(ci)) { kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */ - if (!kind && isinstack(ci, o)) /* no? try a register */ + if (!kind && isinstack(ci, o)) /* no? try a register */ kind = getobjname(L, ci, cast_int(o - ci->u.l.base), &name); } if (kind) diff --git a/lgc.h b/lgc.h index b0520f36..bf7d7c4c 100644 --- a/lgc.h +++ b/lgc.h @@ -1,5 +1,5 @@ /* -** $Id: lgc.h,v 2.48 2010/12/20 18:17:46 roberto Exp roberto $ +** $Id: lgc.h,v 2.49 2010/12/29 18:00:23 roberto Exp roberto $ ** Garbage Collector ** See Copyright Notice in lua.h */ @@ -106,7 +106,7 @@ #define luaC_condGC(L,c) \ {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);} -#define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);) +#define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);) #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ diff --git a/linit.c b/linit.c index cc975ec3..a3c31a7b 100644 --- a/linit.c +++ b/linit.c @@ -1,16 +1,16 @@ /* -** $Id: linit.c,v 1.29 2010/10/25 14:32:36 roberto Exp roberto $ -** Initialization of libraries for lua.c and other clients +** $Id: linit.c,v 1.30 2010/11/12 15:48:30 roberto Exp roberto $ +** Initialization of libraries for lua.c and other clients ** See Copyright Notice in lua.h */ -/* +/* ** If you embed Lua in your program and need to open the standard ** libraries, call luaL_openlibs in your program. If you need a ** different set of libraries, copy this file to your project and edit ** it to suit your needs. -*/ +*/ #define linit_c diff --git a/liolib.c b/liolib.c index 4b15fd35..1fa05477 100644 --- a/liolib.c +++ b/liolib.c @@ -1,5 +1,5 @@ /* -** $Id: liolib.c,v 2.94 2010/11/09 16:57:49 roberto Exp roberto $ +** $Id: liolib.c,v 2.95 2010/11/10 18:05:36 roberto Exp roberto $ ** Standard I/O (and system) library ** See Copyright Notice in lua.h */ @@ -517,7 +517,7 @@ static int io_write (lua_State *L) { static int f_write (lua_State *L) { - FILE * f = tofile(L); + FILE * f = tofile(L); lua_pushvalue(L, 1); /* push file at the stack top (to be returned) */ return g_write(L, f, 2); } diff --git a/llex.c b/llex.c index e4bfa48d..b9e752a8 100644 --- a/llex.c +++ b/llex.c @@ -1,5 +1,5 @@ /* -** $Id: llex.c,v 2.42 2010/12/06 21:08:36 roberto Exp roberto $ +** $Id: llex.c,v 2.43 2010/12/10 14:53:15 roberto Exp roberto $ ** Lexical Analyzer ** See Copyright Notice in lua.h */ @@ -127,7 +127,7 @@ TString *luaX_newstring (LexState *ls, const char *str, size_t l) { TValue *o; /* entry for `str' */ TString *ts = luaS_newlstr(L, str, l); /* create new string */ setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */ - o = luaH_setstr(L, ls->fs->h, ts); + o = luaH_setstr(L, ls->fs->h, ts); if (ttisnil(o)) { setbvalue(o, 1); /* t[string] = true */ luaC_checkGC(L); @@ -185,7 +185,7 @@ static int check_next (LexState *ls, const char *set) { } -/* +/* ** change all characters 'from' in buffer to 'to' */ static void buffreplace (LexState *ls, char from, char to) { diff --git a/loslib.c b/loslib.c index 95ec7395..d4ec884c 100644 --- a/loslib.c +++ b/loslib.c @@ -1,5 +1,5 @@ /* -** $Id: loslib.c,v 1.31 2010/07/02 12:01:53 roberto Exp roberto $ +** $Id: loslib.c,v 1.32 2010/10/05 12:18:03 roberto Exp roberto $ ** Standard Operating System library ** See Copyright Notice in lua.h */ @@ -182,7 +182,7 @@ static const char *checkoption (lua_State *L, const char *conv, char *buff) { return conv; /* to avoid warnings */ } - + static int os_date (lua_State *L) { const char *s = luaL_optstring(L, 1, "%c"); time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); diff --git a/lparser.c b/lparser.c index c11b4aaf..e2ca368e 100644 --- a/lparser.c +++ b/lparser.c @@ -1,5 +1,5 @@ /* -** $Id: lparser.c,v 2.93 2010/12/15 19:13:29 roberto Exp roberto $ +** $Id: lparser.c,v 2.94 2010/12/17 12:03:41 roberto Exp roberto $ ** Lua Parser ** See Copyright Notice in lua.h */ @@ -587,7 +587,7 @@ static void field (LexState *ls, struct ConsControl *cc) { static void constructor (LexState *ls, expdesc *t) { - /* constructor -> '{' [ field { sep field } [sep] ] '}' + /* constructor -> '{' [ field { sep field } [sep] ] '}' sep -> ',' | ';' */ FuncState *fs = ls->fs; int line = ls->linenumber; diff --git a/lstrlib.c b/lstrlib.c index 97139613..255bc51f 100644 --- a/lstrlib.c +++ b/lstrlib.c @@ -1,5 +1,5 @@ /* -** $Id: lstrlib.c,v 1.161 2010/12/20 17:25:36 roberto Exp roberto $ +** $Id: lstrlib.c,v 1.162 2011/01/12 20:36:01 roberto Exp roberto $ ** Standard library for string operations and pattern-matching ** See Copyright Notice in lua.h */ @@ -524,7 +524,7 @@ static int nospecials (const char *p, size_t l) { size_t upto = 0; do { if (strpbrk(p + upto, SPECIALS)) - return 0; /* pattern has a special character */ + return 0; /* pattern has a special character */ upto += strlen(p + upto) + 1; /* may have more after \0 */ } while (upto <= l); return 1; /* no special chars found */