mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-03-25 07:02:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

acertar bug no formato de string.

Browse Source
This commit is contained in:
Waldemar Celes 1994-09-12 16:24:31 -03:00
parent d2117d66ec
commit 98263e2ef1
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
iolib.c
View File

@ -3,7 +3,7 @@
** Input/output library to LUA
*/
char *rcs_iolib="$Id: iolib.c,v 1.7 1994/08/17 15:10:04 celes Exp roberto $";
char *rcs_iolib="$Id: iolib.c,v 1.8 1994/08/17 22:34:20 roberto Exp celes $";
#include <stdlib.h>
#include <string.h>
@ -345,7 +345,7 @@ static char *buildformat (char *e, lua_Object o)
static char buffer[512];
static char f[80];
char *string = &buffer[255];
char *fstart=e, *fspace;
char *fstart=e, *fspace, *send;
char t, j='r';
int m=0, n=0, l;
while (isspace(*e)) e++;
@ -354,7 +354,7 @@ static char *buildformat (char *e, lua_Object o)
if (*e == '<' || *e == '|' || *e == '>') j = *e++;
while (isdigit(*e))
m = m*10 + (*e++ - '0');
e++; /* skip point */
if (*e == '.') e++; /* skip point */
while (isdigit(*e))
n = n*10 + (*e++ - '0');
@ -383,6 +383,7 @@ static char *buildformat (char *e, lua_Object o)
default: return "";
}
l = strlen(string);
send = string+l;
if (m!=0 && l>m)
{
int i;
@ -406,8 +407,8 @@ static char *buildformat (char *e, lua_Object o)
fspace--;
*string = *fspace;
}
while (isspace(*e)) string[l++] = *e++;
string[l] = 0;
while (isspace(*e)) *send++ = *e++;
*send = 0;
return string;
}
static void io_write (void)