src/common/wordfile.c

#ifndef lint
static const char       RCSid[] = "$Id: wordfile.c,v 2.20 2016/04/27 17:26:45 greg Exp $";
#endif
/*
 * Load whitespace separated words from a file into an array.
 *
 * External symbols declared in rtio.h
 */

#include "copyright.h"

#include <ctype.h>
#include <string.h>

#include "platform.h"
#include "rtio.h"
#include "rtmisc.h"


#define MAXWLEN         4096    /* words must be shorter than this */


int
wordfile(                       /* get words from fname, put in words */
        char    **words,
        int     nargs,
        char    *fname
)
{
        int     wrdcnt = 0;
        int     n = 0;
        int     fd;
        char    buf[MAXWLEN];
                                        /* load file into buffer */
        if (fname == NULL || !*fname)
                return(-1);                     /* no filename */
        if (nargs <= 1)
                return(-1);
        if ((fd = open(fname, 0)) < 0)
                return(-1);                     /* open error */
        SET_FD_BINARY(fd);                      /* Windows bug workaround */
        words[0] = NULL;
        while (nargs > 1 && (n += read(fd, buf+n, MAXWLEN-n)) > 0) {
                int     crem = 0;
                if (n > MAXWLEN/2)              /* check for mid-word end */
                        while (!isspace(buf[--n])) {
                                if (n <= 0)     /* one long word! */
                                        goto done;
                                ++crem;
                        }
                buf[n] = '\0';                  /* terminate & parse */
                n = wordstring(words, nargs, buf);
                if (n < 0) {
                        wrdcnt = -1;            /* memory error */
                        break;
                }
                words += n; nargs -= n;
                wrdcnt += n;
                if ((n = crem) > 0)             /* move remainder */
                        memmove(buf, buf+MAXWLEN-crem, crem);
        }
done:
        close(fd);
        return(wrdcnt);
}


int
wordstring(                             /* allocate and load argument list */
        char    **avl,
        int     nargs,
        char    *str
)
{
        char    *cp, **ap;
        
        if (str == NULL)
                return(-1);
        cp = bmalloc(strlen(str)+1);
        if (cp == NULL)                 /* ENOMEM */
                return(-1);
        strcpy(cp, str);
                                        /* parse into words */
        for (ap = avl; ap-avl < nargs-1; ap++) {
                while (isspace(*cp))    /* nullify spaces */
                        *cp++ = '\0';
                if (!*cp)               /* all done? */
                        break;
                *ap = cp;               /* add argument to list */
                while (*++cp && !isspace(*cp))
                        ;
        }
        *cp = '\0';                     /* terminates overflow */
        *ap = NULL;
        return(ap - avl);
}
Revision:	2.21
Committed:	Thu May 12 16:30:39 2016 UTC (9 years, 5 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.20:	+2 -1 lines
Log Message:	Added workaround for Windows read() bug that drops characters around newline
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	greg	2.21	static const char RCSid[] = "$Id: wordfile.c,v 2.20 2016/04/27 17:26:45 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* Load whitespace separated words from a file into an array.
6	greg	2.8	*
7	greg	2.19	* External symbols declared in rtio.h
8	greg	2.8	*/
9
10	greg	2.9	#include "copyright.h"
11	greg	2.1
12	greg	2.2	#include <ctype.h>
13	schorsch	2.10	#include <string.h>
14
15	greg	2.12	#include "platform.h"
16	greg	2.19	#include "rtio.h"
17			#include "rtmisc.h"
18	greg	2.2
19	greg	2.1
20	greg	2.17	#define MAXWLEN 4096 /* words must be shorter than this */
21	greg	2.1
22
23			int
24	greg	2.16	wordfile( /* get words from fname, put in words */
25			char **words,
26			int nargs,
27			char *fname
28			)
29	greg	2.1	{
30	greg	2.17	int wrdcnt = 0;
31			int n = 0;
32	greg	2.1	int fd;
33	greg	2.17	char buf[MAXWLEN];
34	greg	2.3	/* load file into buffer */
35	greg	2.17	if (fname == NULL \|\| !*fname)
36	greg	2.7	return(-1); /* no filename */
37	greg	2.17	if (nargs <= 1)
38			return(-1);
39	greg	2.1	if ((fd = open(fname, 0)) < 0)
40	greg	2.3	return(-1); /* open error */
41	greg	2.21	SET_FD_BINARY(fd); /* Windows bug workaround */
42	greg	2.17	words[0] = NULL;
43			while (nargs > 1 && (n += read(fd, buf+n, MAXWLEN-n)) > 0) {
44			int crem = 0;
45	greg	2.20	if (n > MAXWLEN/2) /* check for mid-word end */
46	greg	2.17	while (!isspace(buf[--n])) {
47			if (n <= 0) /* one long word! */
48			goto done;
49			++crem;
50			}
51			buf[n] = '\0'; /* terminate & parse */
52			n = wordstring(words, nargs, buf);
53			if (n < 0) {
54			wrdcnt = -1; /* memory error */
55			break;
56			}
57	greg	2.18	words += n; nargs -= n;
58	greg	2.17	wrdcnt += n;
59			if ((n = crem) > 0) /* move remainder */
60	greg	2.18	memmove(buf, buf+MAXWLEN-crem, crem);
61	greg	2.17	}
62			done:
63	greg	2.1	close(fd);
64	greg	2.17	return(wrdcnt);
65	greg	2.3	}
66
67
68			int
69	greg	2.16	wordstring( /* allocate and load argument list */
70			char **avl,
71			int nargs,
72			char *str
73			)
74	greg	2.3	{
75	greg	2.16	char cp, *ap;
76	greg	2.3
77			if (str == NULL)
78			return(-1);
79			cp = bmalloc(strlen(str)+1);
80			if (cp == NULL) /* ENOMEM */
81			return(-1);
82			strcpy(cp, str);
83	greg	2.16	/* parse into words */
84			for (ap = avl; ap-avl < nargs-1; ap++) {
85	greg	2.4	while (isspace(cp)) / nullify spaces */
86			*cp++ = '\0';
87			if (!cp) / all done? */
88			break;
89	greg	2.16	ap = cp; / add argument to list */
90	greg	2.6	while (++cp && !isspace(cp))
91			;
92	greg	2.1	}
93	greg	2.17	cp = '\0'; / terminates overflow */
94	greg	2.3	*ap = NULL;
95			return(ap - avl);
96	greg	2.1	}