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