56 lines
1.5 KiB
C
56 lines
1.5 KiB
C
|
/*
|
||
|
|
* Copyright (c) 1993 by the University of Southern California
|
||
|
|
*
|
||
|
|
* For copying and distribution information, please see the file
|
||
|
|
* <usc-license.h>
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <usc-license.h>
|
||
|
|
|
||
|
|
#include <ardp.h>
|
||
|
|
#include <pfs.h>
|
||
|
|
#include <pparse.h>
|
||
|
|
#include <ctype.h> /* For isascii */
|
||
|
|
/* isascii() is not provided in POSIX, so we just do it here. */
|
||
|
|
#ifndef isascii
|
||
|
|
#define isascii(c) ((unsigned)(c)<=0177)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* XXX Assumes that the longest possible word we could read in is
|
||
|
|
ARDP_PTXT_LEN_R. This is actually a bogus assumption; one can trigger the
|
||
|
|
assertion by sending a packet with a first word longer than that.
|
||
|
|
We don't cache the value returned from in_nextline() so it's safe to use
|
||
|
|
static data. Keywords (1st word in a line) are never quoted; this is safe
|
||
|
|
then.
|
||
|
|
*/
|
||
|
|
/* This function returns a pointer to internal data which will be overwritten
|
||
|
|
on the next call to in_nextline().
|
||
|
|
This function is used for lookahead in the parsing, and could be replaced
|
||
|
|
with other routines to do that.
|
||
|
|
*/
|
||
|
|
|
||
|
|
char *
|
||
|
|
in_nextline(INPUT oldin)
|
||
|
|
{
|
||
|
|
INPUT_ST in_st;
|
||
|
|
INPUT in = &in_st;
|
||
|
|
AUTOSTAT_CHARPP(bufp);
|
||
|
|
char *cp; /* Pointer into the buffer*/
|
||
|
|
int c;
|
||
|
|
|
||
|
|
if (!*bufp) *bufp = stalloc(ARDP_PTXT_LEN_R);
|
||
|
|
cp = *bufp;
|
||
|
|
|
||
|
|
input_copy(oldin, in);
|
||
|
|
if((c = in_readc(in)) == EOF) /* test for EOF */
|
||
|
|
return NULL;
|
||
|
|
while ((c != EOF) && isascii(c) && !isspace(c)) {
|
||
|
|
*(cp++) = c;
|
||
|
|
in_incc(in);
|
||
|
|
c = in_readc(in);
|
||
|
|
assert(cp - *bufp < p__bstsize(*bufp));
|
||
|
|
}
|
||
|
|
*cp = '\0';
|
||
|
|
return *bufp;
|
||
|
|
}
|