rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

"openfile" now returns the file

This commit is contained in:
Roberto Ierusalimschy 1996-03-15 10:13:13 -03:00
parent 3e1f731826
commit e701a86385
2 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
inout.c
View File

@ -5,7 +5,7 @@
** Also provides some predefined lua functions. ** 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 <stdio.h>
#include <stdlib.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 "table.h"
#include "tree.h" #include "tree.h"
#include "lua.h" #include "lua.h"
#include "mem.h"
#ifndef MAXFUNCSTACK
#define MAXFUNCSTACK 100
#endif
#define MAXMESSAGE MAXFUNCSTACK*80
/* Exported variables */ /* Exported variables */
@ -51,9 +45,9 @@ static int stringinput (void)
/* /*
** Function to open a file to be input unit. ** 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); lua_setinput (fileinput);
if (fn == NULL) if (fn == NULL)
@ -64,10 +58,10 @@ int lua_openfile (char *fn)
else else
fp = fopen (fn, "r"); fp = fopen (fn, "r");
if (fp == NULL) if (fp == NULL)
return 1; return NULL;
lua_linenumber = 1; lua_linenumber = 1;
lua_parsedfile = luaI_createfixedstring(fn)->str; 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 *tostring (lua_Object obj)
{ {
static char buff[20]; char *buff = luaI_buffer(20);
if (lua_isstring(obj)) if (lua_isstring(obj))
return lua_getstring(obj); return lua_getstring(obj);
if (lua_isnumber(obj)) if (lua_isnumber(obj))

5
inout.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: inout.h,v 1.12 1996/01/26 14:05:28 roberto Exp roberto $ ** $Id: inout.h,v 1.13 1996/02/07 14:13:47 roberto Exp roberto $
*/ */
@ -7,13 +7,14 @@
#define inout_h #define inout_h
#include "types.h" #include "types.h"
#include "stdio.h"
extern Word lua_linenumber; extern Word lua_linenumber;
extern Word lua_debugline; extern Word lua_debugline;
extern char *lua_parsedfile; extern char *lua_parsedfile;
int lua_openfile (char *fn); FILE *lua_openfile (char *fn);
void lua_closefile (void); void lua_closefile (void);
void lua_openstring (char *s); void lua_openstring (char *s);
void lua_closestring (void); void lua_closestring (void);