14 |
|
#include <math.h> |
15 |
|
|
16 |
|
|
17 |
< |
void |
17 |
> |
int |
18 |
|
putstr( /* write null-terminated string to fp */ |
19 |
|
char *s, |
20 |
|
FILE *fp |
22 |
|
{ |
23 |
|
do |
24 |
|
putc(*s, fp); |
25 |
< |
while (*s++); |
25 |
> |
while (*++s); |
26 |
> |
|
27 |
> |
return(putc(0, fp)); /* terminator */ |
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); |