ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/common/wordfile.c
(Generate patch)

Comparing ray/src/common/wordfile.c (file contents):
Revision 2.15 by greg, Fri Jun 10 16:42:11 2005 UTC vs.
Revision 2.24 by greg, Sat Dec 28 18:05:14 2019 UTC

# Line 3 | Line 3 | static const char      RCSid[] = "$Id$";
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.
6   *
7 < * External symbols declared in standard.h
7 > * External symbols declared in rtio.h
8   */
9  
10   #include "copyright.h"
11  
12   #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>
13  
14   #include "platform.h"
15 < #include "standard.h"
15 > #include "rtio.h"
16 > #include "rtmisc.h"
17  
18  
19 < #ifndef MAXFLEN
25 < #define MAXFLEN         65536   /* file must be smaller than this */
26 < #endif
19 > #define MAXWLEN         4096    /* words must be shorter than this */
20  
21  
22   int
23 < wordfile(words, fname)          /* get words from fname, put in words */
24 < char    **words;
25 < char    *fname;
23 > wordfile(                       /* get words from fname, put in words */
24 >        char    **words,
25 >        int     nargs,
26 >        char    *fname
27 > )
28   {
29 +        int     wrdcnt = 0;
30 +        int     n = 0;
31          int     fd;
32 <        char    buf[MAXFLEN];
36 <        register int    n;
32 >        char    buf[MAXWLEN];
33                                          /* load file into buffer */
34 <        if (fname == NULL)
34 >        if (fname == NULL || !*fname)
35                  return(-1);                     /* no filename */
36 +        if (nargs <= 1)
37 +                return(-1);
38          if ((fd = open(fname, 0)) < 0)
39                  return(-1);                     /* open error */
40 <        n = read(fd, buf, MAXFLEN);
40 >        words[0] = NULL;
41 >        while (nargs > 1 && (n += read(fd, buf+n, MAXWLEN-n)) > 0) {
42 >                int     dlen = n;
43 >                int     crem = 0;
44 >                if (n > MAXWLEN/2)              /* check for mid-word end */
45 >                        while (!isspace(buf[--n])) {
46 >                                if (n <= 0)     /* one long word! */
47 >                                        goto done;
48 >                                ++crem;
49 >                        }
50 >                buf[n] = '\0';                  /* terminate & parse */
51 >                n = wordstring(words, nargs, buf);
52 >                if (n < 0) {
53 >                        wrdcnt = -1;            /* memory error */
54 >                        break;
55 >                }
56 >                words += n; nargs -= n;
57 >                wrdcnt += n;
58 >                if ((n = crem) > 0)             /* move remainder */
59 >                        memmove(buf, buf+dlen-crem, crem);
60 >        }
61 > done:
62          close(fd);
63 <        if (n < 0)                              /* read error */
45 <                return(-1);
46 <        if (n == MAXFLEN)               /* file too big, take what we can */
47 <                while (!isspace(buf[--n]))
48 <                        if (n <= 0)             /* one long word! */
49 <                                return(-1);
50 <        buf[n] = '\0';                  /* terminate */
51 <        return(wordstring(words, buf)); /* wordstring does the rest */
63 >        return(wrdcnt);
64   }
65  
66  
67   int
68 < wordstring(avl, str)                    /* allocate and load argument list */
69 < char    **avl;
70 < char    *str;
68 > wordstring(                             /* allocate and load argument list */
69 >        char    **avl,
70 >        int     nargs,
71 >        char    *str
72 > )
73   {
74 <        register char   *cp, **ap;
74 >        char    *cp, **ap;
75          
76          if (str == NULL)
77                  return(-1);
# Line 65 | Line 79 | char   *str;
79          if (cp == NULL)                 /* ENOMEM */
80                  return(-1);
81          strcpy(cp, str);
82 <        ap = avl;               /* parse into words */
83 <        for ( ; ; ) {
82 >                                        /* parse into words */
83 >        for (ap = avl; ap-avl < nargs-1; ap++) {
84                  while (isspace(*cp))    /* nullify spaces */
85                          *cp++ = '\0';
86                  if (!*cp)               /* all done? */
87                          break;
88 <                *ap++ = cp;             /* add argument to list */
88 >                *ap = cp;               /* add argument to list */
89                  while (*++cp && !isspace(*cp))
90                          ;
91          }
92 +        *cp = '\0';                     /* terminates overflow */
93          *ap = NULL;
94          return(ap - avl);
95   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines