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

Comparing ray/src/common/calprnt.c (file contents):
Revision 1.2 by greg, Wed Aug 14 16:26:34 1991 UTC vs.
Revision 2.3 by greg, Tue Feb 25 02:47:21 2003 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  
12   #include  "calcomp.h"
13  
14  
15 + void
16   eprint(ep, fp)                  /* print a parse tree */
17   register EPNODE  *ep;
18   FILE  *fp;
# Line 34 | Line 32 | FILE  *fp;
32  
33          case FUNC:
34              eprint(ep->v.kid, fp);
35 <            fputs("(", fp);
35 >            fputc('(', fp);
36              ep1 = ep->v.kid->sibling;
37              while (ep1 != NULL) {
38                  eprint(ep1, fp);
39                  if ((ep1 = ep1->sibling) != NULL)
40                      fputs(", ", fp);
41              }
42 <            fputs(")", fp);
42 >            fputc(')', fp);
43              break;
44  
45          case ARG:
# Line 58 | Line 56 | FILE  *fp;
56              break;
57  
58          case UMINUS:
59 <            fputs("-", fp);
59 >            fputc('-', fp);
60              eprint(ep->v.kid, fp);
61              break;
62  
# Line 71 | Line 69 | FILE  *fp;
69              ep1 = curdef;
70              curdef = ep;
71              eprint(ep->v.kid, fp);
72 <            putc(' ', fp);
73 <            putc(ep->type, fp);
74 <            putc(' ', fp);
72 >            fputc(' ', fp);
73 >            fputc(ep->type, fp);
74 >            fputc(' ', fp);
75              eprint(ep->v.kid->sibling, fp);
76              curdef = ep1;
77              break;
# Line 83 | Line 81 | FILE  *fp;
81          case '*':
82          case '/':
83          case '^':
84 <            fputs("(", fp);
84 >            fputc('(', fp);
85              eprint(ep->v.kid, fp);
86 <            putc(' ', fp);
87 <            putc(ep->type, fp);
88 <            putc(' ', fp);
86 >            fputc(' ', fp);
87 >            fputc(ep->type, fp);
88 >            fputc(' ', fp);
89              eprint(ep->v.kid->sibling, fp);
90 <            fputs(")", fp);
90 >            fputc(')', fp);
91              break;
92  
93          default:
# Line 101 | Line 99 | FILE  *fp;
99   }
100  
101  
102 + void
103   dprint(name, fp)                /* print a definition (all if no name) */
104   char  *name;
105   FILE  *fp;

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)