14 |
|
#include <math.h> |
15 |
|
|
16 |
|
|
17 |
< |
void |
17 |
> |
int |
18 |
|
putstr( /* write null-terminated string to fp */ |
19 |
|
char *s, |
20 |
|
FILE *fp |
23 |
|
do |
24 |
|
putc(*s, fp); |
25 |
|
while (*s++); |
26 |
+ |
|
27 |
+ |
return(ferror(fp) ? EOF : 0); |
28 |
|
} |
29 |
|
|
30 |
|
|
31 |
< |
void |
31 |
> |
int |
32 |
|
putint( /* write a siz-byte integer to fp */ |
33 |
|
long i, |
34 |
|
int siz, |
42 |
|
siz <<= 3; |
43 |
|
while ((siz -= 8) > 0) |
44 |
|
putc((int)(i>>siz & 0xff), fp); |
45 |
< |
putc((int)(i & 0xff), fp); |
45 |
> |
|
46 |
> |
return(putc((int)(i & 0xff), fp) == EOF ? EOF : 0); |
47 |
|
} |
48 |
|
|
49 |
|
|
50 |
< |
void |
50 |
> |
int |
51 |
|
putflt( /* put out floating point number */ |
52 |
|
double f, |
53 |
|
FILE *fp |
65 |
|
e = 0; |
66 |
|
} |
67 |
|
putint(m, 4, fp); |
68 |
< |
putint(e, 1, fp); |
68 |
> |
return(putint(e, 1, fp)); |
69 |
|
} |
70 |
|
|
71 |
|
|
121 |
|
return(EOF); |
122 |
|
r = c; |
123 |
|
if (c & 0x80) /* sign extend? */ |
124 |
< |
r |= ~255L; |
124 |
> |
r |= -256L; |
125 |
|
while (--siz > 0) { |
126 |
|
if ((c = getc(fp)) == EOF) |
127 |
|
return(EOF); |
147 |
|
getc(fp); /* exactly zero -- ignore exponent */ |
148 |
|
return(0.0); |
149 |
|
} |
150 |
< |
d = (l + (l > 0 ? .5 : -.5)) * (1./0x7fffffff); |
150 |
> |
d = (l + .5 - (l<0)) * (1./0x7fffffff); |
151 |
|
return(ldexp(d, (int)getint(1, fp))); |
152 |
|
} |
153 |
|
|