From e701a86385d652d19b1fd461ae4a84d1db2accba Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 15 Mar 1996 10:13:13 -0300
Subject: "openfile" now returns the file
---
inout.c | 20 +++++++-------------
1 file changed, 7 insertions(+), 13 deletions(-)
(limited to 'inout.c')
diff --git a/inout.c b/inout.c
index fe799e93..48a67545 100644
--- a/inout.c
+++ b/inout.c
@@ -5,7 +5,7 @@
** Also provides some predefined lua functions.
*/
-char *rcs_inout="$Id: inout.c,v 2.32 1996/02/14 18:25:04 roberto Exp roberto $";
+char *rcs_inout="$Id: inout.c,v 2.33 1996/02/26 21:00:27 roberto Exp roberto $";
#include <stdio.h>
#include <stdlib.h>
@@ -16,13 +16,7 @@ char *rcs_inout="$Id: inout.c,v 2.32 1996/02/14 18:25:04 roberto Exp roberto $";
#include "table.h"
#include "tree.h"
#include "lua.h"
-
-
-#ifndef MAXFUNCSTACK
-#define MAXFUNCSTACK 100
-#endif
-
-#define MAXMESSAGE MAXFUNCSTACK*80
+#include "mem.h"
/* Exported variables */
@@ -51,9 +45,9 @@ static int stringinput (void)
/*
** Function to open a file to be input unit.
-** Return 0 on success or 1 error.
+** Return the file.
*/
-int lua_openfile (char *fn)
+FILE *lua_openfile (char *fn)
{
lua_setinput (fileinput);
if (fn == NULL)
@@ -64,10 +58,10 @@ int lua_openfile (char *fn)
else
fp = fopen (fn, "r");
if (fp == NULL)
- return 1;
+ return NULL;
lua_linenumber = 1;
lua_parsedfile = luaI_createfixedstring(fn)->str;
- return 0;
+ return fp;
}
/*
@@ -134,7 +128,7 @@ void lua_internaldofile (void)
static char *tostring (lua_Object obj)
{
- static char buff[20];
+ char *buff = luaI_buffer(20);
if (lua_isstring(obj))
return lua_getstring(obj);
if (lua_isnumber(obj))
--
cgit v1.2.3-55-g6feb