mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-23 05:11:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

function 'lua_addfile' returns an error message

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1994-11-03 19:48:36 -02:00
parent 6b18cc9a17
commit 852d9a8597
2 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
table.c
View File

@ -3,7 +3,7 @@
** Module to control static tables
*/
char *rcs_table="$Id: table.c,v 2.7 1994/11/02 19:09:23 roberto Exp roberto $";
char *rcs_table="$Id: table.c,v 2.8 1994/11/02 20:29:09 roberto Exp roberto $";
#include <stdlib.h>
#include <string.h>
@ -233,21 +233,15 @@ char *lua_createstring (char *s)
/*
** Add a file name at file table, checking overflow. This function also set
** the external variable "lua_filename" with the function filename set.
** Return 0 on success or 1 on error.
** Return 0 on success or error message on error.
*/
int lua_addfile (char *fn)
char *lua_addfile (char *fn)
{
if (lua_nfile >= MAXFILE-1)
{
lua_error ("too many files");
return 1;
}
return "too many files";
if ((lua_file[lua_nfile++] = strdup (fn)) == NULL)
{
lua_error ("not enough memory");
return 1;
}
return 0;
return "not enough memory";
return NULL;
}
/*

4
table.h
View File

@ -1,7 +1,7 @@
/*
** Module to control static tables
** TeCGraf - PUC-Rio
** $Id: table.h,v 2.2 1994/07/19 21:27:18 celes Exp $
** $Id: table.h,v 2.3 1994/10/17 19:03:23 celes Exp roberto $
*/
#ifndef table_h
@ -25,7 +25,7 @@ void lua_travsymbol (void (*fn)(Object *));
void lua_markobject (Object *o);
void lua_pack (void);
char *lua_createstring (char *s);
int lua_addfile (char *fn);
char *lua_addfile (char *fn);
int lua_delfile (void);
char *lua_filename (void);
void lua_nextvar (void);