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 2.10 by greg, Fri Dec 8 18:29:06 1995 UTC vs.
Revision 2.14 by greg, Mon Jun 24 09:27:39 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 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  
# Line 43 | Line 45 | FUN  ofun[NUMTYPES] = INIT_OTYPE;      /* default types and
45  
46   short  tinvers[NUMOTYPE];               /* inverse types for surfaces */
47  
48 + int  nrept = 1;                         /* number of array repetitions */
49 +
50   extern char  *malloc(), *fgetword();
51  
52 + char  mainfn[MAXPATH];                  /* main file name */
53 + FILE  *mainfp = NULL;                   /* main file pointer */
54 +
55   #define  progname  (xav[0])
56  
57  
# Line 52 | Line 59 | main(argc, argv)               /* get transform options and transfo
59   int  argc;
60   char  *argv[];
61   {
62 <        FILE  *fopen();
56 <        FILE  *fp;
62 >        char  *fname;
63          int  a;
64                                          /* check for array */
65          for (a = 1; a < argc; a++)
# Line 75 | Line 81 | char  *argv[];
81                                          break;
82                                  idprefix = argv[++a];
83                                  continue;
84 +                        case 'c':
85 +                                if (argv[a][2])
86 +                                        break;
87 +                                expand = 0;
88 +                                continue;
89                          case 'e':
90                                  if (argv[a][2])
91                                          break;
# Line 112 | Line 123 | char  *argv[];
123                  printf(" %s", xav[a]);
124          putchar('\n');
125                                          /* transform input */
126 <        if (xac == argc)
127 <                xform("standard input", stdin);
128 <        else
126 >        if (xac == argc) {
127 >                openmain(NULL);
128 >                xform(mainfn, mainfp);
129 >        } else
130                  for (a = xac; a < argc; a++) {
131 <                        if ((fp = fopen(argv[a], "r")) == NULL) {
132 <                                fprintf(stderr, "%s: cannot open \"%s\"\n",
121 <                                                progname, argv[a]);
122 <                                exit(1);
123 <                        }
124 <                        xform(argv[a], fp);
125 <                        fclose(fp);
131 >                        openmain(argv[a]);
132 >                        xform(mainfn, mainfp);
133                  }
134  
135          return(0);
# Line 136 | Line 143 | int  ac, ai;
143          char  *newav[256], **avp;
144          char  newid[128], repts[32];
145          char  *oldid = NULL;
146 <        int  i, err;
146 >        int  n, i, err;
147          
148          avp = newav+2;
149          avp[0] = av[0];
# Line 156 | Line 163 | int  ac, ai;
163                  avp = newav;
164                  ac += 2;
165          }
166 +        nrept *= n = atoi(av[ai+1]);
167          err = 0;
168 <        for (i = 0; i < atoi(av[ai+1]); i++) {
168 >        for (i = 0; i < n; i++) {
169                  if (oldid == NULL)
170                          sprintf(newid, "a%d", i);
171                  else
# Line 206 | Line 214 | xfcomm(fname, fin)                     /* transform a command */
214   char  *fname;
215   FILE  *fin;
216   {
217 <        FILE  *popen();
218 <        char  *fgetline();
217 >        extern FILE  *popen();
218 >        extern char  *fgetline();
219          FILE  *pin;
220          char  buf[512];
221          int  i;
# Line 224 | Line 232 | FILE  *fin;
232          } else {
233                  printf("\n%s", buf);
234                  if (xac > 1) {
235 <                        printf(" | %s -e", xav[0]);
235 >                        printf(" | %s", xav[0]);
236                          for (i = 1; i < xac; i++)
237                                  printf(" %s", xav[i]);
238                  }
# Line 408 | Line 416 | m_mist(fin)            /* transform arguments for mist */
416   FILE  *fin;
417   {
418          FUNARGS  fa;
419 +        int     i;
420  
421          if (readfargs(&fa, fin) != 1)
422                  return(-1);
423 <        if (fa.nsargs != 0  || fa.nfargs != 4)
423 >        if (fa.nfargs > 5)
424                  return(-1);
425 <        printf("0\n0\n4");
426 <        printf(" %18.12g %18.12g %18.12g", fa.farg[0]/tot.sca,
427 <                        fa.farg[1]/tot.sca, fa.farg[2]/tot.sca);
428 <        printf(" %18.12g\n", fa.farg[3]);
425 >        printf("%d", fa.nsargs);
426 >        if (idprefix == NULL)
427 >                for (i = 0; i < fa.nsargs; i++)
428 >                        printf(" %s", fa.sarg[i]);
429 >        else
430 >                for (i = 0; i < fa.nsargs; i++) {
431 >                        char    sname[256], *sp;
432 >                        register char   *cp1, *cp2 = sname;
433 >                                                        /* add idprefix */
434 >                        for (sp = fa.sarg[i]; *sp; sp = cp1) {
435 >                                for (cp1 = idprefix; *cp1; )
436 >                                        *cp2++ = *cp1++;
437 >                                *cp2++ = '.';
438 >                                for (cp1 = sp; *cp1 &&
439 >                                                (*cp2++ = *cp1++) != '>'; )
440 >                                        ;
441 >                        }
442 >                        *cp2 = '\0';
443 >                        printf(" %s", sname);
444 >                }
445 >        printf("\n0\n%d", fa.nfargs);
446 >        if (fa.nfargs > 2)
447 >                printf(" %12.6g %12.6g %12.6g", fa.farg[0]/tot.sca,
448 >                                fa.farg[1]/tot.sca, fa.farg[2]/tot.sca);
449 >        if (fa.nfargs > 3)
450 >                printf(" %12.6g", fa.farg[3]);
451 >        if (fa.nfargs > 4)
452 >                printf(" %12.6g", fa.farg[4]);
453 >        printf("\n");
454          freefargs(&fa);
455          return(0);
456   }
# Line 432 | Line 466 | FILE  *fin;
466          if (fa.nsargs != 0  || fa.nfargs != 5)
467                  return(-1);
468          printf("0\n0\n5");
469 <        printf(" %18.12g %18.12g %18.12g",
469 >        printf(" %12.6g %12.6g %12.6g",
470                  pow(fa.farg[0], 1.0/tot.sca),
471                  pow(fa.farg[1], 1.0/tot.sca),
472                  pow(fa.farg[2], 1.0/tot.sca));
473 <        printf(" %18.12g %18.12g\n", fa.farg[3], fa.farg[4]);
473 >        printf(" %12.6g %12.6g\n", fa.farg[3], fa.farg[4]);
474          freefargs(&fa);
475          return(0);
476   }
# Line 452 | Line 486 | FILE  *fin;
486          if (fa.nsargs != 0  || fa.nfargs != 8)
487                  return(-1);
488          printf("0\n0\n8\n");
489 <        printf("%18.12g %18.12g %18.12g",
489 >        printf("%12.6g %12.6g %12.6g",
490                  pow(fa.farg[0], 1.0/tot.sca),
491                  pow(fa.farg[1], 1.0/tot.sca),
492                  pow(fa.farg[2], 1.0/tot.sca));
493 <        printf(" %18.12g\n", fa.farg[3]);
494 <        printf("%18.12g %18.12g %18.12g",
493 >        printf(" %12.6g\n", fa.farg[3]);
494 >        printf("%12.6g %12.6g %12.6g",
495                  pow(fa.farg[4], 1.0/tot.sca),
496                  pow(fa.farg[5], 1.0/tot.sca),
497                  pow(fa.farg[6], 1.0/tot.sca));
498 <        printf(" %18.12g\n", fa.farg[7]);
498 >        printf(" %12.6g\n", fa.farg[7]);
499          freefargs(&fa);
500          return(0);
501   }
# Line 703 | Line 737 | initotypes()                   /* initialize ofun[] array */
737          tinvers[OBJ_TUBE] = OBJ_CYLINDER;
738          tinvers[OBJ_INSTANCE] = OBJ_INSTANCE;   /* oh, well */
739   }
740 +
741 +
742 + #ifdef  OLDXFORM
743 + openmain(fname)
744 + char  *fname;
745 + {
746 +        if (fname == NULL) {
747 +                strcpy(mainfn, "standard input");
748 +                mainfp = stdin;
749 +                return;
750 +        }
751 +        if (mainfp != NULL) {
752 +                if (!strcmp(fname, mainfn)) {
753 +                        rewind(mainfp);
754 +                        return;
755 +                }
756 +                fclose(mainfp);
757 +        }
758 +        if ((mainfp = fopen(fname, "r")) == NULL) {
759 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
760 +                                progname, fname);
761 +                exit(1);
762 +        }
763 +        strcpy(mainfn, fname);
764 + }
765 + #else
766 + openmain(fname)         /* open fname for input, changing to its directory */
767 + char  *fname;
768 + {
769 +        extern FILE  *tmpfile();
770 +        extern char  *getlibpath(), *getpath();
771 +        static char  origdir[MAXPATH];
772 +        static char  curfn[MAXPATH];
773 +        static int  diffdir;
774 +        register char  *fpath;
775 +
776 +        if (fname == NULL) {                    /* standard input */
777 +                if (mainfp == NULL) {
778 +                        register int  c;
779 +                        strcpy(mainfn, "standard input");
780 +                        if (nrept <= 1) {
781 +                                mainfp = stdin;
782 +                                return;                 /* just read once */
783 +                        }
784 +                                                        /* else copy */
785 +                        if ((mainfp = tmpfile()) == NULL) {
786 +                                fprintf(stderr,
787 +                                        "%s: cannot create temporary file\n",
788 +                                                progname);
789 +                                exit(1);
790 +                        }
791 +                        while ((c = getc(stdin)) != EOF)
792 +                                putc(c, mainfp);
793 +                        fclose(stdin);
794 +                }
795 +                rewind(mainfp);                 /* rewind copy */
796 +                return;
797 +        }
798 +        if (mainfp == NULL) {                   /* first call, initialize */
799 +                getwd(origdir);
800 +        } else if (!strcmp(fname, curfn)) {     /* just need to rewind? */
801 +                rewind(mainfp);
802 +                return;
803 +        } else {                                /* else close old stream */
804 +                fclose(mainfp);
805 +                if (diffdir) {
806 +                        chdir(origdir);
807 +                        diffdir = 0;
808 +                }
809 +        }
810 +        strcpy(curfn, fname);                   /* remember file name */
811 +                                                /* get full path */
812 +        if ((fpath = getpath(fname, getlibpath(), R_OK)) == NULL) {
813 +                fprintf(stderr, "%s: cannot find file \"%s\"\n",
814 +                                progname, fname);
815 +                exit(1);
816 +        }
817 +        if (fpath[0] == '.' && ISDIRSEP(fpath[1]))      /* remove leading ./ */
818 +                fpath += 2;
819 +                                                /* record path name */
820 +        strcpy(mainfn, fpath);
821 +        if (expand) {                           /* change to local directory */
822 +                register char  *cp = fpath + strlen(fpath);     /* get dir. */
823 +                while (cp > fpath) {
824 +                        cp--;
825 +                        if (ISDIRSEP(*cp)) {
826 +                                if (cp == fpath)
827 +                                        cp++;   /* root special case */
828 +                                break;
829 +                        }
830 +                }
831 +                *cp = '\0';
832 +                if (fpath[0]) {                 /* change to new directory? */
833 +                        if (chdir(fpath) < 0) {
834 +                                fprintf(stderr,
835 +                                "%s: cannot change directory to \"%s\"\n",
836 +                                                progname, fpath);
837 +                                exit(1);
838 +                        }
839 +                        diffdir++;
840 +                }
841 +                                                /* get final path component */
842 +                for (fpath = fname+strlen(fname);
843 +                                fpath > fname && !ISDIRSEP(fpath[-1]); fpath--)
844 +                        ;
845 +        }
846 +                                                /* open the file */
847 +        if ((mainfp = fopen(fpath, "r")) == NULL) {
848 +                fprintf(stderr, "%s: cannot open file \"%s\"\n",
849 +                                progname, mainfn);
850 +                exit(1);
851 +        }
852 + }
853 + #endif

Diff Legend

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