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.7 by greg, Fri Oct 2 16:12:46 1992 UTC vs.
Revision 2.16 by gwlarson, Thu Jun 3 14:15:01 1999 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1992 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 < extern char  *malloc(), *fgetword();
48 > int  nrept = 1;                         /* number of array repetitions */
49  
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  
# 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 */
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  
# Line 200 | Line 299 | 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;
# Line 218 | Line 317 | FILE  *fin;
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 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   {
# Line 408 | Line 549 | FILE  *fin;
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 428 | Line 569 | FILE  *fin;
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 636 | Line 777 | FILE  *fin;
777  
778   initotypes()                    /* initialize ofun[] array */
779   {
639 –        extern int  o_source();
640 –        extern int  o_sphere();
641 –        extern int  o_face();
642 –        extern int  o_cone();
643 –        extern int  o_cylinder();
644 –        extern int  o_ring();
645 –        extern int  m_glow();
646 –        extern int  m_spot();
647 –        extern int  m_dielectric();
648 –        extern int  m_interface();
649 –        extern int  text();
650 –        extern int  alias();
651 –        extern int  passargs();
652 –        extern int  addxform();
780          register int  i;
781  
782          if (ofun[OBJ_SOURCE].funp == o_source)
# Line 676 | 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 691 | 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