mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-24 21:59:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

1) execute retorna resultado Unix da execucao do comando.

Browse Source 
2) correcao parcial da read: retorna nil quando encontra EOF.
This commit is contained in:
Roberto Ierusalimschy 1993-12-30 12:52:18 -02:00
parent 019aa98f80
commit 8886f221bc
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
iolib.c
View File

@ -3,7 +3,7 @@
** Input/output library to LUA
*/
char *rcs_iolib="$Id: $";
char *rcs_iolib="$Id: iolib.c,v 1.1 1993/12/17 18:41:19 celes Exp roberto $";
#include <stdlib.h>
#include <string.h>
@ -272,22 +272,25 @@ static void io_read (void)
case 'i':
{
long int l;
fscanf (in, "%ld", &l);
lua_pushnumber(l);
if (fscanf (in, "%ld", &l) == EOF)
lua_pushnil();
else lua_pushnumber(l);
}
break;
case 'f': case 'g': case 'e':
{
float f;
fscanf (in, "%f", &f);
lua_pushnumber(f);
if (fscanf (in, "%f", &f) == EOF)
lua_pushnil();
else lua_pushnumber(f);
}
break;
default:
{
char s[256];
fscanf (in, "%s", s);
lua_pushstring(s);
if (fscanf (in, "%s", s) == EOF)
lua_pushnil();
else lua_pushstring(s);
}
break;
}
@ -406,8 +409,8 @@ static void io_write (void)
}
/*
** Execute a executable program using "sustem".
** On error put 0 on stack, otherwise put 1.
** Execute a executable program using "system".
** Return the result of execution.
*/
void io_execute (void)
{
@ -419,8 +422,8 @@ void io_execute (void)
}
else
{
system(lua_getstring(o));
lua_pushnumber (1);
int res = system(lua_getstring(o));
lua_pushnumber (res);
}
return;
}