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

Comparing src/gen/xform.c (file contents):
Revision 2.11 by greg, Mon Dec 11 09:52:11 1995 UTC vs.
Revision 2.16 by gwlarson, Thu Jun 3 14:15:01 1999 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 < 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 206 | 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 224 | 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 412 | Line 505 | FILE  *fin;
505  
506          if (readfargs(&fa, fin) != 1)
507                  return(-1);
508 <        if (fa.nfargs > 5)
508 >        if (fa.nfargs > 7)
509                  return(-1);
510          printf("%d", fa.nsargs);
511          if (idprefix == NULL)
# Line 438 | Line 531 | FILE  *fin;
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 <        if (fa.nfargs > 3)
535 <                printf(" %12.6g", fa.farg[3]);
443 <        if (fa.nfargs > 4)
444 <                printf(" %12.6g", fa.farg[4]);
534 >        for (i = 3; i < fa.nfargs; i++)
535 >                printf(" %12.6g", fa.farg[i]);
536          printf("\n");
537          freefargs(&fa);
538          return(0);
# Line 729 | 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