diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2011-01-26 14:30:02 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2011-01-26 14:30:02 -0200 |
| commit | c4ea0c3b29252bcafeadf2f69532bdb67ab20bb9 (patch) | |
| tree | 06ed5143f5724be72981ad6303d24c7f09e1cb46 | |
| parent | 7106c491dddbfc7b9986c3c91214acd56b066d7f (diff) | |
| download | lua-c4ea0c3b29252bcafeadf2f69532bdb67ab20bb9.tar.gz lua-c4ea0c3b29252bcafeadf2f69532bdb67ab20bb9.tar.bz2 lua-c4ea0c3b29252bcafeadf2f69532bdb67ab20bb9.zip | |
detail (cleaning trailing spaces)
| -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 */ |
