46 lines
1.2 KiB
C
46 lines
1.2 KiB
C
|
/* Build an attribute
|
||
|
|
|
||
|
|
Author - Mitra
|
||
|
|
|
||
|
|
(Steve - feel free to incorporate as you wish)
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <pfs.h>
|
||
|
|
|
||
|
|
|
||
|
|
/* Build a PATTRIB, with its list of tokens */
|
||
|
|
/* Note convention that calling routing passes last arg as (char *)0 */
|
||
|
|
/* Also note , that passing (char *)1 will force the next argument to
|
||
|
|
be pointed to, rather than copied (which is what tkappend does) */
|
||
|
|
/* Return it - this fills in defaults, caller can override */
|
||
|
|
PATTRIB
|
||
|
|
vatbuild(char *name, va_list ap)
|
||
|
|
{
|
||
|
|
char *s;
|
||
|
|
PATTRIB at = atalloc();
|
||
|
|
|
||
|
|
at->aname = stcopy(name);
|
||
|
|
/* If any of these arent reasonable defaults move up to callers */
|
||
|
|
at->avtype = ATR_SEQUENCE;
|
||
|
|
if (strequal(name, "ACCESS-METHOD"))
|
||
|
|
at->nature = ATR_NATURE_FIELD;
|
||
|
|
else if strequal(name,"CONTENTS")
|
||
|
|
at->nature = ATR_NATURE_INTRINSIC;
|
||
|
|
else
|
||
|
|
at->nature = ATR_NATURE_APPLICATION;
|
||
|
|
at->precedence = ATR_PREC_OBJECT;
|
||
|
|
while(s = va_arg(ap, char *)) {
|
||
|
|
if (s == (char *) 1) {
|
||
|
|
at->value.sequence =
|
||
|
|
tkappend(NULL,at->value.sequence);
|
||
|
|
s = va_arg(ap, char *);
|
||
|
|
at->value.sequence->previous->token = s;
|
||
|
|
} else
|
||
|
|
at->value.sequence =
|
||
|
|
tkappend(s, at->value.sequence);
|
||
|
|
}
|
||
|
|
|
||
|
|
return(at);
|
||
|
|
}
|
||
|
|
|