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

Module to control static tables

Browse Source
This commit is contained in:
Waldemar Celes 1993-12-17 16:41:19 -02:00
parent 64097041c4
commit 4478f0ce92
2 changed files with 60 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
table.c
View File

@ -1,10 +1,10 @@
/*
** table.c
** Module to control static tables
** TeCGraf - PUC-Rio
** 11 May 93
*/
char *rcs_table="$Id: $";
#include <stdlib.h>
#include <string.h>
@ -14,7 +14,7 @@
#include "table.h"
#include "lua.h"
#define streq(s1,s2) (strcmp(s1,s2)==0)
#define streq(s1,s2) (s1[0]==s2[0]&&strcmp(s1+1,s2+1)==0)
#ifndef MAXSYMBOL
#define MAXSYMBOL 512
@ -24,10 +24,27 @@ static Symbol tablebuffer[MAXSYMBOL] = {
{"tonumber",{T_CFUNCTION,{lua_obj2number}}},
{"next",{T_CFUNCTION,{lua_next}}},
{"nextvar",{T_CFUNCTION,{lua_nextvar}}},
{"print",{T_CFUNCTION,{lua_print}}}
{"print",{T_CFUNCTION,{lua_print}}},
{"dofile",{T_CFUNCTION,{lua_internaldofile}}},
{"dostring",{T_CFUNCTION,{lua_internaldostring}}}
};
Symbol *lua_table=tablebuffer;
Word lua_ntable=5;
Word lua_ntable=7;
struct List
{
Symbol *s;
struct List *next;
};
static struct List o6={ tablebuffer+6, 0};
static struct List o5={ tablebuffer+5, &o6 };
static struct List o4={ tablebuffer+4, &o5 };
static struct List o3={ tablebuffer+3, &o4 };
static struct List o2={ tablebuffer+2, &o3 };
static struct List o1={ tablebuffer+1, &o2 };
static struct List o0={ tablebuffer+0, &o1 };
static struct List *searchlist=&o0;
#ifndef MAXCONSTANT
#define MAXCONSTANT 256
@ -65,10 +82,19 @@ int lua_nfile;
*/
int lua_findsymbol (char *s)
{
int i;
for (i=0; i<lua_ntable; i++)
if (streq(s,s_name(i)))
return i;
struct List *l, *p;
for (p=NULL, l=searchlist; l!=NULL; p=l, l=l->next)
if (streq(s,l->s->name))
{
if (p!=NULL)
{
p->next = l->next;
l->next = searchlist;
searchlist = l;
}
return (l->s-lua_table);
}
if (lua_ntable >= MAXSYMBOL-1)
{
lua_error ("symbol table overflow");
@ -80,9 +106,13 @@ int lua_findsymbol (char *s)
lua_error ("not enough memory");
return -1;
}
s_tag(lua_ntable++) = T_NIL;
return (lua_ntable-1);
s_tag(lua_ntable) = T_NIL;
p = malloc(sizeof(*p));
p->s = lua_table+lua_ntable;
p->next = searchlist;
searchlist = p;
return lua_ntable++;
}
/*
@ -108,12 +138,12 @@ int lua_findenclosedconstant (char *s)
{
if (s[i] == '\\')
{
switch (s[++i])
switch (s[i+1])
{
case 'n': c[j++] = '\n'; break;
case 't': c[j++] = '\t'; break;
case 'r': c[j++] = '\r'; break;
default : c[j++] = '\\'; c[j++] = c[i]; break;
case 'n': c[j++] = '\n'; i++; break;
case 't': c[j++] = '\t'; i++; break;
case 'r': c[j++] = '\r'; i++; break;
default : c[j++] = '\\'; break;
}
}
else
@ -294,6 +324,15 @@ int lua_addfile (char *fn)
return 0;
}
/*
** Delete a file from file stack
*/
int lua_delfile (void)
{
lua_nfile--;
return 1;
}
/*
** Return the last file name set.
*/
@ -332,9 +371,9 @@ void lua_nextvar (void)
return;
}
index++;
while (index < lua_ntable-1 && tag(&s_object(index)) == T_NIL) index++;
while (index < lua_ntable && tag(&s_object(index)) == T_NIL) index++;
if (index == lua_ntable-1)
if (index == lua_ntable)
{
lua_pushnil();
lua_pushnil();

4
table.h
View File

@ -1,8 +1,7 @@
/*
** table.c
** Module to control static tables
** TeCGraf - PUC-Rio
** 11 May 93
** $Id: $
*/
#ifndef table_h
@ -33,6 +32,7 @@ void lua_markobject (Object *o);
char *lua_createstring (char *s);
void *lua_createarray (void *a);
int lua_addfile (char *fn);
int lua_delfile (void);
char *lua_filename (void);
void lua_nextvar (void);