ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/wordfile.c
Revision: 2.13
Committed: Sun Mar 28 20:33:12 2004 UTC (20 years ago) by schorsch
Content type: text/plain
Branch: MAIN
CVS Tags: rad3R6, rad3R6P1
Changes since 2.12: +1 -3 lines
Log Message:
Continued ANSIfication, and other fixes and clarifications.

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: wordfile.c,v 2.12 2003/10/22 02:06:34 greg Exp $";
3 #endif
4 /*
5 * Load whitespace separated words from a file into an array.
6 * Assume the passed pointer array is big enough to hold them all.
7 *
8 * External symbols declared in standard.h
9 */
10
11 #include "copyright.h"
12
13 #include <ctype.h>
14 #include <string.h>
15 #include <stdio.h>
16 #include <sys/types.h>
17 #include <sys/stat.h>
18 #include <fcntl.h>
19
20 #include "platform.h"
21 #include "standard.h"
22
23
24 #define MAXFLEN 8192 /* file must be smaller than this */
25
26
27 int
28 wordfile(words, fname) /* get words from fname, put in words */
29 char **words;
30 char *fname;
31 {
32 int fd;
33 char buf[MAXFLEN];
34 register int n;
35 /* load file into buffer */
36 if (fname == NULL)
37 return(-1); /* no filename */
38 if ((fd = open(fname, 0)) < 0)
39 return(-1); /* open error */
40 n = read(fd, buf, MAXFLEN);
41 close(fd);
42 if (n < 0) /* read error */
43 return(-1);
44 if (n == MAXFLEN) /* file too big, take what we can */
45 while (!isspace(buf[--n]))
46 if (n <= 0) /* one long word! */
47 return(-1);
48 buf[n] = '\0'; /* terminate */
49 return(wordstring(words, buf)); /* wordstring does the rest */
50 }
51
52
53 int
54 wordstring(avl, str) /* allocate and load argument list */
55 char **avl;
56 char *str;
57 {
58 register char *cp, **ap;
59
60 if (str == NULL)
61 return(-1);
62 cp = bmalloc(strlen(str)+1);
63 if (cp == NULL) /* ENOMEM */
64 return(-1);
65 strcpy(cp, str);
66 ap = avl; /* parse into words */
67 for ( ; ; ) {
68 while (isspace(*cp)) /* nullify spaces */
69 *cp++ = '\0';
70 if (!*cp) /* all done? */
71 break;
72 *ap++ = cp; /* add argument to list */
73 while (*++cp && !isspace(*cp))
74 ;
75 }
76 *ap = NULL;
77 return(ap - avl);
78 }