--- ray/src/rt/func.c	2003/07/21 22:30:19	2.19
+++ ray/src/rt/func.c	2004/03/30 16:13:01	2.22
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: func.c,v 2.19 2003/07/21 22:30:19 schorsch Exp $";
+static const char	RCSid[] = "$Id: func.c,v 2.22 2004/03/30 16:13:01 schorsch Exp $";
 #endif
 /*
  *  func.c - interface to calcomp functions.
@@ -7,10 +7,11 @@ static const char	RCSid[] = "$Id: func.c,v 2.19 2003/0
 
 #include "copyright.h"
 
-#include  "ray.h"
+#include <math.h>
 
+#include  "ray.h"
+#include  "paths.h"
 #include  "otypes.h"
-
 #include  "func.h"
 
 
@@ -31,15 +32,16 @@ XF  funcxf;			/* current transformation */
 static OBJREC  *fobj = NULL;	/* current function object */
 static RAY  *fray = NULL;	/* current function ray */
 
-static double  l_erf(), l_erfc(), l_arg();
+static double  l_erf(char *), l_erfc(char *), l_arg(char *);
 
 
-MFUNC *
-getfunc(m, ff, ef, dofwd)	/* get function for this modifier */
-OBJREC  *m;
-int  ff;
-unsigned int  ef;
-int  dofwd;
+extern MFUNC *
+getfunc(	/* get function for this modifier */
+	OBJREC  *m,
+	int  ff,
+	unsigned int  ef,
+	int  dofwd
+)
 {
 	static char  initfile[] = INITFILE;
 	char  sbuf[MAXSTR];
@@ -131,12 +133,14 @@ toofew:
 	objerror(m, USER, "too few string arguments");
 memerr:
 	error(SYSTEM, "out of memory in getfunc");
+	return NULL; /* pro forma return */
 }
 
 
-void
-freefunc(m)			/* free memory associated with modifier */
-OBJREC  *m;
+extern void
+freefunc(			/* free memory associated with modifier */
+	OBJREC  *m
+)
 {
 	register MFUNC  *f;
 	register int  i;
@@ -163,10 +167,11 @@ OBJREC  *m;
 }
 
 
-int
-setfunc(m, r)			/* set channels for function call */
-OBJREC  *m;
-register RAY  *r;
+extern int
+setfunc(			/* set channels for function call */
+	OBJREC  *m,
+	register RAY  *r
+)
 {
 	static unsigned long  lastrno = ~0;
 	register MFUNC  *f;
@@ -194,9 +199,10 @@ register RAY  *r;
 }
 
 
-void
-loadfunc(fname)			/* load definition file */
-char  *fname;
+extern void
+loadfunc(			/* load definition file */
+	char  *fname
+)
 {
 	char  *ffname;
 
@@ -209,7 +215,7 @@ char  *fname;
 
 
 static double
-l_arg()				/* return nth real argument */
+l_arg(char *nm)			/* return nth real argument */
 {
 	register int  n;
 
@@ -230,26 +236,23 @@ l_arg()				/* return nth real argument */
 
 
 static double
-l_erf()				/* error function */
+l_erf(char *nm)			/* error function */
 {
-	extern double  erf();
-
 	return(erf(argument(1)));
 }
 
 
 static double
-l_erfc()			/* cumulative error function */
+l_erfc(char *nm)		/* cumulative error function */
 {
-	extern double  erfc();
-
 	return(erfc(argument(1)));
 }
 
 
-double
-chanvalue(n)			/* return channel n to calcomp */
-register int  n;
+extern double
+chanvalue(			/* return channel n to calcomp */
+	register int  n
+)
 {
 	if (fray == NULL)
 		syntax("ray parameter used in constant expression");