84 |
|
ofun[PAT_BFUNC].funp = p_bfunc; |
85 |
|
ofun[PAT_CPICT].funp = p_pdata; |
86 |
|
ofun[PAT_CDATA].funp = p_cdata; |
87 |
+ |
ofun[PAT_SPECTRUM].funp = p_spectrum; |
88 |
+ |
ofun[PAT_SPECFILE].funp = p_specfile; |
89 |
+ |
ofun[PAT_SPECFUNC].funp = p_specfunc; |
90 |
|
ofun[PAT_BDATA].funp = p_bdata; |
91 |
|
ofun[PAT_CTEXT].funp = |
92 |
|
ofun[PAT_BTEXT].funp = |
110 |
|
OBJREC * |
111 |
|
findmaterial(OBJREC *o) /* find an object's actual material */ |
112 |
|
{ |
113 |
+ |
OBJECT obj = OVOID; |
114 |
+ |
|
115 |
|
while (!ismaterial(o->otype)) { |
116 |
|
if (o->otype == MOD_ALIAS && o->oargs.nsargs) { |
117 |
< |
OBJECT aobj; |
118 |
< |
OBJREC *ao; |
119 |
< |
aobj = lastmod(objndx(o), o->oargs.sarg[0]); |
120 |
< |
if (aobj < 0) |
121 |
< |
objerror(o, USER, "bad reference"); |
122 |
< |
/* recursive check on alias branch */ |
123 |
< |
if ((ao = findmaterial(objptr(aobj))) != NULL) |
117 |
> |
OBJREC *ao = o; |
118 |
> |
if (obj == OVOID) |
119 |
> |
obj = objndx(o); |
120 |
> |
do { |
121 |
> |
if (!ao->oargs.nsargs) |
122 |
> |
obj = ao->omod; |
123 |
> |
else |
124 |
> |
obj = lastmod(obj, ao->oargs.sarg[0]); |
125 |
> |
if (obj == OVOID) |
126 |
> |
objerror(ao, USER, "bad reference"); |
127 |
> |
ao = objptr(obj); |
128 |
> |
} while (ao->otype == MOD_ALIAS); |
129 |
> |
/* check if aliased to material */ |
130 |
> |
if (ismaterial(ao->otype)) |
131 |
|
return(ao); |
132 |
|
} |
133 |
|
if (o->omod == OVOID) { |
136 |
|
break; |
137 |
|
return(NULL); /* else no material found */ |
138 |
|
} |
139 |
< |
o = objptr(o->omod); |
139 |
> |
obj = o->omod; |
140 |
> |
o = objptr(obj); |
141 |
|
} |
142 |
|
return(o); |
143 |
|
} |