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

Comparing ray/src/cv/mgflib/parser.c (file contents):
Revision 1.19 by greg, Fri Oct 27 15:47:18 1995 UTC vs.
Revision 1.23 by greg, Wed Jun 19 22:34:59 1996 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1995 Regents of the University of California */
1 > /* Copyright (c) 1996 Regents of the University of California */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ LBL";
# Line 63 | Line 63 | int    mg_nqcdivs = MG_NQCD;   /* number of divisions per q
63  
64   static int      e_any_toss(),           /* discard unneeded entity */
65                  e_ies(),                /* IES luminaire file */
66 –                e_include(),            /* include file */
67 –                e_sph(),                /* sphere */
66                  e_cct(),                /* color temperature */
67                  e_cmix(),               /* color mixtures */
68 <                e_cspec(),              /* color spectra */
68 >                e_cspec();              /* color spectra */
69 >
70 > int             e_include(),            /* include file */
71 >                e_sph(),                /* sphere */
72                  e_cyl(),                /* cylinder */
73                  e_cone(),               /* cone */
74                  e_prism(),              /* prism */
# Line 260 | Line 261 | mg_close()                     /* close input file */
261          register MG_FCTXT       *ctx = mg_file;
262  
263          mg_file = ctx->prev;            /* restore enclosing context */
264 <        if (ctx->fp == stdin)
265 <                return;                 /* don't close standard input */
265 <        fclose(ctx->fp);
264 >        if (ctx->fp != stdin)           /* close file if it's a file */
265 >                fclose(ctx->fp);
266   }
267  
268  
# Line 304 | Line 304 | mg_read()                      /* read next line from file */
304                  if (fgets(mg_file->inpline+len,
305                                  MG_MAXLINE-len, mg_file->fp) == NULL)
306                          return(len);
307 –                mg_file->lineno++;
307                  len += strlen(mg_file->inpline+len);
308 <                if (len > 1 && mg_file->inpline[len-2] == '\\')
309 <                        mg_file->inpline[--len-1] = ' ';
310 <        } while (mg_file->inpline[len]);
308 >                if (len >= MG_MAXLINE-1)
309 >                        return(len);
310 >                mg_file->lineno++;
311 >        } while (len > 1 && mg_file->inpline[len-2] == '\\');
312  
313          return(len);
314   }
# Line 320 | Line 320 | mg_parse()                     /* parse current input line */
320          char    abuf[MG_MAXLINE];
321          char    *argv[MG_MAXARGC];
322          int     en;
323 <        register char   *cp, **ap;
324 <
325 <        strcpy(cp=abuf, mg_file->inpline);
326 <        ap = argv;                      /* break into words */
323 >        register char   *cp, *cp2, **ap;
324 >                                        /* copy line, removing escape chars */
325 >        cp = abuf; cp2 = mg_file->inpline;
326 >        while ((*cp++ = *cp2++))
327 >                if (cp2[0] == '\n' && cp2[-1] == '\\')
328 >                        cp--;
329 >        cp = abuf; ap = argv;           /* break into words */
330          for ( ; ; ) {
331                  while (isspace(*cp))
332                          *cp++ = '\0';
# Line 349 | Line 352 | char   *fn;
352   {
353          MG_FCTXT        cntxt;
354          int     rval;
355 +        register int    nbr;
356  
357          if ((rval = mg_open(&cntxt, fn)) != MG_OK) {
358                  fprintf(stderr, "%s: %s\n", fn, mg_err[rval]);
359                  return(rval);
360          }
361 <        while (mg_read())               /* parse each line */
361 >        while ((nbr = mg_read()) > 0) { /* parse each line */
362 >                if (nbr >= MG_MAXLINE-1) {
363 >                        fprintf(stderr, "%s: %d: %s\n", cntxt.fname,
364 >                                        cntxt.lineno, mg_err[rval=MG_ELINE]);
365 >                        break;
366 >                }
367                  if ((rval = mg_parse()) != MG_OK) {
368                          fprintf(stderr, "%s: %d: %s:\n%s", cntxt.fname,
369                                          cntxt.lineno, mg_err[rval],
370                                          cntxt.inpline);
371                          break;
372                  }
373 +        }
374          mg_close();
375          return(rval);
376   }
# Line 382 | Line 392 | void
392   mg_clear()                      /* clear parser history */
393   {
394          c_clearall();                   /* clear context tables */
395 <        mg_file = NULL;                 /* reset our context */
395 >        while (mg_file != NULL)         /* reset our file context */
396 >                mg_close();
397   }
398  
399  
# Line 400 | Line 411 | char   **av;
411   }
412  
413  
414 < static int
414 > int
415   e_include(ac, av)               /* include file */
416   int     ac;
417   char    **av;
# Line 408 | Line 419 | char   **av;
419          char    *xfarg[MG_MAXARGC];
420          MG_FCTXT        ictx;
421          XF_SPEC *xf_orig = xf_context;
422 <        int     rv;
422 >        register int    rv;
423  
424          if (ac < 2)
425                  return(MG_EARGC);
# Line 421 | Line 432 | char   **av;
432                  for (i = 1; i < ac-1; i++)
433                          xfarg[i] = av[i+1];
434                  xfarg[ac-1] = NULL;
435 <                if ((rv = mg_handle(MG_E_XF, ac-1, xfarg)) != MG_OK)
435 >                if ((rv = mg_handle(MG_E_XF, ac-1, xfarg)) != MG_OK) {
436 >                        mg_close();
437                          return(rv);
438 +                }
439          }
440          do {
441 <                while (mg_read())
441 >                while ((rv = mg_read()) > 0) {
442 >                        if (rv >= MG_MAXLINE-1) {
443 >                                fprintf(stderr, "%s: %d: %s\n", ictx.fname,
444 >                                                ictx.lineno, mg_err[MG_ELINE]);
445 >                                mg_close();
446 >                                return(MG_EINCL);
447 >                        }
448                          if ((rv = mg_parse()) != MG_OK) {
449                                  fprintf(stderr, "%s: %d: %s:\n%s", ictx.fname,
450                                                  ictx.lineno, mg_err[rv],
# Line 433 | Line 452 | char   **av;
452                                  mg_close();
453                                  return(MG_EINCL);
454                          }
455 +                }
456                  if (ac > 2)
457 <                        if ((rv = mg_handle(MG_E_XF, 1, xfarg)) != MG_OK)
457 >                        if ((rv = mg_handle(MG_E_XF, 1, xfarg)) != MG_OK) {
458 >                                mg_close();
459                                  return(rv);
460 +                        }
461          } while (xf_context != xf_orig);
462          mg_close();
463          return(MG_OK);
# Line 459 | Line 481 | FVECT  u, v, w;
481   }
482  
483  
484 < static int
484 > int
485   e_sph(ac, av)                   /* expand a sphere into cones */
486   int     ac;
487   char    **av;
# Line 511 | Line 533 | char   **av;
533   }
534  
535  
536 < static int
536 > int
537   e_torus(ac, av)                 /* expand a torus into cones */
538   int     ac;
539   char    **av;
# Line 603 | Line 625 | char   **av;
625   }
626  
627  
628 < static int
628 > int
629   e_cyl(ac, av)                   /* replace a cylinder with equivalent cone */
630   int     ac;
631   char    **av;
# Line 620 | Line 642 | char   **av;
642   }
643  
644  
645 < static int
645 > int
646   e_ring(ac, av)                  /* turn a ring into polygons */
647   int     ac;
648   char    **av;
# Line 718 | Line 740 | char   **av;
740   }
741  
742  
743 < static int
743 > int
744   e_cone(ac, av)                  /* turn a cone into polygons */
745   int     ac;
746   char    **av;
# Line 888 | Line 910 | char   **av;
910   }
911  
912  
913 < static int
913 > int
914   e_prism(ac, av)                 /* turn a prism into polygons */
915   int     ac;
916   char    **av;
# Line 1000 | Line 1022 | put_cxy()                      /* put out current xy chromaticities */
1022   {
1023          static char     xbuf[24], ybuf[24];
1024          static char     *ccom[4] = {mg_ename[MG_E_CXY], xbuf, ybuf};
1003 –        int     rv;
1025  
1026          sprintf(xbuf, "%.4f", c_ccolor->cx);
1027          sprintf(ybuf, "%.4f", c_ccolor->cy);
1028 <        if ((rv = mg_handle(MG_E_CXY, 3, ccom)) != MG_OK)
1008 <                return(rv);
1009 <        return(MG_OK);
1028 >        return(mg_handle(MG_E_CXY, 3, ccom));
1029   }
1030  
1031  

Diff Legend

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