diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-10-22 09:44:20 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-10-22 09:44:20 -0200 |
commit | 6b12b8253247079941e6303e9bb47aaeec03331b (patch) | |
tree | 913b96240cbb290f758e6a4de4213a53132ab99c /liolib.c | |
parent | d7a0179cd60657079d522c17da1e5aa5cc20532d (diff) | |
download | lua-6b12b8253247079941e6303e9bb47aaeec03331b.tar.gz lua-6b12b8253247079941e6303e9bb47aaeec03331b.tar.bz2 lua-6b12b8253247079941e6303e9bb47aaeec03331b.zip |
added 'l_' prefix for names that can be redefined externally
Diffstat (limited to 'liolib.c')
-rw-r--r-- | liolib.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: liolib.c,v 2.133 2014/10/17 16:28:21 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 2.134 2014/10/17 19:17:55 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 | */ |
@@ -418,8 +418,8 @@ static int readdigits (RN *rn, int hex) { | |||
418 | 418 | ||
419 | 419 | ||
420 | /* access to locale "radix character" (decimal point) */ | 420 | /* access to locale "radix character" (decimal point) */ |
421 | #if !defined(getlocaledecpoint) | 421 | #if !defined(l_getlocaledecpoint) |
422 | #define getlocaledecpoint() (localeconv()->decimal_point[0]) | 422 | #define l_getlocaledecpoint() (localeconv()->decimal_point[0]) |
423 | #endif | 423 | #endif |
424 | 424 | ||
425 | 425 | ||
@@ -434,7 +434,7 @@ static int read_number (lua_State *L, FILE *f) { | |||
434 | int hex = 0; | 434 | int hex = 0; |
435 | char decp[2] = "."; | 435 | char decp[2] = "."; |
436 | rn.f = f; rn.n = 0; | 436 | rn.f = f; rn.n = 0; |
437 | decp[0] = getlocaledecpoint(); /* get decimal point from locale */ | 437 | decp[0] = l_getlocaledecpoint(); /* get decimal point from locale */ |
438 | l_lockfile(rn.f); | 438 | l_lockfile(rn.f); |
439 | do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */ | 439 | do { rn.c = l_getc(rn.f); } while (isspace(rn.c)); /* skip spaces */ |
440 | test2(&rn, "-+"); /* optional signal */ | 440 | test2(&rn, "-+"); /* optional signal */ |