| 71 |  | * | 
| 72 |  | *  If the second argument is 1, the call won't block when | 
| 73 |  | *  results aren't ready, but will immediately return 0. | 
| 74 | + | *  (A special value of -1 returns 0 unless a ray is | 
| 75 | + | *  ready in the queue and no system calls are needed.) | 
| 76 |  | *  If the second argument is 0, the call will block | 
| 77 |  | *  until a value is available, returning 0 only if the | 
| 78 |  | *  queue is completely empty.  A negative return value | 
| 88 |  | *              ray_psend(&myRay); | 
| 89 |  | *      } | 
| 90 |  | * | 
| 91 | < | *  Note that it is a fatal error to call ra_psend() when | 
| 92 | < | *  ray_pnidle is zero.  The ray_presult() and/or ray_pqueue() | 
| 93 | < | *  functions may be called subsequently to read back the results. | 
| 91 | > | *  Note that it is a mistake to call ra_psend() when | 
| 92 | > | *  ray_pnidle is zero, and nothing will be sent in | 
| 93 | > | *  this case.  Otherwise, the ray_presult() and/or ray_pqueue() | 
| 94 | > | *  functions may be called subsequently to read back the results | 
| 95 | > | *  of rays queued by ray_psend(). | 
| 96 |  | * | 
| 97 |  | *  When you are done, you may call ray_pdone(1) to close | 
| 98 |  | *  all child processes and clean up memory used by Radiance. | 
| 101 |  | *  and fonts that are likely to be used in subsequent renderings. | 
| 102 |  | *  Whether you need to clean up memory or not, you should | 
| 103 |  | *  at least call ray_pclose(0) to await the child processes. | 
| 104 | + | *  The caller should define a quit() function that calls | 
| 105 | + | *  ray_pclose(0) if ray_pnprocs > 0. | 
| 106 |  | * | 
| 107 |  | *  Warning:  You cannot affect any of the rendering processes | 
| 108 |  | *  by changing global parameter values onece ray_pinit() has | 
| 172 |  | } r_proc[MAX_NPROCS];                   /* our child processes */ | 
| 173 |  |  | 
| 174 |  | static RAY      r_queue[2*RAYQLEN];     /* ray i/o buffer */ | 
| 175 | < | static int      r_send_next;            /* next send ray placement */ | 
| 176 | < | static int      r_recv_first;           /* position of first unreported ray */ | 
| 177 | < | static int      r_recv_next;            /* next received ray placement */ | 
| 175 | > | static int      r_send_next = 0;        /* next send ray placement */ | 
| 176 | > | static int      r_recv_first = RAYQLEN; /* position of first unreported ray */ | 
| 177 | > | static int      r_recv_next = RAYQLEN;  /* next received ray placement */ | 
| 178 |  |  | 
| 179 |  | #define sendq_full()    (r_send_next >= RAYQLEN) | 
| 180 |  |  | 
| 193 |  |  | 
| 194 |  | ray_init(otnm);                 /* load the shared scene */ | 
| 195 |  |  | 
| 190 | – | r_send_next = 0;                /* set up queue */ | 
| 191 | – | r_recv_first = r_recv_next = RAYQLEN; | 
| 192 | – |  | 
| 196 |  | ray_popen(nproc);               /* fork children */ | 
| 197 |  | } | 
| 198 |  |  | 
| 226 |  | ray_pnidle--;           /* now she's busy */ | 
| 227 |  | } | 
| 228 |  | if (sfirst != r_send_next) | 
| 229 | < | error(CONSISTENCY, "code screwup in ray_pflush"); | 
| 229 | > | error(CONSISTENCY, "code screwup in ray_pflush()"); | 
| 230 |  | r_send_next = 0; | 
| 231 |  | return(sfirst);                 /* return total # sent */ | 
| 232 |  | } | 
| 233 |  |  | 
| 234 |  |  | 
| 235 | < | void | 
| 235 | > | int | 
| 236 |  | ray_psend(                      /* add a ray to our send queue */ | 
| 237 |  | RAY     *r | 
| 238 |  | ) | 
| 239 |  | { | 
| 240 | < | if (r == NULL) | 
| 241 | < | return; | 
| 240 | > | int     rv; | 
| 241 | > |  | 
| 242 | > | if ((r == NULL) | (ray_pnidle <= 0)) | 
| 243 | > | return(0); | 
| 244 |  | /* flush output if necessary */ | 
| 245 | < | if (sendq_full() && ray_pflush() <= 0) | 
| 246 | < | error(INTERNAL, "ray_pflush failed in ray_psend"); | 
| 245 | > | if (sendq_full() && (rv = ray_pflush()) <= 0) | 
| 246 | > | return(rv); | 
| 247 |  |  | 
| 248 |  | r_queue[r_send_next++] = *r; | 
| 249 | + | return(1); | 
| 250 |  | } | 
| 251 |  |  | 
| 252 |  |  | 
| 265 |  | return(-1); | 
| 266 |  | /* put new ray in queue */ | 
| 267 |  | r_queue[r_send_next++] = mySend; | 
| 268 | < | /* XXX r_send_next may now be > RAYQLEN */ | 
| 268 | > |  | 
| 269 |  | return(1); | 
| 270 |  | } | 
| 271 |  | /* else add ray to send queue */ | 
| 297 |  | *r = r_queue[r_recv_first++]; | 
| 298 |  | return(1); | 
| 299 |  | } | 
| 300 | + | if (poll < 0)                   /* immediate polling mode? */ | 
| 301 | + | return(0); | 
| 302 | + |  | 
| 303 |  | n = ray_pnprocs - ray_pnidle;   /* pending before flush? */ | 
| 304 |  |  | 
| 305 |  | if (ray_pflush() < 0)           /* send new rays to process */ | 
| 334 |  | poll ? &tpoll : (struct timeval *)NULL)) < 0) | 
| 335 |  | if (errno != EINTR) { | 
| 336 |  | error(WARNING, | 
| 337 | < | "select call failed in ray_presult"); | 
| 337 | > | "select call failed in ray_presult()"); | 
| 338 |  | ray_pclose(0); | 
| 339 |  | return(-1); | 
| 340 |  | } | 
| 390 |  | free((void *)shm_boundary); | 
| 391 |  | shm_boundary = NULL; | 
| 392 |  | } | 
| 393 | + |  | 
| 394 |  | ray_done(freall);               /* free rendering data */ | 
| 395 |  | } | 
| 396 |  |  | 
| 413 |  | /* get smuggled set length */ | 
| 414 |  | n2 = sizeof(RAY)*r_queue[0].crtype - n; | 
| 415 |  | if (n2 < 0) | 
| 416 | < | error(INTERNAL, "buffer over-read in ray_pchild"); | 
| 416 | > | error(INTERNAL, "buffer over-read in ray_pchild()"); | 
| 417 |  | if (n2 > 0) {           /* read the rest of the set */ | 
| 418 |  | i = readbuf(fd_in, (char *)r_queue + n, n2); | 
| 419 |  | if (i != n2) | 
| 435 |  | /* write back our results */ | 
| 436 |  | i = writebuf(fd_out, (char *)r_queue, sizeof(RAY)*n); | 
| 437 |  | if (i != sizeof(RAY)*n) | 
| 438 | < | error(SYSTEM, "write error in ray_pchild"); | 
| 438 | > | error(SYSTEM, "write error in ray_pchild()"); | 
| 439 |  | } | 
| 440 |  | if (n) | 
| 441 | < | error(SYSTEM, "read error in ray_pchild"); | 
| 441 | > | error(SYSTEM, "read error in ray_pchild()"); | 
| 442 |  | ambsync(); | 
| 443 |  | quit(0);                        /* normal exit */ | 
| 444 |  | } | 
| 473 |  | close(r_proc[pn].fd_recv); | 
| 474 |  | } | 
| 475 |  | close(p0[0]); close(p1[1]); | 
| 476 | + | close(0);       /* don't share stdin */ | 
| 477 |  | /* following call never returns */ | 
| 478 |  | ray_pchild(p1[0], p0[1]); | 
| 479 |  | } | 
| 512 |  | /* clear our ray queue */ | 
| 513 |  | while (ray_presult(&res,0) > 0) | 
| 514 |  | ; | 
| 515 | + | r_send_next = 0;                /* hard reset in case of error */ | 
| 516 | + | r_recv_first = r_recv_next = RAYQLEN; | 
| 517 |  | /* clean up children */ | 
| 518 |  | while (nsub--) { | 
| 519 |  | int     status; | 
| 520 |  | ray_pnprocs--; | 
| 508 | – | close(r_proc[ray_pnprocs].fd_recv); | 
| 521 |  | close(r_proc[ray_pnprocs].fd_send); | 
| 522 |  | if (waitpid(r_proc[ray_pnprocs].pid, &status, 0) < 0) | 
| 523 |  | status = 127<<8; | 
| 524 | + | close(r_proc[ray_pnprocs].fd_recv); | 
| 525 |  | if (status) { | 
| 526 |  | sprintf(errmsg, | 
| 527 |  | "rendering process %d exited with code %d", | 
| 531 |  | ray_pnidle--; | 
| 532 |  | } | 
| 533 |  | inclose--; | 
| 521 | – | } | 
| 522 | – |  | 
| 523 | – |  | 
| 524 | – | void | 
| 525 | – | quit(ec)                        /* make sure exit is called */ | 
| 526 | – | int     ec; | 
| 527 | – | { | 
| 528 | – | if (ray_pnprocs > 0)    /* close children if any */ | 
| 529 | – | ray_pclose(0); | 
| 530 | – | exit(ec); | 
| 534 |  | } |