Return to CHstrtoname.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / xns / morexnslib / ch

Annotation of 43BSDTahoe/new/xns/morexnslib/ch/CHstrtoname.c, revision 1.1.1.1

1.1       root        1: /* $Header: CHstrtoname.c,v 2.1 87/03/10 17:22:06 jqj Exp $ */
                      2: 
                      3: /* contains:
                      4:  * CH_NameToString
                      5:  * CH_StringToName
                      6:  */
                      7: 
                      8: /* $Log:       CHstrtoname.c,v $
                      9:  * Revision 2.1  87/03/10  17:22:06  jqj
                     10:  * added CH_NameToString
                     11:  * 
                     12:  * Revision 2.0  85/11/21  07:22:34  jqj
                     13:  * 4.3BSD standard release
                     14:  * 
                     15:  * Revision 1.1  85/03/26  06:27:02  jqj
                     16:  * Initial revision
                     17:  * 
                     18:  * Revision 1.1  85/03/26  06:27:02  jqj
                     19:  * Initial revision
                     20:  * 
                     21:  */
                     22: 
                     23: #include <xnscourier/Clearinghouse2.h>
                     24: 
                     25: static char *copy();
                     26: 
                     27: /*
                     28:  * Given an ObjectName, produce a string in standard format.
                     29:  * N.B. should escape ":" in the components!
                     30:  */
                     31: char *
                     32: CH_NameToString(chs_name)
                     33:        Clearinghouse2_ObjectName chs_name;
                     34: {
                     35:        static char buf[84];
                     36:        extern char *sprintf();
                     37:        return sprintf(buf,"%.40s:%.20s:%.20s", 
                     38:                        chs_name.object,
                     39:                        chs_name.domain,
                     40:                        chs_name.organization);
                     41: }
                     42: 
                     43: /*
                     44:  * Given a string in standard format, return an ObjectName.
                     45:  * If the string is incomplete, e.g. "jqj" or "::cornell-univ", fill 
                     46:  * in default values from defaults.
                     47:  * N.B. should handle escaped ":" in the compenents.
                     48:  */
                     49: Clearinghouse2_ObjectName
                     50: CH_StringToName(str,defaults)
                     51:        char *str;
                     52:        Clearinghouse2_ObjectName *defaults;
                     53: {
                     54:        register char *s1;
                     55:        extern char *index();
                     56:        register Clearinghouse2_ObjectName result;
                     57: 
                     58:        s1 = result.object = (str ? copy(str) : "");
                     59:        if (s1 = index(s1,':')) {
                     60:                *s1 = '\0';
                     61:                result.domain = ++s1;
                     62:                if (s1 = index(s1,':')) {
                     63:                        *s1 = '\0';
                     64:                        result.organization = ++s1;
                     65:                }
                     66:                else
                     67:                        result.organization = "";
                     68:        }
                     69:        else
                     70:                result.organization = result.domain = "";
                     71:        /* now fill in defaults if any */
                     72:        if (defaults == (Clearinghouse2_ObjectName*) NULL)
                     73:                return(result);
                     74:        if (*result.object == '\0' && defaults->object != NULL)
                     75:                result.object = copy(defaults->object);
                     76:        if (*result.domain == '\0' && defaults->domain != NULL)
                     77:                result.domain = copy(defaults->domain);
                     78:        if (*result.organization == '\0' && defaults->organization != NULL)
                     79:                result.organization = copy(defaults->organization);
                     80:        return(result);
                     81: }
                     82: 
                     83: 
                     84: static char *
                     85: copy(s)
                     86:        char *s;
                     87: {
                     88:        char *p;
                     89:        extern char *malloc();
                     90: 
                     91:        if ((p = malloc(strlen(s) + 1)) == NULL) {
                     92:                exit(1);
                     93:        }
                     94:        (void) strcpy(p, s);
                     95:        return (p);
                     96: }
                     97: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.