65 lines
2.1 KiB
C
65 lines
2.1 KiB
C
|
/*
|
||
|
|
* Copyright (c) 1992 by the University of Southern California
|
||
|
|
*
|
||
|
|
* For copying and distribution information, please see the file <usc-copyr.h>
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <usc-copyr.h>
|
||
|
|
|
||
|
|
#include <pfs.h>
|
||
|
|
#include <pparse.h>
|
||
|
|
|
||
|
|
/* This just sends out the data for a link, but does not prefix it with the
|
||
|
|
word LINK. It will suffix it with arguments, if needed. */
|
||
|
|
#define chknl(s) ((s) ? (s) : "")
|
||
|
|
int
|
||
|
|
out_link(OUTPUT out, VLINK vl, int nesting, TOKEN args)
|
||
|
|
{
|
||
|
|
int retval;
|
||
|
|
assert(vl);
|
||
|
|
qoprintf(out, " %c %s %'s %s %'s %s %'s %ld", vl->linktype,
|
||
|
|
chknl(vl->target), chknl(vl->name), chknl(vl->hosttype),
|
||
|
|
chknl(vl->host), chknl(vl->hsonametype), chknl(vl->hsoname),
|
||
|
|
vl->version, 0);
|
||
|
|
if (vl->dest_exp) {
|
||
|
|
char * cp = NULL;
|
||
|
|
qoprintf(out, " DEST-EXP %s",
|
||
|
|
cp = p_timetoasn_stcopyr(vl->dest_exp, cp));
|
||
|
|
stfree(cp);
|
||
|
|
}
|
||
|
|
if (args) {
|
||
|
|
qoprintf(out, " ARGS");
|
||
|
|
retval = out_sequence(out, args); /* out_sequence() terminates
|
||
|
|
with a \n for us. */
|
||
|
|
} else {
|
||
|
|
retval = qoprintf(out, "\n");
|
||
|
|
}
|
||
|
|
#if 0
|
||
|
|
if (vl->f_magic_no)
|
||
|
|
qoprintf(out, "ID REMOTE %ld\n", vl->f_magic_no, 0);
|
||
|
|
#else /* There has been a minor format change; ID is now preferably sent as an
|
||
|
|
ID line, not as an attribute line. */
|
||
|
|
if(vl->f_magic_no) {
|
||
|
|
int i;
|
||
|
|
|
||
|
|
qoprintf(out, "ATTRIBUTE", 0);
|
||
|
|
for (i = nesting; i; --i) {
|
||
|
|
qoprintf(out, ">", 0);
|
||
|
|
}
|
||
|
|
qoprintf(out, " LINK FIELD ID SEQUENCE REMOTE %ld\n", vl->f_magic_no);
|
||
|
|
retval = qoprintf(out, "\n");
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
/* Send recursive sub-attributes if we're already nested. But, if we're at
|
||
|
|
the top-level (nesting == 0), we could only have gotten here by being
|
||
|
|
called by list_name(), which makes its own decisions about which
|
||
|
|
attributes to send. Well, we might have also been called by dswdir(),
|
||
|
|
but that's OK. */
|
||
|
|
if (nesting) {
|
||
|
|
PATTRIB at;
|
||
|
|
for (at = vl->lattrib; at; at = at->next)
|
||
|
|
out_atr(out, at, nesting);
|
||
|
|
}
|
||
|
|
return(retval);
|
||
|
|
}
|