ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/rt/func.c
(Generate patch)

Comparing ray/src/rt/func.c (file contents):
Revision 2.8 by greg, Mon Mar 8 12:37:23 1993 UTC vs.
Revision 2.12 by greg, Thu Apr 14 04:50:29 1994 UTC

# Line 18 | Line 18 | static char SCCSid[] = "$SunId$ LBL";
18  
19  
20   #define  INITFILE       "rayinit.cal"
21 – #define  REFVNAME       "`FILE_REFCNT"
21   #define  CALSUF         ".cal"
22   #define  LCALSUF        4
23 + char  REFVNAME[] = "`FILE_REFCNT";
24  
25   XF  unitxf = {                  /* identity transform */
26          {{1.0, 0.0, 0.0, 0.0},
# Line 69 | Line 69 | int  dofwd;
69                  funset("erf", 1, ':', l_erf);
70                  funset("erfc", 1, ':', l_erfc);
71                  setnoisefuncs();
72 +                setprismfuncs();
73                  loadfunc(initfile);
74                  initfile[0] = '\0';
75          }
# Line 166 | Line 167 | setfunc(m, r)                  /* set channels for function call */
167   OBJREC  *m;
168   register RAY  *r;
169   {
170 <        static long  lastrno = -1;
170 >        static unsigned long  lastrno = ~0;
171          register MFUNC  *f;
172                                          /* get function */
173          if ((f = (MFUNC *)m->os) == NULL)
# Line 195 | Line 196 | register RAY  *r;
196   loadfunc(fname)                 /* load definition file */
197   char  *fname;
198   {
199 <        extern char  *libpath;          /* library search path */
199 >        extern char  *getlibpath();     /* library search path */
200          char  *ffname;
201  
202 <        if ((ffname = getpath(fname, libpath, R_OK)) == NULL) {
202 >        if ((ffname = getpath(fname, getlibpath(), R_OK)) == NULL) {
203                  sprintf(errmsg, "cannot find function file \"%s\"", fname);
204                  error(USER, errmsg);
205          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)