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.2 by greg, Fri Oct 16 13:02:46 1992 UTC vs.
Revision 2.21 by greg, Thu May 12 16:30:39 2016 UTC

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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines