nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hash manager for lua

Browse Source
This commit is contained in:
Waldemar Celes
1993-12-17 16:41:19 -02:00
parent 212fdf861a
commit b405fb0ad7
1 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
hash.c
View File

@@ -2,10 +2,10 @@
** hash.c ** hash.c
** hash manager for lua ** hash manager for lua
** Luiz Henrique de Figueiredo - 17 Aug 90 ** Luiz Henrique de Figueiredo - 17 Aug 90
** Modified by Waldemar Celes Filho
** 12 May 93
*/ */
char *rcs_hash="$Id: $";
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
@@ -184,11 +184,25 @@ static void firstnode (Hash *a, int h)
int i; int i;
for (i=h; i<nhash(a); i++) for (i=h; i<nhash(a); i++)
{ {
if (list(a,i) != NULL && tag(&list(a,i)->val) != T_NIL) if (list(a,i) != NULL)
{ {
lua_pushobject (&list(a,i)->ref); if (tag(&list(a,i)->val) != T_NIL)
lua_pushobject (&list(a,i)->val); {
return; lua_pushobject (&list(a,i)->ref);
lua_pushobject (&list(a,i)->val);
return;
}
else
{
Node *next = list(a,i)->next;
while (next != NULL && tag(&next->val) == T_NIL) next = next->next;
if (next != NULL)
{
lua_pushobject (&next->ref);
lua_pushobject (&next->val);
return;
}
}
} }
} }
} }
@@ -257,3 +271,4 @@ void lua_next (void)
} }
} }
} }