52 lines
1.6 KiB
C
52 lines
1.6 KiB
C
|
/* author: swa@isi.edu */
|
||
|
|
/*
|
||
|
|
* 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 <perrno.h>
|
||
|
|
#include <pparse.h>
|
||
|
|
#include <pprot.h>
|
||
|
|
|
||
|
|
/* The interface to this function will change. The long * must become a
|
||
|
|
pointer to a list of attributes (PATTRIB *). But for now, this is correct,
|
||
|
|
since dsrfinfo() and the name searching code don't pay attention to such
|
||
|
|
information. */
|
||
|
|
/* We simply ignore ID types that we don't understand. I believe this is
|
||
|
|
correct. */
|
||
|
|
int
|
||
|
|
in_select(INPUT in, long *magic_nop)
|
||
|
|
{
|
||
|
|
char *command, *next_word;
|
||
|
|
long atol();
|
||
|
|
|
||
|
|
while (in_nextline(in) && strnequal(in_nextline(in), "SELECT", 6)) {
|
||
|
|
char t_id_type[MAX_DIR_LINESIZE];
|
||
|
|
int retval; /* retval from subfunctions. */
|
||
|
|
PATTRIB at = atalloc();
|
||
|
|
|
||
|
|
if(retval = in_line(in, &command, &next_word)) {
|
||
|
|
atfree(at);
|
||
|
|
return retval;
|
||
|
|
}
|
||
|
|
assert(next_word >= command);
|
||
|
|
if (retval = in_atr_data(in, command, next_word, 0, at)) {
|
||
|
|
atfree(at);
|
||
|
|
return retval;
|
||
|
|
}
|
||
|
|
if (at->avtype == ATR_SEQUENCE && at->nature == ATR_NATURE_FIELD
|
||
|
|
&& strequal(at->aname, "ID") && length(at->value.sequence) == 2
|
||
|
|
&& strequal(at->value.sequence->token, "REMOTE")) {
|
||
|
|
/* XXX should use qsscanf() for the overflow checking. */
|
||
|
|
*magic_nop = atol(at->value.sequence->next->token);
|
||
|
|
}
|
||
|
|
/* Just ignore other attribute and ID types. */
|
||
|
|
atfree(at);
|
||
|
|
}
|
||
|
|
return PSUCCESS;
|
||
|
|
}
|
||
|
|
|