#ifndef NORCSID
static char rcsid[] = "$Id$";
#endif

#include <stdlib.h>
#include <string.h>
#include "param.h"
#include "tables.h"
#include "types.h"
#include "glosym.h"

/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 *
 * Author: Hans van Staveren
 */

extern string myalloc();

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);
}
