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

Comparing src/rt/raypcalls.c (file contents):
Revision 2.23 by greg, Sat Dec 12 19:01:00 2009 UTC vs.
Revision 2.33 by greg, Mon Jun 15 15:44:03 2020 UTC

# Line 71 | Line 71 | static const char      RCSid[] = "$Id$";
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.)
74   *  If the second argument is 0, the call will block
75   *  until a value is available, returning 0 only if the
76 < *  queue is completely empty.  A negative return value
76 > *  queue is completely empty.  Setting the second argument
77 > *  to -1 returns 0 unless a ray is ready in the queue and
78 > *  no system calls are needed.  A negative return value
79   *  indicates that a rendering process died.  If this
80   *  happens, ray_pclose(0) is automatically called to close
81   *  all child processes, and ray_pnprocs is set to zero.
# Line 88 | Line 88 | static const char      RCSid[] = "$Id$";
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.
# Line 145 | Line 147 | static const char      RCSid[] = "$Id$";
147   #include  "selcall.h"
148  
149   #ifndef RAYQLEN
150 < #define RAYQLEN         12              /* # rays to send at once */
150 > #define RAYQLEN         24              /* # rays to send at once */
151   #endif
152  
153   #ifndef MAX_RPROCS
# Line 160 | Line 162 | extern char    *shm_boundary;          /* boundary of shared memo
162  
163   int             ray_pnprocs = 0;        /* number of child processes */
164   int             ray_pnidle = 0;         /* number of idle children */
165 + int             ray_pnbatch = 0;        /* throughput over responsiveness? */
166  
167   static struct child_proc {
168 <        int     pid;                            /* child process id */
168 >        RT_PID  pid;                            /* child process id */
169          int     fd_send;                        /* write to child here */
170          int     fd_recv;                        /* read from child here */
171          int     npending;                       /* # rays in process */
# Line 174 | Line 177 | static int     r_send_next = 0;        /* next send ray placement
177   static int      r_recv_first = RAYQLEN; /* position of first unreported ray */
178   static int      r_recv_next = RAYQLEN;  /* next received ray placement */
179  
180 + static int      samplestep = 1;         /* sample step size */
181 +
182   #define sendq_full()    (r_send_next >= RAYQLEN)
183  
184   static int ray_pflush(void);
# Line 208 | Line 213 | ray_pflush(void)                       /* send queued rays to idle childre
213          for (i = ray_pnprocs; nc && i--; ) {
214                  if (r_proc[i].npending > 0)
215                          continue;       /* child looks busy */
216 <                n = (r_send_next - sfirst)/nc--;
216 >                n = r_send_next - sfirst;
217 >                if (ray_pnbatch)
218 >                        nc--;           /* maximize bundling for batch calc */
219 >                else
220 >                        n /= nc--;      /* distribute work for interactivity */
221                  if (!n)
222                          continue;
223                                          /* smuggle set size in crtype */
# Line 224 | Line 233 | ray_pflush(void)                       /* send queued rays to idle childre
233                  ray_pnidle--;           /* now she's busy */
234          }
235          if (sfirst != r_send_next)
236 <                error(CONSISTENCY, "code screwup in ray_pflush");
236 >                error(CONSISTENCY, "code screwup in ray_pflush()");
237          r_send_next = 0;
238          return(sfirst);                 /* return total # sent */
239   }
240  
241  
242 < void
242 > int
243   ray_psend(                      /* add a ray to our send queue */
244          RAY     *r
245   )
246   {
247 <        if (r == NULL)
248 <                return;
247 >        int     rv;
248 >
249 >        if ((r == NULL) | (ray_pnidle <= 0))
250 >                return(0);
251                                          /* flush output if necessary */
252 <        if (sendq_full() && ray_pflush() <= 0)
253 <                error(INTERNAL, "ray_pflush failed in ray_psend");
252 >        if (sendq_full() && (rv = ray_pflush()) <= 0)
253 >                return(rv);
254  
255          r_queue[r_send_next++] = *r;
256 +        return(1);
257   }
258  
259  
# Line 260 | Line 272 | ray_pqueue(                    /* queue a ray for computation */
272                          return(-1);
273                                          /* put new ray in queue */
274                  r_queue[r_send_next++] = mySend;
275 <                                /* XXX r_send_next may now be > RAYQLEN */
275 >
276                  return(1);
277          }
278                                          /* else add ray to send queue */
# Line 283 | Line 295 | ray_presult(           /* check for a completed ray */
295          static struct timeval   tpoll;  /* zero timeval struct */
296          static fd_set   readset, errset;
297          int     n, ok;
298 <        register int    pn;
298 >        int     pn;
299  
300          if (r == NULL)
301                  return(0);
# Line 329 | Line 341 | getready:                              /* any children waiting for us? */
341                                  poll ? &tpoll : (struct timeval *)NULL)) < 0)
342                          if (errno != EINTR) {
343                                  error(WARNING,
344 <                                        "select call failed in ray_presult");
344 >                                        "select call failed in ray_presult()");
345                                  ray_pclose(0);
346                                  return(-1);
347                          }
# Line 361 | Line 373 | getready:                              /* any children waiting for us? */
373          }
374                                          /* preen returned rays */
375          for (n = r_recv_next - r_recv_first; n--; ) {
376 <                register RAY    *rp = &r_queue[r_recv_first + n];
376 >                RAY     *rp = &r_queue[r_recv_first + n];
377                  rp->rno = r_proc[pn].rno[n];
378                  rp->parent = NULL;
379                  rp->newcset = rp->clipset = NULL;
# Line 397 | Line 409 | ray_pchild(    /* process rays (never returns) */
409   )
410   {
411          int     n;
412 <        register int    i;
412 >        int     i;
413                                          /* flag child process for quit() */
414          ray_pnprocs = -1;
415                                          /* read each ray request set */
# Line 408 | Line 420 | ray_pchild(    /* process rays (never returns) */
420                                          /* get smuggled set length */
421                  n2 = sizeof(RAY)*r_queue[0].crtype - n;
422                  if (n2 < 0)
423 <                        error(INTERNAL, "buffer over-read in ray_pchild");
423 >                        error(INTERNAL, "buffer over-read in ray_pchild()");
424                  if (n2 > 0) {           /* read the rest of the set */
425                          i = readbuf(fd_in, (char *)r_queue + n, n2);
426                          if (i != n2)
# Line 423 | Line 435 | ray_pchild(    /* process rays (never returns) */
435                          r_queue[i].clipset = NULL;
436                          r_queue[i].slights = NULL;
437                          r_queue[i].rlvl = 0;
438 <                        samplendx++;
438 >                        samplendx += samplestep;
439                          rayclear(&r_queue[i]);
440                          rayvalue(&r_queue[i]);
441                  }
442                                          /* write back our results */
443                  i = writebuf(fd_out, (char *)r_queue, sizeof(RAY)*n);
444                  if (i != sizeof(RAY)*n)
445 <                        error(SYSTEM, "write error in ray_pchild");
445 >                        error(SYSTEM, "write error in ray_pchild()");
446          }
447          if (n)
448 <                error(SYSTEM, "read error in ray_pchild");
448 >                error(SYSTEM, "read error in ray_pchild()");
449          ambsync();
450          quit(0);                        /* normal exit */
451   }
# Line 457 | Line 469 | ray_popen(                     /* open the specified # processes */
469                  strcpy(shm_boundary, "SHM_BOUNDARY");
470          }
471          fflush(NULL);                   /* clear pending output */
472 +        samplestep = ray_pnprocs + nadd;
473          while (nadd--) {                /* fork each new process */
474                  int     p0[2], p1[2];
475                  if (pipe(p0) < 0 || pipe(p1) < 0)
# Line 468 | Line 481 | ray_popen(                     /* open the specified # processes */
481                                  close(r_proc[pn].fd_recv);
482                          }
483                          close(p0[0]); close(p1[1]);
484 +                        close(0);       /* don't share stdin */
485                                          /* following call never returns */
486                          ray_pchild(p1[0], p0[1]);
487                  }
488                  if (r_proc[ray_pnprocs].pid < 0)
489                          error(SYSTEM, "cannot fork child process");
490                  close(p1[0]); close(p0[1]);
491 +                if (rand_samp)          /* decorrelate random sequence */
492 +                        srandom(random());
493 +                else
494 +                        samplendx++;
495                  /*
496                   * Close write stream on exec to avoid multiprocessing deadlock.
497                   * No use in read stream without it, so set flag there as well.
# Line 495 | Line 513 | ray_pclose(            /* close one or more child processes */
513   )
514   {
515          static int      inclose = 0;
516 <        RAY     res;
516 >        RAY             res;
517 >        int             i, status = 0;
518                                          /* check recursion */
519          if (inclose)
520                  return;
521          inclose++;
522 +                                        /* check no child / in child */
523 +        if (ray_pnprocs <= 0)
524 +                return;
525                                          /* check argument */
526          if ((nsub <= 0) | (nsub > ray_pnprocs))
527                  nsub = ray_pnprocs;
# Line 508 | Line 530 | ray_pclose(            /* close one or more child processes */
530                  ;
531          r_send_next = 0;                /* hard reset in case of error */
532          r_recv_first = r_recv_next = RAYQLEN;
533 <                                        /* clean up children */
534 <        while (nsub--) {
535 <                int     status;
536 <                ray_pnprocs--;
537 <                close(r_proc[ray_pnprocs].fd_recv);
538 <                close(r_proc[ray_pnprocs].fd_send);
517 <                if (waitpid(r_proc[ray_pnprocs].pid, &status, 0) < 0)
533 >                                        /* close send pipes */
534 >        for (i = ray_pnprocs-nsub; i < ray_pnprocs; i++)
535 >                close(r_proc[i].fd_send);
536 >
537 >        if (nsub == 1) {                /* awaiting single process? */
538 >                if (waitpid(r_proc[ray_pnprocs-1].pid, &status, 0) < 0)
539                          status = 127<<8;
540 <                if (status) {
541 <                        sprintf(errmsg,
542 <                                "rendering process %d exited with code %d",
543 <                                        r_proc[ray_pnprocs].pid, status>>8);
544 <                        error(WARNING, errmsg);
540 >                close(r_proc[ray_pnprocs-1].fd_recv);
541 >        } else                          /* else unordered wait */
542 >                for (i = 0; i < nsub; ) {
543 >                        int     j, mystatus;
544 >                        RT_PID  pid = wait(&mystatus);
545 >                        for (j = ray_pnprocs-nsub; j < ray_pnprocs; j++)
546 >                                if (r_proc[j].pid == pid) {
547 >                                        if (mystatus)
548 >                                                status = mystatus;
549 >                                        close(r_proc[j].fd_recv);
550 >                                        ++i;
551 >                                }
552                  }
553 <                ray_pnidle--;
553 >        ray_pnprocs -= nsub;
554 >        ray_pnidle -= nsub;
555 >        if (status) {
556 >                sprintf(errmsg, "rendering process exited with code %d", status>>8);
557 >                error(WARNING, errmsg);
558          }
559          inclose--;
560   }

Diff Legend

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