aboutsummaryrefslogtreecommitdiff
path: root/liolib.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2014-10-22 09:44:20 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2014-10-22 09:44:20 -0200
commit6b12b8253247079941e6303e9bb47aaeec03331b (patch)
tree913b96240cbb290f758e6a4de4213a53132ab99c /liolib.c
parentd7a0179cd60657079d522c17da1e5aa5cc20532d (diff)
downloadlua-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.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/liolib.c b/liolib.c
index e16e81f4..d03c99d7 100644
--- a/liolib.c
+++ b/liolib.c
@@ -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 */