src/common/fgetword.c

#ifndef lint
static const char       RCSid[] = "$Id: fgetword.c,v 2.3 2003/02/25 02:47:21 greg Exp $";
#endif
/*
 * Read white space separated words from stream
 *
 *  External symbols declared in rtio.h
 */

#include "copyright.h"

#include  "rtio.h"

#include  <ctype.h>


char *
fgetword(s, n, fp)              /* get (quoted) word up to n-1 characters */
char  *s;
int  n;
register FILE  *fp;
{
        int  quote = '\0';
        register char  *cp;
        register int  c;
                                        /* skip initial white space */
        do
                c = getc(fp);
        while (isspace(c));
                                        /* check for quote */
        if ((c == '"' | c == '\'')) {
                quote = c;
                c = getc(fp);
        }
                                        /* check for end of file */
        if (c == EOF)
                return(NULL);
                                        /* get actual word */
        cp = s;
        do {
                if (--n <= 0)           /* check length limit */
                        break;
                *cp++ = c;
                c = getc(fp);
        } while (c != EOF && !(quote ? c==quote : isspace(c)));
        *cp = '\0';
        if ((c != EOF & !quote))        /* replace space */
                ungetc(c, fp);
        return(s);
}
Revision:	2.4
Committed:	Fri Jun 27 06:53:21 2003 UTC (20 years, 10 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.3:	+3 -3 lines
Log Message:	Broke standard.h into rtio.h, rterror.h, rtmath.h, and rtmisc.h
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.4	static const char RCSid[] = "$Id: fgetword.c,v 2.3 2003/02/25 02:47:21 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Read white space separated words from stream
6	greg	2.2	*
7	greg	2.4	* External symbols declared in rtio.h
8	greg	2.2	*/
9
10	greg	2.3	#include "copyright.h"
11	greg	1.1
12	greg	2.4	#include "rtio.h"
13	greg	1.1
14			#include <ctype.h>
15
16
17			char *
18	greg	2.2	fgetword(s, n, fp) /* get (quoted) word up to n-1 characters */
19	greg	1.1	char *s;
20			int n;
21			register FILE *fp;
22			{
23	greg	2.2	int quote = '\0';
24	greg	1.1	register char *cp;
25			register int c;
26			/* skip initial white space */
27			do
28			c = getc(fp);
29			while (isspace(c));
30	greg	2.2	/* check for quote */
31			if ((c == '"' \| c == '\'')) {
32			quote = c;
33			c = getc(fp);
34			}
35	greg	1.1	/* check for end of file */
36			if (c == EOF)
37			return(NULL);
38			/* get actual word */
39			cp = s;
40			do {
41	greg	2.2	if (--n <= 0) /* check length limit */
42	greg	1.1	break;
43			*cp++ = c;
44			c = getc(fp);
45	greg	2.2	} while (c != EOF && !(quote ? c==quote : isspace(c)));
46	greg	1.1	*cp = '\0';
47	greg	2.2	if ((c != EOF & !quote)) /* replace space */
48	greg	1.1	ungetc(c, fp);
49			return(s);
50			}