ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/ot/writeoct.c
Revision: 2.8
Committed: Fri Feb 19 17:45:37 2021 UTC (3 years, 7 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad5R4, HEAD
Changes since 2.7: +16 -16 lines
Log Message:
fix: added checks for output error

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: writeoct.c,v 2.7 2004/11/09 16:09:20 greg Exp $";
3 #endif
4 /*
5 * writeoct.c - routines for writing octree information to stdout.
6 *
7 * 7/30/85
8 */
9
10 #include "standard.h"
11
12 #include "octree.h"
13 #include "object.h"
14 #include "oconv.h"
15
16 #ifdef putc_unlocked /* avoid horrendous overhead of flockfile */
17 #undef putc
18 #define putc putc_unlocked
19 #endif
20
21 static void oputstr(char *s);
22 static void putfullnode(OCTREE fn);
23 static void oputint(long i, int siz);
24 static void oputflt(double f);
25 static void puttree(OCTREE ot);
26
27
28 void
29 writeoct( /* write octree structures to stdout */
30 int store,
31 CUBE *scene,
32 char *ofn[]
33 )
34 {
35 char sbuf[64];
36 int i;
37 /* write format number */
38 oputint((long)(OCTMAGIC+sizeof(OBJECT)), 2);
39
40 if (!(store & IO_BOUNDS))
41 return;
42 /* write boundaries */
43 for (i = 0; i < 3; i++) {
44 sprintf(sbuf, "%.12g", scene->cuorg[i]);
45 oputstr(sbuf);
46 }
47 sprintf(sbuf, "%.12g", scene->cusize);
48 oputstr(sbuf);
49 /* write object file names */
50 if (store & IO_FILES)
51 for (i = 0; ofn[i] != NULL; i++)
52 oputstr(ofn[i]);
53 oputstr("");
54 /* write number of objects */
55 oputint((long)nobjects, sizeof(OBJECT));
56
57 if (!(store & IO_TREE))
58 return;
59 /* write the octree */
60 puttree(scene->cutree);
61
62 if (fflush(stdout) == EOF)
63 error(SYSTEM, "output error in writeoct");
64
65 if (store & IO_FILES || !(store & IO_SCENE))
66 return;
67 /* write the scene */
68 writescene(0, nobjects, stdout);
69 }
70
71
72 static void
73 oputstr( /* write null-terminated string to stdout */
74 char *s
75 )
76 {
77 if (putstr(s, stdout) == EOF)
78 error(SYSTEM, "write error in oputstr");
79 }
80
81
82 static void
83 putfullnode( /* write out a full node */
84 OCTREE fn
85 )
86 {
87 OBJECT oset[MAXSET+1];
88 int i;
89
90 objset(oset, fn);
91 for (i = 0; i <= oset[0]; i++)
92 oputint((long)oset[i], sizeof(OBJECT));
93 }
94
95
96 static void
97 oputint( /* write a siz-byte integer to stdout */
98 long i,
99 int siz
100 )
101 {
102 if (putint(i, siz, stdout) == EOF)
103 error(SYSTEM, "write error in oputint");
104 }
105
106
107 static void
108 oputflt( /* put out floating point number */
109 double f
110 )
111 {
112 if (putflt(f, stdout) == EOF)
113 error(SYSTEM, "write error in oputflt");
114 }
115
116
117 static void
118 puttree( /* write octree to stdout in pre-order form */
119 OCTREE ot
120 )
121 {
122 int i;
123
124 if (istree(ot)) {
125 putc(OT_TREE, stdout); /* indicate tree */
126 for (i = 0; i < 8; i++) /* write tree */
127 puttree(octkid(ot, i));
128 } else if (isfull(ot)) {
129 putc(OT_FULL, stdout); /* indicate fullnode */
130 putfullnode(ot); /* write fullnode */
131 } else
132 putc(OT_EMPTY, stdout); /* indicate empty */
133 }