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

Comparing ray/src/common/calprnt.c (file contents):
Revision 2.1 by greg, Tue Nov 12 16:55:57 1991 UTC vs.
Revision 2.8 by greg, Fri Feb 23 03:47:57 2024 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1991 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   *  calprint.c - routines for printing calcomp expressions.
9 – *
10 – *     1/29/87
6   */
7  
8 + #include "copyright.h"
9 +
10   #include  <stdio.h>
11 + #include  <string.h>
12  
13 + #include  "rterror.h"
14   #include  "calcomp.h"
15  
16  
17 < eprint(ep, fp)                  /* print a parse tree */
18 < register EPNODE  *ep;
19 < FILE  *fp;
17 > /* is child binary operation lower precedence than parent? */
18 > static int
19 > lower_precedent_binop(int typ, EPNODE *ek)
20   {
21 +    if (ek == NULL)
22 +        return(0);
23 +    switch (typ) {
24 +        case '+':
25 +                return(0);
26 +        case '-':
27 +                return(ek->type == '+');
28 +        case '*':
29 +                return(strchr("+-", ek->type) != NULL);
30 +        case '/':
31 +                return(strchr("+-*", ek->type) != NULL);
32 +        case '^':
33 +                return(strchr("+-*/^", ek->type) != NULL);
34 +        }
35 +    return(0);                  /* child not binary op */
36 + }
37 +
38 + void
39 + eprint(                         /* print a parse tree */
40 +        EPNODE  *ep,
41 +        FILE  *fp
42 + )
43 + {
44      static EPNODE  *curdef = NULL;
45 <    register EPNODE  *ep1;
45 >    EPNODE  *ep1 = NULL;
46  
47 <    switch (ep->type) {
47 >    switch (ep==NULL ? -1 : ep->type) {
48  
49          case VAR:
50              fputs(ep->v.ln->name, fp);
# Line 34 | Line 56 | FILE  *fp;
56  
57          case FUNC:
58              eprint(ep->v.kid, fp);
59 <            fputs("(", fp);
59 >            fputc('(', fp);
60              ep1 = ep->v.kid->sibling;
61              while (ep1 != NULL) {
62                  eprint(ep1, fp);
63                  if ((ep1 = ep1->sibling) != NULL)
64                      fputs(", ", fp);
65              }
66 <            fputs(")", fp);
66 >            fputc(')', fp);
67              break;
68  
69          case ARG:
# Line 57 | Line 79 | FILE  *fp;
79              fprintf(fp, "%.9g", ep->v.num);
80              break;
81  
60 –        case UMINUS:
61 –            fputs("-", fp);
62 –            eprint(ep->v.kid, fp);
63 –            break;
64 –
82          case CHAN:
83              fprintf(fp, "$%d", ep->v.chan);
84              break;
# Line 71 | Line 88 | FILE  *fp;
88              ep1 = curdef;
89              curdef = ep;
90              eprint(ep->v.kid, fp);
91 <            putc(' ', fp);
92 <            putc(ep->type, fp);
93 <            putc(' ', fp);
91 >            fputc(' ', fp);
92 >            fputc(ep->type, fp);
93 >            fputc(' ', fp);
94              eprint(ep->v.kid->sibling, fp);
95              curdef = ep1;
96              break;
97 <            
97 >
98 >        case UMINUS:
99 >            fputc('-', fp);
100 >            if (ep->v.kid != NULL && strchr("+-*/^", ep->v.kid->type)) {
101 >                fputc('(', fp);
102 >                eprint(ep->v.kid, fp);
103 >                fputc(')', fp);
104 >            } else
105 >                eprint(ep->v.kid, fp);
106 >            break;
107 >
108          case '+':
109          case '-':
110          case '*':
111          case '/':
112          case '^':
113 <            fputs("(", fp);
114 <            eprint(ep->v.kid, fp);
115 <            putc(' ', fp);
116 <            putc(ep->type, fp);
117 <            putc(' ', fp);
118 <            eprint(ep->v.kid->sibling, fp);
119 <            fputs(")", fp);
113 >            if (lower_precedent_binop(ep->type, ep->v.kid)) {
114 >                fputc('(', fp);
115 >                eprint(ep->v.kid, fp);
116 >                fputc(')', fp);
117 >            } else
118 >                eprint(ep->v.kid, fp);
119 >            if (ep->type != '^') {
120 >                fputc(' ', fp);
121 >                fputc(ep->type, fp);
122 >                fputc(' ', fp);
123 >            } else
124 >                fputc(ep->type, fp);
125 >            if (lower_precedent_binop(ep->type, ep->v.kid->sibling)) {
126 >                fputc('(', fp);
127 >                eprint(ep->v.kid->sibling, fp);
128 >                fputc(')', fp);
129 >            } else
130 >                eprint(ep->v.kid->sibling, fp);
131              break;
132  
133          default:
# Line 97 | Line 135 | FILE  *fp;
135              quit(1);
136  
137      }
100 –
138   }
139  
140  
141 < dprint(name, fp)                /* print a definition (all if no name) */
142 < char  *name;
143 < FILE  *fp;
141 > void
142 > dprint(                 /* print a definition (all if no name) */
143 >        char  *name,
144 >        FILE  *fp
145 > )
146   {
147 <    register EPNODE  *ep;
147 >    EPNODE  *ep;
148      
149      if (name == NULL)
150          for (ep = dfirst(); ep != NULL; ep = dnext()) {

Diff Legend

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