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

Comparing ray/src/hd/rholo4.c (file contents):
Revision 3.2 by gregl, Mon Nov 3 18:33:14 1997 UTC vs.
Revision 3.27 by gwlarson, Thu Aug 5 13:51:21 1999 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1997 Silicon Graphics, Inc. */
1 > /* Copyright (c) 1999 Silicon Graphics, Inc. */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ SGI";
# Line 13 | Line 13 | static char SCCSid[] = "$SunId$ SGI";
13   #include <sys/uio.h>
14  
15   #ifndef HDSUF
16 < #define HDSUF   ".hdisp"
16 > #define HDSUF           ".hdi"
17   #endif
18 + #ifndef SLAVENAME
19 + #define SLAVENAME       "slave"
20 + #endif
21  
22 + #ifndef FNONBLK
23 + #define FNONBLK         O_NONBLOCK
24 + #endif
25 +
26   static int      inp_flags;
27   static int      dpd[3];
28 < static int      pipesiz;
28 > static FILE     *dpout;
29  
30  
31   disp_open(dname)                /* open the named display driver */
32   char    *dname;
33   {
34 <        char    dpath[128], *com[2];
35 <        int     i;
34 >        char    buf[sizeof(HDGRID)+512], fd0[8], fd1[8], *cmd[5], *sfn;
35 >        int     i, n, len;
36  
37 +        if (!strcmp(dname, SLAVENAME)) {
38 +                dpd[0] = 0;             /* read from stdin */
39 +                dpout = stdout;         /* write to stdout */
40 +                dpd[2] = -1;            /* we're the slave process */
41 +        } else {
42 +                                        /* get full display program name */
43   #ifdef DEVPATH
44 <        sprintf(dpath, "%s/%s%s", DEVPATH, dname, HDSUF);
44 >                sprintf(buf, "%s/%s%s", DEVPATH, dname, HDSUF);
45   #else
46 <        sprintf(dpath, "dev/%s%s", dname, HDSUF);
46 >                sprintf(buf, "dev/%s%s", dname, HDSUF);
47   #endif
48 <        com[0] = dpath; com[1] = NULL;
49 <        pipesiz = open_process(dpd, com);
50 <        if (pipesiz <= 0)
51 <                error(USER, "cannot start display process");
48 >                                        /* dup stdin and stdout */
49 >                if (readinp)
50 >                        sprintf(fd0, "%d", dup(0));
51 >                else
52 >                        strcpy(fd0, "-1");
53 >                sprintf(fd1, "%d", dup(1));
54 >                                        /* start the display process */
55 >                cmd[0] = buf;
56 >                cmd[1] = froot; cmd[2] = fd1; cmd[3] = fd0;
57 >                cmd[4] = NULL;
58 >                i = open_process(dpd, cmd);
59 >                if (i <= 0)
60 >                        error(USER, "cannot start display process");
61 >                if ((dpout = fdopen(dpd[1], "w")) == NULL)
62 >                        error(SYSTEM, "problem opening display pipe");
63 >                                        /* close dup'ed stdin and stdout */
64 >                if (readinp)
65 >                        close(atoi(fd0));
66 >                close(atoi(fd1));
67 >        }
68 >        dpd[1] = -1;            /* causes ignored error in close_process() */
69          inp_flags = 0;
70 <                                /* write out hologram grids */
71 <        for (i = 0; hdlist[i] != NULL; i++)
72 <                disp_result(DS_ADDHOLO, sizeof(HDGRID), (char *)hdlist[i]);
70 >                                /* check if outside */
71 >        if (vdef(OBSTRUCTIONS) && vbool(OBSTRUCTIONS))
72 >                disp_result(DS_OUTSECT, 0, NULL);
73 >                                /* send eye separation if specified */
74 >        if (vdef(EYESEP)) {
75 >                sprintf(buf, "%.9e", vflt(EYESEP));
76 >                disp_result(DS_EYESEP, strlen(buf)+1, buf);
77 >        }
78 >                                /* write out hologram grids & octrees */
79 >        for (i = 0; hdlist[i] != NULL; i++) {
80 >                bcopy((char *)hdlist[i], buf, sizeof(HDGRID));
81 >                len = sizeof(HDGRID);
82 >                n = vdef(GEOMETRY);
83 >                sfn = i<n ? nvalue(GEOMETRY,i) :
84 >                                n ? nvalue(GEOMETRY,n-1) : vval(OCTREE);
85 >                strcpy(buf+len, sfn);
86 >                len += strlen(sfn) + 1;
87 >                n = vdef(PORTS);
88 >                sfn = i<n ? nvalue(PORTS,i) : n ? nvalue(PORTS,n-1) : "";
89 >                strcpy(buf+len, sfn);
90 >                len += strlen(sfn) + 1;
91 >                disp_result(DS_ADDHOLO, len, buf);
92 >        }
93 >        disp_flush();
94   }
95  
96  
97   disp_packet(p)                  /* display a packet */
98 < register PACKET *p;
98 > register PACKHEAD       *p;
99   {
100 <        if (pipesiz <= 0)
50 <                return;
51 <        disp_result(DS_BUNDLE, sizeof(PACKHEAD) + p->nr*sizeof(RAYVAL),
52 <                        (char *)p);
100 >        disp_result(DS_BUNDLE, packsiz(p->nr), (char *)p);
101   }
102  
103  
# Line 60 | Line 108 | int    block;
108          int     n;
109          char    *buf = NULL;
110  
111 <        if (pipesiz <= 0)
111 >        if (dpout == NULL)
112                  return(-1);
113 < restart:                                /* check read blocking */
113 >                                        /* flush display output */
114 >        disp_flush();
115 >                                        /* check read blocking */
116          if (block != (inp_flags == 0)) {
117                  inp_flags = block ? 0 : FNONBLK;
118                  if (fcntl(dpd[0], F_SETFL, inp_flags) < 0)
# Line 71 | Line 121 | restart:                               /* check read blocking */
121                                          /* read message header */
122          n = read(dpd[0], (char *)&msg, sizeof(MSGHEAD));
123          if (n != sizeof(MSGHEAD)) {
124 <                if (n >= 0)
124 >                if (n >= 0) {
125 >                        dpout = NULL;
126                          error(USER, "display process died");
127 +                }
128                  if (errno != EAGAIN & errno != EINTR)
129                          goto readerr;
130 <                return(2);              /* else acceptable failure */
130 >                return(2);              /* acceptable failure */
131          }
132          if (msg.nbytes) {               /* get the message body */
133 +                if (msg.nbytes < 0)
134 +                        error(INTERNAL, "anti-message from display process");
135                  buf = (char *)malloc(msg.nbytes);
136                  if (buf == NULL)
137                          error(SYSTEM, "out of memory in disp_check");
138 <                if (fcntl(dpd[0], F_SETFL, inp_flags=0) < 0)
138 >                if (inp_flags != 0 && fcntl(dpd[0], F_SETFL, inp_flags=0) < 0)
139                          goto fcntlerr;
140                  if (readbuf(dpd[0], buf, msg.nbytes) != msg.nbytes)
141                          goto readerr;
142          }
143          switch (msg.type) {             /* take appropriate action */
144 <        case DR_BUNDLE:
144 >        case DR_BUNDLE:         /* new bundle to calculate */
145                  if (msg.nbytes != sizeof(PACKHEAD))
146                          error(INTERNAL, "bad DR_BUNDLE from display process");
147                  bundle_set(BS_ADD, (PACKHEAD *)buf, 1);
148                  break;
149 <        case DR_NEWSET:
149 >        case DR_NEWSET:         /* new calculation set */
150                  if (msg.nbytes % sizeof(PACKHEAD))
151                          error(INTERNAL, "bad DR_NEWSET from display process");
152 <                disp_result(DS_STARTIMM, 0, NULL);
152 >                if (msg.nbytes)
153 >                        disp_result(DS_STARTIMM, 0, NULL);
154                  bundle_set(BS_NEW, (PACKHEAD *)buf, msg.nbytes/sizeof(PACKHEAD));
155 <                disp_result(DS_ENDIMM, 0, NULL);
155 >                if (msg.nbytes) {
156 >                        disp_result(DS_ENDIMM, 0, NULL);
157 >                        disp_flush();
158 >                }
159                  break;
160 <        case DR_ADDSET:
160 >        case DR_ADDSET:         /* add to calculation set */
161 >                if (!msg.nbytes)
162 >                        break;
163                  if (msg.nbytes % sizeof(PACKHEAD))
164                          error(INTERNAL, "bad DR_ADDSET from display process");
165                  disp_result(DS_STARTIMM, 0, NULL);
166                  bundle_set(BS_ADD, (PACKHEAD *)buf, msg.nbytes/sizeof(PACKHEAD));
167                  disp_result(DS_ENDIMM, 0, NULL);
168 +                disp_flush();
169                  break;
170 <        case DR_DELSET:
170 >        case DR_ADJSET:         /* adjust calculation set members */
171 >                if (!msg.nbytes)
172 >                        break;
173                  if (msg.nbytes % sizeof(PACKHEAD))
174 +                        error(INTERNAL, "bad DR_ADJSET from display process");
175 +                disp_result(DS_STARTIMM, 0, NULL);
176 +                bundle_set(BS_ADJ, (PACKHEAD *)buf, msg.nbytes/sizeof(PACKHEAD));
177 +                disp_result(DS_ENDIMM, 0, NULL);
178 +                disp_flush();
179 +                break;
180 +        case DR_DELSET:         /* delete from calculation set */
181 +                if (!msg.nbytes)
182 +                        break;
183 +                if (msg.nbytes % sizeof(PACKHEAD))
184                          error(INTERNAL, "bad DR_DELSET from display process");
185                  bundle_set(BS_DEL, (PACKHEAD *)buf, msg.nbytes/sizeof(PACKHEAD));
186                  break;
187 <        case DR_ATTEN:
187 >        case DR_VIEWPOINT:      /* set target eye position */
188 >                if (msg.nbytes != sizeof(VIEWPOINT))
189 >                        error(INTERNAL, "bad DR_VIEWPOINT from display process");
190 >                copystruct(&myeye, (VIEWPOINT *)buf);
191 >                break;
192 >        case DR_ATTEN:          /* block for priority request */
193                  if (msg.nbytes)
194                          error(INTERNAL, "bad DR_ATTEN from display process");
195                                          /* send acknowledgement */
196                  disp_result(DS_ACKNOW, 0, NULL);
197 <                block = 1;              /* block on following request */
198 <                goto restart;
121 <        case DR_SHUTDOWN:
197 >                return(disp_check(1));  /* block on following request */
198 >        case DR_KILL:           /* kill computation process(es) */
199                  if (msg.nbytes)
200 +                        error(INTERNAL, "bad DR_KILL from display process");
201 +                if (nprocs > 0)
202 +                        done_rtrace();
203 +                else
204 +                        error(WARNING, "no rtrace process to kill");
205 +                break;
206 +        case DR_RESTART:        /* restart computation process(es) */
207 +                if (msg.nbytes)
208 +                        error(INTERNAL, "bad DR_RESTART from display process");
209 +                if (ncprocs > nprocs)
210 +                        new_rtrace();
211 +                else if (nprocs > 0)
212 +                        error(WARNING, "rtrace already runnning");
213 +                else
214 +                        error(WARNING, "holodeck not open for writing");
215 +                break;
216 +        case DR_CLOBBER:        /* clobber holodeck */
217 +                if (msg.nbytes)
218 +                        error(INTERNAL, "bad DR_CLOBBER from display process");
219 +                if (force <= 0 | ncprocs <= 0)
220 +                        error(WARNING, "request to clobber holodeck denied");
221 +                else {
222 +                        error(WARNING, "clobbering holodeck contents");
223 +                        hdclobber(NULL);
224 +                }
225 +                break;
226 +        case DR_SHUTDOWN:       /* shut down program */
227 +                if (msg.nbytes)
228                          error(INTERNAL, "bad DR_SHUTDOWN from display process");
229                  return(0);              /* zero return signals shutdown */
230 +        case DR_NOOP:           /* do nothing */
231 +                break;
232          default:
233                  error(INTERNAL, "unrecognized request from display process");
234          }
235 <        if (msg.nbytes)
235 >        if (msg.nbytes)                 /* clean up */
236                  free(buf);
237          return(1);                      /* normal return value */
238   fcntlerr:
# Line 140 | Line 247 | disp_close()                   /* close our display process */
247   {
248          int     rval;
249  
250 <        if (pipesiz <= 0)
250 >        if (dpout == NULL)
251                  return(-1);
252 +        myeye.rng = 0;
253          disp_result(DS_SHUTDOWN, 0, NULL);
254 <        pipesiz = 0;
255 <        return(close_process(dpd));
254 >        fclose(dpout);
255 >        dpout = NULL;
256 >        return(dpd[2]<0 ? 0 : close_process(dpd));
257   }
258  
259  
260 < disp_result(type, nbytes, p)    /* send result message to display process */
260 > disp_result(type, nbytes, p)    /* queue result message to display process */
261   int     type, nbytes;
262   char    *p;
263   {
155 –        struct iovec    iov[2];
264          MSGHEAD msg;
265 <        int     n;
266 <
265 >                                        /* consistency checks */
266 > #ifdef DEBUG
267 >        if (nbytes < 0 || nbytes > 0 & p == NULL)
268 >                error(CONSISTENCY, "bad buffer handed to disp_result");
269 > #endif
270 >        if (dpout == NULL)
271 >                return;
272          msg.type = type;
273          msg.nbytes = nbytes;
274 <        if (nbytes == 0 || sizeof(MSGHEAD)+nbytes > pipesiz) {
275 <                n = write(dpd[1], (char *)&msg, sizeof(MSGHEAD));
276 <                if (n != sizeof(MSGHEAD))
277 <                        goto writerr;
278 <                if (nbytes > 0) {
279 <                        n = writebuf(dpd[1], p, nbytes);
280 <                        if (n != nbytes)
281 <                                goto writerr;
282 <                }
283 <                return;
171 <        }
172 <        iov[0].iov_base = (char *)&msg;
173 <        iov[0].iov_len = sizeof(MSGHEAD);
174 <        iov[1].iov_base = p;
175 <        iov[1].iov_len = nbytes;
176 <        n = writev(dpd[1], iov, 2);
177 <        if (n == nbytes+sizeof(MSGHEAD))
178 <                return;
179 < writerr:
180 <        error(SYSTEM, "write error in disp_result");
274 >        fwrite((char *)&msg, sizeof(MSGHEAD), 1, dpout);
275 >        if (nbytes > 0)
276 >                fwrite(p, 1, nbytes, dpout);
277 > }
278 >
279 >
280 > disp_flush()                    /* flush output to display */
281 > {
282 >        if (fflush(dpout) < 0)
283 >                error(SYSTEM, "error writing to the display process");
284   }

Diff Legend

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