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.15 by gregl, Fri May 30 18:24:32 1997 UTC vs.
Revision 2.23 by greg, Sat Feb 22 02:07:24 2003 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1996 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   *  xform.c - program to transform object files.
6   *              Transformations must preserve aspect ratio.
# Line 29 | Line 26 | int  xfa;                              /* start of xf arguments */
26   XF  tot;                                /* total transformation */
27   int  reverse;                           /* boolean true if scene mirrored */
28  
29 < int  invert = 0;                        /* boolean true to invert surfaces */
29 > int  invert;                            /* boolean true to invert surfaces */
30  
31 < int  expand = 1;                        /* boolean true to expand commands */
31 > int  expand;                            /* boolean true to expand commands */
32  
33 < char  *newmod = NULL;                   /* new modifier for surfaces */
33 > char  *newmod;                          /* new modifier for surfaces */
34  
35 < char  *idprefix = NULL;                 /* prefix for object identifiers */
35 > char  *idprefix;                        /* prefix for object identifiers */
36  
37   #define  ALIAS          NUMOTYPE        /* put alias at end of array */
38  
# Line 47 | Line 44 | short  tinvers[NUMOTYPE];              /* inverse types for surfac
44  
45   int  nrept = 1;                         /* number of array repetitions */
46  
47 < extern char  *malloc(), *fgetword();
47 > int stdinused = 0;                      /* stdin has been used by -f option? */
48  
49   char  mainfn[MAXPATH];                  /* main file name */
50   FILE  *mainfp = NULL;                   /* main file pointer */
# Line 59 | Line 56 | main(argc, argv)               /* get transform options and transfo
56   int  argc;
57   char  *argv[];
58   {
59 +        int  mal_prefix = 0;
60          char  *fname;
61          int  a;
62 <                                        /* check for array */
62 >                                        /* check for argument list file */
63          for (a = 1; a < argc; a++)
64 +                if (!strcmp(argv[a], "-f"))
65 +                        return(doargf(argc, argv, a));
66 +                                        /* check for regular array */
67 +        for (a = 1; a < argc; a++)
68                  if (!strcmp(argv[a], "-a"))
69                          return(doarray(argc, argv, a));
70  
71 <        initotypes();
71 >        initotypes();                   /* initialize */
72 >        invert = 0;
73 >        expand = 1;
74 >        newmod = NULL;
75 >        idprefix = NULL;
76  
77          for (a = 1; a < argc; a++) {
78                  if (argv[a][0] == '-')
79                          switch (argv[a][1]) {
80                          case 'm':
81 <                                if (argv[a][2] || a+1 >= argc)
81 >                                if (argv[a][2] | a+1 >= argc)
82                                          break;
83 <                                newmod = argv[++a];
83 >                                a++;
84 >                                if (newmod == NULL)
85 >                                        newmod = argv[a];
86                                  continue;
87                          case 'n':
88 <                                if (argv[a][2] || a+1 >= argc)
88 >                                if (argv[a][2] | a+1 >= argc)
89                                          break;
90 <                                idprefix = argv[++a];
90 >                                a++;
91 >                                if (idprefix == NULL)
92 >                                        idprefix = argv[a];
93 >                                else {
94 >                                        register char   *newp;
95 >                                        newp = (char *)malloc(strlen(idprefix)+
96 >                                                        strlen(argv[a])+2);
97 >                                        if (newp == NULL)
98 >                                                exit(2);
99 >                                        sprintf(newp, "%s.%s",
100 >                                                        idprefix, argv[a]);
101 >                                        if (mal_prefix++)
102 >                                                free((void *)idprefix);
103 >                                        idprefix = newp;
104 >                                }
105                                  continue;
106                          case 'c':
107                                  if (argv[a][2])
# Line 94 | Line 116 | char  *argv[];
116                          case 'I':
117                                  if (argv[a][2])
118                                          break;
119 <                                invert = 1;
119 >                                invert = !invert;
120                                  continue;
121                          }
122                  break;
# Line 124 | Line 146 | char  *argv[];
146          putchar('\n');
147                                          /* transform input */
148          if (xac == argc) {
149 +                if (stdinused) {
150 +                        fprintf(stderr, "%s: cannot use stdin more than once\n",
151 +                                        argv[0]);
152 +                        exit(1);
153 +                }
154                  openmain(NULL);
155                  xform(mainfn, mainfp);
156          } else
# Line 132 | Line 159 | char  *argv[];
159                          xform(mainfn, mainfp);
160                  }
161  
162 +        if (mal_prefix)
163 +                free((void *)idprefix);
164          return(0);
165   }
166  
167  
168 + doargf(ac, av, fi)                      /* take argument list from file */
169 + char  **av;
170 + int  ac, fi;
171 + {
172 +        int  inquote;
173 +        char  *newav[256], **avp;
174 +        char  argbuf[1024];
175 +        char  newid[128];
176 +        char  *oldid;
177 +        register char   *cp;
178 +        FILE    *argfp;
179 +        int  n, i, k, newac, err;
180 +        
181 +        if (fi >= ac-1 || (av[fi+1][0] == '-' && av[fi+1][1] != '\0')) {
182 +                fprintf(stderr, "%s: missing file for -f option\n", av[0]);
183 +                exit(1);
184 +        }
185 +        if (av[fi+1][0] == '-' && av[fi+1][1] == '\0') {
186 +                if (stdinused++) {
187 +                        fprintf(stderr,
188 +                                "%s: cannot use stdin more than once\n",
189 +                                        av[0]);
190 +                        exit(1);
191 +                }
192 +                argfp = stdin;
193 +                n = 100;                /* we just don't know! */
194 +        } else {
195 +                if ((argfp = fopen(av[fi+1], "r")) == NULL) {
196 +                        fprintf(stderr,
197 +                                "%s: cannot open argument file \"%s\"\n",
198 +                                        av[0], av[fi+1]);
199 +                        exit(1);
200 +                }
201 +                n = 0;                  /* count number of lines in file */
202 +                while (fgetline(argbuf,sizeof(argbuf),argfp) != NULL)
203 +                        n += argbuf[0] && argbuf[0] != '#';
204 +                if (!n) {
205 +                        fprintf(stderr, "%s: empty argument file \"%s\"\n",
206 +                                        av[0], av[fi+1]);
207 +                        exit(1);
208 +                }
209 +                nrept *= n;
210 +                rewind(argfp);
211 +        }
212 +        err = 0; k = 0;                 /* read each arg list and call main */
213 +        while (fgetline(argbuf,sizeof(argbuf),argfp) != NULL) {
214 +                if (!argbuf[0] || argbuf[0] == '#')
215 +                        continue;
216 +                avp = newav+2;
217 +                avp[0] = av[0];
218 +                for (i = 1; i < fi; i++)
219 +                        avp[i] = av[i];
220 +                newac = i;
221 +                cp = argbuf;            /* parse new words */
222 +                if (*cp == '!') cp++;
223 +                if (!strncmp(cp, "xform ", 6)) cp += 6;
224 +                inquote = 0;
225 +                for ( ; ; ) {
226 +                skipspaces:
227 +                        while (isspace(*cp))    /* nullify spaces */
228 +                                *cp++ = '\0';
229 +                        if ((*cp == '"' | *cp == '\''))
230 +                                inquote = *cp++;
231 +                        if (!*cp)               /* all done? */
232 +                                break;
233 +                        if (cp[0] == '\\' && cp[1])
234 +                                if (*++cp == '\n')
235 +                                        goto skipspaces;
236 +                        avp[newac++] = cp;      /* add argument to list */
237 +                        if (inquote) {
238 +                                while (*++cp)
239 +                                        if (*cp == inquote) {
240 +                                                *cp++ = '\0';
241 +                                                break;
242 +                                        }
243 +                        } else {
244 +                                while (*++cp && !isspace(*cp))
245 +                                        ;
246 +                        }
247 +                }
248 +                for (i = fi+2; i < ac; i++)
249 +                        avp[newac++] = av[i];
250 +                avp[newac] = NULL;
251 +                oldid = NULL;
252 +                for (i = 2; i < newac; i++)
253 +                        if (!strcmp(avp[i-1], "-n")) {
254 +                                oldid = avp[i];
255 +                                avp[i] = newid;
256 +                                break;
257 +                        }
258 +                if (oldid == NULL) {
259 +                        newav[0] = av[0];
260 +                        newav[1] = "-n";
261 +                        newav[2] = newid;
262 +                        avp = newav;
263 +                        newac += 2;
264 +                }
265 +                if (oldid == NULL)
266 +                        sprintf(newid, "i%d", k);
267 +                else
268 +                        sprintf(newid, "%s.%d", oldid, k);
269 +                err |= main(newac, avp);
270 +                k++;
271 +        }
272 +        fclose(argfp);
273 +        return(err);
274 + }
275 +
276 +
277   doarray(ac, av, ai)                     /* make array */
278   char  **av;
279   int  ac, ai;
# Line 145 | Line 283 | int  ac, ai;
283          char  *oldid = NULL;
284          int  n, i, err;
285          
286 +        if (ai >= ac-1 || (n = atoi(av[ai+1])) <= 0) {
287 +                fprintf(stderr, "%s: missing count for -a option\n", av[0]);
288 +                exit(1);
289 +        }
290 +        nrept *= n;
291          avp = newav+2;
292          avp[0] = av[0];
293          for (i = 1; i < ac; i++)
# Line 163 | Line 306 | int  ac, ai;
306                  avp = newav;
307                  ac += 2;
308          }
166 –        nrept *= n = atoi(av[ai+1]);
309          err = 0;
310          for (i = 0; i < n; i++) {
311                  if (oldid == NULL)
# Line 214 | Line 356 | xfcomm(fname, fin)                     /* transform a command */
356   char  *fname;
357   FILE  *fin;
358   {
217 –        extern FILE  *popen();
218 –        extern char  *fgetline();
359          FILE  *pin;
360          char  buf[512];
361          int  i;
# Line 232 | Line 372 | FILE  *fin;
372          } else {
373                  printf("\n%s", buf);
374                  if (xac > 1) {
375 <                        printf(" | %s", xav[0]);
375 >                        printf(" | %s -e", xav[0]);     /* expand next time */
376                          for (i = 1; i < xac; i++)
377 <                                printf(" %s", xav[i]);
377 >                                if (i >= xfa || strcmp(xav[i], "-c"))
378 >                                        printf(" %s", xav[i]);
379                  }
380                  putchar('\n');
381          }
# Line 245 | Line 386 | xfobject(fname, fin)                           /* transform an object */
386   char  *fname;
387   FILE  *fin;
388   {
248 –        extern char  *strcpy();
389          char  typ[16], nam[MAXSTR];
390          int  fn;
391                                                  /* modifier and type */
# Line 287 | Line 427 | FILE  *fin;
427                  return(-1);
428                                          /* string arguments */
429          printf("%d", fa.nsargs);
430 <        for (i = 0; i < fa.nsargs; i++)
431 <                printf(" %s", fa.sarg[i]);
430 >        for (i = 0; i < fa.nsargs; i++) {
431 >                fputc(' ', stdout);
432 >                fputword(fa.sarg[i], stdout);
433 >        }
434          printf("\n");
435   #ifdef  IARGS
436                                          /* integer arguments */
# Line 322 | Line 464 | FILE  *fin;
464          if (xac > xfa && strcmp(xav[xfa], "-i"))
465                  resetarr = 2;
466          printf("%d", fa.nsargs + resetarr + xac-xfa);
467 <        for (i = 0; i < fa.nsargs; i++)
468 <                printf(" %s", fa.sarg[i]);
467 >        for (i = 0; i < fa.nsargs; i++) {
468 >                fputc(' ', stdout);
469 >                fputword(fa.sarg[i], stdout);
470 >        }
471          if (resetarr)
472                  printf(" -i 1");
473          for (i = xfa; i < xac; i++)     /* add xf arguments */
# Line 512 | Line 656 | FILE  *fin;
656                  return(-1);
657                                          /* string arguments */
658          printf("%d", fa.nsargs);
659 <        for (i = 0; i < fa.nsargs; i++)
660 <                printf(" %s", fa.sarg[i]);
659 >        for (i = 0; i < fa.nsargs; i++) {
660 >                fputc(' ', stdout);
661 >                fputword(fa.sarg[i], stdout);
662 >        }
663          printf("\n0\n%d\n", fa.nfargs);
664                                          /* anchor point */
665          multp3(v, fa.farg, tot.xfm);
# Line 761 | Line 907 | char  *fname;
907          strcpy(mainfn, fname);
908   }
909   #else
910 < openmain(fname)         /* open fname for input, changing to its directory */
911 < char  *fname;
910 > openmain(iname)         /* open input, changing directory for file */
911 > char  *iname;
912   {
767 –        extern FILE  *tmpfile();
768 –        extern char  *getlibpath(), *getpath();
913          static char  origdir[MAXPATH];
914          static char  curfn[MAXPATH];
915          static int  diffdir;
916          register char  *fpath;
917  
918 <        if (fname == NULL) {                    /* standard input */
918 >        if (iname == NULL) {                    /* standard input */
919                  if (mainfp == NULL) {
920                          register int  c;
921                          strcpy(mainfn, "standard input");
# Line 788 | Line 932 | char  *fname;
932                          }
933                          while ((c = getc(stdin)) != EOF)
934                                  putc(c, mainfp);
791 –                        fclose(stdin);
935                  }
936                  rewind(mainfp);                 /* rewind copy */
937                  return;
938          }
939          if (mainfp == NULL) {                   /* first call, initialize */
940                  getwd(origdir);
941 <        } else if (!strcmp(fname, curfn)) {     /* just need to rewind? */
941 >        } else if (!strcmp(iname, curfn)) {     /* just need to rewind? */
942                  rewind(mainfp);
943                  return;
944          } else {                                /* else close old stream */
945                  fclose(mainfp);
946 <                if (diffdir) {
946 >                mainfp = NULL;
947 >                if (diffdir) {                  /* return to our directory */
948                          chdir(origdir);
949                          diffdir = 0;
950                  }
951          }
952 <        strcpy(curfn, fname);                   /* remember file name */
953 <                                                /* get full path */
954 <        if ((fpath = getpath(fname, getlibpath(), R_OK)) == NULL) {
952 >        strcpy(curfn, iname);                   /* remember input name */
953 >                                                /* get full path for file */
954 >        if ((fpath = getpath(iname, getlibpath(), R_OK)) == NULL) {
955                  fprintf(stderr, "%s: cannot find file \"%s\"\n",
956 <                                progname, fname);
956 >                                progname, iname);
957                  exit(1);
958          }
959          if (fpath[0] == '.' && ISDIRSEP(fpath[1]))      /* remove leading ./ */
# Line 837 | Line 981 | char  *fname;
981                          diffdir++;
982                  }
983                                                  /* get final path component */
984 <                for (fpath = fname+strlen(fname);
985 <                                fpath > fname && !ISDIRSEP(fpath[-1]); fpath--)
984 >                for (fpath = iname+strlen(iname);
985 >                                fpath > iname && !ISDIRSEP(fpath[-1]); fpath--)
986                          ;
987          }
988 <                                                /* open the file */
988 >                                                /* finally, open the file */
989          if ((mainfp = fopen(fpath, "r")) == NULL) {
990                  fprintf(stderr, "%s: cannot open file \"%s\"\n",
991                                  progname, mainfn);

Diff Legend

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