72 lines
2.1 KiB
C
72 lines
2.1 KiB
C
|
/*
|
||
|
|
* Copyright (c) 1992, 1993 by the University of Southern California
|
||
|
|
*
|
||
|
|
* For copying and distribution information, please see the file <usc-copyr.h>
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <usc-license.h>
|
||
|
|
|
||
|
|
#include <pfs.h>
|
||
|
|
#include <pparse.h>
|
||
|
|
#include <pprot.h>
|
||
|
|
|
||
|
|
extern int p__server; /* set if server is calilng this code. */
|
||
|
|
|
||
|
|
/* This function sends a protocol reply line in appropriate format describing
|
||
|
|
the attribute AT. It only outputs for a single attribute, not for a list
|
||
|
|
of them. */
|
||
|
|
|
||
|
|
int
|
||
|
|
out_atr(OUTPUT out, PATTRIB at, int nesting)
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
|
||
|
|
assert(at);
|
||
|
|
qoprintf(out, "ATTRIBUTE");
|
||
|
|
for (i = nesting; i; --i) {
|
||
|
|
qoprintf(out, ">");
|
||
|
|
}
|
||
|
|
if (at->nature == ATR_NATURE_FIELD) {
|
||
|
|
qoprintf(out, " %'s FIELD %'s",
|
||
|
|
lookup_precedencename_by_precedence(at->precedence),
|
||
|
|
at->aname);
|
||
|
|
#ifndef REALLY_NEW_FIELD
|
||
|
|
/* Databases (files) get the new format right away. */
|
||
|
|
if (!p__server || out->f ||
|
||
|
|
lookup_avtype_by_field_name(at->aname) == ATR_UNKNOWN) {
|
||
|
|
#endif
|
||
|
|
qoprintf(out, " %'s", lookup_avtypename_by_avtype(at->avtype));
|
||
|
|
#ifndef REALLY_NEW_FIELD
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
} else if (at->nature == ATR_NATURE_INTRINSIC) {
|
||
|
|
qoprintf(out, " %'s INTRINSIC %'s %'s",
|
||
|
|
lookup_precedencename_by_precedence(at->precedence),
|
||
|
|
at->aname, lookup_avtypename_by_avtype(at->avtype));
|
||
|
|
} else {
|
||
|
|
assert(at->nature == ATR_NATURE_APPLICATION);
|
||
|
|
qoprintf(out, " %'s APPLICATION %'s %'s",
|
||
|
|
lookup_precedencename_by_precedence(at->precedence),
|
||
|
|
at->aname, lookup_avtypename_by_avtype(at->avtype));
|
||
|
|
}
|
||
|
|
switch(at->avtype) {
|
||
|
|
case ATR_SEQUENCE:
|
||
|
|
return out_sequence(out, at->value.sequence);
|
||
|
|
break;
|
||
|
|
case ATR_FILTER:
|
||
|
|
return out_filter(out, at->value.filter, nesting + 1);
|
||
|
|
break;
|
||
|
|
case ATR_LINK:
|
||
|
|
return out_link(out, at->value.link, nesting + 1, (TOKEN) NULL);
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
internal_error("Unimplemented or Invalid attribute type!");
|
||
|
|
/*NOTREACHED */
|
||
|
|
}
|
||
|
|
assert(0); /* NOTREACHED */
|
||
|
|
return(-1); /* To keep GCC happy */
|
||
|
|
}
|
||
|
|
|
||
|
|
|