18 |
|
|
19 |
|
|
20 |
|
static int |
21 |
< |
getobj(fp, objsiz) /* get next object */ |
22 |
< |
FILE *fp; |
23 |
< |
int objsiz; |
21 |
> |
getobj( /* get next object */ |
22 |
> |
FILE *fp, |
23 |
> |
int objsiz |
24 |
> |
) |
25 |
|
{ |
26 |
|
char sbuf[MAXSTR]; |
27 |
|
int obj; |
28 |
< |
register int i; |
29 |
< |
register long m; |
30 |
< |
register OBJREC *objp; |
28 |
> |
int i; |
29 |
> |
long m; |
30 |
> |
OBJREC *objp; |
31 |
|
|
32 |
|
i = getint(1, fp); |
33 |
|
if (i == -1) |
65 |
|
objp->oargs.iarg = NULL; |
66 |
|
#endif |
67 |
|
if ((objp->oargs.nfargs = getint(2, fp)) > 0) { |
68 |
< |
objp->oargs.farg = (FLOAT *)malloc |
69 |
< |
(objp->oargs.nfargs*sizeof(FLOAT)); |
68 |
> |
objp->oargs.farg = (RREAL *)malloc |
69 |
> |
(objp->oargs.nfargs*sizeof(RREAL)); |
70 |
|
if (objp->oargs.farg == NULL) |
71 |
|
goto memerr; |
72 |
|
for (i = 0; i < objp->oargs.nfargs; i++) |
82 |
|
return(obj); |
83 |
|
memerr: |
84 |
|
error(SYSTEM, "out of memory in getobj"); |
85 |
+ |
return 0; /* pro forma return */ |
86 |
|
} |
87 |
|
|
88 |
|
|
89 |
|
void |
90 |
< |
readscene(fp, objsiz) /* read binary scene description */ |
91 |
< |
FILE *fp; |
92 |
< |
int objsiz; |
90 |
> |
readscene( /* read binary scene description */ |
91 |
> |
FILE *fp, |
92 |
> |
int objsiz |
93 |
> |
) |
94 |
|
{ |
95 |
|
char sbuf[32]; |
96 |
|
int i; |
110 |
|
|
111 |
|
|
112 |
|
static void |
113 |
< |
putobj(o, fp) /* write out object */ |
114 |
< |
FILE *fp; |
115 |
< |
register OBJREC *o; |
113 |
> |
putobj( /* write out object */ |
114 |
> |
OBJREC *o, |
115 |
> |
FILE *fp |
116 |
> |
) |
117 |
|
{ |
118 |
< |
register int i; |
118 |
> |
int i; |
119 |
|
|
120 |
|
if (o == NULL) { /* terminator */ |
121 |
|
putint(-1L, 1, fp); |
139 |
|
|
140 |
|
|
141 |
|
void |
142 |
< |
writescene(firstobj, nobjs, fp) /* write binary scene description */ |
143 |
< |
OBJECT firstobj, nobjs; |
144 |
< |
FILE *fp; |
142 |
> |
writescene( /* write binary scene description */ |
143 |
> |
int firstobj, |
144 |
> |
int nobjs, |
145 |
> |
FILE *fp |
146 |
> |
) |
147 |
|
{ |
148 |
|
int i; |
149 |
|
/* write out type list */ |
154 |
|
for (i = firstobj; i < firstobj+nobjs; i++) |
155 |
|
putobj(objptr(i), fp); |
156 |
|
putobj(NULL, fp); /* terminator */ |
157 |
< |
if (ferror(fp)) |
158 |
< |
error(SYSTEM, "write error in writescene"); |
157 |
> |
if (fflush(fp) == EOF) |
158 |
> |
error(SYSTEM, "output error in writescene"); |
159 |
|
} |