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

Comparing ray/src/common/portio.c (file contents):
Revision 2.2 by greg, Mon Sep 21 12:02:23 1992 UTC vs.
Revision 2.18 by greg, Tue Mar 15 13:57:09 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   * Portable i/o for binary files
6 + *
7 + * External symbols declared in rtio.h
8   */
9  
10 < #include <stdio.h>
10 > #include "copyright.h"
11  
12 + #include "rtio.h"
13  
14 < putstr(s, fp)                   /* write null-terminated string to fp */
15 < register char  *s;
16 < register FILE  *fp;
14 > #include <math.h>
15 >
16 >
17 > void
18 > putstr(                         /* write null-terminated string to fp */
19 >        char  *s,
20 >        FILE  *fp
21 > )
22   {
23          do
24                  putc(*s, fp);
# Line 21 | Line 26 | register FILE  *fp;
26   }
27  
28  
29 < putint(i, siz, fp)              /* write a siz-byte integer to fp */
30 < long  i;
31 < register int  siz;
32 < register FILE  *fp;
29 > void
30 > putint(                         /* write a siz-byte integer to fp */
31 >        long  i,
32 >        int  siz,
33 >        FILE  *fp
34 > )
35   {
36 <        while (siz--)
37 <                putc((int)(i>>(siz<<3) & 0xff), fp);
36 >        siz <<= 3;
37 >        while ((siz -= 8) >= 0)
38 >                putc((int)(i>>siz & 0xff), fp);
39   }
40  
41  
42 < putflt(f, fp)                   /* put out floating point number */
43 < double  f;
44 < FILE  *fp;
42 > void
43 > putflt(                         /* put out floating point number */
44 >        double  f,
45 >        FILE  *fp
46 > )
47   {
48 <        extern double  frexp();
48 >        long  m;
49          int  e;
50  
51 <        putint((long)(frexp(f,&e)*0x7fffffff), 4, fp);
51 >        m = frexp(f, &e) * 0x7fffffff;
52 >        if (e > 127) {                  /* overflow */
53 >                m = m > 0 ? (long)0x7fffffff : -(long)0x7fffffff;
54 >                e = 127;
55 >        } else if (e < -128) {          /* underflow */
56 >                m = 0;
57 >                e = 0;
58 >        }
59 >        putint(m, 4, fp);
60          putint((long)e, 1, fp);
61   }
62  
63  
64 + int
65 + putbinary(                      /* fwrite() replacement for small objects */
66 +        char *s,
67 +        int elsiz,
68 +        int nel,
69 +        FILE *fp)
70 + {
71 +        int     nbytes = elsiz*nel;
72 +
73 +        if (nbytes > 512)
74 +                return(fwrite(s, elsiz, nel, fp));
75 +        
76 +        while (nbytes-- > 0)
77 +                putc(*s++, fp);
78 +
79 +        return(nel);
80 + }
81 +
82 +
83   char *
84 < getstr(s, fp)                   /* get null-terminated string */
85 < char  *s;
86 < register FILE  *fp;
84 > getstr(                         /* get null-terminated string */
85 >        char  *s,
86 >        FILE  *fp
87 > )
88   {
89 <        register char  *cp;
90 <        register int  c;
89 >        char  *cp;
90 >        int  c;
91  
92          cp = s;
93          while ((c = getc(fp)) != EOF)
# Line 61 | Line 99 | register FILE  *fp;
99  
100  
101   long
102 < getint(siz, fp)                 /* get a siz-byte integer */
103 < int  siz;
104 < register FILE  *fp;
102 > getint(                         /* get a siz-byte integer */
103 >        int  siz,
104 >        FILE  *fp
105 > )
106   {
107 <        register int  c;
108 <        register long  r;
107 >        int  c;
108 >        long  r;
109  
110          if ((c = getc(fp)) == EOF)
111                  return(EOF);
# Line 82 | Line 121 | register FILE  *fp;
121  
122  
123   double
124 < getflt(fp)                      /* get a floating point number */
125 < FILE  *fp;
124 > getflt(                         /* get a floating point number */
125 >        FILE  *fp
126 > )
127   {
128 <        extern double  ldexp();
128 >        long    l;
129          double  d;
130  
131 <        d = (double)getint(4, fp)/0x7fffffff;
131 >        l = getint(4, fp);
132 >        if (l == EOF && feof(fp))       /* EOF? */
133 >                return((double)EOF);
134 >        if (l == 0) {
135 >                getc(fp);               /* exactly zero -- ignore exponent */
136 >                return(0.0);
137 >        }
138 >        d = (l + (l > 0 ? .5 : -.5)) * (1./0x7fffffff);
139          return(ldexp(d, (int)getint(1, fp)));
140 + }
141 +
142 +
143 + int
144 + getbinary(                      /* fread() replacement for small objects */
145 +        char *s,
146 +        int elsiz,
147 +        int nel,
148 +        FILE *fp)
149 + {
150 +        int     nbytes = elsiz*nel;
151 +        int     c;
152 +
153 +        if (nbytes > 512)
154 +                return(fread(s, elsiz, nel, fp));
155 +        
156 +        while (nbytes-- > 0) {
157 +                if ((c = getc(fp)) == EOF)
158 +                        return((elsiz*nel - nbytes)/elsiz);
159 +                *s++ = c;
160 +        }
161 +        return(nel);
162   }

Diff Legend

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