diff options
-rw-r--r-- | lbaselib.c | 4 | ||||
-rw-r--r-- | ldblib.c | 4 | ||||
-rw-r--r-- | ldebug.c | 6 | ||||
-rw-r--r-- | lgc.h | 4 | ||||
-rw-r--r-- | linit.c | 8 | ||||
-rw-r--r-- | liolib.c | 4 | ||||
-rw-r--r-- | llex.c | 6 | ||||
-rw-r--r-- | loslib.c | 4 | ||||
-rw-r--r-- | lparser.c | 4 | ||||
-rw-r--r-- | lstrlib.c | 4 |
10 files changed, 24 insertions, 24 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbaselib.c,v 1.257 2010/12/27 18:00:38 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.258 2011/01/07 12:41:48 roberto Exp roberto $ |
3 | ** Basic library | 3 | ** Basic library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -135,7 +135,7 @@ static int luaB_rawequal (lua_State *L) { | |||
135 | 135 | ||
136 | static int luaB_rawlen (lua_State *L) { | 136 | static int luaB_rawlen (lua_State *L) { |
137 | int t = lua_type(L, 1); | 137 | int t = lua_type(L, 1); |
138 | luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, | 138 | luaL_argcheck(L, t == LUA_TTABLE || t == LUA_TSTRING, 1, |
139 | "table or string expected"); | 139 | "table or string expected"); |
140 | lua_pushinteger(L, lua_rawlen(L, 1)); | 140 | lua_pushinteger(L, lua_rawlen(L, 1)); |
141 | return 1; | 141 | return 1; |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldblib.c,v 1.127 2010/12/20 17:24:15 roberto Exp roberto $ | 2 | ** $Id: ldblib.c,v 1.128 2011/01/10 15:51:19 roberto Exp roberto $ |
3 | ** Interface from Lua to its debug API | 3 | ** Interface from Lua to its debug API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -253,7 +253,7 @@ static int db_upvaluejoin (lua_State *L) { | |||
253 | } | 253 | } |
254 | 254 | ||
255 | 255 | ||
256 | #define gethooktable(L) luaL_findtable(L, LUA_REGISTRYINDEX, HOOKKEY); | 256 | #define gethooktable(L) luaL_findtable(L, LUA_REGISTRYINDEX, HOOKKEY); |
257 | 257 | ||
258 | 258 | ||
259 | static void hookf (lua_State *L, lua_Debug *ar) { | 259 | static void hookf (lua_State *L, lua_Debug *ar) { |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 2.74 2010/10/11 20:24:42 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.75 2010/11/30 17:17:51 roberto Exp roberto $ |
3 | ** Debug Interface | 3 | ** Debug Interface |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -325,7 +325,7 @@ static const char *getobjname (lua_State *L, CallInfo *ci, int reg, | |||
325 | if (reg == a) { | 325 | if (reg == a) { |
326 | int k = GETARG_C(i); /* key index */ | 326 | int k = GETARG_C(i); /* key index */ |
327 | int t = GETARG_B(i); | 327 | int t = GETARG_B(i); |
328 | const char *vn = (op == OP_GETTABLE) /* name of indexed variable */ | 328 | const char *vn = (op == OP_GETTABLE) /* name of indexed variable */ |
329 | ? luaF_getlocalname(p, t + 1, pc) | 329 | ? luaF_getlocalname(p, t + 1, pc) |
330 | : getstr(p->upvalues[t].name); | 330 | : getstr(p->upvalues[t].name); |
331 | kname(p, k, a, what, name); | 331 | kname(p, k, a, what, name); |
@@ -468,7 +468,7 @@ void luaG_typeerror (lua_State *L, const TValue *o, const char *op) { | |||
468 | const char *kind = NULL; | 468 | const char *kind = NULL; |
469 | if (isLua(ci)) { | 469 | if (isLua(ci)) { |
470 | kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */ | 470 | kind = getupvalname(ci, o, &name); /* check whether 'o' is an upvalue */ |
471 | if (!kind && isinstack(ci, o)) /* no? try a register */ | 471 | if (!kind && isinstack(ci, o)) /* no? try a register */ |
472 | kind = getobjname(L, ci, cast_int(o - ci->u.l.base), &name); | 472 | kind = getobjname(L, ci, cast_int(o - ci->u.l.base), &name); |
473 | } | 473 | } |
474 | if (kind) | 474 | if (kind) |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lgc.h,v 2.48 2010/12/20 18:17:46 roberto Exp roberto $ | 2 | ** $Id: lgc.h,v 2.49 2010/12/29 18:00:23 roberto Exp roberto $ |
3 | ** Garbage Collector | 3 | ** Garbage Collector |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -106,7 +106,7 @@ | |||
106 | 106 | ||
107 | #define luaC_condGC(L,c) \ | 107 | #define luaC_condGC(L,c) \ |
108 | {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);} | 108 | {if (G(L)->GCdebt > 0) {c;}; condchangemem(L);} |
109 | #define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);) | 109 | #define luaC_checkGC(L) luaC_condGC(L, luaC_step(L);) |
110 | 110 | ||
111 | 111 | ||
112 | #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ | 112 | #define luaC_barrier(L,p,v) { if (valiswhite(v) && isblack(obj2gco(p))) \ |
@@ -1,16 +1,16 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: linit.c,v 1.29 2010/10/25 14:32:36 roberto Exp roberto $ | 2 | ** $Id: linit.c,v 1.30 2010/11/12 15:48:30 roberto Exp roberto $ |
3 | ** Initialization of libraries for lua.c and other clients | 3 | ** Initialization of libraries for lua.c and other clients |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
6 | 6 | ||
7 | 7 | ||
8 | /* | 8 | /* |
9 | ** If you embed Lua in your program and need to open the standard | 9 | ** If you embed Lua in your program and need to open the standard |
10 | ** libraries, call luaL_openlibs in your program. If you need a | 10 | ** libraries, call luaL_openlibs in your program. If you need a |
11 | ** different set of libraries, copy this file to your project and edit | 11 | ** different set of libraries, copy this file to your project and edit |
12 | ** it to suit your needs. | 12 | ** it to suit your needs. |
13 | */ | 13 | */ |
14 | 14 | ||
15 | 15 | ||
16 | #define linit_c | 16 | #define linit_c |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: liolib.c,v 2.94 2010/11/09 16:57:49 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 2.95 2010/11/10 18:05:36 roberto Exp roberto $ |
3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -517,7 +517,7 @@ static int io_write (lua_State *L) { | |||
517 | 517 | ||
518 | 518 | ||
519 | static int f_write (lua_State *L) { | 519 | static int f_write (lua_State *L) { |
520 | FILE * f = tofile(L); | 520 | FILE * f = tofile(L); |
521 | lua_pushvalue(L, 1); /* push file at the stack top (to be returned) */ | 521 | lua_pushvalue(L, 1); /* push file at the stack top (to be returned) */ |
522 | return g_write(L, f, 2); | 522 | return g_write(L, f, 2); |
523 | } | 523 | } |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: llex.c,v 2.42 2010/12/06 21:08:36 roberto Exp roberto $ | 2 | ** $Id: llex.c,v 2.43 2010/12/10 14:53:15 roberto Exp roberto $ |
3 | ** Lexical Analyzer | 3 | ** Lexical Analyzer |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -127,7 +127,7 @@ TString *luaX_newstring (LexState *ls, const char *str, size_t l) { | |||
127 | TValue *o; /* entry for `str' */ | 127 | TValue *o; /* entry for `str' */ |
128 | TString *ts = luaS_newlstr(L, str, l); /* create new string */ | 128 | TString *ts = luaS_newlstr(L, str, l); /* create new string */ |
129 | setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */ | 129 | setsvalue2s(L, L->top++, ts); /* temporarily anchor it in stack */ |
130 | o = luaH_setstr(L, ls->fs->h, ts); | 130 | o = luaH_setstr(L, ls->fs->h, ts); |
131 | if (ttisnil(o)) { | 131 | if (ttisnil(o)) { |
132 | setbvalue(o, 1); /* t[string] = true */ | 132 | setbvalue(o, 1); /* t[string] = true */ |
133 | luaC_checkGC(L); | 133 | luaC_checkGC(L); |
@@ -185,7 +185,7 @@ static int check_next (LexState *ls, const char *set) { | |||
185 | } | 185 | } |
186 | 186 | ||
187 | 187 | ||
188 | /* | 188 | /* |
189 | ** change all characters 'from' in buffer to 'to' | 189 | ** change all characters 'from' in buffer to 'to' |
190 | */ | 190 | */ |
191 | static void buffreplace (LexState *ls, char from, char to) { | 191 | static void buffreplace (LexState *ls, char from, char to) { |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: loslib.c,v 1.31 2010/07/02 12:01:53 roberto Exp roberto $ | 2 | ** $Id: loslib.c,v 1.32 2010/10/05 12:18:03 roberto Exp roberto $ |
3 | ** Standard Operating System library | 3 | ** Standard Operating System library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -182,7 +182,7 @@ static const char *checkoption (lua_State *L, const char *conv, char *buff) { | |||
182 | return conv; /* to avoid warnings */ | 182 | return conv; /* to avoid warnings */ |
183 | } | 183 | } |
184 | 184 | ||
185 | 185 | ||
186 | static int os_date (lua_State *L) { | 186 | static int os_date (lua_State *L) { |
187 | const char *s = luaL_optstring(L, 1, "%c"); | 187 | const char *s = luaL_optstring(L, 1, "%c"); |
188 | time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); | 188 | time_t t = luaL_opt(L, (time_t)luaL_checknumber, 2, time(NULL)); |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lparser.c,v 2.93 2010/12/15 19:13:29 roberto Exp roberto $ | 2 | ** $Id: lparser.c,v 2.94 2010/12/17 12:03:41 roberto Exp roberto $ |
3 | ** Lua Parser | 3 | ** Lua Parser |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -587,7 +587,7 @@ static void field (LexState *ls, struct ConsControl *cc) { | |||
587 | 587 | ||
588 | 588 | ||
589 | static void constructor (LexState *ls, expdesc *t) { | 589 | static void constructor (LexState *ls, expdesc *t) { |
590 | /* constructor -> '{' [ field { sep field } [sep] ] '}' | 590 | /* constructor -> '{' [ field { sep field } [sep] ] '}' |
591 | sep -> ',' | ';' */ | 591 | sep -> ',' | ';' */ |
592 | FuncState *fs = ls->fs; | 592 | FuncState *fs = ls->fs; |
593 | int line = ls->linenumber; | 593 | int line = ls->linenumber; |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstrlib.c,v 1.161 2010/12/20 17:25:36 roberto Exp roberto $ | 2 | ** $Id: lstrlib.c,v 1.162 2011/01/12 20:36:01 roberto Exp roberto $ |
3 | ** Standard library for string operations and pattern-matching | 3 | ** Standard library for string operations and pattern-matching |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -524,7 +524,7 @@ static int nospecials (const char *p, size_t l) { | |||
524 | size_t upto = 0; | 524 | size_t upto = 0; |
525 | do { | 525 | do { |
526 | if (strpbrk(p + upto, SPECIALS)) | 526 | if (strpbrk(p + upto, SPECIALS)) |
527 | return 0; /* pattern has a special character */ | 527 | return 0; /* pattern has a special character */ |
528 | upto += strlen(p + upto) + 1; /* may have more after \0 */ | 528 | upto += strlen(p + upto) + 1; /* may have more after \0 */ |
529 | } while (upto <= l); | 529 | } while (upto <= l); |
530 | return 1; /* no special chars found */ | 530 | return 1; /* no special chars found */ |