DataMuseum.dk

top - metrics - download

    Length: 3115 (0xc2b)
    Types: TextFile
    Names: »isoalias.c«

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦35176feda⟧ »EurOpenD22/isode/isode-6.tar.Z« 
        └─⟦de7628f85⟧ 
            └─⟦this⟧ »isode-6.0/acsap/isoalias.c« 

TextFile

/* isoalias.c - application entity info --  directory service utilities */

#ifndef	lint
static char *rcsid = "$Header: /f/osi/acsap/RCS/isoalias.c,v 7.1 90/01/11 18:35:01 mrose Exp $";
#endif

/* 
 * $Header: /f/osi/acsap/RCS/isoalias.c,v 7.1 90/01/11 18:35:01 mrose Exp $
 *
 *
 * $Log:	isoalias.c,v $
 * Revision 7.1  90/01/11  18:35:01  mrose
 * real-sync
 * 
 * Revision 7.0  89/11/23  21:22:12  mrose
 * Release 6.0
 * 
 */

/*
 *				  NOTICE
 *
 *    Acquisition, use, and distribution of this module and related
 *    materials are subject to the restrictions of a license agreement.
 *    Consult the Preface in the User's Manual for the full terms of
 *    this agreement.
 *
 */


/* LINTLIBRARY */

#include <stdio.h>
#include "general.h"
#include "manifest.h"
#include "tailor.h"

/* \f

   DATA */

static char *isoaliases = "isoaliases";


#define	PBUCKETS	128
#define	PHASH(nm) \
    (((nm)[1]) ? (((chrcnv[((nm)[0])] - chrcnv[((nm)[1])]) & 0x1f) \
		  	+ ((chrcnv[(nm)[2]]) & 0x5f)) \
	       : (chrcnv[(nm)[0]]) & 0x7f)

struct pair {
    char   *p_name;
    char   *p_value;

    struct pair *p_chain;
};

static int inited = 0;
static struct pair *Pbuckets[PBUCKETS];

/* \f

 */

char   *alias2name (name)
char   *name;
{
    register struct pair *p;

    if (!inited)
	read_aliases ();

    for (p = Pbuckets[PHASH (name)];
	     p && lexequ (p -> p_name, name);
	     p = p -> p_chain)
	continue;

    return (p ? p -> p_value : NULL);
}

/* \f

 */

static int  read_aliases ()
{
    register char   *hp;
    char   buffer[BUFSIZ];

    if (inited)
	return;
    inited = 1;

    bzero ((char *) Pbuckets, sizeof Pbuckets);

    read_file (isodefile (isoaliases, 0));

    if ((hp = getenv ("HOME")) == NULL)
	hp = ".";
    (void) sprintf (buffer, "%s/.isode_aliases", hp);
    read_file (buffer);
}

/* \f

 */

static int  read_file (file)
char   *file;
{
    register char *cp;
    char   buffer[BUFSIZ + 1],
	  *vec[NVEC + NSLACK + 1];
    register FILE *fp;

    if ((fp = fopen (file, "r")) == NULL)
	return;

    while (fgets (buffer, sizeof buffer, fp)) {
	if (*buffer == '#')
	    continue;
	if (cp = index (buffer, '\n'))
	    *cp = NULL;
	if (str2vec (buffer, vec) < 2)
	    continue;

	if (add_alias (vec[0], vec[1]) == NOTOK)
	    break;
    }

    (void) fclose (fp);
}

/* \f

 */

int	add_alias (name, value)
char   *name,
       *value;
{
    int	    i;
    register struct pair *p;

    if (!inited)
	read_aliases ();

    if ((p = (struct pair *) calloc (1, sizeof *p)) == NULL) {
	SLOG (addr_log, LLOG_EXCEPTIONS, NULLCP,
	      ("calloc of alias structure failed"));
	return NOTOK;
    }

    if ((p -> p_name = malloc ((unsigned) (strlen (name) + 1))) == NULL
		|| (p -> p_value = malloc ((unsigned) (strlen (value) + 1)))
	    == NULL) {
	SLOG (addr_log, LLOG_EXCEPTIONS, NULLCP,
	      ("malloc of alias structure failed"));
	if (p -> p_name)
	    free (p -> p_name);
	free ((char *) p);
	return NOTOK;
    }
    (void) strcpy (p -> p_name, name);
    (void) strcpy (p -> p_value, value);

    p -> p_chain = Pbuckets[i = PHASH (p -> p_name)];
    Pbuckets[i] = p;

    return OK;
}