128 lines
4.3 KiB
C
128 lines
4.3 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>
|
|
#include <pprot.h>
|
|
#include <perrno.h>
|
|
|
|
/* Returns PSUCCESS or PFAILURE.
|
|
Stashes its results in *valuep, and in *argsp, if argsp is non-NULL.
|
|
Starts reading from next_word.
|
|
*/
|
|
#define RETURN(rv) { retval = rv ; goto cleanup ; }
|
|
/* This wasnt freeing clink in all cases */
|
|
int
|
|
in_link(INPUT in, char *command, char *next_word,
|
|
int nesting, VLINK *valuep,
|
|
TOKEN *argsp /* Only used by in_filter. */)
|
|
{
|
|
VLINK clink;
|
|
int tmp;
|
|
char t_linktype;
|
|
char t_type[MAX_DIR_LINESIZE];
|
|
char t_name[MAX_DIR_LINESIZE];
|
|
char t_htype[MAX_DIR_LINESIZE];
|
|
char t_host[MAX_DIR_LINESIZE];
|
|
char t_ntype[MAX_DIR_LINESIZE];
|
|
char t_fname[MAX_DIR_LINESIZE];
|
|
char t_destexp[20];
|
|
char *p_args;
|
|
PATTRIB at;
|
|
int moretext; /* flag we use to check if there's more text on
|
|
the line to examine. */
|
|
int retval = PSUCCESS; /* return value from functions */
|
|
|
|
CHECK_MEM();
|
|
clink = vlalloc(); /* free-d or returned in valuep */
|
|
|
|
tmp = qsscanf(next_word, "%c %s %'s %s %'s %s %'s %d %r",
|
|
&t_linktype,t_type,t_name,t_htype,t_host,
|
|
t_ntype,t_fname,
|
|
&(clink->version), &next_word);
|
|
|
|
/* Log and return a better message */
|
|
if(tmp < 8) {
|
|
p_err_string = qsprintf_stcopyr(p_err_string, "Too few arguments: %'s",
|
|
command, 0);
|
|
RETURN(perrno = PARSE_ERROR);
|
|
}
|
|
assert(tmp <= 9);
|
|
moretext = (tmp == 9);
|
|
if (t_linktype == 'U' || t_linktype == 'L' || t_linktype == 'I'
|
|
|| in->flags == SERVER_DATA_FILE
|
|
&& (t_linktype == 'n' || t_linktype == 'N'))
|
|
clink->linktype = t_linktype;
|
|
else {
|
|
p_err_string = qsprintf_stcopyr(p_err_string,
|
|
"Illegal link type %c specified: %'s", t_linktype, command);
|
|
RETURN(perrno = PARSE_ERROR);
|
|
}
|
|
|
|
clink->target = stcopyr(t_type, clink->target);
|
|
clink->name = stcopyr(t_name, clink->name);
|
|
clink->hosttype = stcopyr(t_htype,clink->hosttype);
|
|
clink->host = stcopyr(t_host,clink->host);
|
|
clink->hsonametype = stcopyr(t_ntype,clink->hsonametype);
|
|
clink->hsoname = stcopyr(t_fname,clink->hsoname);
|
|
/* search for DEST_EXP, if set. */
|
|
if (moretext) {
|
|
tmp = qsscanf(next_word, "DEST-EXP %!!s %r", t_destexp,
|
|
sizeof t_destexp, &next_word);
|
|
if (tmp >= 1)
|
|
clink->dest_exp = asntotime(t_destexp);
|
|
moretext = (tmp == 2);
|
|
}
|
|
if (argsp) { /* if args requested */
|
|
/* if given */
|
|
if (moretext) {
|
|
tmp = qsscanf(next_word, "ARGS %r", &p_args);
|
|
if (tmp == 1) {
|
|
*argsp = qtokenize(p_args);
|
|
moretext = 0;
|
|
} else {
|
|
p_err_string = qsprintf_stcopyr(p_err_string,
|
|
"Unknown tokens at end of LINK specification: %'s",
|
|
command);
|
|
RETURN(perrno = PARSE_ERROR);
|
|
}
|
|
} else {
|
|
/* no more text, but args requested. */
|
|
*argsp = NULL;
|
|
}
|
|
}
|
|
/* check for leftover text. */
|
|
if (moretext) {
|
|
p_err_string = qsprintf_stcopyr(p_err_string,
|
|
"Unknown tokens at end of LINK specification: %'s",
|
|
command);
|
|
RETURN( perrno = PARSE_ERROR);
|
|
}
|
|
/* Look for any and all following ID lines and merge them with the link. */
|
|
retval = in_id(in, &clink->f_magic_no);
|
|
|
|
/* look for ATTRIBUTE lines specifying link attributes. */
|
|
/* errors reported in p_err_string by these subfunctions. */
|
|
/* These subfunctions will free up memory they don't need. */
|
|
if (!retval) retval = in_atrs(in, nesting, &at);
|
|
if (!retval) retval = vl_add_atrs(at, clink);
|
|
if (retval) {
|
|
if(argsp) tklfree(*argsp);
|
|
/* in_atrs and add_attributes free their allocated memory if they fail;
|
|
we don't have to. */
|
|
RETURN(retval;) /* in_atrs && add_attributes set perrno, too.
|
|
*/
|
|
}
|
|
*valuep = clink;
|
|
return PSUCCESS;
|
|
|
|
cleanup:
|
|
vlfree(clink);
|
|
return(retval);
|
|
}
|
|
|