BSD 4_3_Net_2 release

[unix-history] / usr / src / usr.sbin / sendmail / src / stab.c

/*
* Copyright (c) 1983 Eric P. Allman
* Copyright (c) 1988 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
*    must display the following acknowledgement:
*      This product includes software developed by the University of
*      California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/

#ifndef lint
static char sccsid[] = "@(#)stab.c      5.7 (Berkeley) 6/1/90";
#endif /* not lint */

# include "sendmail.h"

/*
**  STAB -- manage the symbol table
**
**      Parameters:
**              name -- the name to be looked up or inserted.
**              type -- the type of symbol.
**              op -- what to do:
**                      ST_ENTER -- enter the name if not
**                              already present.
**                      ST_FIND -- find it only.
**
**      Returns:
**              pointer to a STAB entry for this name.
**              NULL if not found and not entered.
**
**      Side Effects:
**              can update the symbol table.
*/

# define STABSIZE       400

static STAB     *SymTab[STABSIZE];

STAB *
stab(name, type, op)
       char *name;
       int type;
       int op;
{
       register STAB *s;
       register STAB **ps;
       register int hfunc;
       register char *p;
       extern char lower();

       if (tTd(36, 5))
               printf("STAB: %s %d ", name, type);

       /*
       **  Compute the hashing function
       **
       **      We could probably do better....
       */

       hfunc = type;
       for (p = name; *p != '\0'; p++)
               hfunc = (((hfunc << 7) | lower(*p)) & 077777) % STABSIZE;

       if (tTd(36, 9))
               printf("(hfunc=%d) ", hfunc);

       ps = &SymTab[hfunc];
       while ((s = *ps) != NULL && (strcasecmp(name, s->s_name) || s->s_type != type))
               ps = &s->s_next;

       /*
       **  Dispose of the entry.
       */

       if (s != NULL || op == ST_FIND)
       {
               if (tTd(36, 5))
               {
                       if (s == NULL)
                               printf("not found\n");
                       else
                       {
                               long *lp = (long *) s->s_class;

                               printf("type %d val %lx %lx %lx %lx\n",
                                       s->s_type, lp[0], lp[1], lp[2], lp[3]);
                       }
               }
               return (s);
       }

       /*
       **  Make a new entry and link it in.
       */

       if (tTd(36, 5))
               printf("entered\n");

       /* make new entry */
       s = (STAB *) xalloc(sizeof *s);
       bzero((char *) s, sizeof *s);
       s->s_name = newstr(name);
       makelower(s->s_name);
       s->s_type = type;

       /* link it in */
       *ps = s;

       return (s);
}