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

Standard I/O (and system) library

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1997-09-16 16:25:59 -03:00
parent 2f1fa3d427
commit 451124005b
2 changed files with 29 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
iolib.c → liolib.c
View File

@ -1,17 +1,35 @@
/*
** $Id: $
** Standard I/O (and system) library
** See Copyright Notice in lua.h
*/
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include <time.h> #include <time.h>
#include <stdlib.h> #include <stdlib.h>
#include <errno.h> #include <errno.h>
#include "lualoc.h" #include "lauxlib.h"
#include "lua.h" #include "lua.h"
#include "auxlib.h"
#include "luadebug.h" #include "luadebug.h"
#include "lualib.h" #include "lualib.h"
int lua_tagio; #ifndef OLD_ANSI
#include <locale.h>
#else
#define strcoll(a,b) strcmp(a,b)
#define setlocale(a,b) 0
#define LC_ALL 0
#define LC_COLLATE 0
#define LC_CTYPE 0
#define LC_MONETARY 0
#define LC_NUMERIC 0
#define LC_TIME 0
#define strerror(e) "O.S. is unable to define the error"
#endif
#ifdef POPEN #ifdef POPEN
@ -23,6 +41,9 @@ int pclose();
#endif #endif
int lua_tagio;
static void pushresult (int i) static void pushresult (int i)
{ {
if (i) if (i)
@ -144,10 +165,10 @@ static void io_read (void)
p++; p++;
} }
else { else {
char *ep = luaL_item_end(p); /* get what is next */ char *ep; /* get what is next */
int m; /* match result */ int m; /* match result */
if (c == NEED_OTHER) c = getc(f); if (c == NEED_OTHER) c = getc(f);
m = (c == EOF) ? 0 : luaL_singlematch((char)c, p); m = luaI_singlematch((c == EOF) ? 0 : (char)c, p, &ep);
if (m) { if (m) {
if (inskip == 0) luaI_addchar(c); if (inskip == 0) luaI_addchar(c);
c = NEED_OTHER; c = NEED_OTHER;
@ -214,7 +235,7 @@ static void io_tmpname (void)
static void io_getenv (void) static void io_getenv (void)
{ {
lua_pushstring(getenv(luaL_check_string(1))); /* if NULL push nil */ lua_pushstring(getenv(luaL_check_string(1))); /* if NULL push nil */
} }
@ -240,7 +261,7 @@ static void setloc (void)
luaL_arg_check(0 <= op && op <= 5, 2, "invalid option"); luaL_arg_check(0 <= op && op <= 5, 2, "invalid option");
lua_pushstring(setlocale(cat[op], luaL_check_string(1))); lua_pushstring(setlocale(cat[op], luaL_check_string(1)));
} }
static void io_exit (void) static void io_exit (void)
{ {
@ -324,7 +345,7 @@ static struct luaL_reg iolib[] = {
{"print_stack", errorfb} {"print_stack", errorfb}
}; };
void iolib_open (void) void lua_iolibopen (void)
{ {
lua_tagio = lua_newtag(); lua_tagio = lua_newtag();
setfile(stdin, "_INPUT"); setfile(stdin, "_INPUT");

28
lualoc.h
View File

@ -1,28 +0,0 @@
/*
** lualoc.h
** TecCGraf - PUC-Rio
** $Id: lualoc.h,v 1.1 1997/07/02 18:45:09 roberto Exp roberto $
*/
#ifndef lualoc_h
#define lualoc_h
#ifndef OLD_ANSI
#include <locale.h>
#else
#define strcoll(a,b) strcmp(a,b)
#define setlocale(a,b) 0
#define LC_ALL 0
#define LC_COLLATE 0
#define LC_CTYPE 0
#define LC_MONETARY 0
#define LC_NUMERIC 0
#define LC_TIME 0
#define strerror(e) "O.S. is unable to define the error"
#endif
#endif