1985-01-08 15:34:54 +00:00
|
|
|
#ifndef NORCSID
|
|
|
|
|
static char rcsid[] = "$Header$";
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#include "param.h"
|
|
|
|
|
#include "tables.h"
|
|
|
|
|
#include "types.h"
|
|
|
|
|
#include "glosym.h"
|
|
|
|
|
|
|
|
|
|
/*
|
1987-03-10 01:26:51 +00:00
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
1985-01-08 15:34:54 +00:00
|
|
|
*
|
|
|
|
|
* Author: Hans van Staveren
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
extern string myalloc();
|
1988-06-28 14:41:02 +00:00
|
|
|
extern char *strcpy();
|
1985-01-08 15:34:54 +00:00
|
|
|
|
|
|
|
|
glosym_p glolist= (glosym_p) 0;
|
|
|
|
|
|
|
|
|
|
enterglo(name,romp) string name; word *romp; {
|
|
|
|
|
register glosym_p gp;
|
|
|
|
|
register i;
|
|
|
|
|
|
|
|
|
|
gp = (glosym_p) myalloc(sizeof *gp);
|
|
|
|
|
gp->gl_next = glolist;
|
|
|
|
|
gp->gl_name = (string) myalloc(strlen(name)+1);
|
|
|
|
|
strcpy(gp->gl_name,name);
|
|
|
|
|
for (i=0;i<=MAXROM;i++)
|
|
|
|
|
gp->gl_rom[i] = romp[i];
|
|
|
|
|
glolist = gp;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
glosym_p lookglo(name) string name; {
|
|
|
|
|
register glosym_p gp;
|
|
|
|
|
|
|
|
|
|
for (gp=glolist;gp != (glosym_p) 0; gp=gp->gl_next)
|
|
|
|
|
if (strcmp(gp->gl_name,name)==0)
|
|
|
|
|
return(gp);
|
|
|
|
|
return((glosym_p) 0);
|
|
|
|
|
}
|
