16 |
|
|
17 |
|
|
18 |
|
#define INITFILE "rayinit.cal" |
19 |
< |
#define DEFVNAME "FILE_LOADED`" |
19 |
> |
#define DEFVNAME "`FILE_LOADED" |
20 |
|
|
21 |
|
XF unitxf = { /* identity transform */ |
22 |
|
1.0, 0.0, 0.0, 0.0, |
141 |
|
|
142 |
|
|
143 |
|
funcfile(fname) /* set context, load file if necessary */ |
144 |
< |
char *fname; |
144 |
> |
register char *fname; |
145 |
|
{ |
146 |
|
extern char *setcontext(); |
147 |
|
static char initfile[] = INITFILE; |
163 |
|
loadfunc(initfile); |
164 |
|
initfile[0] = '\0'; |
165 |
|
} |
166 |
< |
setcontext(fname); |
167 |
< |
if (!vardefined(DEFVNAME)) { |
168 |
< |
loadfunc(fname); |
169 |
< |
varset(DEFVNAME, ':', 1.0); |
166 |
> |
if (fname[0] == '.' && fname[1] == '\0') |
167 |
> |
setcontext(""); /* "." means no file */ |
168 |
> |
else { |
169 |
> |
setcontext(fname); |
170 |
> |
if (!vardefined(DEFVNAME)) { |
171 |
> |
loadfunc(fname); |
172 |
> |
varset(DEFVNAME, ':', 1.0); |
173 |
> |
} |
174 |
|
} |
175 |
|
} |
176 |
|
|