/* $Header: CHstrtoname.c,v 2.0 85/11/21 07:22:34 jqj Exp $ */

/* contains:
 * CH_strtoname
 */

/* $Log:	CHstrtoname.c,v $
 * Revision 2.0  85/11/21  07:22:34  jqj
 * 4.3BSD standard release
 * 
 * Revision 1.1  85/03/26  06:27:02  jqj
 * Initial revision
 * 
 * Revision 1.1  85/03/26  06:27:02  jqj
 * Initial revision
 * 
 */

#include <xnscourier/Clearinghouse2.h>

static char *copy();

/*
 * Given a string in standard format, return an ObjectName.
 * If the string is incomplete, e.g. "jqj" or "::cornell-univ", fill 
 * in default values from defaults.
 */
Clearinghouse2_ObjectName
CH_StringToName(str,defaults)
	char *str;
	Clearinghouse2_ObjectName *defaults;
{
	register char *s1;
	extern char *index();
	register Clearinghouse2_ObjectName result;

	s1 = result.object = (str ? copy(str) : "");
	if (s1 = index(s1,':')) {
		*s1 = '\0';
		result.domain = ++s1;
		if (s1 = index(s1,':')) {
			*s1 = '\0';
			result.organization = ++s1;
		}
		else
			result.organization = "";
	}
	else
		result.organization = result.domain = "";
	/* now fill in defaults if any */
	if (defaults == (Clearinghouse2_ObjectName*) NULL)
		return(result);
	if (*result.object == '\0' && defaults->object != NULL)
		result.object = copy(defaults->object);
	if (*result.domain == '\0' && defaults->domain != NULL)
		result.domain = copy(defaults->domain);
	if (*result.organization == '\0' && defaults->organization != NULL)
		result.organization = copy(defaults->organization);
	return(result);
}


static char *
copy(s)
	char *s;
{
	char *p;
	extern char *malloc();

	if ((p = malloc(strlen(s) + 1)) == NULL) {
		exit(1);
	}
	(void) strcpy(p, s);
	return (p);
}