/*
 *    (c)Copyright 1992-1997 Obvious Implementations Corp.  Redistribution and
 *    use is allowed under the terms of the DICE-LICENSE FILE,
 *    DICE-LICENSE.TXT.
 */

/*
 *  LAB.C
 *
 */

#include "defs.h"

Prototype   Label   *LabHash[LSIZE];

Prototype int	labhash(ubyte *);
Prototype Label *GetLabelByName(char *);
Prototype Label *FindLabel(char *);

Label	*LabHash[LSIZE];

int
labhash(str)
ubyte *str;
{
    register long hv = 0x1B465D8;

    while (*str)
	hv = (hv >> 23) ^ (hv << 5) ^ *str++;
    return(hv & LMASK);
}

Label *
GetLabelByName(name)
char *name;
{
    long i = labhash(name);
    Label **plab;
    Label *lab;

    for (plab = LabHash + i; (lab = *plab) != NULL; plab = &lab->HNext) {
	if (strcmp(lab->Name, name) == 0)
	    return(lab);
    }
    lab = AllocStructure(Label);
    lab->HNext = *plab;
    lab->Name = name;
    lab->XDefLink = (void *)-1L;
    *plab = lab;
    return(lab);
}

Label *
FindLabel(name)
char *name;
{
    long i = labhash(name);
    Label *lab;

    for (lab = LabHash[i]; lab; lab = lab->HNext) {
	if (strcmp(lab->Name, name) == 0)
	    return(lab);
    }
    return(lab);
}