GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1999-02-05 09:22:58 -02:00
parent 1dcf1c9cbd
commit 028ec00ab9
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
lstrlib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lstrlib.c,v 1.24 1999/02/04 19:10:30 roberto Exp roberto $ ** $Id: lstrlib.c,v 1.24 1999/02/04 19:29:51 roberto Exp roberto $
** Standard library for strings and pattern-matching ** Standard library for strings and pattern-matching
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -470,12 +470,12 @@ static void str_format (void) {
luaL_addchar(*strfrmt++); /* %% */ luaL_addchar(*strfrmt++); /* %% */
else { /* format item */ else { /* format item */
struct Capture cap; struct Capture cap;
char form[MAX_FORMAT]; /* store the format ('%...') */ char form[MAX_FORMAT]; /* to store the format ('%...') */
char *buff; char *buff; /* to store the formated item */
char *initf = strfrmt; char *initf = strfrmt;
form[0] = '%'; form[0] = '%';
if (isdigit((unsigned char)initf[0]) && initf[1] == '$') { if (isdigit((unsigned char)*initf) && *(initf+1) == '$') {
arg = initf[0] - '0'; arg = *initf - '0';
initf += 2; /* skip the 'n$' */ initf += 2; /* skip the 'n$' */
} }
arg++; arg++;
@ -487,24 +487,8 @@ static void str_format (void) {
lua_error("invalid format (width or precision too long)"); lua_error("invalid format (width or precision too long)");
strncpy(form+1, initf, strfrmt-initf+1); /* +1 to include conversion */ strncpy(form+1, initf, strfrmt-initf+1); /* +1 to include conversion */
form[strfrmt-initf+2] = 0; form[strfrmt-initf+2] = 0;
buff = luaL_openspace(450); /* 450 > size of format('%99.99f', -1e308) */ buff = luaL_openspace(512); /* 512 > soid luaI_addquot99.99f', -1e308) */
switch (*strfrmt++) { switch (*strfrmt++) {
case 'q':
luaI_addquoted(arg);
continue;
case 's': {
char *s = luaL_check_string(arg);
int l = strlen(s);
buff = luaL_openspace(l+1);
if (cap.capture[1].len == 0 && l >= 100) {
/* no precision and string is too big to be formated;
keep original string */
strcpy(buff, s);
}
else
sprintf(buff, form, s);
break;
}
case 'c': case 'd': case 'i': case 'c': case 'd': case 'i':
sprintf(buff, form, luaL_check_int(arg)); sprintf(buff, form, luaL_check_int(arg));
break; break;
@ -514,6 +498,23 @@ static void str_format (void) {
case 'e': case 'E': case 'f': case 'g': case 'G': case 'e': case 'E': case 'f': case 'g': case 'G':
sprintf(buff, form, luaL_check_number(arg)); sprintf(buff, form, luaL_check_number(arg));
break; break;
case 'q':
luaI_addquoted(arg);
continue; /* skip the "addsize" at the end */
case 's': {
long l;
char *s = luaL_check_lstr(arg, &l);
if (cap.capture[1].len == 0 && l >= 100) {
/* no precision and string is too big to be formated;
keep original string */
addnchar(s, l);
continue; /* skip the "addsize" at the end */
}
else {
sprintf(buff, form, s);
break;
}
}
default: /* also treat cases 'pnLlh' */ default: /* also treat cases 'pnLlh' */
lua_error("invalid option in `format'"); lua_error("invalid option in `format'");
} }