ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/m_alias.c
Revision: 2.7
Committed: Tue Jul 8 18:25:00 2014 UTC (9 years, 8 months ago) by greg
Content type: text/plain
Branch: MAIN
CVS Tags: rad4R2P2, rad5R0, rad5R1, rad4R2, rad4R2P1
Changes since 2.6: +2 -2 lines
Log Message:
Eliminated unnecessary "extern" and "register" modifiers

File Contents

# Content
1 #ifndef lint
2 static const char RCSid[] = "$Id: m_alias.c,v 2.6 2006/07/12 05:47:05 greg Exp $";
3 #endif
4 /*
5 * Handler for modifier alias
6 */
7
8 #include "copyright.h"
9
10 #include "ray.h"
11 #include "otypes.h"
12 #include "rtotypes.h"
13 #include "otspecial.h"
14
15 /*
16 * If the alias has a single string argument, it's the
17 * name of the target modifier, and we must substitute the
18 * target and its arguments in place of this alias. The
19 * only difference is that we use our modifier rather than
20 * theirs.
21 * If the alias has no string arguments, then we simply
22 * pass through to our modifier as if we weren't in the
23 * chain at all.
24 */
25
26 int
27 m_alias( /* transfer shading to alias target */
28 OBJREC *m,
29 RAY *r
30 )
31 {
32 OBJECT aobj;
33 OBJREC *aop;
34 OBJREC arec;
35 int rval;
36 /* straight replacement? */
37 if (!m->oargs.nsargs)
38 return(rayshade(r, m->omod));
39 /* else replace alias */
40 if (m->oargs.nsargs != 1)
41 objerror(m, INTERNAL, "bad # string arguments");
42 aop = m;
43 aobj = objndx(aop);
44 do { /* follow alias trail */
45 if (aop->oargs.nsargs == 1)
46 aobj = lastmod(aobj, aop->oargs.sarg[0]);
47 else
48 aobj = aop->omod;
49 if (aobj < 0)
50 objerror(aop, USER, "bad reference");
51 aop = objptr(aobj);
52 } while (aop->otype == MOD_ALIAS);
53 /* copy struct */
54 arec = *aop;
55 /* irradiance hack */
56 if (do_irrad && !(r->crtype & ~(PRIMARY|TRANS)) &&
57 m->otype != MAT_CLIP &&
58 (ofun[arec.otype].flags & (T_M|T_X))) {
59 if (irr_ignore(arec.otype)) {
60 raytrans(r);
61 return(1);
62 }
63 if (!islight(arec.otype))
64 return((*ofun[Lamb.otype].funp)(&Lamb, r));
65 }
66 /* substitute modifier */
67 arec.omod = m->omod;
68 /* replacement shader */
69 rval = (*ofun[arec.otype].funp)(&arec, r);
70 /* save allocated struct */
71 if (arec.os != aop->os) {
72 if (aop->os != NULL) /* should never happen */
73 free_os(aop);
74 aop->os = arec.os;
75 }
76 return(rval);
77 }