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

Comparing ray/src/gen/xform.c (file contents):
Revision 1.17 by greg, Wed Oct 23 15:37:47 1991 UTC vs.
Revision 2.16 by gwlarson, Thu Jun 3 14:15:01 1999 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1991 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 14 | Line 14 | static char SCCSid[] = "$SunId$ LBL";
14  
15   #include  "standard.h"
16  
17 + #include  "paths.h"
18 +
19   #include  <ctype.h>
20  
21   #include  "object.h"
# Line 29 | Line 31 | int  reverse;                          /* boolean true if scene mirrored */
31  
32   int  invert = 0;                        /* boolean true to invert surfaces */
33  
34 < int  expand = 0;                        /* boolean true to expand commands */
34 > int  expand = 1;                        /* boolean true to expand commands */
35  
36   char  *newmod = NULL;                   /* new modifier for surfaces */
37  
38   char  *idprefix = NULL;                 /* prefix for object identifiers */
39  
40 < #define  ALIAS          NUMOTYPE        /* put alias at end of array */
40 > #define  ALIAS          NUMOTYPE        /* put alias at end of array */
41  
42 < #define  NUMTYPES       (NUMOTYPE+1)    /* total number of object types */
42 > #define  NUMTYPES       (NUMOTYPE+1)    /* total number of object types */
43  
44   FUN  ofun[NUMTYPES] = INIT_OTYPE;       /* default types and actions */
45  
46   short  tinvers[NUMOTYPE];               /* inverse types for surfaces */
47  
48 < extern char  *malloc(), *fgetword();
48 > int  nrept = 1;                         /* number of array repetitions */
49  
50 < #define  progname  (xav[0])
50 > extern char  *malloc(), *fgets(), *fgetword();
51  
52 + char  mainfn[MAXPATH];                  /* main file name */
53 + FILE  *mainfp = NULL;                   /* main file pointer */
54  
55 + #define  progname  (xav[0])
56 +
57 +
58   main(argc, argv)                /* get transform options and transform file */
59   int  argc;
60   char  *argv[];
61   {
62 <        FILE  *fopen();
56 <        FILE  *fp;
62 >        char  *fname;
63          int  a;
64 <                                        /* check for array */
64 >                                        /* check for argument list file */
65          for (a = 1; a < argc; a++)
66 +                if (!strcmp(argv[a], "-f"))
67 +                        return(doargf(argc, argv, a));
68 +                                        /* check for regular array */
69 +        for (a = 1; a < argc; a++)
70                  if (!strcmp(argv[a], "-a"))
71                          return(doarray(argc, argv, a));
72  
# Line 75 | Line 85 | char  *argv[];
85                                          break;
86                                  idprefix = argv[++a];
87                                  continue;
88 +                        case 'c':
89 +                                if (argv[a][2])
90 +                                        break;
91 +                                expand = 0;
92 +                                continue;
93                          case 'e':
94                                  if (argv[a][2])
95                                          break;
# Line 112 | Line 127 | char  *argv[];
127                  printf(" %s", xav[a]);
128          putchar('\n');
129                                          /* transform input */
130 <        if (xac == argc)
131 <                xform("standard input", stdin);
132 <        else
130 >        if (xac == argc) {
131 >                openmain(NULL);
132 >                xform(mainfn, mainfp);
133 >        } else
134                  for (a = xac; a < argc; a++) {
135 <                        if ((fp = fopen(argv[a], "r")) == NULL) {
136 <                                fprintf(stderr, "%s: cannot open \"%s\"\n",
121 <                                                progname, argv[a]);
122 <                                exit(1);
123 <                        }
124 <                        xform(argv[a], fp);
125 <                        fclose(fp);
135 >                        openmain(argv[a]);
136 >                        xform(mainfn, mainfp);
137                  }
138  
139          return(0);
140   }
141  
142  
143 + doargf(ac, av, fi)                      /* take argument list from file */
144 + char  **av;
145 + int  ac, fi;
146 + {
147 +        char  *newav[256], **avp;
148 +        char  argbuf[2048];
149 +        char  newid[128];
150 +        char  *oldid;
151 +        register char   *cp;
152 +        FILE    *argfp;
153 +        int  n, i, k, newac, err;
154 +        
155 +        if (fi >= ac-1 || av[fi+1][0] == '-') {
156 +                fprintf(stderr, "%s: missing file for -f option\n", av[0]);
157 +                exit(1);
158 +        }
159 +        if ((argfp = fopen(av[fi+1], "r")) == NULL) {
160 +                fprintf(stderr, "%s: cannot open argument file \"%s\"\n",
161 +                                av[0], av[fi+1]);
162 +                exit(1);
163 +        }
164 +        n = 0;                  /* count number of lines in file */
165 +        while (fgets(argbuf, sizeof(argbuf), argfp) != NULL)
166 +                n++;
167 +        if (!n) {
168 +                fprintf(stderr, "%s: empty argument file \"%s\"\n",
169 +                                av[0], av[fi+1]);
170 +                exit(1);
171 +        }
172 +        rewind(argfp);
173 +        nrept *= n;
174 +        err = 0;                        /* read each arg list and call main */
175 +        for (k = 0; k < n; k++) {
176 +                fgets(argbuf, sizeof(argbuf), argfp);
177 +                avp = newav+2;
178 +                avp[0] = av[0];
179 +                for (i = 1; i < fi; i++)
180 +                        avp[i] = av[i];
181 +                newac = i;
182 +                cp = argbuf;                    /* parse new words */
183 +                for ( ; ; ) {
184 +                        while (isspace(*cp))    /* nullify spaces */
185 +                                *cp++ = '\0';
186 +                        if (!*cp)               /* all done? */
187 +                                break;
188 +                        avp[newac++] = cp;      /* add argument to list */
189 +                        while (*++cp && !isspace(*cp))
190 +                                ;
191 +                }
192 +                for (i = fi+2; i < ac; i++)
193 +                        avp[newac++] = av[i];
194 +                avp[newac] = NULL;
195 +                oldid = NULL;
196 +                for (i = 2; i < newac; i++)
197 +                        if (!strcmp(avp[i-1], "-n")) {
198 +                                oldid = avp[i];
199 +                                avp[i] = newid;
200 +                                break;
201 +                        }
202 +                if (oldid == NULL) {
203 +                        newav[0] = av[0];
204 +                        newav[1] = "-n";
205 +                        newav[2] = newid;
206 +                        avp = newav;
207 +                        newac += 2;
208 +                }
209 +                if (oldid == NULL)
210 +                        sprintf(newid, "i%d", k);
211 +                else
212 +                        sprintf(newid, "%s.%d", oldid, k);
213 +                err |= main(newac, avp);
214 +        }
215 +        fclose(argfp);
216 +        return(err);
217 + }
218 +
219 +
220   doarray(ac, av, ai)                     /* make array */
221   char  **av;
222   int  ac, ai;
# Line 136 | Line 224 | int  ac, ai;
224          char  *newav[256], **avp;
225          char  newid[128], repts[32];
226          char  *oldid = NULL;
227 <        int  i, err;
227 >        int  n, i, err;
228          
229 +        if (ai >= ac-1 || (n = atoi(av[ai+1])) <= 0) {
230 +                fprintf(stderr, "%s: missing count for -a option\n", av[0]);
231 +                exit(1);
232 +        }
233 +        nrept *= n;
234          avp = newav+2;
235          avp[0] = av[0];
236          for (i = 1; i < ac; i++)
# Line 157 | Line 250 | int  ac, ai;
250                  ac += 2;
251          }
252          err = 0;
253 <        for (i = 0; i < atoi(av[ai+1]); i++) {
253 >        for (i = 0; i < n; i++) {
254                  if (oldid == NULL)
255                          sprintf(newid, "a%d", i);
256                  else
# Line 173 | Line 266 | xform(name, fin)                       /* transform stream by tot.xfm */
266   char  *name;
267   register FILE  *fin;
268   {
269 +        int  nobjs = 0;
270          register int  c;
271  
272          while ((c = getc(fin)) != EOF) {
# Line 188 | Line 282 | register FILE  *fin;
282                  } else if (c == '!') {                  /* command */
283                          ungetc(c, fin);
284                          xfcomm(name, fin);
285 +                        nobjs++;
286                  } else {                                /* object */
287                          ungetc(c, fin);
288                          xfobject(name, fin);
289 +                        nobjs++;
290                  }
291          }
292 +        if (nobjs == 0)
293 +                fprintf(stderr, "%s: (%s): warning - empty file\n",
294 +                                progname, name);
295   }
296  
297  
298   xfcomm(fname, fin)                      /* transform a command */
299 + char  *fname;
300   FILE  *fin;
301   {
302 <        FILE  *popen();
303 <        char  *fgetline();
302 >        extern FILE  *popen();
303 >        extern char  *fgetline();
304          FILE  *pin;
305          char  buf[512];
306          int  i;
307  
308          fgetline(buf, sizeof(buf), fin);
309          if (expand) {
310 <                if (xac > 2) {
311 <                        if ((pin = popen(buf+1, "r")) == NULL) {
312 <                                fprintf(stderr,
313 <                                "%s: (%s): cannot execute \"%s\"\n",
214 <                                                progname, fname, buf);
215 <                                exit(1);
216 <                        }
217 <                        xform(buf, pin);
218 <                        pclose(pin);
219 <                } else {
220 <                        fflush(stdout);
221 <                        system(buf+1);
310 >                if ((pin = popen(buf+1, "r")) == NULL) {
311 >                        fprintf(stderr, "%s: (%s): cannot execute \"%s\"\n",
312 >                                        progname, fname, buf);
313 >                        exit(1);
314                  }
315 +                xform(buf, pin);
316 +                pclose(pin);
317          } else {
318                  printf("\n%s", buf);
319                  if (xac > 1) {
320 <                        printf(" | %s -e", xav[0]);
320 >                        printf(" | %s", xav[0]);
321                          for (i = 1; i < xac; i++)
322                                  printf(" %s", xav[i]);
323                  }
# Line 248 | Line 342 | FILE  *fin;
342                                  progname, fname, typ);
343                  exit(1);
344          }
345 <        if (issurface(fn))
345 >        if (ismodifier(fn))
346 >                printf("\n%s %s ", nam, typ);
347 >        else
348                  printf("\n%s %s ", newmod != NULL ? newmod : nam,
349                                  invert ? ofun[tinvers[fn]].funame : typ);
254 –        else
255 –                printf("\n%s %s ", nam, typ);
350                                                  /* object name */
351          fgetword(nam, sizeof(nam), fin);
352 <        if (idprefix != NULL && issurface(fn))
259 <                printf("%s.%s\n", idprefix, nam);
260 <        else
352 >        if (idprefix == NULL || ismodifier(fn))
353                  printf("%s\n", nam);
354 +        else
355 +                printf("%s.%s\n", idprefix, nam);
356                                                  /* transform arguments */
357          if ((*ofun[fn].funp)(fin) < 0) {
358                  fprintf(stderr, "%s: (%s): bad %s \"%s\"\n",
# Line 272 | Line 366 | o_default(fin)                 /* pass on arguments unchanged */
366   FILE  *fin;
367   {
368          register int  i;
369 <        FUNARGS  fa;
369 >        FUNARGS  fa;
370  
371          if (readfargs(&fa, fin) != 1)
372                  return(-1);
# Line 281 | Line 375 | FILE  *fin;
375          for (i = 0; i < fa.nsargs; i++)
376                  printf(" %s", fa.sarg[i]);
377          printf("\n");
378 < #ifdef  IARGS
378 > #ifdef  IARGS
379                                          /* integer arguments */
380          printf("%d", fa.niargs);
381          for (i = 0; i < fa.niargs; i++)
# Line 304 | Line 398 | addxform(fin)                  /* add xf arguments to strings */
398   FILE  *fin;
399   {
400          register int  i;
401 <        FUNARGS  fa;
401 >        int  resetarr = 0;
402 >        FUNARGS  fa;
403  
404          if (readfargs(&fa, fin) != 1)
405                  return(-1);
406                                          /* string arguments */
407 <        printf("%d", fa.nsargs + xac-xfa);
407 >        if (xac > xfa && strcmp(xav[xfa], "-i"))
408 >                resetarr = 2;
409 >        printf("%d", fa.nsargs + resetarr + xac-xfa);
410          for (i = 0; i < fa.nsargs; i++)
411                  printf(" %s", fa.sarg[i]);
412 +        if (resetarr)
413 +                printf(" -i 1");
414          for (i = xfa; i < xac; i++)     /* add xf arguments */
415                  printf(" %s", xav[i]);
416          printf("\n");
417 < #ifdef  IARGS
417 > #ifdef  IARGS
418                                          /* integer arguments */
419          printf("%d", fa.niargs);
420          for (i = 0; i < fa.niargs; i++)
# Line 363 | Line 462 | FILE  *fin;
462   m_glow(fin)                     /* transform arguments for proximity light */
463   FILE  *fin;
464   {
465 <        FUNARGS  fa;
465 >        FUNARGS  fa;
466  
467          if (readfargs(&fa, fin) != 1)
468                  return(-1);
# Line 382 | Line 481 | m_spot(fin)                    /* transform arguments for spotlight */
481   FILE  *fin;
482   {
483          FVECT  v;
484 <        FUNARGS  fa;
484 >        FUNARGS  fa;
485  
486          if (readfargs(&fa, fin) != 1)
487                  return(-1);
# Line 398 | Line 497 | FILE  *fin;
497   }
498  
499  
500 + m_mist(fin)             /* transform arguments for mist */
501 + FILE  *fin;
502 + {
503 +        FUNARGS  fa;
504 +        int     i;
505 +
506 +        if (readfargs(&fa, fin) != 1)
507 +                return(-1);
508 +        if (fa.nfargs > 7)
509 +                return(-1);
510 +        printf("%d", fa.nsargs);
511 +        if (idprefix == NULL)
512 +                for (i = 0; i < fa.nsargs; i++)
513 +                        printf(" %s", fa.sarg[i]);
514 +        else
515 +                for (i = 0; i < fa.nsargs; i++) {
516 +                        char    sname[256], *sp;
517 +                        register char   *cp1, *cp2 = sname;
518 +                                                        /* add idprefix */
519 +                        for (sp = fa.sarg[i]; *sp; sp = cp1) {
520 +                                for (cp1 = idprefix; *cp1; )
521 +                                        *cp2++ = *cp1++;
522 +                                *cp2++ = '.';
523 +                                for (cp1 = sp; *cp1 &&
524 +                                                (*cp2++ = *cp1++) != '>'; )
525 +                                        ;
526 +                        }
527 +                        *cp2 = '\0';
528 +                        printf(" %s", sname);
529 +                }
530 +        printf("\n0\n%d", fa.nfargs);
531 +        if (fa.nfargs > 2)
532 +                printf(" %12.6g %12.6g %12.6g", fa.farg[0]/tot.sca,
533 +                                fa.farg[1]/tot.sca, fa.farg[2]/tot.sca);
534 +        for (i = 3; i < fa.nfargs; i++)
535 +                printf(" %12.6g", fa.farg[i]);
536 +        printf("\n");
537 +        freefargs(&fa);
538 +        return(0);
539 + }
540 +
541 +
542   m_dielectric(fin)               /* transform arguments for dielectric */
543   FILE  *fin;
544   {
545 <        double  pow();
405 <        FUNARGS  fa;
545 >        FUNARGS  fa;
546  
547          if (readfargs(&fa, fin) != 1)
548                  return(-1);
549          if (fa.nsargs != 0  || fa.nfargs != 5)
550                  return(-1);
551          printf("0\n0\n5");
552 <        printf(" %18.12g %18.12g %18.12g",
552 >        printf(" %12.6g %12.6g %12.6g",
553                  pow(fa.farg[0], 1.0/tot.sca),
554                  pow(fa.farg[1], 1.0/tot.sca),
555                  pow(fa.farg[2], 1.0/tot.sca));
556 <        printf(" %18.12g %18.12g\n", fa.farg[3], fa.farg[4]);
556 >        printf(" %12.6g %12.6g\n", fa.farg[3], fa.farg[4]);
557          freefargs(&fa);
558          return(0);
559   }
# Line 422 | Line 562 | FILE  *fin;
562   m_interface(fin)                /* transform arguments for interface */
563   FILE  *fin;
564   {
565 <        double  pow();
426 <        FUNARGS  fa;
565 >        FUNARGS  fa;
566  
567          if (readfargs(&fa, fin) != 1)
568                  return(-1);
569          if (fa.nsargs != 0  || fa.nfargs != 8)
570                  return(-1);
571          printf("0\n0\n8\n");
572 <        printf("%18.12g %18.12g %18.12g",
572 >        printf("%12.6g %12.6g %12.6g",
573                  pow(fa.farg[0], 1.0/tot.sca),
574                  pow(fa.farg[1], 1.0/tot.sca),
575                  pow(fa.farg[2], 1.0/tot.sca));
576 <        printf(" %18.12g\n", fa.farg[3]);
577 <        printf("%18.12g %18.12g %18.12g",
576 >        printf(" %12.6g\n", fa.farg[3]);
577 >        printf("%12.6g %12.6g %12.6g",
578                  pow(fa.farg[4], 1.0/tot.sca),
579                  pow(fa.farg[5], 1.0/tot.sca),
580                  pow(fa.farg[6], 1.0/tot.sca));
581 <        printf(" %18.12g\n", fa.farg[7]);
581 >        printf(" %12.6g\n", fa.farg[7]);
582          freefargs(&fa);
583          return(0);
584   }
# Line 450 | Line 589 | FILE  *fin;
589   {
590          int  i;
591          FVECT  v;
592 <        FUNARGS  fa;
592 >        FUNARGS  fa;
593  
594          if (readfargs(&fa, fin) != 1)
595                  return(-1);
596 <        if (fa.nfargs != 9 && fa.nfargs != 11 && fa.nfargs != 15)
596 >        if (fa.nfargs < 9)
597                  return(-1);
598                                          /* string arguments */
599          printf("%d", fa.nsargs);
# Line 469 | Line 608 | FILE  *fin;
608          printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
609                                          /* down vector */
610          multv3(v, fa.farg+6, tot.xfm);
611 <        printf(" %18.12g %18.12g %18.12g\n", v[0], v[1], v[2]);
612 <                                        /* forground and background */
613 <        if (fa.nfargs == 11)
614 <                printf(" %18.12g %18.12g\n", fa.farg[9], fa.farg[10]);
615 <        else if (fa.nfargs == 15) {
616 <                printf(" %18.12g %18.12g %18.12g\n",
478 <                                fa.farg[9], fa.farg[10], fa.farg[11]);
479 <                printf(" %18.12g %18.12g %18.12g\n",
480 <                                fa.farg[12], fa.farg[13], fa.farg[14]);
611 >        printf(" %18.12g %18.12g %18.12g", v[0], v[1], v[2]);
612 >                                        /* remaining arguments */
613 >        for (i = 9; i < fa.nfargs; i++) {
614 >                if (i%3 == 0)
615 >                        putchar('\n');
616 >                printf(" %18.12g", fa.farg[i]);
617          }
618 +        putchar('\n');
619          freefargs(&fa);
620          return(0);
621   }
# Line 488 | Line 625 | o_source(fin)                  /* transform source arguments */
625   FILE  *fin;
626   {
627          FVECT  dv;
628 <        FUNARGS  fa;
628 >        FUNARGS  fa;
629  
630          if (readfargs(&fa, fin) != 1)
631                  return(-1);
# Line 509 | Line 646 | o_sphere(fin)                  /* transform sphere arguments */
646   FILE  *fin;
647   {
648          FVECT  cent;
649 <        double  rad;
650 <        FUNARGS  fa;
649 >        double  rad;
650 >        FUNARGS  fa;
651  
652          if (readfargs(&fa, fin) != 1)
653                  return(-1);
654          if (fa.nsargs != 0  || fa.nfargs != 4)
655                  return(-1);
656          
657 <        multp3(cent, fa.farg, tot.xfm); /* transform center */
657 >        multp3(cent, fa.farg, tot.xfm); /* transform center */
658          
659          rad = fa.farg[3] * tot.sca;             /* scale radius */
660          
# Line 534 | Line 671 | FILE  *fin;
671   {
672          FVECT  p;
673          register int  i;
674 <        FUNARGS  fa;
674 >        FUNARGS  fa;
675  
676          if (readfargs(&fa, fin) != 1)
677                  return(-1);
# Line 559 | Line 696 | o_cone(fin)                    /* transform cone and cup arguments */
696   FILE  *fin;
697   {
698          FVECT  p0, p1;
699 <        double  r0, r1;
700 <        FUNARGS  fa;
699 >        double  r0, r1;
700 >        FUNARGS  fa;
701  
702          if (readfargs(&fa, fin) != 1)
703                  return(-1);
# Line 586 | Line 723 | o_cylinder(fin)                        /* transform cylinder and tube argum
723   FILE  *fin;
724   {
725          FVECT  p0, p1;
726 <        double  rad;
727 <        FUNARGS  fa;
726 >        double  rad;
727 >        FUNARGS  fa;
728  
729          if (readfargs(&fa, fin) != 1)
730                  return(-1);
# Line 611 | Line 748 | o_ring(fin)                    /* transform ring arguments */
748   FILE  *fin;
749   {
750          FVECT  p0, pd;
751 <        double  r0, r1;
752 <        FUNARGS  fa;
751 >        double  r0, r1;
752 >        FUNARGS  fa;
753  
754          if (readfargs(&fa, fin) != 1)
755                  return(-1);
# Line 640 | Line 777 | FILE  *fin;
777  
778   initotypes()                    /* initialize ofun[] array */
779   {
643 –        extern int  o_source();
644 –        extern int  o_sphere();
645 –        extern int  o_face();
646 –        extern int  o_cone();
647 –        extern int  o_cylinder();
648 –        extern int  o_ring();
649 –        extern int  m_glow();
650 –        extern int  m_spot();
651 –        extern int  m_dielectric();
652 –        extern int  m_interface();
653 –        extern int  text();
654 –        extern int  alias();
655 –        extern int  passargs();
656 –        extern int  addxform();
780          register int  i;
781  
782          if (ofun[OBJ_SOURCE].funp == o_source)
# Line 680 | Line 803 | initotypes()                   /* initialize ofun[] array */
803          ofun[MAT_SPOT].funp = m_spot;
804          ofun[MAT_DIELECTRIC].funp = m_dielectric;
805          ofun[MAT_INTERFACE].funp = m_interface;
806 +        ofun[MAT_MIST].funp = m_mist;
807          ofun[PAT_CTEXT].funp =
808          ofun[PAT_BTEXT].funp =
809          ofun[MIX_TEXT].funp = text;
810          ofun[ALIAS].funp = alias;
811                                          /* surface inverses */
812 +        tinvers[OBJ_FACE] = OBJ_FACE;
813          tinvers[OBJ_SOURCE] = OBJ_SOURCE;
814          tinvers[OBJ_CONE] = OBJ_CUP;
815          tinvers[OBJ_CUP] = OBJ_CONE;
# Line 695 | Line 820 | initotypes()                   /* initialize ofun[] array */
820          tinvers[OBJ_TUBE] = OBJ_CYLINDER;
821          tinvers[OBJ_INSTANCE] = OBJ_INSTANCE;   /* oh, well */
822   }
823 +
824 +
825 + #ifdef  OLDXFORM
826 + openmain(fname)
827 + char  *fname;
828 + {
829 +        if (fname == NULL) {
830 +                strcpy(mainfn, "standard input");
831 +                mainfp = stdin;
832 +                return;
833 +        }
834 +        if (mainfp != NULL) {
835 +                if (!strcmp(fname, mainfn)) {
836 +                        rewind(mainfp);
837 +                        return;
838 +                }
839 +                fclose(mainfp);
840 +        }
841 +        if ((mainfp = fopen(fname, "r")) == NULL) {
842 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
843 +                                progname, fname);
844 +                exit(1);
845 +        }
846 +        strcpy(mainfn, fname);
847 + }
848 + #else
849 + openmain(fname)         /* open fname for input, changing to its directory */
850 + char  *fname;
851 + {
852 +        extern FILE  *tmpfile();
853 +        extern char  *getlibpath(), *getpath();
854 +        static char  origdir[MAXPATH];
855 +        static char  curfn[MAXPATH];
856 +        static int  diffdir;
857 +        register char  *fpath;
858 +
859 +        if (fname == NULL) {                    /* standard input */
860 +                if (mainfp == NULL) {
861 +                        register int  c;
862 +                        strcpy(mainfn, "standard input");
863 +                        if (nrept <= 1) {
864 +                                mainfp = stdin;
865 +                                return;                 /* just read once */
866 +                        }
867 +                                                        /* else copy */
868 +                        if ((mainfp = tmpfile()) == NULL) {
869 +                                fprintf(stderr,
870 +                                        "%s: cannot create temporary file\n",
871 +                                                progname);
872 +                                exit(1);
873 +                        }
874 +                        while ((c = getc(stdin)) != EOF)
875 +                                putc(c, mainfp);
876 +                        fclose(stdin);
877 +                }
878 +                rewind(mainfp);                 /* rewind copy */
879 +                return;
880 +        }
881 +        if (mainfp == NULL) {                   /* first call, initialize */
882 +                getwd(origdir);
883 +        } else if (!strcmp(fname, curfn)) {     /* just need to rewind? */
884 +                rewind(mainfp);
885 +                return;
886 +        } else {                                /* else close old stream */
887 +                fclose(mainfp);
888 +                if (diffdir) {
889 +                        chdir(origdir);
890 +                        diffdir = 0;
891 +                }
892 +        }
893 +        strcpy(curfn, fname);                   /* remember file name */
894 +                                                /* get full path */
895 +        if ((fpath = getpath(fname, getlibpath(), R_OK)) == NULL) {
896 +                fprintf(stderr, "%s: cannot find file \"%s\"\n",
897 +                                progname, fname);
898 +                exit(1);
899 +        }
900 +        if (fpath[0] == '.' && ISDIRSEP(fpath[1]))      /* remove leading ./ */
901 +                fpath += 2;
902 +                                                /* record path name */
903 +        strcpy(mainfn, fpath);
904 +        if (expand) {                           /* change to local directory */
905 +                register char  *cp = fpath + strlen(fpath);     /* get dir. */
906 +                while (cp > fpath) {
907 +                        cp--;
908 +                        if (ISDIRSEP(*cp)) {
909 +                                if (cp == fpath)
910 +                                        cp++;   /* root special case */
911 +                                break;
912 +                        }
913 +                }
914 +                *cp = '\0';
915 +                if (fpath[0]) {                 /* change to new directory? */
916 +                        if (chdir(fpath) < 0) {
917 +                                fprintf(stderr,
918 +                                "%s: cannot change directory to \"%s\"\n",
919 +                                                progname, fpath);
920 +                                exit(1);
921 +                        }
922 +                        diffdir++;
923 +                }
924 +                                                /* get final path component */
925 +                for (fpath = fname+strlen(fname);
926 +                                fpath > fname && !ISDIRSEP(fpath[-1]); fpath--)
927 +                        ;
928 +        }
929 +                                                /* open the file */
930 +        if ((mainfp = fopen(fpath, "r")) == NULL) {
931 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
932 +                                progname, mainfn);
933 +                exit(1);
934 +        }
935 + }
936 + #endif

Diff Legend

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